*
* $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.)
*-----------------------------------------------------------------------