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 m.f
      
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (MAX_SOLENOID=10,MAX_TARGET=200)
      PARAMETER (MAX_POLY=10,MAX_SINE=5)
      PARAMETER (MAX_OP=MAX_SOLENOID*(MAX_POLY+3*MAX_SINE+1))
      PARAMETER (MAX_WALL=40,CLOSE_UP=2., PENALTY=5000*5000)

      COMMON /SOLENOID/ W(MAX_SOLENOID),MPOLY(4,MAX_SOLENOID),
     a    A(MAX_POLY,4,MAX_SOLENOID),MSINE(4,MAX_SOLENOID),
     a    B(MAX_SINE,4,MAX_SOLENOID),C(MAX_SINE,4,MAX_SOLENOID),
     a    D(MAX_SINE,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)
      
      COMMON /OTHERS/ ONE,ZERO,PI,TWO_THIRDS,TX(3,MAX_TARGET),
     a       NOP,ITER,K_OUT,K_WRITE,MAXS,NT,WALL(6,MAX_WALL),MWALL,
     a       BX(MAX_TARGET,MAX_SOLENOID),BY(MAX_TARGET,MAX_SOLENOID),
     a       BZ(MAX_TARGET,MAX_SOLENOID),TBX(MAX_TARGET),
     a       TBY(MAX_TARGET),TBZ(MAX_TARGET),NAME(4),BUF,NAME_WRITE

      CHARACTER *70 BUF,NAME_READ,NAME_WRITE,NAME
      DATA LP,LP_READ,LP_WRITE /25,26,27/