INTEGER, PARAMETER :: MKS = KIND(1.0E0)
       INTEGER, PARAMETER :: MKD = KIND(1.0D0)
       INTEGER, PARAMETER :: MK  = MKS