19 INTEGER,
PARAMETER :: ic_sm = 8
20 INTEGER,
PARAMETER :: ic_med = 64
21 INTEGER,
PARAMETER :: ic_long = 256
22 INTEGER,
PARAMETER :: ic_xl = 1024
23 INTEGER,
PARAMETER :: ic_lvar = 80
24 INTEGER,
PARAMETER :: ic_lvar2= 120
25 INTEGER,
PARAMETER :: ip_single_p = selected_real_kind(6,37)
26 INTEGER,
PARAMETER :: ip_double_p = selected_real_kind(12,307)
27 INTEGER,
PARAMETER :: ip_realwp_p = ip_double_p
28 LOGICAL,
PARAMETER :: ll_single = .false.
29 INTEGER,
PARAMETER :: ip_i2_p = selected_int_kind(4)
30 INTEGER,
PARAMETER :: ip_i4_p = selected_int_kind(9)
32 INTEGER,
PARAMETER :: ip_i8_p = selected_int_kind(15)
34 INTEGER,
PARAMETER :: ip_i8_p = selected_int_kind(18)
36 INTEGER,
PARAMETER :: ip_intwp_p = ip_i4_p
37 INTEGER,
PARAMETER :: ip_r8_p = ip_double_p