gpamela/gcdes/gcstak.inc

*
* $Id$
*
* $Log$
*
*
* gcstak.inc
*
#if defined(GPAMELA_TYPE)
#include "gtstak.inc"
#endif
      PARAMETER (NWSTAK=12,NWINT=11,NWREAL=12,NWTRAC=NWINT+NWREAL+5)
      COMMON /GCSTAK/ NJTMAX, NJTMIN, NTSTKP, NTSTKS, NDBOOK, NDPUSH,
     +                NJFREE, NJGARB, NJINVO, LINSAV(15), LMXSAV(15)
      EQUIVALENCE (ISTORD,NJTMIN)
C
*
* gcstak.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcstak
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcstak.inc
8			*
9			#if defined(GPAMELA_TYPE)
10			#include "gtstak.inc"
11			#endif
12			PARAMETER (NWSTAK=12,NWINT=11,NWREAL=12,NWTRAC=NWINT+NWREAL+5)
13			COMMON /GCSTAK/ NJTMAX, NJTMIN, NTSTKP, NTSTKS, NDBOOK, NDPUSH,
14			+ NJFREE, NJGARB, NJINVO, LINSAV(15), LMXSAV(15)
15			EQUIVALENCE (ISTORD,NJTMIN)
16			C
17			*
18			* gcstak.inc
19			*
20			#if defined(GPAMELA_INCLUDE)
21			*
22			#include "incbeg.inc"
23			+ gcstak
24			#include "incend.inc"
25			#endif