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	cafagna	3.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