Mod_Real.f90

Go to the documentation of this file.

module mod_real

  IMPLICIT NONE
  INTEGER, PARAMETER :: real4 = selected_real_kind(6,37)
  INTEGER, PARAMETER :: real8 = selected_real_kind(15,307)
  PUBLIC
end module mod_real