MODULE Numeric_Kind_Module
   IMPLICIT NONE
   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
END MODULE Numeric_Kind_Module