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