NAME

userexit − user routine for intercepting FORTRAN runtime errors. 

SYNOPSIS

subroutine userexit(addr,errcode)
integer*4 addr
integer*2 errcode

DESCRIPTION

The routine userexit is called in the early stages of FORTRAN runtime error processing, prior to closing open files.  A dummy copy of userexit is provided in the FORTRAN library.  Users may perform their own cleanup operations by including a private version of userexit in their program. 

userexit is called with two parameters.  The first parameter, addr, is the address at which the error occurred.  The second parameter, errcode, is the FORTRAN error code.  FORTRAN run-time error codes with their corresponding messages are found in the file /usr/lib/ftnrterrs.

The routine userexit will only be called once.  If a FORTRAN runtime error is encountered after userexit has been called, the program will abort. 

FILES

/usr/lib/ftnrterrs

Version 3.6  —  December 20, 1987