gengrid_kinds.F90

Go to the documentation of this file.

module gengrid_kinds

  implicit none

  integer,parameter :: real_kind = selected_real_kind( 6)
  integer,parameter ::  dbl_kind = selected_real_kind(12)

  integer,parameter ::  int_kind = selected_int_kind ( 6)
  integer,parameter :: int8_kind = selected_int_kind (13)

  integer, parameter :: CL = 256
  integer, parameter :: CM =  64
  integer, parameter :: CS =  24

end module gengrid_kinds