C
      SUBROUTINE INIOP
C
C Subroutine INIOP: Initialise the parameters that control
C                   operation of the optimization subroutines.
C
C Update history:
C    V1.0    Original version                           18-Nov-1992
C
      IMPLICIT NONE
C
C Common block:
C    / OPHOLD / holds values of all control variables
C        CRVAR(i) = C*16(256) = name of variable i
C        VLMIN(i) = R*4(256)  = minimum value of variable i
C        VLDEF(i) = R*4(256)  = default value of variable i
C        VLMAX(i) = R*4(256)  = maximum value of variable i
C        VLSET(i) = R*4(256)  = set value of variable i
C        IINIT    = I*4       = flag set if initialization done
C
      COMMON /OPHOLD/ CRVAR,VLMIN,VLDEF,VLMAX,VLSET,IINIT
      CHARACTER*16    CRVAR(256)
      REAL*4          VLMIN(256),VLDEF(256),VLMAX(256),VLSET(256)
      INTEGER*4       IINIT
C
C Local variables:
C    I1 = I*4 = counting index
C
      INTEGER*4 I1
C
C Set names of variables and the corresponding values
C
      CRVAR(1)='GRIDS.NLOOP'
      VLMIN(1)=    1024
      VLDEF(1)=  131072
      VLMAX(1)=16777216
      VLSET(1)=VLDEF(1)
C
      CRVAR(2)='MONTE.NLOOP'
      VLMIN(2)=    1024
      VLDEF(2)=  131072
      VLMAX(2)=16777216
      VLSET(2)=VLDEF(2)
C
      CRVAR(3)='POWLL.NIMAX'
      VLMIN(3)=   32
      VLDEF(3)= 1024
      VLMAX(3)=32768
      VLSET(3)=VLDEF(3)
C
      CRVAR(4)='POWLL.EPS'
      VLMIN(4)=1.0E-09
      VLDEF(4)=1.0E-06
      VLMAX(4)=1.0E-03
      VLSET(4)=VLDEF(4)
C
      CRVAR(5)='SMPLX.ALPHA'
      VLMIN(5)= 0.1
      VLDEF(5)= 1.0
      VLMAX(5)= 2.0
      VLSET(5)=VLDEF(5)
C
      CRVAR(6)='SMPLX.BETA'
      VLMIN(6)= 0.05
      VLDEF(6)= 0.5
      VLMAX(6)= 1.0
      VLSET(6)=VLDEF(6)
C
      CRVAR(7)='SMPLX.GAMMA'
      VLMIN(7)= 1.1
      VLDEF(7)= 2.0
      VLMAX(7)=20.0
      VLSET(7)=VLDEF(7)
C
      CRVAR(8)='SMPLX.EPS'
      VLMIN(8)=1.0E-09
      VLDEF(8)=1.0E-06
      VLMAX(8)=1.0E-03
      VLSET(8)=VLDEF(8)
C
      CRVAR(9)='SMPLX.NIMAX'
      VLMIN(9)=    64
      VLDEF(9)=  2048
      VLMAX(9)=131072
      VLSET(9)=VLDEF(9)
C
      CRVAR(10)='SIMAN.TCHN'
      VLMIN(10)= 0.1000
      VLDEF(10)= 0.9800
      VLMAX(10)= 0.9999
      VLSET(10)=VLDEF(10)
C
      CRVAR(11)='SIMAN.NLOOP'
      VLMIN(11)=   32
      VLDEF(11)=  512
      VLMAX(11)= 8192
      VLSET(11)=VLDEF(11)
C
      CRVAR(12)='SIMAN.NSAMP'
      VLMIN(12)=   16
      VLDEF(12)=  256
      VLMAX(12)= 4096
      VLSET(12)=VLDEF(12)
C
      CRVAR(13)='SIMMU.TCHN'
      VLMIN(13)= 0.1000
      VLDEF(13)= 0.9500
      VLMAX(13)= 0.9999
      VLSET(13)=VLDEF(13)
C
      CRVAR(14)='SIMMU.NLOOP'
      VLMIN(14)=   64
      VLDEF(14)= 1024
      VLMAX(14)=16384
      VLSET(14)=VLDEF(14)
C
      CRVAR(15)='SIMMU.NSAMP'
      VLMIN(15)=   32
      VLDEF(15)=  512
      VLMAX(15)= 8196
      VLSET(15)=VLDEF(15)
C
      CRVAR(16)='SIMPO.TCHN'
      VLMIN(16)= 0.1000
      VLDEF(16)= 0.9500
      VLMAX(16)= 0.9999
      VLSET(16)=VLDEF(16)
C
      CRVAR(17)='SIMPO.NANNE'
      VLMIN(17)=  1
      VLDEF(17)= 16
      VLMAX(17)=256
      VLSET(17)=VLDEF(17)
C
      CRVAR(18)='SIMPO.NLOOP'
      VLMIN(18)=   16
      VLDEF(18)=  256
      VLMAX(18)= 4096
      VLSET(18)=VLDEF(18)
C
      CRVAR(19)='SIMPO.NSAMP'
      VLMIN(19)=   16
      VLDEF(19)=  128
      VLMAX(19)= 1024
      VLSET(19)=VLDEF(19)
C
      CRVAR(20)='SIMPU.TCHN'
      VLMIN(20)= 0.1000
      VLDEF(20)= 0.9500
      VLMAX(20)= 0.9999
      VLSET(20)=VLDEF(20)
C
      CRVAR(21)='SIMPU.NANNE'
      VLMIN(21)=   1
      VLDEF(21)=  16
      VLMAX(21)= 256
      VLSET(21)=VLDEF(21)
C
      CRVAR(22)='SIMPU.NLOOP'
      VLMIN(22)=   16
      VLDEF(22)=  256
      VLMAX(22)= 4096
      VLSET(22)=VLDEF(22)
C
      CRVAR(23)='SIMPU.NSAMP'
      VLMIN(23)=   16
      VLDEF(23)=  128
      VLMAX(23)= 1024
      VLSET(23)=VLDEF(23)
C
      DO I1=24,256
        CRVAR(I1)='null'
        VLMIN(I1)=0.0
        VLDEF(I1)=0.0
        VLMAX(I1)=0.0
        VLSET(I1)=0.0
      ENDDO
C
C Set initialization-done flag
C
      IINIT=1
C
C End
C
      RETURN
C
      END