Warning, /include/geant321/gconsp.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:31 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCONSP_INC
0010 #define CERNLIB_GEANT321_GCONSP_INC
0011 *
0012 *
0013 * gconsp.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_SINGLE)
0017 REAL PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
0018 REAL EMMU,PMASS,AVO
0019 *
0020 PARAMETER (PI=3.14159265358979324)
0021 PARAMETER (TWOPI=6.28318530717958648)
0022 PARAMETER (PIBY2=1.57079632679489662)
0023 PARAMETER (DEGRAD=0.0174532925199432958)
0024 PARAMETER (RADDEG=57.2957795130823209)
0025 PARAMETER (CLIGHT=29979245800.)
0026 PARAMETER (BIG=10000000000.)
0027 PARAMETER (EMASS=0.00051099906)
0028 PARAMETER (EMMU=0.105658389)
0029 PARAMETER (PMASS=0.93827231)
0030 PARAMETER (AVO=0.60221367)
0031 *
0032 #endif
0033 #endif
0034 #if !defined(CERNLIB_INCLUDE)
0035 #if !defined(CERNLIB_SINGLE)
0036 DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
0037 DOUBLE PRECISION EMMU,PMASS,AVO
0038 *
0039 PARAMETER (PI=3.14159265358979324D0)
0040 PARAMETER (TWOPI=6.28318530717958648D0)
0041 PARAMETER (PIBY2=1.57079632679489662D0)
0042 PARAMETER (DEGRAD=0.0174532925199432958D0)
0043 PARAMETER (RADDEG=57.2957795130823209D0)
0044 PARAMETER (CLIGHT=29979245800.D0)
0045 PARAMETER (BIG=10000000000.D0)
0046 PARAMETER (EMASS=0.0005109990615D0)
0047 PARAMETER (EMMU=0.105658387D0)
0048 PARAMETER (PMASS=0.9382723128D0)
0049 PARAMETER (AVO=0.60221367D0)
0050 *
0051 #endif
0052 #endif
0053 *
0054 * gconsp.inc
0055 *
0056 #if defined(CERNLIB_INCLUDE)
0057 *
0058 #include "geant321/incbeg.inc"
0059 + gconsp
0060 #include "geant321/incend.inc"
0061 #endif
0062
0063 #endif
