MODULE PARKIND2

!     *** Define huge kinds for strong typing ***

IMPLICIT NONE
SAVE

!     Integer Kinds
!     -------------

INTEGER, PARAMETER :: JPIH = SELECTED_INT_KIND(18)

!     Real Kinds
!     ----------

#ifdef REALHUGE
INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(31,291)
#else
INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
#endif

END MODULE PARKIND2