Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/geant321/gcphys.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_GCPHYS_INC
0010 #define CERNLIB_GEANT321_GCPHYS_INC
0011 *
0012 *
0013 * gcphys.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016       COMMON/GCPHYS/IPAIR,SPAIR,SLPAIR,ZINTPA,STEPPA
0017      +             ,ICOMP,SCOMP,SLCOMP,ZINTCO,STEPCO
0018      +             ,IPHOT,SPHOT,SLPHOT,ZINTPH,STEPPH
0019      +             ,IPFIS,SPFIS,SLPFIS,ZINTPF,STEPPF
0020      +             ,IDRAY,SDRAY,SLDRAY,ZINTDR,STEPDR
0021      +             ,IANNI,SANNI,SLANNI,ZINTAN,STEPAN
0022      +             ,IBREM,SBREM,SLBREM,ZINTBR,STEPBR
0023      +             ,IHADR,SHADR,SLHADR,ZINTHA,STEPHA
0024      +             ,IMUNU,SMUNU,SLMUNU,ZINTMU,STEPMU
0025      +             ,IDCAY,SDCAY,SLIFE ,SUMLIF,DPHYS1
0026      +             ,ILOSS,SLOSS,SOLOSS,STLOSS,DPHYS2
0027      +             ,IMULS,SMULS,SOMULS,STMULS,DPHYS3
0028      +             ,IRAYL,SRAYL,SLRAYL,ZINTRA,STEPRA
0029       COMMON/GCPHLT/ILABS,SLABS,SLLABS,ZINTLA,STEPLA
0030      +             ,ISYNC
0031      +             ,ISTRA
0032 *
0033 #if defined(CERNLIB_TYPE)
0034 #include "geant321/gtphys.inc"
0035 #endif
0036 #endif
0037 *
0038 * gcphys.inc
0039 *
0040 #if defined(CERNLIB_INCLUDE)
0041 *
0042 #include "geant321/incbeg.inc"
0043      +   gcphys
0044 #include "geant321/incend.inc"
0045 #endif
0046 
0047 #endif