gpamela/gcdes/gcbank.inc

*
* $Id$
*
* $Log$
*
*
* gcbank.inc
*
#if defined(GPAMELA_TYPE)
#include "gtbank.inc"
#endif
      PARAMETER (KWBANK=69000,KWWORK=5200)
      COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
     +             ,LMAIN,LR1,WS(KWBANK)
      DIMENSION IQ(2),Q(2),LQ(8000),IWS(2)
      EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1))
      EQUIVALENCE (JCG,JGSTAT)
#include "gclink.inc"
*
* gcbank.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcbank
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcbank.inc
8			*
9			#if defined(GPAMELA_TYPE)
10			#include "gtbank.inc"
11			#endif
12			PARAMETER (KWBANK=69000,KWWORK=5200)
13			COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
14			+ ,LMAIN,LR1,WS(KWBANK)
15			DIMENSION IQ(2),Q(2),LQ(8000),IWS(2)
16			EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1))
17			EQUIVALENCE (JCG,JGSTAT)
18			#include "gclink.inc"
19			*
20			* gcbank.inc
21			*
22			#if defined(GPAMELA_INCLUDE)
23			*
24			#include "incbeg.inc"
25			+ gcbank
26			#include "incend.inc"
27			#endif