FORTRAN, Intrinsic Procedures, ERRSNS
*Conan The Librarian
ERRSNS ([io-err] [,sys-err] [,stat] [,unit] [,cond]) Class: Subroutine Returns information about the last Fortran error that occurred. The arguments are all return values and must be defined as integer variables or array elements: io-err Stores the most recent Fortran error number that occurred during program execution. The value is zero if no error has occurred. sys-err Stores the most recent RMS STS status code. stat Stores the most recent RMS STV status value. This status value provides additional status information. unit Stores the logical unit number (if the last the last error was an I/O error). cond Stores the actual processor value. This value is always zero. If you specify INTEGER*2 arguments, only the low-order 16 bits of information are returned or adjacent data can be overwritten. Because of this, it is best to use INTEGER*4 arguments. The saved error information is set to zero after each call to ERRSNS.