Warning, /include/geant321/gcjloc.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:30 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCJLOC_INC
0010 #define CERNLIB_GEANT321_GCJLOC_INC
0011 *
0012 *
0013 * gcjloc.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 COMMON/GCJLOC/NJLOC(2),JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
0017 + ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
0018 + ,JMULOF,JCOEF,JRANG
0019 C
0020 INTEGER NJLOC ,JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
0021 + ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
0022 + ,JMULOF,JCOEF,JRANG
0023 C
0024 COMMON/GCJLCK/NJLCK(2),JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
0025 + ,JPOLAR,JTSTRA,JTSTCO,JTSTEN,JTASHO
0026 C
0027 EQUIVALENCE (JLASTV,JTSTEN)
0028 C
0029 INTEGER NJLCK,JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
0030 + ,JPOLAR,JLASTV,JTSTRA,JTSTCO,JTSTEN
0031 + ,JTASHO
0032 C
0033 #endif
0034 *
0035 * gcjloc.inc
0036 *
0037 #if defined(CERNLIB_INCLUDE)
0038 *
0039 #include "geant321/incbeg.inc"
0040 + gcjloc
0041 #include "geant321/incend.inc"
0042 #endif
0043
0044 #endif
