!     Initialization of model parameters

      K3H=0.0
      K3=0.0
      CG1H=0.0
      CG2H=0.0
      CG3H=0.0
      SLZ1MAX=0.0
      CLN=ALOG(1.0-K0)
      K0H=(-1.0)/CLN
      CLN=ALOG(1.0-K1)
      K1H=(-1.0)/CLN
      CLN=ALOG(1.0-K2)
      K2H=(-1.0)/CLN