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=10,N=593,I0=129) REAL*8 XMIN,Z0,XL PARAMETER (XMIN=79.00d0, Z0=80.00D0,XL=0.01562500d0) C FOR MODEL: GBM INTEGER NM1,NS1,NR1 PARAMETER (NM1=4, NS1=45, NR1=4) REAL*8 MU1MIN,MU1L,SG1MIN,SG1L,RO1MIN,RO1L PARAMETER (MU1MIN=-0.50d-6,MU1L=0.50d-6) parameter (SG1MIN=0.000010d0,SG1L=0.000010d0) PARAMETER (RO1MIN=0.194D0, RO1L=0.004D0) C FOR MODEL: JSV-GBM INTEGER NM2,NS2,NR2,NL2 PARAMETER (NM2=4, NS2=45, NL2=4, NR2=4 ) REAL*8 MU2MIN,MU2L,SG2MIN,SG2L,RO2MIN,RO2L,LBD2MIN,LBD2L PARAMETER (MU2MIN=-0.50d-6,MU2L=0.50d-6) parameter (SG2MIN=0.000010d0,SG2L=0.000010d0) PARAMETER (LBD2MIN=2.50d-4,LBD2L=1.0d-4) PARAMETER (RO2MIN=0.194D0, RO2L=0.004D0) REAL*8 LT,LL,BETA,ALPHA PARAMETER (LL=1.00D0,LT=0.10d0) PARAMETER (BETA=0.20D0,ALPHA=0.40D0)