constants.f90 File Reference

(libSUFR version 0.7.8, revision 407, hash 01069b8, 2025-03-02)

Procedures to define and share constants. More...

Go to the source code of this file.

Modules
module	sufr_constants
	Provides all constants in the library, and routines to define them.

Functions/Subroutines
subroutine	sufr_constants::set_sufr_constants
	Define the values of all the constants used in this package.
subroutine	sufr_constants::set_sufr_constants_currentdate ()
	Define the values of variables that describe the current date and time.
subroutine	sufr_constants::set_sufr_constants_environment ()
	Define the values of constants that describe the working environment.

Variables
real(double), parameter, public	sufr_constants::one = 1.0_dbl
	Unity.
real(double), parameter, public	sufr_constants::c3rd = one/3.0_dbl
	One third.
real(double), parameter, public	sufr_constants::two3rd = 2*c3rd
	Two thirds.
real(double), parameter, public	sufr_constants::pio4 = atan(one)
	pi/4
real(double), parameter, public	sufr_constants::pio2 = 2*pio4
	pi/2
real(double), parameter, public	sufr_constants::pi = 2*pio2
	pi
real(double), parameter, public	sufr_constants::pi2 = 2*pi
	2*pi
real(double), parameter, public	sufr_constants::r2d = 180.0_dbl/pi
	Radians to degrees.
real(double), parameter, public	sufr_constants::d2r = one/r2d
	Degrees to radians.
real(double), parameter, public	sufr_constants::r2h = 12.0_dbl/pi
	Radians to hours.
real(double), parameter, public	sufr_constants::h2r = one/r2h
	Hours to radians.
real(double), parameter, public	sufr_constants::h2d = 15.0_dbl
	Hours to degrees.
real(double), parameter, public	sufr_constants::d2h = one/h2d
	Degrees to hours.
real(double), parameter, public	sufr_constants::d2as = 3600.0_dbl
	Degrees to arcseconds.
real(double), parameter, public	sufr_constants::as2d = one/d2as
	Arcseconds to degrees.
real(double), parameter, public	sufr_constants::r2am = dble(180*60)/pi
	Radians to arcminutes.
real(double), parameter, public	sufr_constants::am2r = one/r2am
	Arcminutes to radians.
real(double), parameter, public	sufr_constants::r2as = r2am*60.0_dbl
	Radians to arcseconds.
real(double), parameter, public	sufr_constants::as2r = one/r2as
	Arcseconds to radians.
real(double), parameter, public	sufr_constants::r2mas = r2as*1000.0_dbl
	Radians to milliarcseconds.
real(double), parameter, public	sufr_constants::mas2r = one/r2mas
	Milliarcseconds to radians.
real(double), parameter, public	sufr_constants::c2k = 273.15d0
	Degrees Celsius to Kelvin.
real, parameter, public	sufr_constants::rc3rd = real(c3rd)
	One third.
real, parameter, public	sufr_constants::rtwo3rd = real(two3rd)
	Two thirds.
real, parameter, public	sufr_constants::rpio4 = real(pio4)
	pi/4
real, parameter, public	sufr_constants::rpio2 = real(pio2)
	pi/2
real, parameter, public	sufr_constants::rpi = real(pi)
	pi
real, parameter, public	sufr_constants::rpi2 = real(pi2)
	2*pi
real, parameter, public	sufr_constants::rr2d = real(r2d)
	Radians to degrees.
real, parameter, public	sufr_constants::rd2r = real(d2r)
	Degrees to radians.
real, parameter, public	sufr_constants::rr2h = real(r2h)
	Radians to hours.
real, parameter, public	sufr_constants::rh2r = real(h2r)
	Hours to radians.
real, parameter, public	sufr_constants::rh2d = real(h2d)
	Hours to degrees.
real, parameter, public	sufr_constants::rd2h = real(d2h)
	Degrees to hours.
real, parameter, public	sufr_constants::rd2as = real(d2as)
	Degrees to arcseconds.
real, parameter, public	sufr_constants::ras2d = real(as2d)
	Arcseconds to degrees.
real, parameter, public	sufr_constants::rr2am = real(r2am)
	Radians to arcminutes.
real, parameter, public	sufr_constants::ram2r = real(am2r)
	Arcminutes to radians.
real, parameter, public	sufr_constants::rr2as = real(r2as)
	Radians to arcseconds.
real, parameter, public	sufr_constants::ras2r = real(as2r)
	Arcseconds to radians.
real, parameter, public	sufr_constants::rr2mas = real(r2mas)
	Radians to milliarcseconds.
real, parameter, public	sufr_constants::rmas2r = real(mas2r)
	Milliarcseconds to radians.
