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