C     N: NUMBER OF lattice in X(t)  (N=(XMAX-XMIN+2*LL)*32+1)
C     MINIMUM TICK IS 1/32
c      I0=(Z0-XMIN+LL)*32+1
      INTEGER NDATA,I0,N
      PARAMETER (NDATA=32500,N=385,I0=97)
      REAL*8 XMIN,Z0
      PARAMETER (XMIN=81.00d0, Z0=83.00D0)
      REAL*8 MUMIN,MUL,SGMIN,SGL,LT,LL,ROMIN,ROL,BETA,ALPHA
      PARAMETER (MUMIN=-20.0d-8,MUL=10.0d-8)
      parameter (SGMIN=1.110d-4,SGL=0.0250d-4)
      PARAMETER (ROMIN=0.190D0, ROL=0.003D0)
      PARAMETER (LL=1.00D0,LT=1d0)
      INTEGER NM,NS,NR
      PARAMETER (NM=8, NS=8, NR=8  )
      PARAMETER (BETA=0.0660D0,ALPHA=0.2250D0, GAMMA=0.30d0)
c     mu=4.40d-8, sg=1.2d-4), ro=0.2, XMAX=91