share/lbfgs/lb2.f

   1 C     ******
   2 C
   3 C
   4 C   ----------------------------------------------------------
   5 C     DATA
   6 C   ----------------------------------------------------------
   7 C
   8       BLOCK DATA LB2
   9       INTEGER LP,MP
  10       DOUBLE PRECISION GTOL,STPMIN,STPMAX
  11       COMMON /LB3/MP,LP,GTOL,STPMIN,STPMAX
  12       DATA MP,LP,GTOL,STPMIN,STPMAX/6,6,9.0D-01,1.0D-20,1.0D+20/
  13       END