| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | sp | = | real32 | single-precision value |
| integer, | public, | parameter | :: | dp | = | real64 | double-precision value |
| integer, | public, | parameter | :: | qp | = | real128 | quadruple-precision value |
| integer, | public, | parameter | :: | str_len | = | 500 | default length for strings |
| integer, | public, | parameter | :: | str_len_arr | = | 16 | default length for strings in arrays |
| real(kind=dp), | public, | parameter | :: | dp_LIMIT | = | 5.0d-16 | tolerance for real(dp) zero, bit higher than machine precision |
| real(kind=dp), | protected | :: | NaN | NaN value (ieee_quiet_nan) |
|||
| complex(kind=dp), | public, | parameter | :: | ic | = | (0.0d0, 1.0d0) | complex number i |
| complex(kind=dp), | public, | parameter | :: | ir | = | (1.0d0, 0.0d0) | complex real |
| integer, | public, | parameter | :: | n_gauss | = | 4 | number of Gaussian nodes |
| real(kind=dp), | public, | parameter | :: | gaussian_nodes(n_gauss) | = | [-0.861136311594053_dp, -0.339981043584856_dp, 0.339981043584856_dp, 0.861136311594053_dp] | values for the Gaussian nodes in [-1, 1] |
| real(kind=dp), | public, | parameter | :: | gaussian_weights(n_gauss) | = | [0.347854845137454_dp, 0.652145154862546_dp, 0.652145154862546_dp, 0.347854845137454_dp] | weights for the Gaussian nodes in [-1, 1] |