!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