Global definitions of some handy kind declarations with the help of the intrinsic selected_*_kind functions.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | quad_k | = | selected_real_kind(33) | |
integer, | public, | parameter | :: | double_k | = | selected_real_kind(15) | |
integer, | public, | parameter | :: | single_k | = | selected_real_kind(6) | |
integer, | public, | parameter | :: | int_k | = | selected_int_kind(6) | |
integer, | public, | parameter | :: | long_k | = | selected_int_kind(15) |