gpamela/gpgar/bfield.inc

*
* $Id$
*
* $Log$
*
*
* bfield.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
       LOGICAL MAGOK
       REAL ALFA,B0X,B0Y,B0Z,SUSWIR,SUSGAS,BSCALE,BFMIN,BFMAX,
     -      BFXMIN,BFYMIN,BFZMIN,BFXMAX,BFYMAX,BFZMAX
       INTEGER MAGSRC,
     -      IBXTYP,IBYTYP,IBZTYP,
     -      IRB0X,IRB0Y,IRB0Z,IRV0X,IRV0Y,IRV0Z,
     -      IENB0X,IENB0Y,IENB0Z,IBXDIR,IBYDIR,IBZDIR,
     -      NCB0X,NCB0Y,NCB0Z
       CHARACTER*(MXCHAR) FUNB0X,FUNB0Y,FUNB0Z
       COMMON /MAGDAT/ ALFA,SUSWIR,SUSGAS,
     -      B0X,B0Y,B0Z,BSCALE,BFMIN,BFMAX,
     -      BFXMIN,BFYMIN,BFZMIN,BFXMAX,BFYMAX,BFZMAX,
     -      MAGSRC,IBXTYP,IBYTYP,IBZTYP,
     -      IRB0X,IRB0Y,IRB0Z,IRV0X,IRV0Y,IRV0Z,
     -      IENB0X,IENB0Y,IENB0Z,IBXDIR,IBYDIR,IBZDIR,
     -      NCB0X,NCB0Y,NCB0Z,
     -      MAGOK
       COMMON /MAGCHR/ FUNB0X,FUNB0Y,FUNB0Z
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* bfield.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			LOGICAL MAGOK
12			REAL ALFA,B0X,B0Y,B0Z,SUSWIR,SUSGAS,BSCALE,BFMIN,BFMAX,
13			- BFXMIN,BFYMIN,BFZMIN,BFXMAX,BFYMAX,BFZMAX
14			INTEGER MAGSRC,
15			- IBXTYP,IBYTYP,IBZTYP,
16			- IRB0X,IRB0Y,IRB0Z,IRV0X,IRV0Y,IRV0Z,
17			- IENB0X,IENB0Y,IENB0Z,IBXDIR,IBYDIR,IBZDIR,
18			- NCB0X,NCB0Y,NCB0Z
19			CHARACTER*(MXCHAR) FUNB0X,FUNB0Y,FUNB0Z
20			COMMON /MAGDAT/ ALFA,SUSWIR,SUSGAS,
21			- B0X,B0Y,B0Z,BSCALE,BFMIN,BFMAX,
22			- BFXMIN,BFYMIN,BFZMIN,BFXMAX,BFYMAX,BFZMAX,
23			- MAGSRC,IBXTYP,IBYTYP,IBZTYP,
24			- IRB0X,IRB0Y,IRB0Z,IRV0X,IRV0Y,IRV0Z,
25			- IENB0X,IENB0Y,IENB0Z,IBXDIR,IBYDIR,IBZDIR,
26			- NCB0X,NCB0Y,NCB0Z,
27			- MAGOK
28			COMMON /MAGCHR/ FUNB0X,FUNB0Y,FUNB0Z