gpamela/gpgar/xshapedata.inc

*
* $Id$
*
* $Log$
*
*
* xshapedata.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
*-----------------------------------------------------------------------
*   SHPDAT - Common blocks used by the wire sag routines.
*   VARIABLES : FX, FY      : Force as function of wire displacement
*               XSCAN, YSCAN: Wire displacements (abscissa of FX, FY)
*               NSCANX/Y    : Number of points in FX, FY, XSCAN, YSCAN
*               JSORD       : Force table interpolation order
*               NITMAX      : Maximum # of zero search iterations
*               EPS         : Used for building differential matrices
*               EPSX        : Positional convergence criterion
*               EPSF        : Function value convergence criterion
*               STEP        : Step size used by DRKNYS
*               NSHOT       : Number of shots
*               NSTEP       : Number of steps per shot
*               IW          : Wire currently studied
*               LFWARN      : Point found outside scanning grid
*               LFEXTR      : Permission to extrapolate force table
*               LFELEC      : Include or not electrostatics
*               LFGRAV      : Include or not gravity
*               LZROPR      : Print zero search progress
*               LFITER      : Iterate over all wires
*               NFITER      : Maximum number of all wire iterations
*               (XORIG,YORIG) Nominal wire positions
*               (XOFF,YOFF) : Wire position offsets
*               (XWIRE,YWIRE) Nominal position of the current wire
*   (Last changed on  3/ 7/96.)
*-----------------------------------------------------------------------
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* xshapedata.inc
8	*
9	*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10	*-- Author :
11	*-----------------------------------------------------------------------
12	* SHPDAT - Common blocks used by the wire sag routines.
13	* VARIABLES : FX, FY : Force as function of wire displacement
14	* XSCAN, YSCAN: Wire displacements (abscissa of FX, FY)
15	* NSCANX/Y : Number of points in FX, FY, XSCAN, YSCAN
16	* JSORD : Force table interpolation order
17	* NITMAX : Maximum # of zero search iterations
18	* EPS : Used for building differential matrices
19	* EPSX : Positional convergence criterion
20	* EPSF : Function value convergence criterion
21	* STEP : Step size used by DRKNYS
22	* NSHOT : Number of shots
23	* NSTEP : Number of steps per shot
24	* IW : Wire currently studied
25	* LFWARN : Point found outside scanning grid
26	* LFEXTR : Permission to extrapolate force table
27	* LFELEC : Include or not electrostatics
28	* LFGRAV : Include or not gravity
29	* LZROPR : Print zero search progress
30	* LFITER : Iterate over all wires
31	* NFITER : Maximum number of all wire iterations
32	* (XORIG,YORIG) Nominal wire positions
33	* (XOFF,YOFF) : Wire position offsets
34	* (XWIRE,YWIRE) Nominal position of the current wire
35	* (Last changed on 3/ 7/96.)
36	*-----------------------------------------------------------------------