GEANT321/geant321/gconsp.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:32  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCONSP_INC
  10 #define CERNLIB_GEANT321_GCONSP_INC
  11 *
  12 *
  13 * gconsp.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_SINGLE)
  17       REAL PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
  18       REAL EMMU,PMASS,AVO
  19 *
  20       PARAMETER (PI=3.14159265358979324)
  21       PARAMETER (TWOPI=6.28318530717958648)
  22       PARAMETER (PIBY2=1.57079632679489662)
  23       PARAMETER (DEGRAD=0.0174532925199432958)
  24       PARAMETER (RADDEG=57.2957795130823209)
  25       PARAMETER (CLIGHT=29979245800.)
  26       PARAMETER (BIG=10000000000.)
  27       PARAMETER (EMASS=0.00051099906)
  28       PARAMETER (EMMU=0.105658389)
  29       PARAMETER (PMASS=0.93827231)
  30       PARAMETER (AVO=0.60221367)
  31 *
  32 #endif
  33 #endif
  34 #if !defined(CERNLIB_INCLUDE)
  35 #if !defined(CERNLIB_SINGLE)
  36       DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
  37       DOUBLE PRECISION EMMU,PMASS,AVO
  38 *
  39       PARAMETER (PI=3.14159265358979324D0)
  40       PARAMETER (TWOPI=6.28318530717958648D0)
  41       PARAMETER (PIBY2=1.57079632679489662D0)
  42       PARAMETER (DEGRAD=0.0174532925199432958D0)
  43       PARAMETER (RADDEG=57.2957795130823209D0)
  44       PARAMETER (CLIGHT=29979245800.D0)
  45       PARAMETER (BIG=10000000000.D0)
  46       PARAMETER (EMASS=0.0005109990615D0)
  47       PARAMETER (EMMU=0.105658387D0)
  48       PARAMETER (PMASS=0.9382723128D0)
  49       PARAMETER (AVO=0.60221367D0)
  50 *
  51 #endif
  52 #endif
  53 *
  54 * gconsp.inc
  55 *
  56 #if defined(CERNLIB_INCLUDE)
  57 *
  58 #include "geant321/incbeg.inc"
  59      +   gconsp
  60 #include "geant321/incend.inc"
  61 #endif
  62
  63 #endif