JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Import only what you need

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-04 20:24:16 +02:00
commit ed79eb018e
1 changed files with 34 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

44
src/fpakc.f90
View file

@ -1,15 +1,39 @@
! FPAKC main program ! FPAKC main program
PROGRAM fpakc PROGRAM fpakc
USE moduleCompTime use moduleCompTime, only: tStep, &
USE moduleCaseParam tEMField, &
USE moduleInput tCoul, &
USE moduleInject tColl, &
USE moduleSolver tPush, &
USE moduleMesh tReset, &
USE moduleProbe tWeight
USE moduleErrors use omp_lib, only: omp_get_wtime
USE OMP_LIB use moduleErrors, only: criticalError, &
IMPLICIT NONE 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) ! arg1 = Input argument 1 (input file)
CHARACTER(200):: arg1 CHARACTER(200):: arg1