gpamela/gcdes/gcjump.inc

*
* $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
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gcjump.inc
8	*
9	#if defined(GPAMELA_TYPE)
10	#include "gtjump.inc"
11	#endif
12	PARAMETER (MAXJMP=30)
13	COMMON/GCJUMP/JUDCAY, JUDIGI, JUDTIM, JUFLD , JUHADR, JUIGET,
14	+ JUINME, JUINTI, JUKINE, JUNEAR, JUOUT , JUPHAD,
15	+ JUSKIP, JUSTEP, JUSWIM, JUTRAK, JUTREV, JUVIEW,
16	+ JUPARA
17	DIMENSION JMPADR(MAXJMP)
18	EQUIVALENCE (JMPADR(1), JUDCAY)
19	*
20	*
21	* gcjump.inc
22	*
23	#if defined(GPAMELA_INCLUDE)
24	*
25	#include "incbeg.inc"
26	+ gcjump
27	#include "incend.inc"
28	#endif