Warning, /include/geant321/gcjump.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:33 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCJUMP_INC
0010 #define CERNLIB_GEANT321_GCJUMP_INC
0011 *
0012 *
0013 * gcjump.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gtjump.inc"
0018 #endif
0019 PARAMETER (MAXJMP=30)
0020 COMMON/GCJUMP/JUDCAY, JUDIGI, JUDTIM, JUFLD , JUHADR, JUIGET,
0021 + JUINME, JUINTI, JUKINE, JUNEAR, JUOUT , JUPHAD,
0022 + JUSKIP, JUSTEP, JUSWIM, JUTRAK, JUTREV, JUVIEW,
0023 + JUPARA
0024 DIMENSION JMPADR(MAXJMP)
0025 EQUIVALENCE (JMPADR(1), JUDCAY)
0026 *
0027 #endif
0028 *
0029 * gcjump.inc
0030 *
0031 #if defined(CERNLIB_INCLUDE)
0032 *
0033 #include "geant321/incbeg.inc"
0034 + gcjump
0035 #include "geant321/incend.inc"
0036 #endif
0037
0038 #endif
