| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | sp_ | = | 4 | |
| integer, | public, | parameter | :: | dp_ | = | 8 | |
| integer, | public, | parameter | :: | wp_ | = | dp_ | |
| integer, | public, | parameter | :: | odep_ | = | dp_ | |
| integer, | public, | parameter | :: | ypi_ | = | 4 | |
| integer, | public, | parameter | :: | ypd_ | = | 8 | |
| integer, | public, | parameter | :: | lfn_ | = | 256 | |
| real(kind=wp_), | public, | parameter | :: | zero | = | 0.0_wp_ | |
| real(kind=wp_), | public, | parameter | :: | unit | = | 1.0_wp_ | |
| real(kind=wp_), | public, | parameter | :: | pi | = | 3.141592653589793_wp_ | |
| real(kind=wp_), | public, | parameter | :: | sqrt_pi | = | 1.772453850905516_wp_ | |
| real(kind=wp_), | public, | parameter | :: | sqrt_2 | = | 1.414213562373095_wp_ | |
| real(kind=wp_), | public, | parameter | :: | rad | = | pi/180.0_wp_ | |
| real(kind=wp_), | public, | parameter | :: | ex(1:3) | = | (/unit, zero, zero/) | |
| real(kind=wp_), | public, | parameter | :: | ey(1:3) | = | (/zero, unit, zero/) | |
| real(kind=wp_), | public, | parameter | :: | ez(1:3) | = | (/zero, zero, unit/) | |
| real(kind=wp_), | public, | parameter | :: | kron(3,3) | = | reshape((/unit, zero, zero, zero, unit, zero, zero, zero, unit/), (/3, 3/)) | |
| complex(kind=wp_), | public, | parameter | :: | im | = | (0.0_wp_, 1.0_wp_) | |
| complex(kind=wp_), | public, | parameter | :: | czero | = | (0.0_wp_, 0.0_wp_) | |
| complex(kind=wp_), | public, | parameter | :: | cunit | = | (1.0_wp_, 0.0_wp_) | |
| complex(kind=wp_), | public, | parameter | :: | ctwo | = | (2.0_wp_, 0.0_wp_) | |
| real(kind=wp_), | public, | parameter | :: | comp_eps | = | EPSILON(unit) | |
| real(kind=wp_), | public, | parameter | :: | comp_eps2 | = | comp_eps**2 | |
| real(kind=wp_), | public, | parameter | :: | comp_tiny | = | TINY(unit) | |
| real(kind=wp_), | public, | parameter | :: | comp_huge | = | HUGE(unit) | |
| real(kind=wp_), | public, | parameter | :: | comp_tinylog | = | -200 | |
| real(kind=wp_), | public, | parameter | :: | comp_hugelog | = | +200 | |
| real(kind=wp_), | public, | parameter | :: | output_tiny | = | 1.0d-66 | |
| real(kind=wp_), | public, | parameter | :: | output_huge | = | 1.0d+66 | |
| real(kind=wp_), | public, | parameter | :: | e_ | = | 1.601917d-19 | |
| real(kind=wp_), | public, | parameter | :: | me_ | = | 9.109558d-31 | |
| real(kind=wp_), | public, | parameter | :: | mp_ | = | 1.672614d-27 | |
| real(kind=wp_), | public, | parameter | :: | rmpe_ | = | mp_/me_ | |
| real(kind=wp_), | public, | parameter | :: | c_ | = | 2.997925d+08 | |
| real(kind=wp_), | public, | parameter | :: | eps0_ | = | 8.854188d-12 | |
| real(kind=wp_), | public, | parameter | :: | keV_ | = | 1000*e_ | |
| real(kind=wp_), | public, | parameter | :: | mc2_SI | = | me_*c_**2 | |
| real(kind=wp_), | public, | parameter | :: | mc2_ | = | mc2_SI/keV_ | |
| real(kind=wp_), | public, | parameter | :: | mc_ | = | me_*c_ | |
| real(kind=wp_), | public, | parameter | :: | wce1_ | = | e_/me_ | |
| real(kind=wp_), | public, | parameter | :: | fce1_ | = | wce1_/(2*pi) | |
| real(kind=wp_), | public, | parameter | :: | wpe1_ | = | 56.4049201 | |
| real(kind=wp_), | public, | parameter | :: | fpe1_ | = | wpe1_/(2*pi) | |
| real(kind=wp_), | public, | parameter | :: | wpe12_ | = | wpe1_**2 | |
| real(kind=wp_), | public, | parameter | :: | vte1_ | = | 1.8755328e7 | |
| real(kind=wp_), | public, | parameter | :: | curr1_ | = | e_*vte1_ | |
| real(kind=wp_), | public, | parameter | :: | umax_ | = | 7.0d0 | |
| integer, | public, | parameter | :: | nu_ | = | 700 | |
| real(kind=wp_), | public, | parameter | :: | Npar_min | = | 1.0d-2 |