MODULE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER, PARAMETER  :: sp=KIND(1.0)                   ! Single precsion
   INTEGER, PARAMETER  :: dp=SELECTED_REAL_KIND(14,300)  ! Double precsion   
END MODULE Numeric_Kinds_Module