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