Algol 68 Genie

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-2025 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
Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.