60 INTEGER,
PARAMETER :: int_b = selected_int_kind(1)
61 INTEGER,
PARAMETER :: int_s = selected_int_kind(4)
62 INTEGER,
PARAMETER :: int_l = selected_int_kind(8)
63 INTEGER,
PARAMETER,
PRIVATE :: &
64 int_ll_t = selected_int_kind(16)
66 INTEGER,
PARAMETER :: int_ll = &
67 ( ( ( 1 + sign( 1, int_ll_t ) ) / 2 ) * int_ll_t ) + &
68 ( ( ( 1 - sign( 1, int_ll_t ) ) / 2 ) * int_l )
70 INTEGER,
PARAMETER :: fp_s = selected_real_kind(6)
71 INTEGER,
PARAMETER :: fp_d = selected_real_kind(15)
72 INTEGER,
PARAMETER,
PRIVATE :: fp_q_t = selected_real_kind(20)
74 INTEGER,
PARAMETER :: fp_q = &
75 ( ( ( 1 + sign( 1, fp_q_t ) ) / 2 ) * fp_q_t ) + &
76 ( ( ( 1 - sign( 1, fp_q_t ) ) / 2 ) * fp_d )
78 INTEGER,
PARAMETER :: ptr_c = sizeof_ptr_c
Definition of constants to be used for declaring variables of a desired type.