Impliementation of a collision mesh which is independent for the mesh

used to scatter particles and compute the EM field.

src/fpakc.f90

@@ -4,6 +4,7 @@ PROGRAM fpakc
   USE moduleErrors
   USE moduleInject
   USE moduleSolver
+  USE moduleMesh
   USE moduleCompTime
   USE moduleCaseParam
   USE OMP_LIB
@@ -67,10 +68,19 @@ PROGRAM fpakc
     tColl = omp_get_wtime()
     !$OMP END SINGLE
 
-    CALL doCollisions()
+    IF (ASSOCIATED(meshForMCC)) CALL meshForMCC%doCollisions()
 
     !$OMP SINGLE
     tColl = omp_get_wtime() - tColl
+    
+    !Coulomb scattering
+    tCoul = omp_get_wTime()
+    !$OMP END SINGLE
+
+    IF (ASSOCIATED(mesh%doCoulomb)) CALL mesh%doCoulomb()
+
+    !$OMP SINGLE
+    tCoul = omp_get_wTime() - tCoul
 
     !Reset particles
     tReset = omp_get_wtime()