gpamela/gpgar/celldata.inc

*
* $Id$
*
* $Log$
*
*
* celldata.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       CHARACTER*80 CELLID
       CHARACTER*3 TYPE
       CHARACTER WIRTYP(MXWIRE),PLATYP(5),
     -      PSLAB1(5,MXPSTR),PSLAB2(5,MXPSTR)
       LOGICAL YNPLAN(4),PERX,PERY,PERZ,YNPLAX,YNPLAY,YNMATX,YNMATY,
     -      POLAR,TUBE,PERMX,PERMY,PERMZ,PERAX,PERAY,PERAZ,
     -      PERRX,PERRY,PERRZ,CNALSO(MXWIRE),LBGFMP,CELSET
       INTEGER INDSW(MXWIRE),NWIRE,NSW,ICTYPE,MODE,NTUBE,MTUBE,
     -      NXMATT,NYMATT,N3D,NTERMB,NTERMP,IENBGF,
     -      INDPLA(5),NPSTR1(5),NPSTR2(5),
     -      INDST1(5,MXPSTR),INDST2(5,MXPSTR)
       REAL X(MXWIRE),Y(MXWIRE),V(MXWIRE),E(MXWIRE),D(MXWIRE),W(MXWIRE),
     -      U(MXWIRE),DENS(MXWIRE),
     -      COPLAN(4),VTPLAN(4),XMATT(MXMATT,5),YMATT(MXMATT,5),
     -      X3D(MX3D),Y3D(MX3D),Z3D(MX3D),E3D(MX3D),
     -      DOWN(3),PLSTR1(5,MXPSTR,3),PLSTR2(5,MXPSTR,3),
     -      COTUBE,VTTUBE,B2SIN(MXWIRE),P1,P2,C1,
     -      XMIN,YMIN,ZMIN,XMAX,YMAX,ZMAX,VMIN,VMAX,
     -      COPLAX,COPLAY,COMATX,COMATY,
     -      CORVTA,CORVTB,CORVTC,V0,SX,SY,SZ,
     -      KAPPA
       COMPLEX ZMULT,WMAP(MXWIRE)
       COMMON /CELDAT/ ZMULT,WMAP,X,Y,V,E,D,W,U,DENS,
     -      B2SIN,COPLAN,VTPLAN,XMATT,YMATT,X3D,Y3D,Z3D,E3D,DOWN,
     -      PLSTR1,PLSTR2,
     -      XMIN,YMIN,ZMIN,XMAX,YMAX,ZMAX,VMIN,VMAX,
     -      COPLAX,COPLAY,COMATX,COMATY,COTUBE,VTTUBE,
     -      CORVTA,CORVTB,CORVTC,V0,SX,SY,SZ,P1,P2,C1,KAPPA,
     -      INDSW,NWIRE,NSW,ICTYPE,MODE,NXMATT,NYMATT,NTUBE,MTUBE,
     -      N3D,NTERMB,NTERMP,IENBGF,
     -      INDPLA,NPSTR1,NPSTR2,INDST1,INDST2,
     -      YNPLAN,YNPLAX,YNPLAY,YNMATX,YNMATY,PERX,PERY,PERZ,
     -      POLAR,TUBE,PERMX,PERMY,PERMZ,PERAX,PERAY,PERAZ,CNALSO,
     -      PERRX,PERRY,PERRZ,LBGFMP,CELSET
       COMMON /CELCHR/ CELLID,WIRTYP,PLATYP,TYPE,PSLAB1,PSLAB2
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* celldata.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			CHARACTER*80 CELLID
12			CHARACTER*3 TYPE
13			CHARACTER WIRTYP(MXWIRE),PLATYP(5),
14			- PSLAB1(5,MXPSTR),PSLAB2(5,MXPSTR)
15			LOGICAL YNPLAN(4),PERX,PERY,PERZ,YNPLAX,YNPLAY,YNMATX,YNMATY,
16			- POLAR,TUBE,PERMX,PERMY,PERMZ,PERAX,PERAY,PERAZ,
17			- PERRX,PERRY,PERRZ,CNALSO(MXWIRE),LBGFMP,CELSET
18			INTEGER INDSW(MXWIRE),NWIRE,NSW,ICTYPE,MODE,NTUBE,MTUBE,
19			- NXMATT,NYMATT,N3D,NTERMB,NTERMP,IENBGF,
20			- INDPLA(5),NPSTR1(5),NPSTR2(5),
21			- INDST1(5,MXPSTR),INDST2(5,MXPSTR)
22			REAL X(MXWIRE),Y(MXWIRE),V(MXWIRE),E(MXWIRE),D(MXWIRE),W(MXWIRE),
23			- U(MXWIRE),DENS(MXWIRE),
24			- COPLAN(4),VTPLAN(4),XMATT(MXMATT,5),YMATT(MXMATT,5),
25			- X3D(MX3D),Y3D(MX3D),Z3D(MX3D),E3D(MX3D),
26			- DOWN(3),PLSTR1(5,MXPSTR,3),PLSTR2(5,MXPSTR,3),
27			- COTUBE,VTTUBE,B2SIN(MXWIRE),P1,P2,C1,
28			- XMIN,YMIN,ZMIN,XMAX,YMAX,ZMAX,VMIN,VMAX,
29			- COPLAX,COPLAY,COMATX,COMATY,
30			- CORVTA,CORVTB,CORVTC,V0,SX,SY,SZ,
31			- KAPPA
32			COMPLEX ZMULT,WMAP(MXWIRE)
33			COMMON /CELDAT/ ZMULT,WMAP,X,Y,V,E,D,W,U,DENS,
34			- B2SIN,COPLAN,VTPLAN,XMATT,YMATT,X3D,Y3D,Z3D,E3D,DOWN,
35			- PLSTR1,PLSTR2,
36			- XMIN,YMIN,ZMIN,XMAX,YMAX,ZMAX,VMIN,VMAX,
37			- COPLAX,COPLAY,COMATX,COMATY,COTUBE,VTTUBE,
38			- CORVTA,CORVTB,CORVTC,V0,SX,SY,SZ,P1,P2,C1,KAPPA,
39			- INDSW,NWIRE,NSW,ICTYPE,MODE,NXMATT,NYMATT,NTUBE,MTUBE,
40			- N3D,NTERMB,NTERMP,IENBGF,
41			- INDPLA,NPSTR1,NPSTR2,INDST1,INDST2,
42			- YNPLAN,YNPLAX,YNPLAY,YNMATX,YNMATY,PERX,PERY,PERZ,
43			- POLAR,TUBE,PERMX,PERMY,PERMZ,PERAX,PERAY,PERAZ,CNALSO,
44			- PERRX,PERRY,PERRZ,LBGFMP,CELSET
45			COMMON /CELCHR/ CELLID,WIRTYP,PLATYP,TYPE,PSLAB1,PSLAB2