generated from erosita/uds
61 lines
1.4 KiB
PHP
61 lines
1.4 KiB
PHP
c physical constants
|
|
c MG; Mon Nov 11 16:28:45 MSK 1996
|
|
|
|
|
|
c------ pi
|
|
real*8 pi,pi2,rg,gr
|
|
parameter (pi=3.14159265358979312d00,pi2=pi+pi,rg=180d0/pi,gr=1d0/rg)
|
|
|
|
c------ physical constants
|
|
real*8 sigthomson
|
|
parameter(sigthomson=6.65246d-25)
|
|
real*8 clight
|
|
parameter(clight=2.99792458d10)
|
|
real*8 mproton,melectron
|
|
parameter(mproton=1.6726231d-24,melectron=9.1093897d-28)
|
|
real*8 echarge
|
|
parameter(echarge=4.8032068d-10)
|
|
real*8 sigsb
|
|
parameter(sigsb=5.67051d-5)
|
|
real*8 kboltzmann
|
|
parameter(kboltzmann=1.380658d-16)
|
|
real*8 ggrav
|
|
parameter(ggrav=6.67259d-8)
|
|
real*8 hplanck
|
|
parameter(hplanck=6.6260755d-27)
|
|
real*8 msun
|
|
parameter (msun=1.9891d33)
|
|
real*8 rsun
|
|
parameter (rsun=6.9599d10)
|
|
real*8 lsun
|
|
parameter (lsun=3.845d33)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
c------ units conversions
|
|
c...... energy
|
|
real*8 kev2erg
|
|
parameter(kev2erg=1.602177d-9)
|
|
real*8 kev2hz
|
|
parameter(kev2hz=2.417965d17)
|
|
real*8 kev2kelvin
|
|
parameter(kev2kelvin=1.16048d7)
|
|
real*8 jy2erg
|
|
parameter(jy2erg=1d-23)
|
|
c...... flux
|
|
c flux[erg/s/cm^2/Hz] = ergcms_anstr2ergcms_hz_0 * lambda[Anstr]^2 * flux[erg/s/cm^2/A]
|
|
real*8 ergcms_anstr2ergcms_hz_0
|
|
parameter(ergcms_anstr2ergcms_hz_0=3.33d-19)
|
|
c...... lenth
|
|
real*8 pc2cm,kpc2cm,mpc2cm
|
|
parameter(pc2cm=3.085678d18,kpc2cm=1e3*pc2cm,mpc2cm=1e6*pc2cm)
|
|
c...... time
|
|
real*8 yr2sec
|
|
parameter(yr2sec=3.15576d7)
|
|
|
|
|