gpamela/gpgar/fieldmap.inc

*
* $Id$
*
* $Log$
*
*
* fieldmap.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       REAL EXMAP,EYMAP,EZMAP,EWXMAP,EWYMAP,EWZMAP,BXMAP,BYMAP,BZMAP,
     -      VMAP,XMAP,YMAP,ZMAP,XMMIN,XMMAX,YMMIN,YMMAX,ZMMIN,ZMMAX,
     -      XAMIN,XAMAX,YAMIN,YAMAX,ZAMIN,ZAMAX,
     -      VMMIN,VMMAX,EPSMAT,EPSSUR
       INTEGER MATMAP,NMAP,NEPS,MAPORD,MAPTYP,IDRMAT,INDEWS(MXWMAP),
     -      NWMAP
       LOGICAL MAPFLG,LMAPPL,SETAX,SETAY,SETAZ
       CHARACTER EWSTYP(MXWMAP)
       CHARACTER*10 MATSRC
       COMMON /FLDMAP/ VMAP(MXMAP,10),
     -      EXMAP(MXMAP,10),EYMAP(MXMAP,10),EZMAP(MXMAP,10),
     -      EWXMAP(MXMAP,10,MXWMAP),EWYMAP(MXMAP,10,MXWMAP),
     -      EWZMAP(MXMAP,10,MXWMAP),
     -      BXMAP(MXMAP,10),BYMAP(MXMAP,10),BZMAP(MXMAP,10),
     -      XMAP(MXMAP,4),YMAP(MXMAP,4),ZMAP(MXMAP,4),
     -      XMMIN,XMMAX,YMMIN,YMMAX,ZMMIN,ZMMAX,
     -      XAMIN,XAMAX,YAMIN,YAMAX,ZAMIN,ZAMAX,VMMIN,VMMAX,
     -      EPSMAT(MXEPS),EPSSUR(MXEPS),MATMAP(MXMAP),
     -      MAPFLG(10+3*MXWMAP),
     -      NMAP,NEPS,MAPORD,MAPTYP,IDRMAT,INDEWS,NWMAP,
     -      LMAPPL,SETAX,SETAY,SETAZ
       COMMON /FLDCHR/ EWSTYP,MATSRC
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* fieldmap.inc
8	*
9	*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10	*-- Author :
11	REAL EXMAP,EYMAP,EZMAP,EWXMAP,EWYMAP,EWZMAP,BXMAP,BYMAP,BZMAP,
12	- VMAP,XMAP,YMAP,ZMAP,XMMIN,XMMAX,YMMIN,YMMAX,ZMMIN,ZMMAX,
13	- XAMIN,XAMAX,YAMIN,YAMAX,ZAMIN,ZAMAX,
14	- VMMIN,VMMAX,EPSMAT,EPSSUR
15	INTEGER MATMAP,NMAP,NEPS,MAPORD,MAPTYP,IDRMAT,INDEWS(MXWMAP),
16	- NWMAP
17	LOGICAL MAPFLG,LMAPPL,SETAX,SETAY,SETAZ
18	CHARACTER EWSTYP(MXWMAP)
19	CHARACTER*10 MATSRC
20	COMMON /FLDMAP/ VMAP(MXMAP,10),
21	- EXMAP(MXMAP,10),EYMAP(MXMAP,10),EZMAP(MXMAP,10),
22	- EWXMAP(MXMAP,10,MXWMAP),EWYMAP(MXMAP,10,MXWMAP),
23	- EWZMAP(MXMAP,10,MXWMAP),
24	- BXMAP(MXMAP,10),BYMAP(MXMAP,10),BZMAP(MXMAP,10),
25	- XMAP(MXMAP,4),YMAP(MXMAP,4),ZMAP(MXMAP,4),
26	- XMMIN,XMMAX,YMMIN,YMMAX,ZMMIN,ZMMAX,
27	- XAMIN,XAMAX,YAMIN,YAMAX,ZAMIN,ZAMAX,VMMIN,VMMAX,
28	- EPSMAT(MXEPS),EPSSUR(MXEPS),MATMAP(MXMAP),
29	- MAPFLG(10+3*MXWMAP),
30	- NMAP,NEPS,MAPORD,MAPTYP,IDRMAT,INDEWS,NWMAP,
31	- LMAPPL,SETAX,SETAY,SETAZ
32	COMMON /FLDCHR/ EWSTYP,MATSRC