First version with possibility for charged particles to be included.

Now, the solver needs to be an input parameter of the case, to select if
it is for charged or neutral particles.

Resolution of Poisson equation with Dirichlet boundary conditions is
possible. The source vector is the charge density. This resolution is
done in two steps to save computational time:
  1. When reading the mesh, the PLU factorization of the K matrix is
  computed.
  2. In each iteration, the system K*u = f is solved, in which f is the
  source vector (charge density) and u is the solution (potential) in
  each node.

No case has been added to the repository. This will be done in next
commit.

The 'non-analog' scheme has been commented. It still needs to split
the particle to avoid 'overweight' particles.

src/modules/moduleMesh.f95

@@ -2,7 +2,6 @@
 MODULE moduleMesh
   USE moduleList
   USE moduleOutput
-  USE OMP_LIB
   IMPLICIT NONE
 
   !Parent of Node element
@@ -13,6 +12,7 @@ MODULE moduleMesh
     REAL(8):: v = 0.D0
     !Output values
     TYPE(outputNode), ALLOCATABLE:: output(:)
+    TYPE(emNode):: emData
     CONTAINS
       PROCEDURE(initNode_interface), DEFERRED, PASS:: init
       PROCEDURE(getCoord_interface), DEFERRED, PASS:: getCoordinates
@@ -58,15 +58,17 @@ MODULE moduleMesh
     !id for boundary condition
     INTEGER:: bt = 0
     CONTAINS
-      PROCEDURE(initEdge_interface), DEFERRED, PASS:: init
-      PROCEDURE(boundary_interface), DEFERRED, PASS:: fBoundary
-      PROCEDURE(randPos_interface), DEFERRED, PASS::  randPos
+      PROCEDURE(initEdge_interface),     DEFERRED, PASS:: init
+      PROCEDURE(boundary_interface),     DEFERRED, PASS:: fBoundary
+      PROCEDURE(getNodesEdge_interface), DEFERRED, PASS:: getNodes
+      PROCEDURE(randPos_interface),      DEFERRED, PASS:: randPos
 
   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(:)
@@ -84,10 +86,16 @@ MODULE moduleMesh
 
     END SUBROUTINE
 
-    PURE FUNCTION randPos_interface(self, rnd) RESULT(r)
+    PURE FUNCTION getNodesEdge_interface(self) RESULT(n)
+      IMPORT:: meshEdge
+      CLASS(meshEdge), INTENT(in):: self
+      INTEGER, ALLOCATABLE:: n(:)
+
+    END FUNCTION
+
+    FUNCTION randPos_interface(self) RESULT(r)
       IMPORT:: meshEdge
       CLASS(meshEdge), INTENT(in):: self
-      REAL(8), INTENT(in):: rnd
       REAL(8):: r(1:3)
 
     END FUNCTION randPos_interface
@@ -119,6 +127,9 @@ MODULE moduleMesh
     CONTAINS
       PROCEDURE(initVol_interface),     DEFERRED, PASS:: init
       PROCEDURE(scatter_interface),     DEFERRED, PASS:: scatter
+      PROCEDURE(gatherEF_interface),    DEFERRED, PASS:: gatherEF
+      PROCEDURE(getNodesVol_interface), DEFERRED, PASS:: getNodes
+      PROCEDURE(elemF_interface),       DEFERRED, PASS:: elemF
       PROCEDURE(collision_interface),   DEFERRED, PASS:: collision
       PROCEDURE(findCell_interface),    DEFERRED, PASS:: findCell
       PROCEDURE(resetOutput_interface), DEFERRED, PASS:: resetOutput
@@ -143,6 +154,32 @@ MODULE moduleMesh
 
     END SUBROUTINE scatter_interface
 
+    PURE FUNCTION gatherEF_interface(self, xi) RESULT(EF)
+      
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(in):: self
+      REAL(8), INTENT(in):: xi(1:3)
+      REAL(8):: EF(1:3)
+
+    END FUNCTION gatherEF_interface
+
+    PURE FUNCTION getNodesVol_interface(self) RESULT(n)
+      
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(in):: self
+      INTEGER, ALLOCATABLE:: n(:)
+
+    END FUNCTION getNodesVol_interface
+
+    PURE FUNCTION elemF_interface(self, source) RESULT(localF)
+      
+      IMPORT:: meshVol
+      CLASS(meshVol), INTENT(in):: self
+      REAL(8), INTENT(in):: source(1:)
+      REAL(8), ALLOCATABLE:: localF(:)
+
+    END FUNCTION elemF_interface
+
     SUBROUTINE collision_interface(self)
       IMPORT:: meshVol
       CLASS(meshVol), INTENT(inout):: self
@@ -184,13 +221,14 @@ MODULE moduleMesh
     TYPE(meshVolCont),  ALLOCATABLE:: vols(:)
     !Global stiffness matrix
     REAL(8), ALLOCATABLE, DIMENSION(:,:):: K 
-    !Global load vector
-    REAL(8), ALLOCATABLE, DIMENSION(:):: F 
+    !Permutation matrix for P L U factorization
+    INTEGER, ALLOCATABLE, DIMENSION(:,:):: IPIV
 
     CONTAINS
       PROCEDURE(readMesh_interface),    PASS, DEFERRED:: readMesh
       PROCEDURE(printOutput_interface), PASS, DEFERRED:: printOutput
       PROCEDURE(printColl_interface),   PASS, DEFERRED:: printColl
+      PROCEDURE(printEM_interface),     PASS, DEFERRED:: printEM
 
   END TYPE meshGeneric
 
@@ -213,7 +251,7 @@ MODULE moduleMesh
 
     END SUBROUTINE printOutput_interface
 
-    !Prints unmber of collisions
+    !Prints number of collisions
     SUBROUTINE printColl_interface(self, t)
       IMPORT meshGeneric
 
@@ -222,6 +260,14 @@ MODULE moduleMesh
 
     END SUBROUTINE printColl_interface
 
+    !Prints EM info
+    SUBROUTINE printEM_interface(self, t)
+      IMPORT meshGeneric
+
+      CLASS(meshGeneric), INTENT(in):: self
+      INTEGER, INTENT(in):: t
+
+    END SUBROUTINE printEM_interface
   END INTERFACE
 
   !Generic mesh