30 November 2023   2:07:33.886 PM
 
fsolve_test():
  Fortran77 version
  Test fsolve()
  solve systems of nonlinear equations.
 
fsolve_test1():
  Solves a nonlinear system of 1 equation.
 
  Initial X and F(X)
 
         1:    0.00000        -5.00000    
 
  Satisfactory computation.
 
  Final X and F(X)
 
         1:    4.27523       -0.590983E-10
 
fsolve_test2():
  Solves a nonlinear system of 2 equations.
 
  Initial X and F(X)
 
         1:    3.00000        -13.0000    
         2:    0.00000         11.0000    
 
  Satisfactory computation.
 
  Final X and F(X)
 
         1:    1.00000       -0.961951E-10
         2:    1.00000       -0.123539E-09
 
fsolve_test3():
  Solves a nonlinear system of 4 equations.
 
  Initial X and F(X)
 
         1:    0.00000         1.00000    
         2:    0.00000         4.00000    
         3:    0.00000         9.00000    
         4:    0.00000         16.0000    
 
  Returned value of INFO =      4
 
  Final X and F(X)
 
         1:    1.00000        0.493038E-31
         2:    2.00000        0.197215E-30
         3:    3.00000         0.00000    
         4:    4.00000        0.788861E-30
 
fsolve_test4():
  Solve a nonlinear system of 8 equations.
 
  Initial X and F(X)
 
         1:    0.00000         1.00000    
         2:    0.00000         1.00000    
         3:    0.00000         1.00000    
         4:    0.00000         1.00000    
         5:    0.00000         1.00000    
         6:    0.00000         1.00000    
         7:    0.00000         1.00000    
         8:    0.00000         1.00000    
 
  Satisfactory computation.
 
  Final X and F(X)
 
         1:  -0.570470       -0.851213E-06
         2:  -0.681140        0.160753E-05
         3:  -0.700429       -0.116446E-05
         4:  -0.700672        0.174651E-06
         5:  -0.691736        0.110893E-05
         6:  -0.665768       -0.159886E-05
         7:  -0.596029        0.739477E-06
         8:  -0.416411       -0.560667E-07
 
predator_prey_be_test():

  Initial ||ym-yo-(tm-to)*dydt(tm,ym)||:
   9500.00    

  Final ||ym-yo-(tm-to)*dydt(tm,ym)||:
  0.370114E-04
 
predator_prey_tr_test():

  Initial residual:
   9500.00    

  Final residual:
  0.532268E-11
 
stiff_bdf2_test():

  Initial residual:
  0.474551    

  Final residual:
  0.333067E-15
 
stiff_be_test():

  Initial ||ym-yo-(tm-to)*dydt(tm,ym)||:
   12.1114    

  fsolve_be() returned error flag info =      4

  Final ||ym-yo-(tm-to)*dydt(tm,ym)||:
  0.666134E-15
 
stiff_tr_test():

  Initial residual:
   12.3057    

  fsolve_tr() returned error flag info =      4

  Final residual:
  0.444089E-15
 
fsolve_test():
  Normal end of execution.
 
30 November 2023   2:07:33.887 PM