MINICERN/mathlib/gen/divon/settol.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:26  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE SETTOL (N,FTOL,GTOL,DELTA,ETA,ALFMAX,MAXFUN,IPRINT)
  11       INTEGER N, MAXFUN, IPRINT
  12       DOUBLE PRECISION FTOL, GTOL, DELTA, ETA, ALFMAX
  13       FTOL=5.0D-2
  14       GTOL=1.0D-2
  15       DELTA=1.0D-5
  16       ETA=0.2D+0
  17       ALFMAX=1.0D+2
  18       MAXFUN=50*N
  19       IPRINT=-1
  20       RETURN
  21       END