V3FIT
stel_constants.f
1  MODULE stel_constants
2 
3  USE stel_kinds, ONLY: rprec, dp
4 
5 !----------------------------------------------------------------------
6 ! Mathematical constants
7 !----------------------------------------------------------------------
8 
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
16 
17 !----------------------------------------------------------------------
18 ! Physical constants
19 !------------------------------------------------------------------
20 
21  REAL(dp), PARAMETER :: mu0 = 2 * twopi * 1.0e-7_dp
22 
23  END MODULE stel_constants