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