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 | :: | m_proton_amu | = | 1.0072764665789 | |
| real(kind=dp), | public, | parameter | :: | m_protium_amu | = | 1.00782503223 | |
| real(kind=dp), | public, | parameter | :: | deuteron_mass | = | 3.3435837768D-27 | |
| real(kind=dp), | public, | parameter | :: | m_deuteron_amu | = | 2.013553212544 | |
| real(kind=dp), | public, | parameter | :: | triton_mass | = | 5.0073567512D-27 | |
| real(kind=dp), | public, | parameter | :: | m_triton_amu | = | 3.01550071597 | |
| 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 | :: | m_alpha_amu | = | 4.001506179129 | |
| real(kind=dp), | public, | parameter | :: | m_helium_amu | = | 4.002602 | |
| real(kind=dp), | public, | parameter | :: | helion_mass | = | 5.0064127862D-27 | |
| real(kind=dp), | public, | parameter | :: | m_helion_amu | = | 3.014932246932 | |
| real(kind=dp), | public, | parameter | :: | m_beryllium_amu | = | 9.0121831 | |
| real(kind=dp), | public, | parameter | :: | m_carbon_amu | = | 12.0096 | |
| real(kind=dp), | public, | parameter | :: | m_nitrogen_amu | = | 14.00643 | |
| real(kind=dp), | public, | parameter | :: | m_oxygen_amu | = | 15.99903 | |
| real(kind=dp), | public, | parameter | :: | m_neon_amu | = | 20.1797 | |
| real(kind=dp), | public, | parameter | :: | m_silicon_amu | = | 28.084 | |
| real(kind=dp), | public, | parameter | :: | m_argon_amu | = | 39.948 | |
| real(kind=dp), | public, | parameter | :: | m_iron_amu | = | 55.845 | |
| real(kind=dp), | public, | parameter | :: | m_nickel_amu | = | 58.6934 | |
| real(kind=dp), | public, | parameter | :: | m_krypton_amu | = | 83.798 | |
| real(kind=dp), | public, | parameter | :: | m_xenon_amu | = | 131.293 | |
| real(kind=dp), | public, | parameter | :: | m_tungsten_amu | = | 183.84 | |
| 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 | |
| real(kind=dp), | public, | parameter | :: | acceleration_gravity | = | 9.81D0 | Acceleration due to gravity [m/s2] |
Initialise module variables