C xitsta - exit program with status SUBROUTINE XITSTA(STAT) C C 0 none, 1 success, 2 warning, 3 error, 4 severe error C INTEGER STAT, TR(5), LAST COMMON /XIT/ LAST COMMON/STATUS/ISTAT EXTERNAL EXITST DATA LAST/0/ DATA TR/ - 1, 1, 0, 2, 4/ IF (STAT .GT. LAST) LAST = STAT ISTAT = TR(LAST+1) CALL USEREX(EXITST) RETURN END