MODULE prec
  INTEGER, PARAMETER :: i4=selected_int_kind(10)
  INTEGER, PARAMETER :: i8=selected_int_kind(18)
  INTEGER, PARAMETER :: r4=selected_real_kind(7)
  INTEGER, PARAMETER :: r8=selected_real_kind(15)
  INTEGER, PARAMETER :: c4=r4
  INTEGER, PARAMETER :: c8=r8
  INTEGER, PARAMETER :: istd=i4
  INTEGER, PARAMETER :: rstd=r8
  INTEGER, PARAMETER :: cstd=c8
END MODULE prec