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	*
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