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)