20 December  2023   8:20:43.103 AM      

solve_test():
  Fortran77 version
  Test solve().

TEST01
  R8MAT_FS solves a linear system with Gauss elimination.
 
  Solution:
 
         1:    1.0000000    
         2:    2.0000000    
         3:    3.0000000    

solve_test():
  Normal end of execution.

20 December  2023   8:20:43.104 AM