units_module.f
Go to the documentation of this file.
1 !***********************************************************************
2 !
3 ! units_module
4 !
5 !***********************************************************************
6 
7  module units_module
8 
9  type units_in_cgs
10  real :: e,pi,na !numbers
11  real :: fm,km,mev,s !units
12  real :: c,ec,ga,g,gms_c2km,gv,kb,mb,ms,rs !cgs constants
13  real :: h,gf,me,q !non-cgs constants
14  end type units_in_cgs
15 
16  type(units_in_cgs), parameter :: units = units_in_cgs(
17  & 2.718281828459045, !e
18  & 3.1415926535898e+00, !pi
19  & 6.0221367e23, !Na Avogadro number
20  & 1.e-13, !fm
21  & 1.e+05, !km
22  & 1.602192e-06, !MeV
23  & 1., !s
24  & 2.997924562e+10, !c
25  & 4.80324214e-10, !ec
26  & 1.23, !ga
27  & 6.672387286039493e-08, !G
28  & 1.47664, !GMs_c2km
29  & 1., !gv
30  & 1.38066244e-16, !kB
31  & 1.674e-24, !mb
32  & 1.989e+33, !Ms
33  & 6.9599e+10, !Rs
34  & 4.1356943e-21, !h [MeV*s]
35  & 8.957e-44, !GF [MeV*cm^3]
36  & 0.511, !me [MeV]
37  & 1.2935) !Q [MeV]
38 
39  end module units_module
40 
41 !***********************************************************************
units_module::units_in_cgs
Definition: units_module.f:9
units_module
Definition: units_module.f:7
units_module::units
type(units_in_cgs), parameter units
Definition: units_module.f:16
pi
real(r_kind) function pi()
Further information: http://netlib.org/quadpack/index.html https://orion.math.iastate....
Definition: quadpack_module.f90:193