C xitsta - set program exit status SUBROUTINE XITSTA(STAT) INTEGER STAT C C stat should be 0-4 to indicate one of the following conditions: C 0 none, 1 success, 2 warning, 3 error, 4 severe error C the worst status in successive calls to xitsta is remembered by C xitsta and an exit with that status done at program termination. C C this code is system dependent, and is not included here. C RETURN END