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	*
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	*-----------------------------------------------------------------------