real, parameter, public	sufr_constants::rc2k = real(c2k)
	Degrees Celsius to Kelvin.
real(double), parameter, public	sufr_constants::pc_g = 6.67408d-8
	Newton's gravitational constant, cm^3 g^-1 s^-2.
real(double), parameter, public	sufr_constants::pc_c = 2.99792458d10
	Speed of light in vacuo, cm s^-1.
real(double), parameter, public	sufr_constants::pc_gr = 9.80665d2
	Mean gravitational acceleration at the Earth's surface, cm s^-2.
real(double), parameter, public	sufr_constants::pc_amu = 1.660539040d-24
	Atomic mass unit; (mass of C12 atom)/12, g.
real(double), parameter, public	sufr_constants::pc_mh = 1.007825d0*pc_amu
	Mass of a hydrogen atom.
real(double), parameter, public	sufr_constants::pc_kb = 1.38064852d-16
	Boltzmann constant, erg/K.
real(double), parameter, public	sufr_constants::pc_hp = 6.626070040d-27
	Planck's constant, erg s.
real(double), parameter, public	sufr_constants::pc_hbar = pc_hp/pi2
	Reduced Planck constant, erg s.
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.
real(double), parameter, public	sufr_constants::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	sufr_constants::ev = 1.6021766208d-12
	ElectronVolt in erg.
real(double), parameter, public	sufr_constants::nm = 1.d-7
	nanometer in cgs (cm)
real(double), parameter, public	sufr_constants::mum = 1.d-4
	micrometer in cgs (cm)
real(double), parameter, public	sufr_constants::mm = 1.d-1
	millimeter in cgs (cm)
real(double), parameter, public	sufr_constants::km = 1.d5
	kilometer in cgs (cm)
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.
real(double), parameter, public	sufr_constants::si_pc_c = pc_c * 1.d-2
	Speed of light in vacuo, 2.99792458d8 m s^-1.
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.
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.
real(double), parameter, public	sufr_constants::si_pc_mh = 1.007825d0*si_pc_amu
	Mass of a hydrogen atom.
real(double), parameter, public	sufr_constants::si_pc_kb = pc_kb * 1.d-7
	Boltzmann constant, 1.380658d-23 J/K.
real(double), parameter, public	sufr_constants::si_pc_hp = pc_hp * 1.d-7
	Planck's constant, 6.6260755d-34 J s.
real(double), parameter, public	sufr_constants::si_pc_hbar = si_pc_hp/pi2
	Reduced Planck constant, J s.
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.
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.
real(double), parameter, public	sufr_constants::si_ev = eV * 1.d-7
	Elementary (|electron|) charge in Coulomb; ElectronVolt: 1.6021766d-19 J.
real(double), parameter, public	sufr_constants::si_pc_ec = si_eV
	Elementary (|electron|) charge in Coulomb; ElectronVolt: 1.6021766d-19 J.
real(double), parameter, public	sufr_constants::si_nm = nm * 1.d-2
	nanometer in SI (m)
real(double), parameter, public	sufr_constants::si_mum = mum * 1.d-2
	micrometer in SI (m)
real(double), parameter, public	sufr_constants::si_mm = mm * 1.d-2
	millimeter in SI (m)
real(double), parameter, public	sufr_constants::si_km = km * 1.d-2
	kilometer in SI (m)
real(double), parameter, public	sufr_constants::au = 1.49597870700d13
	A.U. in cgs (IAU 2009 Resolution B2, IAU XXVIII GA 2012 - Astr.Almanac 2014)
real(double), parameter, public	sufr_constants::si_au = au * 1.d-2
	A.U. in SI (m)
real(double), parameter, public	sufr_constants::rsun = 6.9599d10
	Solar radius in cgs (cm)
real(double), parameter, public	sufr_constants::msun = 1.9891d33
	Solar mass in cgs (gm)
real(double), parameter, public	sufr_constants::lsun = 3.85d33
	Solar luminosity in cgs (erg/s)
real(double), parameter, public	sufr_constants::si_rsun = rsun * 1.d-2
	Solar radius in SI (m)
real(double), parameter, public	sufr_constants::si_msun = msun * 1.d-3
	Solar mass in SI (kg)
real(double), parameter, public	sufr_constants::si_lsun = lsun * 1.d-7
	Solar luminosity in SI (W)
real(double), parameter, public	sufr_constants::siday = 0.997269663d0
	Siderial day in days.
real(double), parameter, public	sufr_constants::solday = 8.64d4
	Solar day = 86400 s.
real(double), parameter, public	sufr_constants::solconst = 1361.5d0
	Solar constant in W/m^2.
