Module containing miscellaneous numerical and physical constants
-
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | iotty | = | 6 | |
| integer, | public, | parameter | :: | nout | = | 11 | |
| integer, | public, | parameter | :: | nplot | = | 12 | |
| integer, | public, | parameter | :: | mfile | = | 13 | |
| integer, | public, | parameter | :: | vfile | = | 14 | |
| integer, | public, | parameter | :: | opt_file | = | 15 | |
| integer, | public, | parameter | :: | sig_file | = | 16 | |
| real(kind=dp), | public, | parameter | :: | degrad | = | 0.01745329251D0 | |
| real(kind=dp), | public, | parameter | :: | electron_charge | = | 1.602176634D-19 | |
| real(kind=dp), | public, | parameter | :: | electron_volt | = | 1.602176634D-19 | |
| real(kind=dp), | public, | parameter | :: | kiloelectron_volt | = | 1.602176634D-16 | |
| real(kind=dp), | public, | parameter | :: | atomic_mass_unit | = | 1.66053906892D-27 | |
| real(kind=dp), | public, | parameter | :: | electron_mass | = | 9.1093837139D-31 | |
| real(kind=dp), | public, | parameter | :: | proton_mass | = | 1.67262192595D-27 | |
| real(kind=dp), | public, | parameter | :: | deuteron_mass | = | 3.3435837768D-27 | |
| real(kind=dp), | public, | parameter | :: | triton_mass | = | 5.0073567512D-27 | |
| real(kind=dp), | public, | parameter | :: | neutron_mass | = | 1.67492750056D-27 | |
| real(kind=dp), | public, | parameter | :: | alpha_mass | = | 6.6446573450D-27 | |
| real(kind=dp), | public, | parameter | :: | helion_mass | = | 5.0064127862D-27 | |
| real(kind=dp), | public, | parameter | :: | speed_light | = | 299792458D0 | |
| real(kind=dp), | public, | parameter | :: | d_t_energy | = | (((deuteron_mass+triton_mass)-(alpha_mass+neutron_mass))*speed_light**2) | |
| real(kind=dp), | public, | parameter | :: | d_helium_energy | = | (((deuteron_mass+helion_mass)-(alpha_mass+proton_mass))*speed_light**2) | |
| real(kind=dp), | public, | parameter | :: | dd_helium_energy | = | (((deuteron_mass+deuteron_mass)-(helion_mass+neutron_mass))*speed_light**2) | |
| real(kind=dp), | public, | parameter | :: | dd_triton_energy | = | (((deuteron_mass+deuteron_mass)-(triton_mass+proton_mass))*speed_light**2) | |
| real(kind=dp), | public, | parameter | :: | dt_neutron_energy_fraction | = | (alpha_mass/(neutron_mass+alpha_mass)) | |
| real(kind=dp), | public, | parameter | :: | dt_alpha_energy | = | (1.0D0-dt_neutron_energy_fraction)*d_t_energy | |
| real(kind=dp), | public, | parameter | :: | dd_neutron_energy_fraction | = | (helion_mass/(neutron_mass+helion_mass)) | |
| real(kind=dp), | public, | parameter | :: | dd_proton_energy_fraction | = | (triton_mass/(proton_mass+triton_mass)) | |
| real(kind=dp), | public, | parameter | :: | dhelium_proton_energy_fraction | = | (alpha_mass/(proton_mass+alpha_mass)) | |
| real(kind=dp), | public, | parameter | :: | pi | = | 3.1415926535897932D0 | |
| real(kind=dp), | public, | parameter | :: | rmu0 | = | 1.256637062D-6 | |
| real(kind=dp), | public, | parameter | :: | twopi | = | 6.2831853071795862D0 | |
| real(kind=dp), | public, | parameter | :: | umass | = | 1.660538921D-27 | |
| real(kind=dp), | public, | parameter | :: | epsilon0 | = | 8.85418781D-12 | |
| real(kind=dp), | public, | parameter | :: | cph2o | = | 4180.0D0 | |
| real(kind=dp), | public | :: | dcopper | ||||
| real(kind=dp), | public | :: | dalu | ||||
| real(kind=dp), | public, | parameter | :: | denh2o | = | 985.0D0 | |
| real(kind=dp), | public, | parameter | :: | k_copper | = | 330.0D0 | |
| real(kind=dp), | public, | parameter | :: | kh2o | = | 0.651D0 | |
| real(kind=dp), | public, | parameter | :: | muh2o | = | 4.71D-4 | |
| real(kind=dp), | public, | parameter | :: | n_day_year | = | 365.2425D0 |
Initialise module variables