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(0:4), LAST COMMON/STATUS/ISTAT EXTERNAL EXITST DATA LAST/0/ DATA TR/ - 1, 1, 0, 2, 4/ LAST = MAX(LAST, STAT) ISTAT = TR(LAST) CALL USEREX(EXITST) RETURN END