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