GEANT321/geant321/gcjump.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:34  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCJUMP_INC
  10 #define CERNLIB_GEANT321_GCJUMP_INC
  11 *
  12 *
  13 * gcjump.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_TYPE)
  17 #include "geant321/gtjump.inc"
  18 #endif
  19       PARAMETER    (MAXJMP=30)
  20       COMMON/GCJUMP/JUDCAY, JUDIGI, JUDTIM, JUFLD , JUHADR, JUIGET,
  21      +              JUINME, JUINTI, JUKINE, JUNEAR, JUOUT , JUPHAD,
  22      +              JUSKIP, JUSTEP, JUSWIM, JUTRAK, JUTREV, JUVIEW,
  23      +              JUPARA
  24       DIMENSION     JMPADR(MAXJMP)
  25       EQUIVALENCE  (JMPADR(1), JUDCAY)
  26 *
  27 #endif
  28 *
  29 * gcjump.inc
  30 *
  31 #if defined(CERNLIB_INCLUDE)
  32 *
  33 #include "geant321/incbeg.inc"
  34      +   gcjump
  35 #include "geant321/incend.inc"
  36 #endif
  37
  38 #endif