gpamela/gcdes/gcpara.inc

*
* $Id$
*
* $Log$
*
*
* gcpara.inc
*
#include "gtpara.inc"
      PARAMETER (LSTACK = 5000)
C     BITPOT is for Phi.Or.Tet
C
C ---------------------------------------------------------
      COMMON    /GCPARA/
     +                   EPSIX0 (LSTACK)       ,
     +                   IDRPHI (LSTACK     )  , IDRTET (LSTACK     ),
     +                   IDROUT (LSTACK     )  , JPLOST (LSTACK     ),
     +                   IPHTMP (LSTACK     )  ,
     +                   BITPHI (LSTACK     )  , BITTET (LSTACK     ),
     +                   BITPOT (LSTACK     )  , JJLOST, JJFILL,
     +                                           JENTRY, JEMPTY,
     +                                           EPSMAX,
     +                   JJTEMP, JJWORK        , JJSTK1,
     +                   J1TEMP,                 J1STK1,
     +                   IFOUNP, IFOUNT        , IFNPOT,
     +                                           SYMPHI,
     +                   SYMTEU, SYMTED
C
*
* gcpara.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcpara
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcpara.inc
8			*
9			#include "gtpara.inc"
10			PARAMETER (LSTACK = 5000)
11			C BITPOT is for Phi.Or.Tet
12			C
13			C ---------------------------------------------------------
14			COMMON /GCPARA/
15			+ EPSIX0 (LSTACK) ,
16			+ IDRPHI (LSTACK ) , IDRTET (LSTACK ),
17			+ IDROUT (LSTACK ) , JPLOST (LSTACK ),
18			+ IPHTMP (LSTACK ) ,
19			+ BITPHI (LSTACK ) , BITTET (LSTACK ),
20			+ BITPOT (LSTACK ) , JJLOST, JJFILL,
21			+ JENTRY, JEMPTY,
22			+ EPSMAX,
23			+ JJTEMP, JJWORK , JJSTK1,
24			+ J1TEMP, J1STK1,
25			+ IFOUNP, IFOUNT , IFNPOT,
26			+ SYMPHI,
27			+ SYMTEU, SYMTED
28			C
29			*
30			* gcpara.inc
31			*
32			#if defined(GPAMELA_INCLUDE)
33			*
34			#include "incbeg.inc"
35			+ gcpara
36			#include "incend.inc"
37			#endif