MODULE Numeric_Kinds_Module
   IMPLICIT NONE
integer, parameter :: i1b = selected_int_kind(2)
integer, parameter :: i2b = selected_int_kind(4)
integer, parameter :: i4b = selected_int_kind(9)
   SAVE
   INTEGER, PARAMETER  :: Int1=Selected_Int_Kind(1)           ! 1 byte integer
   INTEGER, PARAMETER  :: Int4=Selected_Int_Kind(7)           ! 4 byte integer
   INTEGER, PARAMETER  :: Int8=Selected_Int_Kind(14)          ! 8 byte integer
   INTEGER, PARAMETER  :: SP_Kind=KIND(1.0)                   ! Single precsion
   INTEGER, PARAMETER  :: DP_Kind=Selected_Real_Kind(14,300)  ! Double precsion
   INTEGER, PARAMETER  :: QP_Kind = selected_real_kind(25,1000)
   INTEGER, PARAMETER  :: WP_Kind = DP_Kind
END MODULE Numeric_Kinds_Module