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	cafagna	3.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