|
integer, parameter | type_kinds::iip = 3 |
|
integer, parameter | type_kinds::ifp = 2 |
|
integer, parameter, public | type_kinds::byte = SELECTED_INT_KIND(1) |
|
integer, parameter, public | type_kinds::short = SELECTED_INT_KIND(4) |
|
integer, parameter, public | type_kinds::long = SELECTED_INT_KIND(8) |
|
integer, parameter, public | type_kinds::llong = SELECTED_INT_KIND(16) |
|
integer, parameter, public | type_kinds::n_bytes_byte = 1 |
|
integer, parameter, public | type_kinds::n_bytes_short = 2 |
|
integer, parameter, public | type_kinds::n_bytes_long = 4 |
|
integer, parameter, public | type_kinds::n_bytes_llong = 8 |
|
integer, parameter | type_kinds::n_ip = 4 |
|
integer, dimension(n_ip), parameter | type_kinds::ip_kind_types = (/ Byte, Short, Long, LLong /) |
|
integer, dimension(n_ip), parameter | type_kinds::ip_byte_sizes = (/ n_Bytes_Byte, n_Bytes_Short, n_Bytes_Long, n_Bytes_LLong /) |
|
integer, parameter, public | type_kinds::ip_kind =IP_KIND_TYPES(IIP) |
|
integer, parameter, public | type_kinds::n_bytes_ip_kind =IP_BYTE_SIZES(IIP) |
|
integer, parameter, public | type_kinds::ip =IP_Kind |
|
integer, parameter, public | type_kinds::n_bytes_ip =n_Bytes_IP_Kind |
|
integer, parameter, public | type_kinds::single = SELECTED_REAL_KIND(6) |
|
integer, parameter, public | type_kinds::double = SELECTED_REAL_KIND(15) |
|
integer, parameter, public | type_kinds::quad = SELECTED_REAL_KIND(20) |
|
integer, parameter, public | type_kinds::n_bytes_single = 4 |
|
integer, parameter, public | type_kinds::n_bytes_double = 8 |
|
integer, parameter, public | type_kinds::n_bytes_quad = 16 |
|
integer, parameter | type_kinds::n_fp = 3 |
|
integer, dimension(n_fp), parameter | type_kinds::fp_kind_types = (/ Single, Double, Quad /) |
|
integer, dimension(n_fp), parameter | type_kinds::fp_byte_sizes = (/ n_Bytes_Single, n_Bytes_Double, n_Bytes_Quad /) |
|
integer, parameter, public | type_kinds::fp_kind = FP_KIND_TYPES(IFP) |
|
integer, parameter, public | type_kinds::n_bytes_fp_kind = FP_BYTE_SIZES(IFP) |
|
integer, parameter, public | type_kinds::fp =FP_Kind |
|
integer, parameter, public | type_kinds::n_bytes_fp =n_Bytes_FP_Kind |
|