C     -------------------------------------------------------
C     CREATION DATE : Thu Oct 31 16:30:24 1996
C     LAST MODIFIED : Thu Oct 31 16:56:39 1996
C     NAME : M 
C     AUTHOR : LI JU
C     
C     CHANGE LOG 
C     V1.0 : FIRST VERSION 
C     -------------------------------------------------------
      
C     here are the global variables of mp.f
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      
      PARAMETER (MAX_SOLENOID=30,MAX_TARGET=100)
      PARAMETER (MAX_POLY=20)
      PARAMETER (MAX_OP=MAX_SOLENOID*4*MAX_POLY)
      PARAMETER (MAX_WALL=40)

      COMMON /SOLENOID/ W(MAX_SOLENOID),B0(3*MAX_TARGET),
     a            A(MAX_POLY,4,MAX_SOLENOID),VX(MAX_SOLENOID),
     a            VY(MAX_SOLENOID),VZ(MAX_SOLENOID),
     a            DIST_SS(MAX_SOLENOID,MAX_SOLENOID),
     a            DERI_SS(MAX_SOLENOID,MAX_SOLENOID),
     a            DIST_SW(MAX_SOLENOID),DERI_SW(MAX_SOLENOID),
     a            TX(3,MAX_TARGET),WALL(6,MAX_WALL),
     a            SBX(MAX_TARGET,MAX_SOLENOID),TBX(MAX_TARGET), 
     a            SBY(MAX_TARGET,MAX_SOLENOID),TBY(MAX_TARGET),
     a            SBZ(MAX_TARGET,MAX_SOLENOID),TBZ(MAX_TARGET),
     a            ON(MAX_POLY,4,MAX_SOLENOID)
      LOGICAL ON
      
      COMMON /FLOAT/ ONE,ZERO,PI,TWO_THIRDS,AXMIN,AXMAX,AYMIN,AYMAX,
     a AZMIN,AZMAX,VALUEOLD,ARMAX,MAGNETIC_FLUCTUATION,SCALE_A,
     a scale_w, current_compensation, total_fluctuation 
      DOUBLE PRECISION MAGNETIC_FLUCTUATION 
      
      COMMON /INT/ NOP,ITER,K_OUT,K_WRITE,MPOLY(4,MAX_SOLENOID),MAXS,
     a             NT,MWALL,ISEED

      COMMON /CHAR/ BUF,NAME_READ,NAME_WRITE,NAME(4)
      CHARACTER *70 BUF,NAME_READ,NAME_WRITE,NAME

      COMMON /BOOLEAN/ TOUCH
      LOGICAL TOUCH
      
      DATA LP,LP_READ,LP_WRITE /25,26,27/