parkind2.F90

Go to the documentation of this file.

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