HERWIG/jimmy/divon4/settol.F

   1 *CMZ :          23/08/93  13.30.10  by  Jonathan Butterworth
   2 *-- Author :
   3       SUBROUTINE SETTOL (N,FTOL,GTOL,DELTA,ETA,ALFMAX,MAXFUN,IPRINT)
   4       INTEGER N, MAXFUN, IPRINT
   5       DOUBLE PRECISION FTOL, GTOL, DELTA, ETA, ALFMAX
   6       SAVE
   7       FTOL=5.0D-2
   8       GTOL=1.0D-2
   9       DELTA=1.0D-5
  10       ETA=0.2D+0
  11       ALFMAX=1.0D+2
  12       MAXFUN=50*N
  13       IPRINT=-1
  14       RETURN
  15       END