single-physics.c
1 //! @file single-physics.c
2 //! @author J. Marcel van der Veer
3
4 //! @section Copyright
5 //!
6 //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
7 //! Copyright 2001-2023 J. Marcel van der Veer [algol68g@xs4all.nl].
8
9 //! @section License
10 //!
11 //! This program is free software; you can redistribute it and/or modify it
12 //! under the terms of the GNU General Public License as published by the
13 //! Free Software Foundation; either version 3 of the License, or
14 //! (at your option) any later version.
15 //!
16 //! This program is distributed in the hope that it will be useful, but
17 //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
18 //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
19 //! more details. You should have received a copy of the GNU General Public
20 //! License along with this program. If not, see [http://www.gnu.org/licenses/].
21
22 //! @section Synopsis
23 //!
24 //! REAL GSL physical constants.
25
26 #include "a68g.h"
27 #include "a68g-genie.h"
28 #include "a68g-physics.h"
29 #include "a68g-numbers.h"
30
31 #if defined (HAVE_GSL)
32
33 A68_ENV_REAL (genie_cgs_acre, GSL_CONST_CGSM_ACRE);
34 A68_ENV_REAL (genie_cgs_angstrom, GSL_CONST_CGSM_ANGSTROM);
35 A68_ENV_REAL (genie_cgs_astronomical_unit, GSL_CONST_CGSM_ASTRONOMICAL_UNIT);
36 A68_ENV_REAL (genie_cgs_bar, GSL_CONST_CGSM_BAR);
37 A68_ENV_REAL (genie_cgs_barn, GSL_CONST_CGSM_BARN);
38 A68_ENV_REAL (genie_cgs_bohr_magneton, GSL_CONST_CGSM_BOHR_MAGNETON);
39 A68_ENV_REAL (genie_cgs_bohr_radius, GSL_CONST_CGSM_BOHR_RADIUS);
40 A68_ENV_REAL (genie_cgs_boltzmann, GSL_CONST_CGSM_BOLTZMANN);
41 A68_ENV_REAL (genie_cgs_btu, GSL_CONST_CGSM_BTU);
42 A68_ENV_REAL (genie_cgs_calorie, GSL_CONST_CGSM_CALORIE);
43 A68_ENV_REAL (genie_cgs_canadian_gallon, GSL_CONST_CGSM_CANADIAN_GALLON);
44 A68_ENV_REAL (genie_cgs_carat, GSL_CONST_CGSM_CARAT);
45 A68_ENV_REAL (genie_cgs_cup, GSL_CONST_CGSM_CUP);
46 A68_ENV_REAL (genie_cgs_curie, GSL_CONST_CGSM_CURIE);
47 A68_ENV_REAL (genie_cgs_day, GSL_CONST_CGSM_DAY);
48 A68_ENV_REAL (genie_cgs_dyne, GSL_CONST_CGSM_DYNE);
49 A68_ENV_REAL (genie_cgs_electron_charge, GSL_CONST_CGSM_ELECTRON_CHARGE);
50 A68_ENV_REAL (genie_cgs_electron_magnetic_moment, GSL_CONST_CGSM_ELECTRON_MAGNETIC_MOMENT);
51 A68_ENV_REAL (genie_cgs_electron_volt, GSL_CONST_CGSM_ELECTRON_VOLT);
52 A68_ENV_REAL (genie_cgs_erg, GSL_CONST_CGSM_ERG);
53 A68_ENV_REAL (genie_cgs_faraday, GSL_CONST_CGSM_FARADAY);
54 A68_ENV_REAL (genie_cgs_fathom, GSL_CONST_CGSM_FATHOM);
55 A68_ENV_REAL (genie_cgs_fluid_ounce, GSL_CONST_CGSM_FLUID_OUNCE);
56 A68_ENV_REAL (genie_cgs_foot, GSL_CONST_CGSM_FOOT);
57 A68_ENV_REAL (genie_cgs_footcandle, GSL_CONST_CGSM_FOOTCANDLE);
58 A68_ENV_REAL (genie_cgs_footlambert, GSL_CONST_CGSM_FOOTLAMBERT);
59 A68_ENV_REAL (genie_cgs_gauss, GSL_CONST_CGSM_GAUSS);
60 A68_ENV_REAL (genie_cgs_gram_force, GSL_CONST_CGSM_GRAM_FORCE);
61 A68_ENV_REAL (genie_cgs_grav_accel, GSL_CONST_CGSM_GRAV_ACCEL);
62 A68_ENV_REAL (genie_cgs_gravitational_constant, GSL_CONST_CGSM_GRAVITATIONAL_CONSTANT);
63 A68_ENV_REAL (genie_cgs_hectare, GSL_CONST_CGSM_HECTARE);
64 A68_ENV_REAL (genie_cgs_horsepower, GSL_CONST_CGSM_HORSEPOWER);
65 A68_ENV_REAL (genie_cgs_hour, GSL_CONST_CGSM_HOUR);
66 A68_ENV_REAL (genie_cgs_inch, GSL_CONST_CGSM_INCH);
67 A68_ENV_REAL (genie_cgs_inch_of_mercury, GSL_CONST_CGSM_INCH_OF_MERCURY);
68 A68_ENV_REAL (genie_cgs_inch_of_water, GSL_CONST_CGSM_INCH_OF_WATER);
69 A68_ENV_REAL (genie_cgs_joule, GSL_CONST_CGSM_JOULE);
70 A68_ENV_REAL (genie_cgs_kilometers_per_hour, GSL_CONST_CGSM_KILOMETERS_PER_HOUR);
71 A68_ENV_REAL (genie_cgs_kilopound_force, GSL_CONST_CGSM_KILOPOUND_FORCE);
72 A68_ENV_REAL (genie_cgs_knot, GSL_CONST_CGSM_KNOT);
73 A68_ENV_REAL (genie_cgs_lambert, GSL_CONST_CGSM_LAMBERT);
74 A68_ENV_REAL (genie_cgs_light_year, GSL_CONST_CGSM_LIGHT_YEAR);
75 A68_ENV_REAL (genie_cgs_liter, GSL_CONST_CGSM_LITER);
76 A68_ENV_REAL (genie_cgs_lumen, GSL_CONST_CGSM_LUMEN);
77 A68_ENV_REAL (genie_cgs_lux, GSL_CONST_CGSM_LUX);
78 A68_ENV_REAL (genie_cgs_mass_electron, GSL_CONST_CGSM_MASS_ELECTRON);
79 A68_ENV_REAL (genie_cgs_mass_muon, GSL_CONST_CGSM_MASS_MUON);
80 A68_ENV_REAL (genie_cgs_mass_neutron, GSL_CONST_CGSM_MASS_NEUTRON);
81 A68_ENV_REAL (genie_cgs_mass_proton, GSL_CONST_CGSM_MASS_PROTON);
82 A68_ENV_REAL (genie_cgs_meter_of_mercury, GSL_CONST_CGSM_METER_OF_MERCURY);
83 A68_ENV_REAL (genie_cgs_metric_ton, GSL_CONST_CGSM_METRIC_TON);
84 A68_ENV_REAL (genie_cgs_micron, GSL_CONST_CGSM_MICRON);
85 A68_ENV_REAL (genie_cgs_mil, GSL_CONST_CGSM_MIL);
86 A68_ENV_REAL (genie_cgs_mile, GSL_CONST_CGSM_MILE);
87 A68_ENV_REAL (genie_cgs_miles_per_hour, GSL_CONST_CGSM_MILES_PER_HOUR);
88 A68_ENV_REAL (genie_cgs_minute, GSL_CONST_CGSM_MINUTE);
89 A68_ENV_REAL (genie_cgs_molar_gas, GSL_CONST_CGSM_MOLAR_GAS);
90 A68_ENV_REAL (genie_cgs_nautical_mile, GSL_CONST_CGSM_NAUTICAL_MILE);
91 A68_ENV_REAL (genie_cgs_newton, GSL_CONST_CGSM_NEWTON);
92 A68_ENV_REAL (genie_cgs_nuclear_magneton, GSL_CONST_CGSM_NUCLEAR_MAGNETON);
93 A68_ENV_REAL (genie_cgs_ounce_mass, GSL_CONST_CGSM_OUNCE_MASS);
94 A68_ENV_REAL (genie_cgs_parsec, GSL_CONST_CGSM_PARSEC);
95 A68_ENV_REAL (genie_cgs_phot, GSL_CONST_CGSM_PHOT);
96 A68_ENV_REAL (genie_cgs_pint, GSL_CONST_CGSM_PINT);
97 A68_ENV_REAL (genie_cgs_planck_constant_h, 6.6260693e-27);
98 A68_ENV_REAL (genie_cgs_planck_constant_hbar, 6.6260693e-27 / (2 * CONST_PI));
99 A68_ENV_REAL (genie_cgs_point, GSL_CONST_CGSM_POINT);
100 A68_ENV_REAL (genie_cgs_poise, GSL_CONST_CGSM_POISE);
101 A68_ENV_REAL (genie_cgs_pound_force, GSL_CONST_CGSM_POUND_FORCE);
102 A68_ENV_REAL (genie_cgs_pound_mass, GSL_CONST_CGSM_POUND_MASS);
103 A68_ENV_REAL (genie_cgs_poundal, GSL_CONST_CGSM_POUNDAL);
104 A68_ENV_REAL (genie_cgs_proton_magnetic_moment, GSL_CONST_CGSM_PROTON_MAGNETIC_MOMENT);
105 A68_ENV_REAL (genie_cgs_psi, GSL_CONST_CGSM_PSI);
106 A68_ENV_REAL (genie_cgs_quart, GSL_CONST_CGSM_QUART);
107 A68_ENV_REAL (genie_cgs_rad, GSL_CONST_CGSM_RAD);
108 A68_ENV_REAL (genie_cgs_roentgen, GSL_CONST_CGSM_ROENTGEN);
109 A68_ENV_REAL (genie_cgs_rydberg, GSL_CONST_CGSM_RYDBERG);
110 A68_ENV_REAL (genie_cgs_solar_mass, GSL_CONST_CGSM_SOLAR_MASS);
111 A68_ENV_REAL (genie_cgs_speed_of_light, GSL_CONST_CGSM_SPEED_OF_LIGHT);
112 A68_ENV_REAL (genie_cgs_standard_gas_volume, GSL_CONST_CGSM_STANDARD_GAS_VOLUME);
113 A68_ENV_REAL (genie_cgs_std_atmosphere, GSL_CONST_CGSM_STD_ATMOSPHERE);
114 A68_ENV_REAL (genie_cgs_stilb, GSL_CONST_CGSM_STILB);
115 A68_ENV_REAL (genie_cgs_stokes, GSL_CONST_CGSM_STOKES);
116 A68_ENV_REAL (genie_cgs_tablespoon, GSL_CONST_CGSM_TABLESPOON);
117 A68_ENV_REAL (genie_cgs_teaspoon, GSL_CONST_CGSM_TEASPOON);
118 A68_ENV_REAL (genie_cgs_texpoint, GSL_CONST_CGSM_TEXPOINT);
119 A68_ENV_REAL (genie_cgs_therm, GSL_CONST_CGSM_THERM);
120 A68_ENV_REAL (genie_cgs_ton, GSL_CONST_CGSM_TON);
121 A68_ENV_REAL (genie_cgs_torr, GSL_CONST_CGSM_TORR);
122 A68_ENV_REAL (genie_cgs_troy_ounce, GSL_CONST_CGSM_TROY_OUNCE);
123 A68_ENV_REAL (genie_cgs_uk_gallon, GSL_CONST_CGSM_UK_GALLON);
124 A68_ENV_REAL (genie_cgs_uk_ton, GSL_CONST_CGSM_UK_TON);
125 A68_ENV_REAL (genie_cgs_unified_atomic_mass, GSL_CONST_CGSM_UNIFIED_ATOMIC_MASS);
126 A68_ENV_REAL (genie_cgs_us_gallon, GSL_CONST_CGSM_US_GALLON);
127 A68_ENV_REAL (genie_cgs_week, GSL_CONST_CGSM_WEEK);
128 A68_ENV_REAL (genie_cgs_yard, GSL_CONST_CGSM_YARD);
129 A68_ENV_REAL (genie_mks_acre, GSL_CONST_MKS_ACRE);
130 A68_ENV_REAL (genie_mks_angstrom, GSL_CONST_MKS_ANGSTROM);
131 A68_ENV_REAL (genie_mks_astronomical_unit, GSL_CONST_MKS_ASTRONOMICAL_UNIT);
132 A68_ENV_REAL (genie_mks_bar, GSL_CONST_MKS_BAR);
133 A68_ENV_REAL (genie_mks_barn, GSL_CONST_MKS_BARN);
134 A68_ENV_REAL (genie_mks_bohr_magneton, GSL_CONST_MKS_BOHR_MAGNETON);
135 A68_ENV_REAL (genie_mks_bohr_radius, GSL_CONST_MKS_BOHR_RADIUS);
136 A68_ENV_REAL (genie_mks_boltzmann, GSL_CONST_MKS_BOLTZMANN);
137 A68_ENV_REAL (genie_mks_btu, GSL_CONST_MKS_BTU);
138 A68_ENV_REAL (genie_mks_calorie, GSL_CONST_MKS_CALORIE);
139 A68_ENV_REAL (genie_mks_canadian_gallon, GSL_CONST_MKS_CANADIAN_GALLON);
140 A68_ENV_REAL (genie_mks_carat, GSL_CONST_MKS_CARAT);
141 A68_ENV_REAL (genie_mks_cup, GSL_CONST_MKS_CUP);
142 A68_ENV_REAL (genie_mks_curie, GSL_CONST_MKS_CURIE);
143 A68_ENV_REAL (genie_mks_day, GSL_CONST_MKS_DAY);
144 A68_ENV_REAL (genie_mks_dyne, GSL_CONST_MKS_DYNE);
145 A68_ENV_REAL (genie_mks_electron_charge, GSL_CONST_MKS_ELECTRON_CHARGE);
146 A68_ENV_REAL (genie_mks_electron_magnetic_moment, GSL_CONST_MKS_ELECTRON_MAGNETIC_MOMENT);
147 A68_ENV_REAL (genie_mks_electron_volt, GSL_CONST_MKS_ELECTRON_VOLT);
148 A68_ENV_REAL (genie_mks_erg, GSL_CONST_MKS_ERG);
149 A68_ENV_REAL (genie_mks_faraday, GSL_CONST_MKS_FARADAY);
150 A68_ENV_REAL (genie_mks_fathom, GSL_CONST_MKS_FATHOM);
151 A68_ENV_REAL (genie_mks_fluid_ounce, GSL_CONST_MKS_FLUID_OUNCE);
152 A68_ENV_REAL (genie_mks_foot, GSL_CONST_MKS_FOOT);
153 A68_ENV_REAL (genie_mks_footcandle, GSL_CONST_MKS_FOOTCANDLE);
154 A68_ENV_REAL (genie_mks_footlambert, GSL_CONST_MKS_FOOTLAMBERT);
155 A68_ENV_REAL (genie_mks_gauss, GSL_CONST_MKS_GAUSS);
156 A68_ENV_REAL (genie_mks_gram_force, GSL_CONST_MKS_GRAM_FORCE);
157 A68_ENV_REAL (genie_mks_grav_accel, GSL_CONST_MKS_GRAV_ACCEL);
158 A68_ENV_REAL (genie_mks_gravitational_constant, GSL_CONST_MKS_GRAVITATIONAL_CONSTANT);
159 A68_ENV_REAL (genie_mks_hectare, GSL_CONST_MKS_HECTARE);
160 A68_ENV_REAL (genie_mks_horsepower, GSL_CONST_MKS_HORSEPOWER);
161 A68_ENV_REAL (genie_mks_hour, GSL_CONST_MKS_HOUR);
162 A68_ENV_REAL (genie_mks_inch, GSL_CONST_MKS_INCH);
163 A68_ENV_REAL (genie_mks_inch_of_mercury, GSL_CONST_MKS_INCH_OF_MERCURY);
164 A68_ENV_REAL (genie_mks_inch_of_water, GSL_CONST_MKS_INCH_OF_WATER);
165 A68_ENV_REAL (genie_mks_joule, GSL_CONST_MKS_JOULE);
166 A68_ENV_REAL (genie_mks_kilometers_per_hour, GSL_CONST_MKS_KILOMETERS_PER_HOUR);
167 A68_ENV_REAL (genie_mks_kilopound_force, GSL_CONST_MKS_KILOPOUND_FORCE);
168 A68_ENV_REAL (genie_mks_knot, GSL_CONST_MKS_KNOT);
169 A68_ENV_REAL (genie_mks_lambert, GSL_CONST_MKS_LAMBERT);
170 A68_ENV_REAL (genie_mks_light_year, GSL_CONST_MKS_LIGHT_YEAR);
171 A68_ENV_REAL (genie_mks_liter, GSL_CONST_MKS_LITER);
172 A68_ENV_REAL (genie_mks_lumen, GSL_CONST_MKS_LUMEN);
173 A68_ENV_REAL (genie_mks_lux, GSL_CONST_MKS_LUX);
174 A68_ENV_REAL (genie_mks_mass_electron, GSL_CONST_MKS_MASS_ELECTRON);
175 A68_ENV_REAL (genie_mks_mass_muon, GSL_CONST_MKS_MASS_MUON);
176 A68_ENV_REAL (genie_mks_mass_neutron, GSL_CONST_MKS_MASS_NEUTRON);
177 A68_ENV_REAL (genie_mks_mass_proton, GSL_CONST_MKS_MASS_PROTON);
178 A68_ENV_REAL (genie_mks_meter_of_mercury, GSL_CONST_MKS_METER_OF_MERCURY);
179 A68_ENV_REAL (genie_mks_metric_ton, GSL_CONST_MKS_METRIC_TON);
180 A68_ENV_REAL (genie_mks_micron, GSL_CONST_MKS_MICRON);
181 A68_ENV_REAL (genie_mks_mil, GSL_CONST_MKS_MIL);
182 A68_ENV_REAL (genie_mks_mile, GSL_CONST_MKS_MILE);
183 A68_ENV_REAL (genie_mks_miles_per_hour, GSL_CONST_MKS_MILES_PER_HOUR);
184 A68_ENV_REAL (genie_mks_minute, GSL_CONST_MKS_MINUTE);
185 A68_ENV_REAL (genie_mks_molar_gas, GSL_CONST_MKS_MOLAR_GAS);
186 A68_ENV_REAL (genie_mks_nautical_mile, GSL_CONST_MKS_NAUTICAL_MILE);
187 A68_ENV_REAL (genie_mks_newton, GSL_CONST_MKS_NEWTON);
188 A68_ENV_REAL (genie_mks_nuclear_magneton, GSL_CONST_MKS_NUCLEAR_MAGNETON);
189 A68_ENV_REAL (genie_mks_ounce_mass, GSL_CONST_MKS_OUNCE_MASS);
190 A68_ENV_REAL (genie_mks_parsec, GSL_CONST_MKS_PARSEC);
191 A68_ENV_REAL (genie_mks_phot, GSL_CONST_MKS_PHOT);
192 A68_ENV_REAL (genie_mks_pint, GSL_CONST_MKS_PINT);
193 A68_ENV_REAL (genie_mks_planck_constant_h, 6.6260693e-34);
194 A68_ENV_REAL (genie_mks_planck_constant_hbar, 6.6260693e-34 / (2 * CONST_PI));
195 A68_ENV_REAL (genie_mks_point, GSL_CONST_MKS_POINT);
196 A68_ENV_REAL (genie_mks_poise, GSL_CONST_MKS_POISE);
197 A68_ENV_REAL (genie_mks_pound_force, GSL_CONST_MKS_POUND_FORCE);
198 A68_ENV_REAL (genie_mks_pound_mass, GSL_CONST_MKS_POUND_MASS);
199 A68_ENV_REAL (genie_mks_poundal, GSL_CONST_MKS_POUNDAL);
200 A68_ENV_REAL (genie_mks_proton_magnetic_moment, GSL_CONST_MKS_PROTON_MAGNETIC_MOMENT);
201 A68_ENV_REAL (genie_mks_psi, GSL_CONST_MKS_PSI);
202 A68_ENV_REAL (genie_mks_quart, GSL_CONST_MKS_QUART);
203 A68_ENV_REAL (genie_mks_rad, GSL_CONST_MKS_RAD);
204 A68_ENV_REAL (genie_mks_roentgen, GSL_CONST_MKS_ROENTGEN);
205 A68_ENV_REAL (genie_mks_rydberg, GSL_CONST_MKS_RYDBERG);
206 A68_ENV_REAL (genie_mks_solar_mass, GSL_CONST_MKS_SOLAR_MASS);
207 A68_ENV_REAL (genie_mks_speed_of_light, GSL_CONST_MKS_SPEED_OF_LIGHT);
208 A68_ENV_REAL (genie_mks_standard_gas_volume, GSL_CONST_MKS_STANDARD_GAS_VOLUME);
209 A68_ENV_REAL (genie_mks_std_atmosphere, GSL_CONST_MKS_STD_ATMOSPHERE);
210 A68_ENV_REAL (genie_mks_stilb, GSL_CONST_MKS_STILB);
211 A68_ENV_REAL (genie_mks_stokes, GSL_CONST_MKS_STOKES);
212 A68_ENV_REAL (genie_mks_tablespoon, GSL_CONST_MKS_TABLESPOON);
213 A68_ENV_REAL (genie_mks_teaspoon, GSL_CONST_MKS_TEASPOON);
214 A68_ENV_REAL (genie_mks_texpoint, GSL_CONST_MKS_TEXPOINT);
215 A68_ENV_REAL (genie_mks_therm, GSL_CONST_MKS_THERM);
216 A68_ENV_REAL (genie_mks_ton, GSL_CONST_MKS_TON);
217 A68_ENV_REAL (genie_mks_torr, GSL_CONST_MKS_TORR);
218 A68_ENV_REAL (genie_mks_troy_ounce, GSL_CONST_MKS_TROY_OUNCE);
219 A68_ENV_REAL (genie_mks_uk_gallon, GSL_CONST_MKS_UK_GALLON);
220 A68_ENV_REAL (genie_mks_uk_ton, GSL_CONST_MKS_UK_TON);
221 A68_ENV_REAL (genie_mks_unified_atomic_mass, GSL_CONST_MKS_UNIFIED_ATOMIC_MASS);
222 A68_ENV_REAL (genie_mks_us_gallon, GSL_CONST_MKS_US_GALLON);
223 A68_ENV_REAL (genie_mks_vacuum_permeability, GSL_CONST_MKS_VACUUM_PERMEABILITY);
224 A68_ENV_REAL (genie_mks_vacuum_permittivity, GSL_CONST_MKS_VACUUM_PERMITTIVITY);
225 A68_ENV_REAL (genie_mks_week, GSL_CONST_MKS_WEEK);
226 A68_ENV_REAL (genie_mks_yard, GSL_CONST_MKS_YARD);
227 A68_ENV_REAL (genie_num_atto, GSL_CONST_NUM_ATTO);
228 A68_ENV_REAL (genie_num_avogadro, GSL_CONST_NUM_AVOGADRO);
229 A68_ENV_REAL (genie_num_exa, GSL_CONST_NUM_EXA);
230 A68_ENV_REAL (genie_num_femto, GSL_CONST_NUM_FEMTO);
231 A68_ENV_REAL (genie_num_fine_structure, GSL_CONST_NUM_FINE_STRUCTURE);
232 A68_ENV_REAL (genie_num_giga, GSL_CONST_NUM_GIGA);
233 A68_ENV_REAL (genie_num_kilo, GSL_CONST_NUM_KILO);
234 A68_ENV_REAL (genie_num_mega, GSL_CONST_NUM_MEGA);
235 A68_ENV_REAL (genie_num_micro, GSL_CONST_NUM_MICRO);
236 A68_ENV_REAL (genie_num_milli, GSL_CONST_NUM_MILLI);
237 A68_ENV_REAL (genie_num_nano, GSL_CONST_NUM_NANO);
238 A68_ENV_REAL (genie_num_peta, GSL_CONST_NUM_PETA);
239 A68_ENV_REAL (genie_num_pico, GSL_CONST_NUM_PICO);
240 A68_ENV_REAL (genie_num_tera, GSL_CONST_NUM_TERA);
241 A68_ENV_REAL (genie_num_yocto, GSL_CONST_NUM_YOCTO);
242 A68_ENV_REAL (genie_num_yotta, GSL_CONST_NUM_YOTTA);
243 A68_ENV_REAL (genie_num_zepto, GSL_CONST_NUM_ZEPTO);
244 A68_ENV_REAL (genie_num_zetta, GSL_CONST_NUM_ZETTA);
245
246 #endif
