40 integer,
parameter,
public :: i_byte = selected_int_kind(1)
42 integer,
parameter,
public :: i_short = selected_int_kind(4)
44 integer,
parameter,
public :: i_long = selected_int_kind(8)
45 integer,
parameter,
private :: llong_t = selected_int_kind(16)
47 integer,
parameter,
public :: i_llong = max( llong_t, i_long )
51 integer,
parameter,
public :: num_bytes_for_i_byte = 1
53 integer,
parameter,
public :: num_bytes_for_i_short = 2
55 integer,
parameter,
public :: num_bytes_for_i_long = 4
57 integer,
parameter,
public :: num_bytes_for_i_llong = 8
60 integer,
parameter,
private :: num_i_kinds = 4
61 integer,
parameter,
dimension( num_i_kinds ),
private :: integer_types = (/ &
62 i_byte, i_short, i_long, i_llong /)
63 integer,
parameter,
dimension( num_i_kinds ),
private :: integer_byte_sizes = (/ &
64 num_bytes_for_i_byte, num_bytes_for_i_short, &
65 num_bytes_for_i_long, num_bytes_for_i_llong /)
69#if defined(GSDRAPR) || defined(COMMCODE)
70 integer,
parameter,
private :: default_integer = 3
72 integer,
parameter,
private :: default_integer = 2
78 integer,
parameter,
public :: i_kind = integer_types( default_integer )
80 integer,
parameter,
public :: num_bytes_for_i_kind = &
81 integer_byte_sizes( default_integer )
87 integer,
parameter,
public :: r_single = selected_real_kind(6)
89 integer,
parameter,
public :: r_double = selected_real_kind(15)
90 integer,
parameter,
private :: quad_t = selected_real_kind(20)
92 integer,
parameter,
public :: r_quad = max( quad_t, r_double )
96 integer,
parameter,
public :: num_bytes_for_r_single = 4
98 integer,
parameter,
public :: num_bytes_for_r_double = 8
100 integer,
parameter,
public :: num_bytes_for_r_quad = 16
103 integer,
parameter,
private :: num_r_kinds = 3
104 integer,
parameter,
dimension( num_r_kinds ),
private :: real_kinds = (/ &
105 r_single, r_double, r_quad /)
106 integer,
parameter,
dimension( num_r_kinds ),
private :: real_byte_sizes = (/ &
107 num_bytes_for_r_single, num_bytes_for_r_double, &
108 num_bytes_for_r_quad /)
112 integer,
parameter,
private :: default_real = 1
116 integer,
parameter,
public :: r_kind = real_kinds( default_real )
118 integer,
parameter,
public :: num_bytes_for_r_kind = &
119 real_byte_sizes( default_real )