FXOPT - alter default actions on a run-time error.

Usage:

CALL FXOPT( NCODE, I1, I2, I3 )

Where:

NCODE: is the run-time error code, as shown in the table of FXEM error codes in GCOS-8 Fortran documentation.
I1: indicates whether or not execution should continue after the run-time error. Execution will continue if I1 is 1; if it is zero, the program will exit with a Q6 abort.
I2: indicates whether or not to print an error message after a run-time error. The message will not be printed if I2 is 1; if it is zero, the message will be printed, along with a traceback.
I3: indicates whether or not to use the alternate error procedure when a run-time error occurs. If I3 is 1, the program will make a call to FXALT; if I3 is 9, it will make a normal return.

Examples:

call fxopt( 32, 0, 1, 0 ): forces a Q6 abort if error 32 occurs.
call fxopt( 32, 1, 0, 0 ): causes execution to continue after message printed.

Description:

You can use FXOPT to change what the Fortran run-time routines do when they encounter any one of a variety of errors. This is handy if you want to suppress the printing of an error message or if you want to force an abort if the error occurs.