precision.f

      MODULE precision
        INTEGER, PARAMETER :: rprec = selected_real_kind(12,100)
        INTEGER, PARAMETER :: iprec = selected_int_kind(8)
        INTEGER, PARAMETER :: cprec = kind((1.0_rprec,1.0_rprec))
        INTEGER, PARAMETER :: dbl = rprec
      END MODULE precision