gpamela/gpgar/shapedata.inc

*
* $Id$
*
* $Log$
*
*
* shapedata.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       DOUBLE PRECISION FX(MXGRID,MXGRID),FY(MXGRID,MXGRID),
     -      XSCAN(MXGRID),YSCAN(MXGRID),EPS,EPSX,EPSF,STEP
       REAL XORIG(MXWIRE),YORIG(MXWIRE),XOFF(MXWIRE),YOFF(MXWIRE)
       INTEGER NITMAX,NSHOT,NSTEP,IW,NSCANX,NSCANY,JSORD,NFITER
       LOGICAL LFGRAV,LFELEC,LFEXTR,LFWARN,LZROPR,LFITER
       COMMON /SHPDAT/ FX,FY,XSCAN,YSCAN,EPS,EPSX,EPSF,STEP,
     -      XORIG,YORIG,XOFF,YOFF,
     -      NITMAX,NSHOT,NSTEP,IW,NSCANX,NSCANY,JSORD,NFITER,
     -      LFGRAV,LFELEC,LFEXTR,LFWARN,LZROPR,LFITER
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* shapedata.inc
8	*
9	*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10	*-- Author :
11	DOUBLE PRECISION FX(MXGRID,MXGRID),FY(MXGRID,MXGRID),
12	- XSCAN(MXGRID),YSCAN(MXGRID),EPS,EPSX,EPSF,STEP
13	REAL XORIG(MXWIRE),YORIG(MXWIRE),XOFF(MXWIRE),YOFF(MXWIRE)
14	INTEGER NITMAX,NSHOT,NSTEP,IW,NSCANX,NSCANY,JSORD,NFITER
15	LOGICAL LFGRAV,LFELEC,LFEXTR,LFWARN,LZROPR,LFITER
16	COMMON /SHPDAT/ FX,FY,XSCAN,YSCAN,EPS,EPSX,EPSF,STEP,
17	- XORIG,YORIG,XOFF,YOFF,
18	- NITMAX,NSHOT,NSTEP,IW,NSCANX,NSCANY,JSORD,NFITER,
19	- LFGRAV,LFELEC,LFEXTR,LFWARN,LZROPR,LFITER