26 October   2023   6:22:17.600 PM      
 
newton_rc_test():
  FORTRAN77 version
  Test newton_rc().
  which solves a nonlinear equation
  using reverse communication.
 
TEST01
  Seek solution of F(X) = 0
 
  Initial Values:
 
     I      X               FX
 
     1     0.00000         1.00000    
     2     0.00000         4.00000    
     3     0.00000         9.00000    
     4     0.00000         16.0000    
 
|FX(  4)|=   16.0000    
|FX(  4)|=   4.00000    
|FX(  4)|=   1.00000    
|FX(  4)|=  0.250000    
|FX(  4)|=  0.625000E-01
|FX(  4)|=  0.156250E-01
|FX(  4)|=  0.390626E-02
|FX(  4)|=  0.976569E-03
|FX(  4)|=  0.244144E-03
|FX(  4)|=  0.610369E-04
|FX(  4)|=  0.152597E-04
|FX(  4)|=  0.381513E-05
|FX(  4)|=  0.953892E-06
 
  Convergence:
 
     I      X               FX
 
     1    0.999756        0.595974E-07
     2     1.99951        0.238397E-06
     3     2.99927        0.536398E-06
     4     3.99902        0.953892E-06
 
newton_rc_test():
  Normal end of execution.
 
26 October   2023   6:22:17.601 PM