First commit of code.

New functionality:
- DSMC module:
  - 2D cyl geometry
    - GMSH file format
    - Elastic cross-section for Argon-Argon collisions.
    - Basic boundary conditions: reflection, absorption and axis
      symmetry.

Bugs fixed:

Other comments:
- Still searching for name.

src/modules/moduleMesh.f95

@@ -0,0 +1,198 @@
+!moduleMesh: General module for Finite Element mesh
+MODULE moduleMesh
+  USE moduleList
+  USE moduleOutput
+  IMPLICIT NONE
+
+  !Parent of Node element
+  TYPE, PUBLIC, ABSTRACT:: meshNode
+    !Node index
+    INTEGER:: n = 0
+    !Node volume
+    REAL(8):: v = 0.D0
+    !Output values
+    TYPE(outputNode), ALLOCATABLE:: output(:)
+    CONTAINS
+      PROCEDURE(initNode_interface), DEFERRED, PASS:: init
+      PROCEDURE(getCoord_interface), DEFERRED, PASS:: getCoordinates
+
+  END TYPE meshNode
+
+  ABSTRACT INTERFACE
+    !Interface of init a node (3D generic coordinates)
+    SUBROUTINE initNode_interface(self, n, r)
+      IMPORT:: meshNode
+      CLASS(meshNode), INTENT(out):: self
+      INTEGER, INTENT(in):: n
+      REAL(8), INTENT(in):: r(1:3)
+
+    END SUBROUTINE initNode_interface
+
+    !Interface to get coordinates from node
+    FUNCTION getCoord_interface(self) RESULT(r)
+      IMPORT:: meshNode
+      CLASS(meshNode):: self
+      REAL(8):: r(1:3)
+
+    END FUNCTION getCoord_interface
+
+  END INTERFACE
+
+  !Containers for nodes in the mesh
+  TYPE:: meshNodeCont
+    CLASS(meshNode), ALLOCATABLE:: obj
+
+  END TYPE meshNodeCont
+
+  !Parent of Edge element
+  TYPE, PUBLIC, ABSTRACT:: meshEdge
+    !Element index
+    INTEGER:: n = 0
+    !Connectivity to vols
+    CLASS(meshVol), POINTER:: e1 => NULL(), e2 => NULL()
+    !Normal vector
+    REAL(8):: normal(1:3)
+    !Physical surface in mesh
+    INTEGER:: physicalSurface
+    !id for boundary condition
+    INTEGER:: bt = 0
+    CONTAINS
+      PROCEDURE(initEdge_interface), DEFERRED, PASS:: init
+
+  END TYPE meshEdge
+
+  ABSTRACT INTERFACE
+    SUBROUTINE initEdge_interface(self, n, p, bt, physicalSurface)
+      IMPORT:: meshEdge
+      CLASS(meshEdge), INTENT(out):: self
+      INTEGER, INTENT(in):: n
+      INTEGER, INTENT(in):: p(:)
+      INTEGER, INTENT(in):: bt
+      INTEGER, INTENT(in):: physicalSurface
+
+    END SUBROUTINE initEdge_interface
+
+  END INTERFACE
+
+  !Containers for edges in the mesh
+  TYPE:: meshEdgeCont
+    CLASS(meshEdge), ALLOCATABLE:: obj
+
+  END TYPE meshEdgeCont
+
+  !Parent of Volume element
+  TYPE, PUBLIC, ABSTRACT:: meshVol
+    !Volume index
+    INTEGER:: n = 0
+    !Maximum collision rate
+    REAL(8):: sigmaVrelMax = 1.D-15
+    !Volume
+    REAL(8):: volume = 0.D0
+    !List of particles inside the volume
+    TYPE(listNode):: listPart_in
+    !Number of collisions per volume
+    INTEGER:: nColl = 0
+    CONTAINS
+      PROCEDURE(initVol_interface),   DEFERRED, PASS:: init
+      PROCEDURE(scatter_interface),   DEFERRED, PASS:: scatter
+      PROCEDURE(collision_interface), DEFERRED, PASS:: collision
+      PROCEDURE(findCell_interface),  DEFERRED, PASS:: findCell
+
+  END TYPE meshVol
+
+  ABSTRACT INTERFACE
+    SUBROUTINE initVol_interface(self, n, p)
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(out):: self
+      INTEGER, INTENT(in):: n
+      INTEGER, INTENT(in):: p(:)
+
+    END SUBROUTINE initVol_interface
+
+    SUBROUTINE scatter_interface(self, part)
+      USE moduleSpecies
+      
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(in):: self
+      CLASS(particle), INTENT(in):: part
+
+    END SUBROUTINE scatter_interface
+
+    SUBROUTINE collision_interface(self)
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(inout):: self
+
+    END SUBROUTINE collision_interface
+
+    SUBROUTINE findCell_interface(self, part)
+      USE moduleSpecies
+      
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(in):: self
+      CLASS(particle), INTENT(inout):: part
+
+    END SUBROUTINE findCell_interface
+
+  END INTERFACE
+
+  !Containers for volumes in the mesh
+  TYPE:: meshVolCont
+    CLASS(meshVol), ALLOCATABLE:: obj
+
+  END TYPE meshVolCont
+
+  !Abstract type of mesh
+  TYPE, PUBLIC, ABSTRACT:: meshGeneric
+    INTEGER:: numEdges, numNodes, numVols
+    !Array of nodes
+    TYPE(meshNodeCont), ALLOCATABLE:: nodes(:)
+    !Array of boundary elements
+    TYPE(meshEdgeCont), ALLOCATABLE:: edges(:)
+    !Array of volume elements
+    TYPE(meshVolCont),  ALLOCATABLE:: vols(:)
+    !Global stiffness matrix
+    REAL(8), ALLOCATABLE, DIMENSION(:,:):: K 
+    !Global load vector
+    REAL(8), ALLOCATABLE, DIMENSION(:):: F 
+
+    CONTAINS
+      PROCEDURE(readMesh_interface),    PASS, DEFERRED:: readMesh
+      PROCEDURE(printOutput_interface), PASS, DEFERRED:: printOutput
+      PROCEDURE(printColl_interface),   PASS, DEFERRED:: printColl
+
+  END TYPE meshGeneric
+
+  ABSTRACT INTERFACE
+    !Reads the mesh from a file
+    SUBROUTINE readMesh_interface(self, filename)
+      IMPORT meshGeneric
+
+      CLASS(meshGeneric), INTENT(out):: self
+      CHARACTER(:), ALLOCATABLE, INTENT(in):: filename
+
+    END SUBROUTINE readMesh_interface
+
+    !Prints output variables
+    SUBROUTINE printOutput_interface(self, t)
+      IMPORT meshGeneric
+
+      CLASS(meshGeneric), INTENT(in):: self
+      INTEGER, INTENT(in):: t
+
+    END SUBROUTINE printOutput_interface
+
+    !Prints unmber of collisions
+    SUBROUTINE printColl_interface(self, t)
+      IMPORT meshGeneric
+
+      CLASS(meshGeneric), INTENT(in):: self
+      INTEGER, INTENT(in):: t
+
+    END SUBROUTINE printColl_interface
+
+  END INTERFACE
+
+  !Generic mesh
+  CLASS(meshGeneric), ALLOCATABLE, TARGET:: mesh
+
+END MODULE moduleMesh