Module to manage real kinds and basic constants
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | sp | = | selected_real_kind(6) | Single precision |
integer, | public, | parameter | :: | dp | = | selected_real_kind(15) | Double precision |
integer, | public, | parameter | :: | ep | = | selected_real_kind(18) | Extended precision |
integer, | public, | parameter | :: | qp | = | selected_real_kind(32) | Quad precision |
integer, | public, | parameter, dimension(4) | :: | rkinds | = | [sp, dp, ep, qp] | List of real kinds |
integer, | public, | parameter | :: | wp | = | dp | Set working precision to double |
real(kind=wp), | public, | parameter | :: | PI | = | 4.0_wp*atan(1.0_wp) | Archimedes' constant |
real(kind=wp), | public, | parameter | :: | E | = | exp(1.0_wp) | Euler's constant |
Compute the argument of a complex number
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=wp), | intent(in) | :: | z |
Print the integer kinds for each real type