********************** begin: gen_constants.par ******************************* * $Log: gen_constants.par,v $ * Revision 1.5 1998/12/07 22:11:23 saw * Initial setup * * Revision 1.4 1995/05/22 19:13:19 cdaq * (SAW) Add "nucleon" mass * * Revision 1.3 1994/06/14 03:36:50 cdaq * (DFG) Add electron mass * * Revision 1.2 1994/02/08 04:23:05 cdaq * Small fix * * Revision 1.1 1994/02/07 20:06:14 cdaq * Initial revision * * * general purpose constants * real TT parameter (TT= 3.141592653) !pi- a fundamental constant * real infinity parameter (infinity= 9.9999E+29) !practical infinity * *-energy units real GeV,MeV,KeV,eV parameter (GeV= 1.) !GeV standard hallC energy unit parameter (MeV= 0.001*GeV) !MeV parameter (KeV= 0.001*MeV) !KeV parameter (eV= 0.001*KeV) !eV * *-time units real nanoSec,microSec,milliSec,Second,picoSec parameter (nanoSec= 1.) !nS std. hallC time unit parameter (microSec= 1000.*nanoSec) !uS parameter (milliSec= 1000.*microSec) !mS parameter (Second= 1000.*milliSec) !second parameter (picoSec= 0.001*nanoSec) !pS * *-distance units real centimeter,meter,millimeter,micron,inch,foot,mil parameter (centimeter= 1.) !cm standard hallC distance unit parameter (meter= 100.*centimeter) !m parameter (millimeter= 0.1*centimeter) !mm parameter (micron= 0.001*millimeter) !um parameter (inch= 2.540*centimeter) !US in. parameter (foot= 12.0*inch) !US ft. parameter (mil= 0.001*inch) !US mil * *-angle units real radian,degree parameter (radian= 1.) !standard hallC angle unit parameter (degree= TT/180.*radian) !radians/degree * *-magnetic field units real Tesla,Kgauss,gauss parameter (Tesla= 1.) !standard hallC unit parameter (Kgauss= 0.1*Tesla) parameter (gauss= 0.001*Kgauss) * real speed_of_light parameter (speed_of_light= 29.9792458*centimeter/nanoSec) * real index_of_refraction parameter (index_of_refraction= 1.581) !plastic scint. n real speed_in_plastic parameter (speed_in_plastic= speed_of_light/index_of_refraction) * real*4 mass_electron parameter (mass_electron = 0.000510999) real*4 mass_nucleon parameter (mass_nucleon = 0.93827) real*4 m_amu parameter (m_amu = 0.9315016) ************************ end: gen_constants.par ******************************* * Local Variables: * mode: fortran * End: