7 September 2023   2:32:55.051 PM      
 
xerror_test():
  FORTRAN77 version
  Test xerror().
 
TEST01
  XERROR can be called when an error occurs.
 
      X        Sqrt ( X ) 
 
 
Warning in...
TEST01 - Illegal argument to SQRT
  Error number =          1
    0.912635    0.955319
    0.659019    0.811800
    0.123391    0.351270
 
Warning in...
TEST01 - Illegal argument to SQRT
  Error number =          1
 
Warning in...
TEST01 - Illegal argument to SQRT
  Error number =          1
 
Warning in...
TEST01 - Illegal argument to SQRT
  Error number =          1
 
Warning in...
TEST01 - Illegal argument to SQRT
  Error number =          1
 
Warning in...
TEST01 - Illegal argument to SQRT
  Error number =          1
    0.267931    0.517621
 
TEST02
  XGETF gets the error control flag.
  XSETF sets the error control flag.
  XERDMP prints an error message summary.
 
  By setting the error control flag KONTRL
  to 0, we may reduce the number of error
  messages printed out.
 
  Current value of KONTRL was        2
  Resetting KONTRL to                0
 
      X        Sqrt ( X ) 
 
    0.912635    0.955319
    0.659019    0.811800
    0.123391    0.351270
    0.267931    0.517621
 
  Call XERDMP to see what we missed.
 
         Error message summary
Message start             NERR     Level     Count
TEST01 - Illegal arg         1         0        12
 
 
xerror_test():
  Normal end of execution.
 
 7 September 2023   2:32:55.051 PM