Newer
Older
MODULE MODD_PRECISION
USE PARKIND1
IMPLICIT NONE
SAVE
INTEGER, PARAMETER :: MNHREAL = JPRB
INTEGER, PARAMETER :: MNHREAL64 = JPRD
INTEGER, PARAMETER :: MNHREAL32 = JPRM
MODULE MODD_PRECISION
USE PARKIND1
IMPLICIT NONE
SAVE
INTEGER, PARAMETER :: MNHREAL = JPRB
INTEGER, PARAMETER :: MNHREAL64 = JPRD
INTEGER, PARAMETER :: MNHREAL32 = JPRM