|
integer, parameter, public | i_byte = selected_int_kind(1) |
|
integer, parameter, public | i_short = selected_int_kind(4) |
|
integer, parameter, public | i_long = selected_int_kind(8) |
|
integer, parameter, private | llong_t = selected_int_kind(16) |
|
integer, parameter, public | i_llong = max( llong_t, i_long ) |
|
integer, parameter, public | num_bytes_for_i_byte = 1 |
|
integer, parameter, public | num_bytes_for_i_short = 2 |
|
integer, parameter, public | num_bytes_for_i_long = 4 |
|
integer, parameter, public | num_bytes_for_i_llong = 8 |
|
integer, parameter, private | num_i_kinds = 4 |
|
integer, dimension(num_i_kinds), parameter, private | integer_types = (/ i_byte, i_short, i_long, i_llong /) |
|
integer, dimension(num_i_kinds), parameter, private | integer_byte_sizes = (/ num_bytes_for_i_byte, num_bytes_for_i_short, num_bytes_for_i_long, num_bytes_for_i_llong /) |
|
integer, parameter, private | default_integer = 3 |
|
integer, parameter, public | i_kind = integer_types( default_integer ) |
|
integer, parameter, public | num_bytes_for_i_kind = integer_byte_sizes( default_integer ) |
|
integer, parameter, public | r_single = selected_real_kind(6) |
|
integer, parameter, public | r_double = selected_real_kind(15) |
|
integer, parameter, private | quad_t = selected_real_kind(20) |
|
integer, parameter, public | r_quad = max( quad_t, r_double ) |
|
integer, parameter, public | num_bytes_for_r_single = 4 |
|
integer, parameter, public | num_bytes_for_r_double = 8 |
|
integer, parameter, public | num_bytes_for_r_quad = 16 |
|
integer, parameter, private | num_r_kinds = 3 |
|
integer, dimension(num_r_kinds), parameter, private | real_kinds = (/ r_single, r_double, r_quad /) |
|
integer, dimension(num_r_kinds), parameter, private | real_byte_sizes = (/ num_bytes_for_r_single, num_bytes_for_r_double, num_bytes_for_r_quad /) |
|
integer, parameter, private | default_real = 1 |
|
integer, parameter, public | r_kind = real_kinds( default_real ) |
|
integer, parameter, public | num_bytes_for_r_kind = real_byte_sizes( default_real ) |
|