real(double), parameter, public	sufr_constants::gregmonth = 30.4369d0 * solday
	Gregorian month in seconds: average calendar month length of 4800 months over 400 years.
real(double), parameter, public	sufr_constants::sidmonth = 27.321661547d0 * solday
	Sidereal month in seconds: fixed star to fixed star.
real(double), parameter, public	sufr_constants::tropmonth = 27.321582241d0 * solday
	Tropical month in seconds: equinox to equinox, influenced by precession.
real(double), parameter, public	sufr_constants::anomonth = 27.554549878d0 * solday
	Anomalistic month in seconds: apside to apside.
real(double), parameter, public	sufr_constants::dracmonth = 27.212220817d0 * solday
	Draconic month in seconds: node to node.
real(double), parameter, public	sufr_constants::synmonth = 29.530588853d0 * solday
	Synodic month in seconds: phase to phase.
real(double), parameter, public	sufr_constants::julyear = 365.25d0 * solday
	Julian year in seconds: assumes 100 leap years in 400 years.
real(double), parameter, public	sufr_constants::gregyear = 365.2425d0 * solday
	Gregorian year in seconds: assumes 97 leap years in 400 years.
real(double), parameter, public	sufr_constants::sidyear = 365.256363051d0 * solday
	Siderial year in seconds: fixed star to fixed star.
real(double), parameter, public	sufr_constants::tropyear = 365.24218967d0 * solday
	Tropical year in seconds: equinox to equinox, influenced by precession.
real(double), parameter, public	sufr_constants::anomyear = 365.259635864d0 * solday
	Anomalistic year in seconds: apside to apside.
real(double), parameter, public	sufr_constants::jd1875 = 2405890.d0
	JD at J1875.0 (when constellation boundaries were defined)
real(double), parameter, public	sufr_constants::jd1900 = 2415021.d0
	JD at J1900.0.
real(double), parameter, public	sufr_constants::jd1950 = 2433283.d0
	JD at J1950.0.
real(double), parameter, public	sufr_constants::jd2000 = 2451545.d0
	JD at J2000.0 (2000-01-01 12:00 UT)
real(double), parameter, public	sufr_constants::eps2000 = 0.409092804d0
	Obliquity of the ecliptic at J2000.0.
real(double), parameter, public	sufr_constants::earthr = 6378136.6d2
	Equatorial radius of the Earth in cm, WGS84.
real(double), parameter, public	sufr_constants::si_earthr = earthr * 1.d-2
	Equatorial radius of the Earth in cm, WGS84.
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)
real(double), dimension(0:9), public	sufr_constants::planr
	Planet equatorial radii (cm) = pland/2.d0.
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)
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):
real(double), dimension(0:9), public	sufr_constants::si_pland
	Planet equatorial diameters (m)
real(double), dimension(0:9), public	sufr_constants::si_planr
	Planet equatorial radii (m) = pland/2.d0.
real(double), dimension(0:9), parameter, public	sufr_constants::si_plana = plana(0:9) * 1.d-2
	Planet semi-major axes (m)
real(double), dimension(0:9), parameter, public	sufr_constants::si_planp = planp(0:9) * sidyear
	Planet orbital periods (s)
real(double), dimension(4:8, 30), public	sufr_constants::satrad
	Radii Galilean moons (cm)
real(double), dimension(4:8, 30), public	sufr_constants::satdiam
	Diameters Galilean moons (cm)
real(double), dimension(4:8, 30), public	sufr_constants::si_satrad
	Radii Galilean moons (m)
real(double), dimension(4:8, 30), public	sufr_constants::si_satdiam
	Diameters Galilean moons (m)
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.
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.
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".
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".
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.
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.
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.
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".
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".
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.
character, dimension(13), parameter, public	sufr_constants::enphases = ['New Moon ','First Quarter','Full Moon ','Last Quarter ']
	English names of Lunar phases.
character, dimension(16), parameter, public	sufr_constants::nlphases = ['Nieuwe Maan ','Eerste Kwartier ','Volle Maan ','Laatste Kwartier']
	Dutch names of Lunar phases.
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.
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.
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.
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.
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.
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.
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.
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.
character, dimension(9), parameter, public	sufr_constants::endays = ['Sunday ','Monday ','Tuesday ','Wednesday','Thursday ','Friday ','Saturday ']
	Capitalised day-of-week names in English.
character, dimension(3), parameter, public	sufr_constants::endys = ['Sun','Mon','Tue','Wed','Thu','Fri','Sat']
	Capitalised three-letter day-of-week abbreviations in English.
character, dimension(2), parameter, public	sufr_constants::ends = ['Su','Mo','Tu','We','Th','Fr','Sa']
	Capitalised two-letter day-of-week abbreviations in English.
