* * $Id$ * * $Log$ * * * gcjump.inc * #if defined(GPAMELA_TYPE) #include "gtjump.inc" #endif PARAMETER (MAXJMP=30) COMMON/GCJUMP/JUDCAY, JUDIGI, JUDTIM, JUFLD , JUHADR, JUIGET, + JUINME, JUINTI, JUKINE, JUNEAR, JUOUT , JUPHAD, + JUSKIP, JUSTEP, JUSWIM, JUTRAK, JUTREV, JUVIEW, + JUPARA DIMENSION JMPADR(MAXJMP) EQUIVALENCE (JMPADR(1), JUDCAY) * * * gcjump.inc * #if defined(GPAMELA_INCLUDE) * #include "incbeg.inc" + gcjump #include "incend.inc" #endif