C     N: NUMBER OF lattice in X(t)  (N=(XMAX-XMIN+2*LL)*64+1)
C     MINIMUM TICK IS 1/64
c      I0=(Z0-XMIN+LL)*64+1
      INTEGER NDATA,I0,N
      PARAMETER (NDATA=90000,N=785,I0=81)
      REAL*8 XMIN,Z0
      PARAMETER (XMIN=23.250d0, Z0=24.00D0)
      REAL*8 MUMIN,MUL,SGMIN,SGL,LT,LL,ROMIN,ROL
      REAL*8 BETA,ALPHA,LBDMIN,LBDL
      PARAMETER (MUMIN=-0.0000250d0,MUL=0.0001000d0)
      parameter (SGMIN=0.00050d0,SGL=0.0005d0)
      PARAMETER (LBDMIN=.250d-4,LBDL=1.0d-5)
      PARAMETER (ROMIN=0.194D0, ROL=0.004D0)
      PARAMETER (LL=0.500D0,LT=0.40d0)
      INTEGER NM,NS,NR,NL
      PARAMETER (NM=4, NS=22, NL=4, NR=4  )
      PARAMETER (BETA=0.20D0,ALPHA=0.40D0)