3 USE stel_kinds,
ONLY: rprec, dp
9 REAL(dp),
PARAMETER :: pi=3.14159265358979323846264338328_dp
10 REAL(dp),
PARAMETER :: pio2=pi/2
11 REAL(dp),
PARAMETER :: twopi=2*pi
12 REAL(dp),
PARAMETER :: sqrt2=1.41421356237309504880168872_dp
13 REAL(dp),
PARAMETER :: degree=twopi / 360
14 REAL(dp),
PARAMETER :: one=1
15 REAL(dp),
PARAMETER :: zero=0
21 REAL(dp),
PARAMETER :: mu0 = 2 * twopi * 1.0e-7_dp
23 END MODULE stel_constants