Renaming of code. New name is FPAKC.

src/FPAKC.f95

@@ -1,5 +1,5 @@
-!  PPartiC neutral PIC main program.
-PROGRAM PPartiC
+!  FPAKC main program
+PROGRAM FPAKC
   USE moduleInput
   USE moduleErrors
   USE OMP_LIB
@@ -90,5 +90,5 @@ PROGRAM PPartiC
   END DO
   !$OMP END PARALLEL
 
-END PROGRAM PPartiC
+END PROGRAM FPAKC
 

src/modules/moduleEM.f95

@@ -79,7 +79,7 @@ MODULE moduleEM
       vectorF = 0.D0
       !$OMP END SINGLE
 
-      !$OMP SINGLE
+      !$OMP DO REDUCTION(+:vectorF)
       DO e = 1, mesh%numVols
         nodes  = mesh%vols(e)%obj%getNodes()
         nNodes = SIZE(nodes)
@@ -112,7 +112,7 @@ MODULE moduleEM
         DEALLOCATE(nodes, rho)
 
       END DO
-      !$OMP END SINGLE
+      !$OMP END DO
 
       !Apply boundary conditions
       !$OMP DO