Import only what you need

src/fpakc.f90

@@ -1,15 +1,39 @@
 !  FPAKC main program
 PROGRAM fpakc
-  USE moduleCompTime
-  USE moduleCaseParam
-  USE moduleInput
-  USE moduleInject
-  USE moduleSolver
-  USE moduleMesh
-  USE moduleProbe
-  USE moduleErrors
-  USE OMP_LIB
-  IMPLICIT NONE
+  use moduleCompTime,  only: tStep,    &
+                             tEMField, &
+                             tCoul,    &
+                             tColl,    &
+                             tPush,    &
+                             tReset,   &
+                             tWeight
+  use omp_lib,         only: omp_get_wtime
+  use moduleErrors,    only: criticalError, &
+                             verboseError
+  use moduleInput,     only: readCOnfig, &
+                             initOutput
+  use moduleCaseParam, only: timeStep, &
+                             tInitial, &
+                             tFinal
+  use moduleProbe,     only: resetProbes
+  use moduleSolver,    only: doScatter, &
+                             doEMField, &
+                             doOutput,  &
+                             solver,    &
+                             doPushes,  &
+                             doReset,   &
+                             doAverage, &
+                             doInjects
+  use moduleMesh,      only: boundariesEM_update,       &
+                             boundariesEM_update,       &
+                             boundariesParticle_update, &
+                             mesh,                      &
+                             meshForMCC,                &
+                             doMCCollisions,            &
+                             doCollisions,              &
+                             doCoulombScattering
+  use moduleInject,    only: updateInjects
+  implicit none
 
   ! arg1 = Input argument 1 (input file)
   CHARACTER(200):: arg1