character, dimension(9), parameter, public	sufr_constants::nldays = ['zondag ','maandag ','dinsdag ','woensdag ','donderdag','vrijdag ','zaterdag ']
	Lower-case day-of-week names in Dutch.
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.
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.
character, dimension(10), parameter, public	sufr_constants::nltimezones = ['wintertijd','zomertijd ']
	Timezone names in Dutch.
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)
integer, public	sufr_constants::currentyear
	Year at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currentmonth
	Month at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currentday
	Day at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currenthour
	Hour at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currentminute
	Minute at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currentsecond
	Second at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currentmillisecond
	Millisecond at system clock at the moment of initialisation (program start)
integer, public	sufr_constants::currentdow
	Day of week at system clock at the moment of initialisation (program start)
real(double), public	sufr_constants::currentjd
	Julian day at system clock at the moment of initialisation (program start)
real(double), public	sufr_constants::currenttz
	Time zone at system clock at the moment of initialisation (program start)
real(double), public	sufr_constants::currenttime
	Time in hours at system clock at the moment of initialisation (program start)
character, dimension(4), public	sufr_constants::currentyearstr
	Current year as a character string (system clock at initialisation)
character, dimension(10), public	sufr_constants::currentdatestr
	Current date as an unambiguous character string YYYY-MM-DD.
character, dimension(8), public	sufr_constants::currenttimestr
	Current time as a character string HH:MM:SS (system clock at initialisation)
character, dimension(9), public	sufr_constants::currenttimezonestr
	Current time zone as a character string UTC+_XX (system clock at initialisation)
character, dimension(29), public	sufr_constants::currentdatetimestr
	Current date, time and time zone as a character string (system clock at init)
character, dimension(10), public	sufr_constants::currentdatestren
	Current date as a US character string MM/DD/YYYY (system clock)
character, dimension(9), public	sufr_constants::currentdowstren
	Current English day of week as a character string (system clock)
character, dimension(39), public	sufr_constants::currentdatestrenl
	Current English date as long character string DayOfWeek Month DD YY (sys.clock)
character, dimension(10), public	sufr_constants::currentdatestrnl
	Current date as a Dutch/EU character string DD/MM/YYYY (system clock)
character, dimension(9), public	sufr_constants::currentdowstrnl
	Current Dutch day of week as a character string (system clock)
character, dimension(39), public	sufr_constants::currentdatestrnll
	Current Dutch date as a long character string DayOfWeek Month DD YY (sys.clock)
character, parameter, public	sufr_constants::tab = char(9)
	Tab character.
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.
character, dimension(9), parameter, public	sufr_constants::htmlgrchar = [character(len=9) :: 'α','β','γ','δ','ε','ζ','η','θ','ι', 'κ','λ','μ','ν','ξ','ο','π','ρ','σ','τ','υ','φ','χ','ψ','ω']
	HTML codes for lower-case Greek characters.
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)
character, dimension(4), parameter, public	sufr_constants::cursordown = char(27)//'[1B'
	Print this to move the cursor down one line (on screen)
character, dimension(4), parameter, public	sufr_constants::cursorright = char(27)//'[1C'
	Print this to move the cursor to the right one space.
character, dimension(4), parameter, public	sufr_constants::cursorleft = char(27)//'[1D'
	Print this to move the cursor to the left one space.
character, dimension(2), parameter, public	sufr_constants::newline = achar(13)//achar(10)
	Newline character: ASCII Carriage Return (13) + Line Feed (10)
integer, public	sufr_constants::stderr
	Default standard error unit for most (not all!) Fortran compilers.
integer, public	sufr_constants::stdin
	Default standard input unit for most (not all!) Fortran compilers.
integer, public	sufr_constants::stdout
	Default standard output unit for most (not all!) Fortran compilers.
character, dimension(199), public	sufr_constants::homedir
	Current user's home directory (= $HOME, will contain e.g. '/home/user')
character, dimension(199), public	sufr_constants::workdir
	Current working directory (= $PWD, may contain e.g. '/home/user/myCode/...')
character, dimension(99), public	sufr_constants::hostname
	Host name (= $HOSTNAME - not always exported)
character, dimension(99), public	sufr_constants::username
	Name of the current user (= $USER)
character, dimension(99), public	sufr_constants::userid
	ID of the current user (= $UID)
character, dimension(199), public	sufr_constants::program_name
	Name of the currently running program, without the path.
character, dimension(999), public	sufr_constants::program_path
	Path of the currently running program, without the program name.
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.

Detailed Description

Procedures to define and share constants.

Definition in file constants.f90.