gpamela/gpgar/xbfield.inc

*
* $Id$
*
* $Log$
*
*
* xbfield.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
*-----------------------------------------------------------------------
*   MAGDAT - Common block storing the information on the magnetic field.
*   VARIABLES : SUSWIR     : Magn. permeability of wire material.
*               SUSGAS     :   "          "        " gas.
*               ALFA       : (SUSWIR-SUSGAS)/(SUSWIR+SUSGAS).
*               B0X,B0Y,B0Z: Magnetic field components.
*               MAGOK      : Indicates that a magnetic field is present.
*               MAGSRC     : 0 = no field, 1 = above, 2 = field map
*               IB[XYZ]TYP : 0 = not set, 1 = fixed value, 2 = formula,
*                            3 = matrix interpolation.
*   (Last changed on 29/ 2/00.)
*-----------------------------------------------------------------------
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* xbfield.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			*-----------------------------------------------------------------------
12			* MAGDAT - Common block storing the information on the magnetic field.
13			* VARIABLES : SUSWIR : Magn. permeability of wire material.
14			* SUSGAS : " " " gas.
15			* ALFA : (SUSWIR-SUSGAS)/(SUSWIR+SUSGAS).
16			* B0X,B0Y,B0Z: Magnetic field components.
17			* MAGOK : Indicates that a magnetic field is present.
18			* MAGSRC : 0 = no field, 1 = above, 2 = field map
19			* IB[XYZ]TYP : 0 = not set, 1 = fixed value, 2 = formula,
20			* 3 = matrix interpolation.
21			* (Last changed on 29/ 2/00.)
22			*-----------------------------------------------------------------------