GEANT321/geant321/gcjloc.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:31  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCJLOC_INC
  10 #define CERNLIB_GEANT321_GCJLOC_INC
  11 *
  12 *
  13 * gcjloc.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16       COMMON/GCJLOC/NJLOC(2),JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
  17      +                  ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
  18      +                  ,JMULOF,JCOEF,JRANG
  19 C
  20       INTEGER       NJLOC   ,JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
  21      +                  ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
  22      +                  ,JMULOF,JCOEF,JRANG
  23 C
  24       COMMON/GCJLCK/NJLCK(2),JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
  25      +                      ,JPOLAR,JTSTRA,JTSTCO,JTSTEN,JTASHO
  26 C
  27       EQUIVALENCE (JLASTV,JTSTEN)
  28 C
  29       INTEGER       NJLCK,JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
  30      +                   ,JPOLAR,JLASTV,JTSTRA,JTSTCO,JTSTEN
  31      +                   ,JTASHO
  32 C
  33 #endif
  34 *
  35 * gcjloc.inc
  36 *
  37 #if defined(CERNLIB_INCLUDE)
  38 *
  39 #include "geant321/incbeg.inc"
  40      +   gcjloc
  41 #include "geant321/incend.inc"
  42 #endif
  43
  44 #endif