From ed79eb018e695902ffadb84e3b0642b3dc684a85 Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Sat, 4 Apr 2026 20:24:16 +0200 Subject: [PATCH] Import only what you need --- src/fpakc.f90 | 44 ++++++++++++++++++++++++++++++++++---------- 1 file changed, 34 insertions(+), 10 deletions(-) diff --git a/src/fpakc.f90 b/src/fpakc.f90 index feee89a..cb68754 100644 --- a/src/fpakc.f90 +++ b/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