cg_plus_test()
  Fortran77 tewst
  Test cg_plus().


 Conjugate Gradient Minimization Routine


 n      =     2
 method   =     3
 irest    =     1

 
*************************************************
 N=    2

INITIAL VALUES:
 F=  3.609D+03   GNORM=  4.954D+03
*************************************************

   I  NFN    FUNC       GNORM      STEPLEN    BETA
 ----------------------------------------------------
   1   4   2.236D+02   3.247D+02   4.6D-04   1.5D-02
   2   8   1.093D+00   2.203D+00   4.6D-03   1.1D-03
   3  18   2.740D-01   2.061D+00   2.6D-01   0.0D+00
   4  20   2.677D-01   8.559D-01   3.1D-03   2.4D-01
   5  25   1.527D-01   4.438D+00   2.5D-01   3.0D+01
   6  28   6.379D-02   4.946D+00   9.6D-03   0.0D+00
   7  32   4.633D-02   2.312D-01   1.4D-03   2.2D-03
   8  35   2.130D-02   2.835D+00   7.3D-01   1.5D+02
   9  39   5.082D-04   6.242D-01   6.6D-03   0.0D+00
  10  41   3.087D-04   3.551D-02   1.1D-03   5.3D-02
  11  43   2.997D-04   1.619D-01   8.3D-02   1.7D+01
  12  45   2.804D-04   3.626D-02   1.5D-03   0.0D+00
  13  47   2.795D-04   1.667D-02   1.2D-03   2.1D-01
  14  52   7.394D-06   1.211D-01   2.0D+00   5.6D+01
  15  54   4.471D-08   1.642D-03   1.0D-03   0.0D+00
  16  56   4.335D-08   1.872D-04   1.0D-03   1.3D-02
  17  60   1.909D-13   1.955D-05   2.5D+00   2.3D-02
  18  62   2.472D-16   1.437D-08   1.0D-03   0.0D+00

 SUCCESSFUL CONVERGENCE (NO ERRORS).
 IFLAG = 0

 f(x*) =  2.47204159D-16
 It took 1.600001D-04 CPU seconds


cg_plus_test()
  Normal end of execution.