!C
!C***
!C*** appl_cntl
!C***
!C
module appl_cntl
use hpcmw_eps_fvm_util
!C
!C-- FILE NAME
character(len=HPCMW_HEADER_LEN):: HEADERgrid
character(len=HPCMW_HEADER_LEN):: HEADERresult
character(len=HPCMW_HEADER_LEN):: HEADERcomm
!C
!C-- MESH info.
integer(kind=kint) :: NX, NY, NZ, NXP1, NYP1, NZP1
integer(kind=kint) :: PVISFLAG
!C
!C-- LINEAR SOLVERS
integer(kind=kint) :: METHOD, PRECOND, NSET, iterPREmax
integer(kind=kint) :: ITER, ITERactual
real (kind=kreal) :: RESID, SIGMA_DIAG, SIGMA
end module appl_cntl