 |
libSUFR
a LIBrary of Some Useful Fortran Routines
|
|
libSUFR
a LIBrary of Some Useful Fortran Routines
|
Provides all constants in the library, and routines to define them. More...
Functions/Subroutines | |
| subroutine | set_sufr_constants |
| Define the values of all the constants used in this package. | |
| subroutine | set_sufr_constants_currentdate () |
| Define the values of variables that describe the current date and time. | |
| subroutine | set_sufr_constants_environment () |
| Define the values of constants that describe the working environment. | |
Variables | |
| real(double), parameter, public | one = 1.0_dbl |
| Unity. | |
| real(double), parameter, public | c3rd = one/3.0_dbl |
| One third. | |
| real(double), parameter, public | two3rd = 2*c3rd |
| Two thirds. | |
| real(double), parameter, public | pio4 = atan(one) |
| pi/4 | |
| real(double), parameter, public | pio2 = 2*pio4 |
| pi/2 | |
| real(double), parameter, public | pi = 2*pio2 |
| pi | |
| real(double), parameter, public | pi2 = 2*pi |
| 2*pi | |
| real(double), parameter, public | r2d = 180.0_dbl/pi |
| Radians to degrees. | |
| real(double), parameter, public | d2r = one/r2d |
| Degrees to radians. | |
| real(double), parameter, public | r2h = 12.0_dbl/pi |
| Radians to hours. | |
| real(double), parameter, public | h2r = one/r2h |
| Hours to radians. | |
| real(double), parameter, public | h2d = 15.0_dbl |
| Hours to degrees. | |
| real(double), parameter, public | d2h = one/h2d |
| Degrees to hours. | |
| real(double), parameter, public | d2as = 3600.0_dbl |
| Degrees to arcseconds. | |
| real(double), parameter, public | as2d = one/d2as |
| Arcseconds to degrees. | |
| real(double), parameter, public | r2am = dble(180*60)/pi |
| Radians to arcminutes. | |
| real(double), parameter, public | am2r = one/r2am |
| Arcminutes to radians. | |
| real(double), parameter, public | r2as = r2am*60.0_dbl |
| Radians to arcseconds. | |
| real(double), parameter, public | as2r = one/r2as |
| Arcseconds to radians. | |
| real(double), parameter, public | r2mas = r2as*1000.0_dbl |
| Radians to milliarcseconds. | |
| real(double), parameter, public | mas2r = one/r2mas |
| Milliarcseconds to radians. | |
| real(double), parameter, public | c2k = 273.15d0 |
| Degrees Celsius to Kelvin. | |
| real, parameter, public | rc3rd = real(c3rd) |
| One third. | |
| real, parameter, public | rtwo3rd = real(two3rd) |
| Two thirds. | |
| real, parameter, public | rpio4 = real(pio4) |
| pi/4 | |
| real, parameter, public | rpio2 = real(pio2) |
| pi/2 | |
| real, parameter, public | rpi = real(pi) |
| pi | |
| real, parameter, public | rpi2 = real(pi2) |
| 2*pi | |
| real, parameter, public | rr2d = real(r2d) |
| Radians to degrees. | |
| real, parameter, public | rd2r = real(d2r) |
| Degrees to radians. | |
| real, parameter, public | rr2h = real(r2h) |
| Radians to hours. | |
| real, parameter, public | rh2r = real(h2r) |
| Hours to radians. | |
| real, parameter, public | rh2d = real(h2d) |
| Hours to degrees. | |
| real, parameter, public | rd2h = real(d2h) |
| Degrees to hours. | |
| real, parameter, public | rd2as = real(d2as) |
| Degrees to arcseconds. | |
| real, parameter, public | ras2d = real(as2d) |
| Arcseconds to degrees. | |
| real, parameter, public | rr2am = real(r2am) |
| Radians to arcminutes. | |
| real, parameter, public | ram2r = real(am2r) |
| Arcminutes to radians. | |
| real, parameter, public | rr2as = real(r2as) |
| Radians to arcseconds. | |
| real, parameter, public | ras2r = real(as2r) |
| Arcseconds to radians. | |
| real, parameter, public | rr2mas = real(r2mas) |
| Radians to milliarcseconds. | |
| real, parameter, public | rmas2r = real(mas2r) |
| Milliarcseconds to radians. | |
| real, parameter, public | rc2k = real(c2k) |
| Degrees Celsius to Kelvin. | |
| real(double), parameter, public | pc_g = 6.67408d-8 |
| Newton's gravitational constant, cm^3 g^-1 s^-2. | |
| real(double), parameter, public | pc_c = 2.99792458d10 |
| Speed of light in vacuo, cm s^-1. | |
| real(double), parameter, public | pc_gr = 9.80665d2 |
| Mean gravitational acceleration at the Earth's surface, cm s^-2. | |
| real(double), parameter, public | pc_amu = 1.660539040d-24 |
| Atomic mass unit; (mass of C12 atom)/12, g. | |
| real(double), parameter, public | pc_mh = 1.007825d0*pc_amu |
| Mass of a hydrogen atom. | |
| real(double), parameter, public | pc_kb = 1.38064852d-16 |
| Boltzmann constant, erg/K. | |
| real(double), parameter, public | pc_hp = 6.626070040d-27 |
| Planck's constant, erg s. | |
| real(double), parameter, public | pc_hbar = pc_hp/pi2 |
| Reduced Planck constant, erg s. | |
| real(double), parameter, public | pc_arad = pc_kb**4/((pc_c*pc_hp)**3) * 8*pi**5/15.d0 |
| Radiation (density) constant, 7.56591d-15 erg cm^-3 K^-4. | |
| real(double), parameter, public | pc_sigma = pc_arad*pc_c*0.25d0 |
| Stefan-Boltzmann constant, 5.67051d-5 erg cm^-2 K^-4 s^-1. | |
| real(double), parameter, public | ev = 1.6021766208d-12 |
| ElectronVolt in erg. | |
| real(double), parameter, public | nm = 1.d-7 |
| nanometer in cgs (cm) | |
| real(double), parameter, public | mum = 1.d-4 |
| micrometer in cgs (cm) | |
| real(double), parameter, public | mm = 1.d-1 |
| millimeter in cgs (cm) | |
| real(double), parameter, public | km = 1.d5 |
| kilometer in cgs (cm) | |
| real(double), parameter, public | si_pc_g = pc_g * 1.d-3 |
| Newton's gravitational constant, 6.67259d-11 m^3 kg^-1 s^-2. | |
| real(double), parameter, public | si_pc_c = pc_c * 1.d-2 |
| Speed of light in vacuo, 2.99792458d8 m s^-1. | |
| real(double), parameter, public | si_pc_gr = pc_gr * 1.d-2 |
| Mean gravitational acceleration at the Earth's surface, cm s^-2. | |
| real(double), parameter, public | si_pc_amu = pc_amu * 1.d-3 |
| Atomic mass unit; (mass of C12 atom)/12, 1.6605402d-27 kg. | |
| real(double), parameter, public | si_pc_mh = 1.007825d0*si_pc_amu |
| Mass of a hydrogen atom. | |
| real(double), parameter, public | si_pc_kb = pc_kb * 1.d-7 |
| Boltzmann constant, 1.380658d-23 J/K. | |
| real(double), parameter, public | si_pc_hp = pc_hp * 1.d-7 |
| Planck's constant, 6.6260755d-34 J s. | |
| real(double), parameter, public | si_pc_hbar = si_pc_hp/pi2 |
| Reduced Planck constant, J s. | |
| real(double), parameter, public | si_pc_arad = si_pc_kb**4/((si_pc_c*si_pc_hp)**3) * 8*pi**5/15.d0 |
| Radiation (density) constant, 7.56591d-15 erg cm^-3 K^-4. | |
| real(double), parameter, public | si_pc_sigma = si_pc_arad*si_pc_c*0.25d0 |
| Stefan-Boltzmann constant, 5.67051d-5 erg cm^-2 K^-4 s^-1. | |
| real(double), parameter, public | si_ev = eV * 1.d-7 |
| Elementary (|electron|) charge in Coulomb; ElectronVolt: 1.6021766d-19 J. | |
| real(double), parameter, public | si_pc_ec = si_eV |
| Elementary (|electron|) charge in Coulomb; ElectronVolt: 1.6021766d-19 J. | |
| real(double), parameter, public | si_nm = nm * 1.d-2 |
| nanometer in SI (m) | |
| real(double), parameter, public | si_mum = mum * 1.d-2 |
| micrometer in SI (m) | |
| real(double), parameter, public | si_mm = mm * 1.d-2 |
| millimeter in SI (m) | |
| real(double), parameter, public | si_km = km * 1.d-2 |
| kilometer in SI (m) | |
| real(double), parameter, public | au = 1.49597870700d13 |
| A.U. in cgs (IAU 2009 Resolution B2, IAU XXVIII GA 2012 - Astr.Almanac 2014) | |
| real(double), parameter, public | si_au = au * 1.d-2 |
| A.U. in SI (m) | |
| real(double), parameter, public | rsun = 6.9599d10 |
| Solar radius in cgs (cm) | |
| real(double), parameter, public | msun = 1.9891d33 |
| Solar mass in cgs (gm) | |
| real(double), parameter, public | lsun = 3.85d33 |
| Solar luminosity in cgs (erg/s) | |
| real(double), parameter, public | si_rsun = rsun * 1.d-2 |
| Solar radius in SI (m) | |
| real(double), parameter, public | si_msun = msun * 1.d-3 |
| Solar mass in SI (kg) | |
| real(double), parameter, public | si_lsun = lsun * 1.d-7 |
| Solar luminosity in SI (W) | |
| real(double), parameter, public | siday = 0.997269663d0 |
| Siderial day in days. | |
| real(double), parameter, public | solday = 8.64d4 |
| Solar day = 86400 s. | |
| real(double), parameter, public | solconst = 1361.5d0 |
| Solar constant in W/m^2. | |
| real(double), parameter, public | gregmonth = 30.4369d0 * solday |
| Gregorian month in seconds: average calendar month length of 4800 months over 400 years. | |
| real(double), parameter, public | sidmonth = 27.321661547d0 * solday |
| Sidereal month in seconds: fixed star to fixed star. | |
| real(double), parameter, public | tropmonth = 27.321582241d0 * solday |
| Tropical month in seconds: equinox to equinox, influenced by precession. | |
| real(double), parameter, public | anomonth = 27.554549878d0 * solday |
| Anomalistic month in seconds: apside to apside. | |
| real(double), parameter, public | dracmonth = 27.212220817d0 * solday |
| Draconic month in seconds: node to node. | |
| real(double), parameter, public | synmonth = 29.530588853d0 * solday |
| Synodic month in seconds: phase to phase. | |
| real(double), parameter, public | julyear = 365.25d0 * solday |
| Julian year in seconds: assumes 100 leap years in 400 years. | |
| real(double), parameter, public | gregyear = 365.2425d0 * solday |
| Gregorian year in seconds: assumes 97 leap years in 400 years. | |
| real(double), parameter, public | sidyear = 365.256363051d0 * solday |
| Siderial year in seconds: fixed star to fixed star. | |
| real(double), parameter, public | tropyear = 365.24218967d0 * solday |
| Tropical year in seconds: equinox to equinox, influenced by precession. | |
| real(double), parameter, public | anomyear = 365.259635864d0 * solday |
| Anomalistic year in seconds: apside to apside. | |
| real(double), parameter, public | jd1875 = 2405890.d0 |
| JD at J1875.0 (when constellation boundaries were defined) | |
| real(double), parameter, public | jd1900 = 2415021.d0 |
| JD at J1900.0. | |
| real(double), parameter, public | jd1950 = 2433283.d0 |
| JD at J1950.0. | |
| real(double), parameter, public | jd2000 = 2451545.d0 |
| JD at J2000.0 (2000-01-01 12:00 UT) | |
| real(double), parameter, public | eps2000 = 0.409092804d0 |
| Obliquity of the ecliptic at J2000.0. | |
| real(double), parameter, public | earthr = 6378136.6d2 |
| Equatorial radius of the Earth in cm, WGS84. | |
| real(double), parameter, public | si_earthr = earthr * 1.d-2 |
| Equatorial radius of the Earth in cm, WGS84. | |
| real(double), dimension(0:9), public | pland = [3476.206d5, 4879.4d5, 12198.d5, 2*rsun, 6792.4d5, 142984.d5, 120536.d5, 51118.d5, 49528.d5, 2390.d5] |
| Planet equatorial diameters (cm) | |
| real(double), dimension(0:9), public | planr |
| Planet equatorial radii (cm) = pland/2.d0. | |
| real(double), dimension(0:9), parameter, public | plana = [384400.d0/au*km, 0.3871d0, 0.7233d0, 1.d0, 1.5237d0, 5.2028d0, 9.5388d0, 19.191d0, 30.061d0, 39.529d0]*au |
| Planet semi-major axes (cm) | |
| real(double), dimension(0:9), parameter, public | planp = [0.0748d0, 0.240846d0, 0.615198d0, 1.d0, 1.88082d0, 11.862d0, 29.4571d0, 84.0205d0, 164.8d0, 247.94d0] |
| Planet orbital periods (years - https://en.wikipedia.org/wiki/Orbital_period): | |
| real(double), dimension(0:9), public | si_pland |
| Planet equatorial diameters (m) | |
| real(double), dimension(0:9), public | si_planr |
| Planet equatorial radii (m) = pland/2.d0. | |
| real(double), dimension(0:9), parameter, public | si_plana = plana(0:9) * 1.d-2 |
| Planet semi-major axes (m) | |
| real(double), dimension(0:9), parameter, public | si_planp = planp(0:9) * sidyear |
| Planet orbital periods (s) | |
| real(double), dimension(4:8, 30), public | satrad |
| Radii Galilean moons (cm) | |
| real(double), dimension(4:8, 30), public | satdiam |
| Diameters Galilean moons (cm) | |
| real(double), dimension(4:8, 30), public | si_satrad |
| Radii Galilean moons (m) | |
| real(double), dimension(4:8, 30), public | si_satdiam |
| Diameters Galilean moons (m) | |
| character, dimension(7), public | enpname = [character(len=7) :: 'Antisol','Moon','Mercury','Venus','Sun','Mars','Jupiter','Saturn','Uranus','Neptune','Pluto','','Comet','','','','','','','',''] |
| Capitalised planet names. | |
| character, dimension(7), public | enpnames = [character(len=7) :: 'antisol','moon','mercury','venus','sun','mars','jupiter', 'saturn','uranus','neptune','pluto','','Comet','','','','','','','',''] |
| Lower-case planet names. | |
| character, dimension(8), public | enpnamel = [character(len=8) :: 'Antisol','the Moon','Mercury','Venus','the Sun','Mars','Jupiter','Saturn','Uranus','Neptune','Pluto','','Comet','','','','','','','',''] |
| Capitalised planet names; "the Moon". | |
| character, dimension(8), public | enpnamelb = [character(len=8) :: 'Antisol','The Moon','Mercury','Venus','The Sun','Mars','Jupiter','Saturn','Uranus','Neptune','Pluto','','Comet','','','','','','','',''] |
| Capitalised planet names; "The Moon". | |
| character, dimension(4), public | enpnamess = [character(len=4) :: 'A.S.','Moon','Mer.','Ven.','Sun','Mars','Jup.','Sat.','Ura.','Nep.','Plu.','','Com.','','','','','','','',''] |
| Capitalised planet abbreviations. | |
| character, dimension(9), public | nlpname = [character(len=9) :: 'Antizon','Maan','Mercurius','Venus','Zon','Mars','Jupiter','Saturnus','Uranus','Neptunus','Pluto','','Komeet','','','','','','','',''] |
| Capitalised Dutch planet names. | |
| character, dimension(9), public | nlpnames = [character(len=9) :: 'antizon','maan','mercurius','venus','zon','mars','jupiter','saturnus','uranus','neptunus','pluto','','komeet','','','','','','','',''] |
| Lower-case Dutch planet names. | |
| character, dimension(9), public | nlpnamel = [character(len=9) :: 'Antizon','de Maan','Mercurius','Venus','de Zon','Mars','Jupiter','Saturnus','Uranus','Neptunus','Pluto','','Komeet','','','','','','','',''] |
| Capitalised Dutch planet names; "the Moon". | |
| character, dimension(9), public | nlpnamelb = [character(len=9) :: 'Antizon','De Maan','Mercurius','Venus','De Zon','Mars','Jupiter','Saturnus','Uranus','Neptunus','Pluto','','Komeet','','','','','','','',''] |
| Capitalised Dutch planet names; "The Moon". | |
| character, dimension(4), public | nlpnamess = [character(len=4) :: 'A.Z.','Maan','Mer.','Ven.','Zon','Mars','Jup.','Sat.','Ura.','Nep.','Plu.','','Kom.','','','','','','','',''] |
| Capitalised Dutch planet abbreviations. | |
| character, dimension(13), parameter, public | enphases = ['New Moon ','First Quarter','Full Moon ','Last Quarter '] |
| English names of Lunar phases. | |
| character, dimension(16), parameter, public | nlphases = ['Nieuwe Maan ','Eerste Kwartier ','Volle Maan ','Laatste Kwartier'] |
| Dutch names of Lunar phases. | |
| character, dimension(9), parameter, public | enmonths = ['January ','February ','March ','April ','May ','June ','July ','August ','September','October ','November ','December '] |
| Capitalised month names in English. | |
| character, dimension(9), parameter, public | enmonthsm = ['january ','february ','march ','april ','may ','june ','july ','august ','september','october ','november ','december '] |
| Lower-case month names in English. | |
| character, dimension(3), parameter, public | enmntsb = ['Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'] |
| Capitalised month abbreviations in English. | |
| character, dimension(3), parameter, public | enmnts = ['jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'] |
| Lower-case month abbreviations in English. | |
| character, dimension(9), parameter, public | nlmonths = ['januari ','februari ','maart ','april ','mei ','juni ','juli ','augustus ','september','oktober ','november ','december '] |
| Lower-case month names in Dutch. | |
| character, dimension(9), parameter, public | nlmonthsb = ['Januari ','Februari ','Maart ','April ','Mei ','Juni ','Juli ','Augustus ','September','Oktober ','November ','December '] |
| Capitalised month names in Dutch. | |
| character, dimension(3), parameter, public | nlmntsb = ['Jan','Feb','Mrt','Apr','Mei','Jun','Jul','Aug','Sep','Okt','Nov','Dec'] |
| Capitalised month abbreviations in Dutch. | |
| character, dimension(3), parameter, public | nlmnts = ['jan','feb','mrt','apr','mei','jun','jul','aug','sep','okt','nov','dec'] |
| Lower-case month abbreviations in Dutch. | |
| character, dimension(9), parameter, public | endays = ['Sunday ','Monday ','Tuesday ','Wednesday','Thursday ','Friday ','Saturday '] |
| Capitalised day-of-week names in English. | |
| character, dimension(3), parameter, public | endys = ['Sun','Mon','Tue','Wed','Thu','Fri','Sat'] |
| Capitalised three-letter day-of-week abbreviations in English. | |
| character, dimension(2), parameter, public | ends = ['Su','Mo','Tu','We','Th','Fr','Sa'] |
| Capitalised two-letter day-of-week abbreviations in English. | |
| character, dimension(9), parameter, public | nldays = ['zondag ','maandag ','dinsdag ','woensdag ','donderdag','vrijdag ','zaterdag '] |
| Lower-case day-of-week names in Dutch. | |
| character, dimension(4), parameter, public | nldys = ['zon ','maa ','din ','woe ','don ','vrij','zat '] |
| Lower-case three-letter day-of-week abbreviations in Dutch. | |
| character, dimension(2), parameter, public | nlds = ['zo','ma','di','wo','do','vr','za'] |
| Lower-case two-letter day-of-week abbreviations in Dutch. | |
| character, dimension(10), parameter, public | nltimezones = ['wintertijd','zomertijd '] |
| Timezone names in Dutch. | |
| integer, dimension(12), public | mlen = [31,28,31,30,31,30,31,31,30,31,30,31] |
| Length of the months (for non-leap year) | |
| integer, public | currentyear |
| Year at system clock at the moment of initialisation (program start) | |
| integer, public | currentmonth |
| Month at system clock at the moment of initialisation (program start) | |
| integer, public | currentday |
| Day at system clock at the moment of initialisation (program start) | |
| integer, public | currenthour |
| Hour at system clock at the moment of initialisation (program start) | |
| integer, public | currentminute |
| Minute at system clock at the moment of initialisation (program start) | |
| integer, public | currentsecond |
| Second at system clock at the moment of initialisation (program start) | |
| integer, public | currentmillisecond |
| Millisecond at system clock at the moment of initialisation (program start) | |
| integer, public | currentdow |
| Day of week at system clock at the moment of initialisation (program start) | |
| real(double), public | currentjd |
| Julian day at system clock at the moment of initialisation (program start) | |
| real(double), public | currenttz |
| Time zone at system clock at the moment of initialisation (program start) | |
| real(double), public | currenttime |
| Time in hours at system clock at the moment of initialisation (program start) | |
| character, dimension(4), public | currentyearstr |
| Current year as a character string (system clock at initialisation) | |
| character, dimension(10), public | currentdatestr |
| Current date as an unambiguous character string YYYY-MM-DD. | |
| character, dimension(8), public | currenttimestr |
| Current time as a character string HH:MM:SS (system clock at initialisation) | |
| character, dimension(9), public | currenttimezonestr |
| Current time zone as a character string UTC+_XX (system clock at initialisation) | |
| character, dimension(29), public | currentdatetimestr |
| Current date, time and time zone as a character string (system clock at init) | |
| character, dimension(10), public | currentdatestren |
| Current date as a US character string MM/DD/YYYY (system clock) | |
| character, dimension(9), public | currentdowstren |
| Current English day of week as a character string (system clock) | |
| character, dimension(39), public | currentdatestrenl |
| Current English date as long character string DayOfWeek Month DD YY (sys.clock) | |
| character, dimension(10), public | currentdatestrnl |
| Current date as a Dutch/EU character string DD/MM/YYYY (system clock) | |
| character, dimension(9), public | currentdowstrnl |
| Current Dutch day of week as a character string (system clock) | |
| character, dimension(39), public | currentdatestrnll |
| Current Dutch date as a long character string DayOfWeek Month DD YY (sys.clock) | |
| character, parameter, public | tab = char(9) |
| Tab character. | |
| character, dimension(7), parameter, public | engrchar = [character(len=7) :: 'alpha','beta','gamma','delta','epsilon','zeta','eta','theta','iota','kappa','lambda', 'mu','nu','xi','omicron','pi','rho','sigma','tau','upsilon','phi','chi','psi','omega'] |
| Lower-case English names for Greek characters. | |
| character, dimension(9), parameter, public | htmlgrchar = [character(len=9) :: 'α','β','γ','δ','ε','ζ','η','θ','ι', 'κ','λ','μ','ν','ξ','ο','π','ρ','σ','τ','υ','φ','χ','ψ','ω'] |
| HTML codes for lower-case Greek characters. | |
| character, dimension(4), parameter, public | cursorup = char(27)//'[2A' |
| Print this to move the cursor up one line on screen (need 2 lines since print gives a hard return) | |
| character, dimension(4), parameter, public | cursordown = char(27)//'[1B' |
| Print this to move the cursor down one line (on screen) | |
| character, dimension(4), parameter, public | cursorright = char(27)//'[1C' |
| Print this to move the cursor to the right one space. | |
| character, dimension(4), parameter, public | cursorleft = char(27)//'[1D' |
| Print this to move the cursor to the left one space. | |
| character, dimension(2), parameter, public | newline = achar(13)//achar(10) |
| Newline character: ASCII Carriage Return (13) + Line Feed (10) | |
| integer, public | stderr |
| Default standard error unit for most (not all!) Fortran compilers. | |
| integer, public | stdin |
| Default standard input unit for most (not all!) Fortran compilers. | |
| integer, public | stdout |
| Default standard output unit for most (not all!) Fortran compilers. | |
| character, dimension(199), public | homedir |
| Current user's home directory (= $HOME, will contain e.g. '/home/user') | |
| character, dimension(199), public | workdir |
| Current working directory (= $PWD, may contain e.g. '/home/user/myCode/...') | |
| character, dimension(99), public | hostname |
| Host name (= $HOSTNAME - not always exported) | |
| character, dimension(99), public | username |
| Name of the current user (= $USER) | |
| character, dimension(99), public | userid |
| ID of the current user (= $UID) | |
| character, dimension(199), public | program_name |
| Name of the currently running program, without the path. | |
| character, dimension(999), public | program_path |
| Path of the currently running program, without the program name. | |
| character, dimension(999), public | program_args |
| List of command-line arguments, separated by two spaces - may be truncated if longer than 999 characters. | |
Provides all constants in the library, and routines to define them.
| subroutine sufr_constants::set_sufr_constants |
Define the values of all the constants used in this package.
Planet equatorial radii (cm)
Planet equatorial diameters (m)
Planet equatorial radii (m)
Radii (Galilean) moons (cm)
Diameters (Galilean) moons (cm)
Radii (Galilean) moons (m)
Diameters (Galilean) moons (cm)
Definition at line 362 of file constants.f90.
References pland, planr, satdiam, satrad, set_sufr_constants_currentdate(), set_sufr_constants_environment(), si_pland, si_planr, si_satdiam, and si_satrad.
| subroutine sufr_constants::set_sufr_constants_currentdate |
Define the values of variables that describe the current date and time.
Definition at line 402 of file constants.f90.
References currentdatestr, currentdatestren, currentdatestrenl, currentdatestrnl, currentdatestrnll, currentdatetimestr, currentday, currentdow, currentdowstren, currentdowstrnl, currenthour, currentjd, currentmillisecond, currentminute, currentmonth, currentsecond, currenttime, currenttimestr, currenttimezonestr, currenttz, currentyear, currentyearstr, sufr_date_and_time::dow_ut(), endays, enmonths, nldays, nlmonths, and sufr_date_and_time::ymdhms2jd().
Referenced by set_sufr_constants().
| subroutine sufr_constants::set_sufr_constants_environment |
Define the values of constants that describe the working environment.
Definition at line 458 of file constants.f90.
References homedir, hostname, program_args, program_name, program_path, stderr, stdin, stdout, userid, username, and workdir.
Referenced by set_sufr_constants().
Arcminutes to radians.
Definition at line 52 of file constants.f90.
| real(double), parameter, public sufr_constants::anomonth = 27.554549878d0 * solday |
Anomalistic month in seconds: apside to apside.
Definition at line 160 of file constants.f90.
| real(double), parameter, public sufr_constants::anomyear = 365.259635864d0 * solday |
Anomalistic year in seconds: apside to apside.
Definition at line 168 of file constants.f90.
Arcseconds to degrees.
Definition at line 50 of file constants.f90.
Arcseconds to radians.
Definition at line 54 of file constants.f90.
| real(double), parameter, public sufr_constants::au = 1.49597870700d13 |
A.U. in cgs (IAU 2009 Resolution B2, IAU XXVIII GA 2012 - Astr.Almanac 2014)
Definition at line 141 of file constants.f90.
| real(double), parameter, public sufr_constants::c2k = 273.15d0 |
Degrees Celsius to Kelvin.
Definition at line 58 of file constants.f90.
| real(double), parameter, public sufr_constants::c3rd = one/3.0_dbl |
One third.
Definition at line 34 of file constants.f90.
| character, dimension(10), public sufr_constants::currentdatestr |
Current date as an unambiguous character string YYYY-MM-DD.
Definition at line 307 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(10), public sufr_constants::currentdatestren |
Current date as a US character string MM/DD/YYYY (system clock)
Definition at line 312 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(39), public sufr_constants::currentdatestrenl |
Current English date as long character string DayOfWeek Month DD YY (sys.clock)
Definition at line 314 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(10), public sufr_constants::currentdatestrnl |
Current date as a Dutch/EU character string DD/MM/YYYY (system clock)
Definition at line 316 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(39), public sufr_constants::currentdatestrnll |
Current Dutch date as a long character string DayOfWeek Month DD YY (sys.clock)
Definition at line 318 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(29), public sufr_constants::currentdatetimestr |
Current date, time and time zone as a character string (system clock at init)
Definition at line 310 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentday |
Day at system clock at the moment of initialisation (program start)
Definition at line 295 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentdow |
Day of week at system clock at the moment of initialisation (program start)
Definition at line 300 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(9), public sufr_constants::currentdowstren |
Current English day of week as a character string (system clock)
Definition at line 313 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(9), public sufr_constants::currentdowstrnl |
Current Dutch day of week as a character string (system clock)
Definition at line 317 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currenthour |
Hour at system clock at the moment of initialisation (program start)
Definition at line 296 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| real(double), public sufr_constants::currentjd |
Julian day at system clock at the moment of initialisation (program start)
Definition at line 302 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentmillisecond |
Millisecond at system clock at the moment of initialisation (program start)
Definition at line 299 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentminute |
Minute at system clock at the moment of initialisation (program start)
Definition at line 297 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentmonth |
Month at system clock at the moment of initialisation (program start)
Definition at line 294 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentsecond |
Second at system clock at the moment of initialisation (program start)
Definition at line 298 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| real(double), public sufr_constants::currenttime |
Time in hours at system clock at the moment of initialisation (program start)
Definition at line 304 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(8), public sufr_constants::currenttimestr |
Current time as a character string HH:MM:SS (system clock at initialisation)
Definition at line 308 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(9), public sufr_constants::currenttimezonestr |
Current time zone as a character string UTC+_XX (system clock at initialisation)
Definition at line 309 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| real(double), public sufr_constants::currenttz |
Time zone at system clock at the moment of initialisation (program start)
Definition at line 303 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| integer, public sufr_constants::currentyear |
Year at system clock at the moment of initialisation (program start)
Definition at line 293 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(4), public sufr_constants::currentyearstr |
Current year as a character string (system clock at initialisation)
Definition at line 306 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(4), parameter, public sufr_constants::cursordown = char(27)//'[1B' |
Print this to move the cursor down one line (on screen)
Definition at line 334 of file constants.f90.
| character, dimension(4), parameter, public sufr_constants::cursorleft = char(27)//'[1D' |
Print this to move the cursor to the left one space.
Definition at line 336 of file constants.f90.
| character, dimension(4), parameter, public sufr_constants::cursorright = char(27)//'[1C' |
Print this to move the cursor to the right one space.
Definition at line 335 of file constants.f90.
| character, dimension(4), parameter, public sufr_constants::cursorup = char(27)//'[2A' |
Print this to move the cursor up one line on screen (need 2 lines since print gives a hard return)
Definition at line 333 of file constants.f90.
Referenced by sufr_system::printprogressbar().
| real(double), parameter, public sufr_constants::d2as = 3600.0_dbl |
Degrees to arcseconds.
Definition at line 49 of file constants.f90.
Degrees to hours.
Definition at line 47 of file constants.f90.
Degrees to radians.
Definition at line 43 of file constants.f90.
| real(double), parameter, public sufr_constants::dracmonth = 27.212220817d0 * solday |
Draconic month in seconds: node to node.
Definition at line 161 of file constants.f90.
| real(double), parameter, public sufr_constants::earthr = 6378136.6d2 |
Equatorial radius of the Earth in cm, WGS84.
Definition at line 177 of file constants.f90.
Referenced by sufr_earth::distance().
| character, dimension(9), parameter, public sufr_constants::endays = ['Sunday ','Monday ','Tuesday ','Wednesday','Thursday ','Friday ','Saturday '] |
Capitalised day-of-week names in English.
Definition at line 269 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(2), parameter, public sufr_constants::ends = ['Su','Mo','Tu','We','Th','Fr','Sa'] |
Capitalised two-letter day-of-week abbreviations in English.
Definition at line 273 of file constants.f90.
| character, dimension(3), parameter, public sufr_constants::endys = ['Sun','Mon','Tue','Wed','Thu','Fri','Sat'] |
Capitalised three-letter day-of-week abbreviations in English.
Definition at line 271 of file constants.f90.
| character, dimension(7), parameter, public sufr_constants::engrchar = [character(len=7) :: 'alpha','beta','gamma','delta','epsilon','zeta','eta','theta','iota','kappa','lambda', 'mu','nu','xi','omicron','pi','rho','sigma','tau','upsilon','phi','chi','psi','omega'] |
Lower-case English names for Greek characters.
Definition at line 325 of file constants.f90.
| character, dimension(3), parameter, public sufr_constants::enmnts = ['jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'] |
Lower-case month abbreviations in English.
Definition at line 253 of file constants.f90.
| character, dimension(3), parameter, public sufr_constants::enmntsb = ['Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'] |
Capitalised month abbreviations in English.
Definition at line 251 of file constants.f90.
| character, dimension(9), parameter, public sufr_constants::enmonths = ['January ','February ','March ','April ','May ','June ','July ','August ','September','October ','November ','December '] |
Capitalised month names in English.
Definition at line 247 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(9), parameter, public sufr_constants::enmonthsm = ['january ','february ','march ','april ','may ','june ','july ','august ','september','october ','november ','december '] |
Lower-case month names in English.
Definition at line 249 of file constants.f90.
| character, dimension(13), parameter, public sufr_constants::enphases = ['New Moon ','First Quarter','Full Moon ','Last Quarter '] |
English names of Lunar phases.
Definition at line 238 of file constants.f90.
| character, dimension(7), public sufr_constants::enpname = [character(len=7) :: 'Antisol','Moon','Mercury','Venus','Sun','Mars','Jupiter','Saturn','Uranus','Neptune','Pluto','','Comet','','','','','','','',''] |
Capitalised planet names.
Definition at line 215 of file constants.f90.
| character, dimension(8), public sufr_constants::enpnamel = [character(len=8) :: 'Antisol','the Moon','Mercury','Venus','the Sun','Mars','Jupiter','Saturn','Uranus','Neptune','Pluto','','Comet','','','','','','','',''] |
Capitalised planet names; "the Moon".
Definition at line 219 of file constants.f90.
| character, dimension(8), public sufr_constants::enpnamelb = [character(len=8) :: 'Antisol','The Moon','Mercury','Venus','The Sun','Mars','Jupiter','Saturn','Uranus','Neptune','Pluto','','Comet','','','','','','','',''] |
Capitalised planet names; "The Moon".
Definition at line 221 of file constants.f90.
| character, dimension(7), public sufr_constants::enpnames = [character(len=7) :: 'antisol','moon','mercury','venus','sun','mars','jupiter', 'saturn','uranus','neptune','pluto','','Comet','','','','','','','',''] |
Lower-case planet names.
Definition at line 217 of file constants.f90.
| character, dimension(4), public sufr_constants::enpnamess = [character(len=4) :: 'A.S.','Moon','Mer.','Ven.','Sun','Mars','Jup.','Sat.','Ura.','Nep.','Plu.','','Com.','','','','','','','',''] |
Capitalised planet abbreviations.
Definition at line 223 of file constants.f90.
| real(double), parameter, public sufr_constants::eps2000 = 0.409092804d0 |
Obliquity of the ecliptic at J2000.0.
Definition at line 175 of file constants.f90.
| real(double), parameter, public sufr_constants::ev = 1.6021766208d-12 |
ElectronVolt in erg.
Definition at line 104 of file constants.f90.
| real(double), parameter, public sufr_constants::gregmonth = 30.4369d0 * solday |
Gregorian month in seconds: average calendar month length of 4800 months over 400 years.
Definition at line 157 of file constants.f90.
| real(double), parameter, public sufr_constants::gregyear = 365.2425d0 * solday |
Gregorian year in seconds: assumes 97 leap years in 400 years.
Definition at line 165 of file constants.f90.
| real(double), parameter, public sufr_constants::h2d = 15.0_dbl |
Hours to degrees.
Definition at line 46 of file constants.f90.
Hours to radians.
Definition at line 45 of file constants.f90.
Referenced by sufr_time2string::hdm(), sufr_time2string::hhm(), sufr_time2string::hhms(), sufr_time2string::hm(), sufr_time2string::hm_mmm(), sufr_time2string::hmm(), sufr_time2string::hms(), sufr_time2string::hms_s(), sufr_time2string::hms_sss(), sufr_time2string::um(), sufr_time2string::umm(), sufr_time2string::ums(), sufr_time2string::wum(), sufr_time2string::wumm(), sufr_time2string::wums(), and sufr_time2string::wums_s().
| character, dimension(199), public sufr_constants::homedir |
Current user's home directory (= $HOME, will contain e.g. '/home/user')
Definition at line 345 of file constants.f90.
Referenced by sufr_system::execute_command_line_and_return_str(), sufr_pgplot::pgplot_settings(), and set_sufr_constants_environment().
| character, dimension(99), public sufr_constants::hostname |
Host name (= $HOSTNAME - not always exported)
Definition at line 347 of file constants.f90.
Referenced by set_sufr_constants_environment().
| character, dimension(9), parameter, public sufr_constants::htmlgrchar = [character(len=9) :: 'α','β','γ','δ','ε','ζ','η','θ','ι', 'κ','λ','μ','ν','ξ','ο','π','ρ','σ','τ','υ','φ','χ','ψ','ω'] |
HTML codes for lower-case Greek characters.
Definition at line 328 of file constants.f90.
| real(double), parameter, public sufr_constants::jd1875 = 2405890.d0 |
JD at J1875.0 (when constellation boundaries were defined)
Definition at line 170 of file constants.f90.
| real(double), parameter, public sufr_constants::jd1900 = 2415021.d0 |
JD at J1900.0.
Definition at line 171 of file constants.f90.
| real(double), parameter, public sufr_constants::jd1950 = 2433283.d0 |
JD at J1950.0.
Definition at line 172 of file constants.f90.
| real(double), parameter, public sufr_constants::jd2000 = 2451545.d0 |
JD at J2000.0 (2000-01-01 12:00 UT)
Definition at line 173 of file constants.f90.
| real(double), parameter, public sufr_constants::julyear = 365.25d0 * solday |
Julian year in seconds: assumes 100 leap years in 400 years.
Definition at line 164 of file constants.f90.
| real(double), parameter, public sufr_constants::km = 1.d5 |
kilometer in cgs (cm)
Definition at line 110 of file constants.f90.
| real(double), parameter, public sufr_constants::lsun = 3.85d33 |
Solar luminosity in cgs (erg/s)
Definition at line 146 of file constants.f90.
Milliarcseconds to radians.
Definition at line 56 of file constants.f90.
| integer, dimension(12), public sufr_constants::mlen = [31,28,31,30,31,30,31,31,30,31,30,31] |
Length of the months (for non-leap year)
Definition at line 290 of file constants.f90.
| real(double), parameter, public sufr_constants::mm = 1.d-1 |
millimeter in cgs (cm)
Definition at line 109 of file constants.f90.
Referenced by sufr_angle2string::ams(), sufr_angle2string::ams2(), sufr_angle2string::amss(), sufr_angle2string::dm(), sufr_angle2string::dm2(), sufr_angle2string::dmm2(), sufr_angle2string::dmmm2(), sufr_angle2string::dmmmmm2(), sufr_angle2string::dms(), sufr_angle2string::dms2(), sufr_angle2string::dmss(), sufr_angle2string::dmss2(), sufr_time2string::hdm(), sufr_time2string::hms_s(), sufr_time2string::hms_sss(), sufr_angle2string::prs(), sufr_time2string::um(), sufr_time2string::ums(), sufr_angle2string::wams(), sufr_angle2string::wams2(), sufr_angle2string::wamss(), sufr_angle2string::wddms2(), sufr_angle2string::wdm(), sufr_angle2string::wdm2(), sufr_angle2string::wdmm2(), sufr_angle2string::wdmmm2(), sufr_angle2string::wdms(), sufr_angle2string::wdms2(), sufr_angle2string::wdmss(), sufr_angle2string::wdmss2(), sufr_time2string::wum(), sufr_time2string::wumm(), sufr_time2string::wums(), and sufr_time2string::wums_s().
| real(double), parameter, public sufr_constants::msun = 1.9891d33 |
Solar mass in cgs (gm)
Definition at line 145 of file constants.f90.
| real(double), parameter, public sufr_constants::mum = 1.d-4 |
micrometer in cgs (cm)
Definition at line 108 of file constants.f90.
| character, dimension(2), parameter, public sufr_constants::newline = achar(13)//achar(10) |
Newline character: ASCII Carriage Return (13) + Line Feed (10)
Definition at line 338 of file constants.f90.
Referenced by sufr_system::execute_command_line_and_return_str().
| character, dimension(9), parameter, public sufr_constants::nldays = ['zondag ','maandag ','dinsdag ','woensdag ','donderdag','vrijdag ','zaterdag '] |
Lower-case day-of-week names in Dutch.
Definition at line 277 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(2), parameter, public sufr_constants::nlds = ['zo','ma','di','wo','do','vr','za'] |
Lower-case two-letter day-of-week abbreviations in Dutch.
Definition at line 281 of file constants.f90.
| character, dimension(4), parameter, public sufr_constants::nldys = ['zon ','maa ','din ','woe ','don ','vrij','zat '] |
Lower-case three-letter day-of-week abbreviations in Dutch.
Definition at line 279 of file constants.f90.
| character, dimension(3), parameter, public sufr_constants::nlmnts = ['jan','feb','mrt','apr','mei','jun','jul','aug','sep','okt','nov','dec'] |
Lower-case month abbreviations in Dutch.
Definition at line 263 of file constants.f90.
| character, dimension(3), parameter, public sufr_constants::nlmntsb = ['Jan','Feb','Mrt','Apr','Mei','Jun','Jul','Aug','Sep','Okt','Nov','Dec'] |
Capitalised month abbreviations in Dutch.
Definition at line 261 of file constants.f90.
| character, dimension(9), parameter, public sufr_constants::nlmonths = ['januari ','februari ','maart ','april ','mei ','juni ','juli ','augustus ','september','oktober ','november ','december '] |
Lower-case month names in Dutch.
Definition at line 257 of file constants.f90.
Referenced by set_sufr_constants_currentdate().
| character, dimension(9), parameter, public sufr_constants::nlmonthsb = ['Januari ','Februari ','Maart ','April ','Mei ','Juni ','Juli ','Augustus ','September','Oktober ','November ','December '] |
Capitalised month names in Dutch.
Definition at line 259 of file constants.f90.
| character, dimension(16), parameter, public sufr_constants::nlphases = ['Nieuwe Maan ','Eerste Kwartier ','Volle Maan ','Laatste Kwartier'] |
Dutch names of Lunar phases.
Definition at line 240 of file constants.f90.
| character, dimension(9), public sufr_constants::nlpname = [character(len=9) :: 'Antizon','Maan','Mercurius','Venus','Zon','Mars','Jupiter','Saturnus','Uranus','Neptunus','Pluto','','Komeet','','','','','','','',''] |
Capitalised Dutch planet names.
Definition at line 227 of file constants.f90.
| character, dimension(9), public sufr_constants::nlpnamel = [character(len=9) :: 'Antizon','de Maan','Mercurius','Venus','de Zon','Mars','Jupiter','Saturnus','Uranus','Neptunus','Pluto','','Komeet','','','','','','','',''] |
Capitalised Dutch planet names; "the Moon".
Definition at line 231 of file constants.f90.
| character, dimension(9), public sufr_constants::nlpnamelb = [character(len=9) :: 'Antizon','De Maan','Mercurius','Venus','De Zon','Mars','Jupiter','Saturnus','Uranus','Neptunus','Pluto','','Komeet','','','','','','','',''] |
Capitalised Dutch planet names; "The Moon".
Definition at line 233 of file constants.f90.
| character, dimension(9), public sufr_constants::nlpnames = [character(len=9) :: 'antizon','maan','mercurius','venus','zon','mars','jupiter','saturnus','uranus','neptunus','pluto','','komeet','','','','','','','',''] |
Lower-case Dutch planet names.
Definition at line 229 of file constants.f90.
| character, dimension(4), public sufr_constants::nlpnamess = [character(len=4) :: 'A.Z.','Maan','Mer.','Ven.','Zon','Mars','Jup.','Sat.','Ura.','Nep.','Plu.','','Kom.','','','','','','','',''] |
Capitalised Dutch planet abbreviations.
Definition at line 235 of file constants.f90.
| character, dimension(10), parameter, public sufr_constants::nltimezones = ['wintertijd','zomertijd '] |
Timezone names in Dutch.
Definition at line 285 of file constants.f90.
| real(double), parameter, public sufr_constants::nm = 1.d-7 |
nanometer in cgs (cm)
Definition at line 107 of file constants.f90.
| real(double), parameter, public sufr_constants::one = 1.0_dbl |
Unity.
Definition at line 33 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_amu = 1.660539040d-24 |
Atomic mass unit; (mass of C12 atom)/12, g.
Definition at line 95 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_arad = pc_kb**4/((pc_c*pc_hp)**3) * 8*pi**5/15.d0 |
Radiation (density) constant, 7.56591d-15 erg cm^-3 K^-4.
Definition at line 101 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_c = 2.99792458d10 |
Speed of light in vacuo, cm s^-1.
Definition at line 92 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_g = 6.67408d-8 |
Newton's gravitational constant, cm^3 g^-1 s^-2.
Definition at line 91 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_gr = 9.80665d2 |
Mean gravitational acceleration at the Earth's surface, cm s^-2.
Definition at line 93 of file constants.f90.
Reduced Planck constant, erg s.
Definition at line 100 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_hp = 6.626070040d-27 |
Planck's constant, erg s.
Definition at line 99 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_kb = 1.38064852d-16 |
Boltzmann constant, erg/K.
Definition at line 98 of file constants.f90.
| real(double), parameter, public sufr_constants::pc_mh = 1.007825d0*pc_amu |
Mass of a hydrogen atom.
Definition at line 96 of file constants.f90.
Stefan-Boltzmann constant, 5.67051d-5 erg cm^-2 K^-4 s^-1.
Definition at line 102 of file constants.f90.
| real(double), parameter, public sufr_constants::pi = 2*pio2 |
pi
Definition at line 39 of file constants.f90.
Referenced by sufr_angles::rev2(), and sufr_angles::revc().
| real(double), parameter, public sufr_constants::pi2 = 2*pi |
2*pi
Definition at line 40 of file constants.f90.
Referenced by sufr_angles::pastr_en(), sufr_angles::pastr_nl(), sufr_angles::pastr_nls(), sufr_angles::rev(), sufr_angles::rev2(), sufr_angles::revc(), and sufr_angles::wdstr_nl8().
| real(double), parameter, public sufr_constants::pio2 = 2*pio4 |
pi/2
Definition at line 38 of file constants.f90.
Referenced by sufr_optics::reflectance_transmittance().
| real(double), parameter, public sufr_constants::pio4 = atan(one) |
pi/4
Definition at line 37 of file constants.f90.
| real(double), dimension(0:9), parameter, public sufr_constants::plana = [384400.d0/au*km, 0.3871d0, 0.7233d0, 1.d0, 1.5237d0, 5.2028d0, 9.5388d0, 19.191d0, 30.061d0, 39.529d0]*au |
Planet semi-major axes (cm)
Definition at line 191 of file constants.f90.
| real(double), dimension(0:9), public sufr_constants::pland = [3476.206d5, 4879.4d5, 12198.d5, 2*rsun, 6792.4d5, 142984.d5, 120536.d5, 51118.d5, 49528.d5, 2390.d5] |
Planet equatorial diameters (cm)
Definition at line 184 of file constants.f90.
Referenced by set_sufr_constants().
| real(double), dimension(0:9), parameter, public sufr_constants::planp = [0.0748d0, 0.240846d0, 0.615198d0, 1.d0, 1.88082d0, 11.862d0, 29.4571d0, 84.0205d0, 164.8d0, 247.94d0] |
Planet orbital periods (years - https://en.wikipedia.org/wiki/Orbital_period):
Definition at line 194 of file constants.f90.
| real(double), dimension(0:9), public sufr_constants::planr |
Planet equatorial radii (cm) = pland/2.d0.
Definition at line 188 of file constants.f90.
Referenced by set_sufr_constants().
| character, dimension(999), public sufr_constants::program_args |
List of command-line arguments, separated by two spaces - may be truncated if longer than 999 characters.
Definition at line 353 of file constants.f90.
Referenced by set_sufr_constants_environment().
| character, dimension(199), public sufr_constants::program_name |
Name of the currently running program, without the path.
Definition at line 351 of file constants.f90.
Referenced by sufr_system::error(), sufr_system::file_end_error(), sufr_system::file_end_quit(), sufr_system::file_open_error(), sufr_system::file_read_error(), sufr_system::file_write_error(), sufr_system::file_write_error_quit(), sufr_getopt::getopt_help(), sufr_getopt::getopt_long_help(), sufr_system::quit_program_error(), sufr_system::quit_program_warning(), set_sufr_constants_environment(), sufr_system::syntax_print(), sufr_system::syntax_quit(), and sufr_system::warn().
| character, dimension(999), public sufr_constants::program_path |
Path of the currently running program, without the program name.
Definition at line 352 of file constants.f90.
Referenced by set_sufr_constants_environment().
| real(double), parameter, public sufr_constants::r2am = dble(180*60)/pi |
Radians to arcminutes.
Definition at line 51 of file constants.f90.
| real(double), parameter, public sufr_constants::r2as = r2am*60.0_dbl |
Radians to arcseconds.
Definition at line 53 of file constants.f90.
| real(double), parameter, public sufr_constants::r2d = 180.0_dbl/pi |
Radians to degrees.
Definition at line 42 of file constants.f90.
Referenced by sufr_angle2string::ams(), sufr_angle2string::ams2(), sufr_angle2string::amss(), sufr_angle2string::ass(), sufr_angle2string::d1ms2(), sufr_angle2string::ddd2(), sufr_angle2string::ddms2(), sufr_angle2string::dm(), sufr_angle2string::dm2(), sufr_angle2string::dmm2(), sufr_angle2string::dmmm2(), sufr_angle2string::dmmmmm2(), sufr_angle2string::dms(), sufr_angle2string::dms2(), sufr_angle2string::dmss(), sufr_angle2string::dmss2(), sufr_angle2string::prs(), sufr_angle2string::wams(), sufr_angle2string::wams2(), sufr_angle2string::wamss(), sufr_angle2string::wass(), sufr_angle2string::wd1ms2(), sufr_angle2string::wddd2(), sufr_angle2string::wddms2(), sufr_angle2string::wdm(), sufr_angle2string::wdm2(), sufr_angle2string::wdmm2(), sufr_angle2string::wdmmm2(), sufr_angle2string::wdms(), sufr_angle2string::wdms2(), sufr_angle2string::wdmss(), sufr_angle2string::wdmss2(), sufr_angles::wdstr_en(), sufr_angles::wdstr_ens(), sufr_angles::wdstr_nl(), and sufr_angles::wdstr_nls().
| real(double), parameter, public sufr_constants::r2h = 12.0_dbl/pi |
Radians to hours.
Definition at line 44 of file constants.f90.
Referenced by sufr_time2string::hdm(), sufr_time2string::hhm(), sufr_time2string::hhms(), sufr_time2string::hm(), sufr_time2string::hm_mmm(), sufr_time2string::hmm(), sufr_time2string::hms(), sufr_time2string::hms_s(), sufr_time2string::hms_sss(), sufr_time2string::um(), sufr_time2string::umm(), sufr_time2string::ums(), sufr_time2string::wum(), sufr_time2string::wumm(), sufr_time2string::wums(), and sufr_time2string::wums_s().
| real(double), parameter, public sufr_constants::r2mas = r2as*1000.0_dbl |
Radians to milliarcseconds.
Definition at line 55 of file constants.f90.
| real, parameter, public sufr_constants::ram2r = real(am2r) |
Arcminutes to radians.
Definition at line 80 of file constants.f90.
| real, parameter, public sufr_constants::ras2d = real(as2d) |
Arcseconds to degrees.
Definition at line 78 of file constants.f90.
| real, parameter, public sufr_constants::ras2r = real(as2r) |
Arcseconds to radians.
Definition at line 82 of file constants.f90.
| real, parameter, public sufr_constants::rc2k = real(c2k) |
Degrees Celsius to Kelvin.
Definition at line 86 of file constants.f90.
| real, parameter, public sufr_constants::rc3rd = real(c3rd) |
One third.
Definition at line 62 of file constants.f90.
| real, parameter, public sufr_constants::rd2as = real(d2as) |
Degrees to arcseconds.
Definition at line 77 of file constants.f90.
| real, parameter, public sufr_constants::rd2h = real(d2h) |
Degrees to hours.
Definition at line 75 of file constants.f90.
| real, parameter, public sufr_constants::rd2r = real(d2r) |
Degrees to radians.
Definition at line 71 of file constants.f90.
| real, parameter, public sufr_constants::rh2d = real(h2d) |
Hours to degrees.
Definition at line 74 of file constants.f90.
| real, parameter, public sufr_constants::rh2r = real(h2r) |
Hours to radians.
Definition at line 73 of file constants.f90.
| real, parameter, public sufr_constants::rmas2r = real(mas2r) |
Milliarcseconds to radians.
Definition at line 84 of file constants.f90.
| real, parameter, public sufr_constants::rpi = real(pi) |
| real, parameter, public sufr_constants::rpi2 = real(pi2) |
2*pi
Definition at line 68 of file constants.f90.
Referenced by sufr_angles::rrev(), and sufr_angles::rrev2().
| real, parameter, public sufr_constants::rpio2 = real(pio2) |
pi/2
Definition at line 66 of file constants.f90.
| real, parameter, public sufr_constants::rpio4 = real(pio4) |
pi/4
Definition at line 65 of file constants.f90.
| real, parameter, public sufr_constants::rr2am = real(r2am) |
Radians to arcminutes.
Definition at line 79 of file constants.f90.
| real, parameter, public sufr_constants::rr2as = real(r2as) |
Radians to arcseconds.
Definition at line 81 of file constants.f90.
| real, parameter, public sufr_constants::rr2d = real(r2d) |
Radians to degrees.
Definition at line 70 of file constants.f90.
| real, parameter, public sufr_constants::rr2h = real(r2h) |
Radians to hours.
Definition at line 72 of file constants.f90.
| real, parameter, public sufr_constants::rr2mas = real(r2mas) |
Radians to milliarcseconds.
Definition at line 83 of file constants.f90.
| real(double), parameter, public sufr_constants::rsun = 6.9599d10 |
Solar radius in cgs (cm)
Definition at line 144 of file constants.f90.
| real, parameter, public sufr_constants::rtwo3rd = real(two3rd) |
Two thirds.
Definition at line 63 of file constants.f90.
| real(double), dimension(4:8,30), public sufr_constants::satdiam |
Diameters Galilean moons (cm)
Definition at line 206 of file constants.f90.
Referenced by set_sufr_constants().
| real(double), dimension(4:8,30), public sufr_constants::satrad |
Radii Galilean moons (cm)
Definition at line 205 of file constants.f90.
Referenced by set_sufr_constants().
| real(double), parameter, public sufr_constants::si_au = au * 1.d-2 |
A.U. in SI (m)
Definition at line 142 of file constants.f90.
| real(double), parameter, public sufr_constants::si_earthr = earthr * 1.d-2 |
Equatorial radius of the Earth in cm, WGS84.
Definition at line 178 of file constants.f90.
| real(double), parameter, public sufr_constants::si_ev = eV * 1.d-7 |
Elementary (|electron|) charge in Coulomb; ElectronVolt: 1.6021766d-19 J.
Definition at line 128 of file constants.f90.
| real(double), parameter, public sufr_constants::si_km = km * 1.d-2 |
kilometer in SI (m)
Definition at line 134 of file constants.f90.
| real(double), parameter, public sufr_constants::si_lsun = lsun * 1.d-7 |
Solar luminosity in SI (W)
Definition at line 150 of file constants.f90.
| real(double), parameter, public sufr_constants::si_mm = mm * 1.d-2 |
millimeter in SI (m)
Definition at line 133 of file constants.f90.
| real(double), parameter, public sufr_constants::si_msun = msun * 1.d-3 |
Solar mass in SI (kg)
Definition at line 149 of file constants.f90.
| real(double), parameter, public sufr_constants::si_mum = mum * 1.d-2 |
micrometer in SI (m)
Definition at line 132 of file constants.f90.
| real(double), parameter, public sufr_constants::si_nm = nm * 1.d-2 |
nanometer in SI (m)
Definition at line 131 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_amu = pc_amu * 1.d-3 |
Atomic mass unit; (mass of C12 atom)/12, 1.6605402d-27 kg.
Definition at line 119 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_arad = si_pc_kb**4/((si_pc_c*si_pc_hp)**3) * 8*pi**5/15.d0 |
Radiation (density) constant, 7.56591d-15 erg cm^-3 K^-4.
Definition at line 125 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_c = pc_c * 1.d-2 |
Speed of light in vacuo, 2.99792458d8 m s^-1.
Definition at line 116 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_ec = si_eV |
Elementary (|electron|) charge in Coulomb; ElectronVolt: 1.6021766d-19 J.
Definition at line 129 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_g = pc_g * 1.d-3 |
Newton's gravitational constant, 6.67259d-11 m^3 kg^-1 s^-2.
Definition at line 115 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_gr = pc_gr * 1.d-2 |
Mean gravitational acceleration at the Earth's surface, cm s^-2.
Definition at line 117 of file constants.f90.
Reduced Planck constant, J s.
Definition at line 124 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_hp = pc_hp * 1.d-7 |
Planck's constant, 6.6260755d-34 J s.
Definition at line 123 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_kb = pc_kb * 1.d-7 |
Boltzmann constant, 1.380658d-23 J/K.
Definition at line 122 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_mh = 1.007825d0*si_pc_amu |
Mass of a hydrogen atom.
Definition at line 120 of file constants.f90.
| real(double), parameter, public sufr_constants::si_pc_sigma = si_pc_arad*si_pc_c*0.25d0 |
Stefan-Boltzmann constant, 5.67051d-5 erg cm^-2 K^-4 s^-1.
Definition at line 126 of file constants.f90.
| real(double), dimension(0:9), parameter, public sufr_constants::si_plana = plana(0:9) * 1.d-2 |
Planet semi-major axes (m)
Definition at line 200 of file constants.f90.
| real(double), dimension(0:9), public sufr_constants::si_pland |
Planet equatorial diameters (m)
Definition at line 198 of file constants.f90.
Referenced by set_sufr_constants().
Planet orbital periods (s)
Definition at line 201 of file constants.f90.
| real(double), dimension(0:9), public sufr_constants::si_planr |
Planet equatorial radii (m) = pland/2.d0.
Definition at line 199 of file constants.f90.
Referenced by set_sufr_constants().
| real(double), parameter, public sufr_constants::si_rsun = rsun * 1.d-2 |
Solar radius in SI (m)
Definition at line 148 of file constants.f90.
| real(double), dimension(4:8,30), public sufr_constants::si_satdiam |
Diameters Galilean moons (m)
Definition at line 209 of file constants.f90.
Referenced by set_sufr_constants().
| real(double), dimension(4:8,30), public sufr_constants::si_satrad |
Radii Galilean moons (m)
Definition at line 208 of file constants.f90.
Referenced by set_sufr_constants().
| real(double), parameter, public sufr_constants::siday = 0.997269663d0 |
Siderial day in days.
Definition at line 152 of file constants.f90.
| real(double), parameter, public sufr_constants::sidmonth = 27.321661547d0 * solday |
Sidereal month in seconds: fixed star to fixed star.
Definition at line 158 of file constants.f90.
| real(double), parameter, public sufr_constants::sidyear = 365.256363051d0 * solday |
Siderial year in seconds: fixed star to fixed star.
Definition at line 166 of file constants.f90.
| real(double), parameter, public sufr_constants::solconst = 1361.5d0 |
Solar constant in W/m^2.
Definition at line 154 of file constants.f90.
| real(double), parameter, public sufr_constants::solday = 8.64d4 |
Solar day = 86400 s.
Definition at line 153 of file constants.f90.
| integer, public sufr_constants::stderr |
Default standard error unit for most (not all!) Fortran compilers.
Definition at line 341 of file constants.f90.
Referenced by set_sufr_constants_environment().
| integer, public sufr_constants::stdin |
Default standard input unit for most (not all!) Fortran compilers.
Definition at line 342 of file constants.f90.
Referenced by set_sufr_constants_environment().
| integer, public sufr_constants::stdout |
Default standard output unit for most (not all!) Fortran compilers.
Definition at line 343 of file constants.f90.
Referenced by set_sufr_constants_environment().
| real(double), parameter, public sufr_constants::synmonth = 29.530588853d0 * solday |
Synodic month in seconds: phase to phase.
Definition at line 162 of file constants.f90.
| character, parameter, public sufr_constants::tab = char(9) |
Tab character.
Definition at line 323 of file constants.f90.
| real(double), parameter, public sufr_constants::tropmonth = 27.321582241d0 * solday |
Tropical month in seconds: equinox to equinox, influenced by precession.
Definition at line 159 of file constants.f90.
| real(double), parameter, public sufr_constants::tropyear = 365.24218967d0 * solday |
Tropical year in seconds: equinox to equinox, influenced by precession.
Definition at line 167 of file constants.f90.
| real(double), parameter, public sufr_constants::two3rd = 2*c3rd |
Two thirds.
Definition at line 35 of file constants.f90.
| character, dimension(99), public sufr_constants::userid |
ID of the current user (= $UID)
Definition at line 349 of file constants.f90.
Referenced by set_sufr_constants_environment().
| character, dimension(99), public sufr_constants::username |
Name of the current user (= $USER)
Definition at line 348 of file constants.f90.
Referenced by set_sufr_constants_environment().
| character, dimension(199), public sufr_constants::workdir |
Current working directory (= $PWD, may contain e.g. '/home/user/myCode/...')
Definition at line 346 of file constants.f90.
Referenced by set_sufr_constants_environment().
1.12.0
