First EM pusher

First implementation of Electromagnetic pusher.

Some testing is still required.

Documentation needs to be upgraded to match the changes in this branch.

src/modules/moduleEM.f90

@@ -62,6 +62,23 @@ MODULE moduleEM
 
     END FUNCTION gatherElecField
 
+    PURE FUNCTION gatherMagnField(part) RESULT(BField)
+      USE moduleSpecies
+      USE moduleMesh
+      IMPLICIT NONE
+
+      TYPE(particle), INTENT(in):: part
+      REAl(8):: xi(1:3) !Logical coordinates of particle in element
+      REAL(8):: BField(1:3)
+
+      BField = 0.D0
+
+      xi  = part%xi
+
+      BField = mesh%vols(part%vol)%obj%gatherMF(xi)
+
+    END FUNCTION gatherMagnField
+
     SUBROUTINE assembleSourceVector(vectorF)
       USE moduleMesh
       USE moduleRefParam