11 character(len=16):: name=
'not set' 12 real(kind=8):: pi = acos(-1.0_8)
13 real(kind=8):: pi2 = 2.0_8 * acos(-1.0_8)
14 real(kind=8):: pi4 = 4.0_8 * acos(-1.0_8)
15 real(kind=8):: e = exp(1d0)
16 real(kind=8):: ln10 = log(10d0)
20 type(
math_t),
public:: math
23 SUBROUTINE init (self)
Fundamental constants in CGS and SI units.