12 integer,
parameter :: real_kind = selected_real_kind( 6)
13 integer,
parameter :: dbl_kind = selected_real_kind(12)
15 integer,
parameter :: int_kind = selected_int_kind ( 6)
16 integer,
parameter :: int8_kind = selected_int_kind (13)
18 integer,
parameter :: cl = 256
19 integer,
parameter :: cm = 64
20 integer,
parameter :: cs = 24
22 end module gengrid_kinds