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