Files renamed and makefile make compatible with ifort.

src/modules/mesh/1DCart/moduleMesh1DBoundary.f90

@@ -0,0 +1,40 @@
+MODULE moduleMesh1DBoundary
+  USE moduleMesh1D
+
+  TYPE, PUBLIC, EXTENDS(meshEdge1D):: meshEdge1DRef
+    CONTAINS
+      PROCEDURE, PASS:: fBoundary => reflection
+
+  END TYPE meshEdge1DRef
+
+  TYPE, PUBLIC, EXTENDS(meshEdge1D):: meshEdge1DAbs
+    CONTAINS
+      PROCEDURE, PASS:: fBoundary => absorption
+
+  END TYPE meshEdge1DAbs
+
+  CONTAINS
+    SUBROUTINE reflection(self, part)
+      USE moduleSpecies
+      IMPLICIT NONE
+
+      CLASS(meshEdge1DRef), INTENT(inout):: self
+      CLASS(particle), INTENT(inout):: part
+
+      part%v(1) = -part%v(1)
+      part%r(1) =  2.D0*self%x - part%r(1)
+
+    END SUBROUTINE reflection
+
+    SUBROUTINE absorption(self, part)
+      USE moduleSpecies
+      IMPLICIT NONE
+
+      CLASS(meshEdge1DAbs), INTENT(inout):: self
+      CLASS(particle), INTENT(inout):: part
+
+      part%n_in = .FALSE.
+
+    END SUBROUTINE absorption
+
+END MODULE moduleMesh1DBoundary