CTITLUEXIT                                                              00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C * * *   A T L A N T I C   R I C H F I E L D   C O M P A N Y   * * * * 00020000
C                                                                       00030000
C * * * * * * * * * *     S U B R O U T I N E     * * * * * * * * * * * 00040000
CA                                                                      00050000
CA TITLE       : UEXIT                                                  00060000
CA                                                                      00070000
CA AUTHOR      : PAUL FLATMAN                                           00080000
CA                                                                      00090000
CA DATE        : 12 OCT 1988                                            00100000
CA                                                                      00110000
CA SYSTEM      : IBM MVS/XA                                             00120000
CA                                                                      00130000
CA LANGUAGE    : VSFORTRAN                                              00140000
CA                                                                      00150000
CA FUNCTION    : SET COMPLETION STATUS FROM SPARC/UNISEC.               00160000
CA                                                                      00170000
CA  CALL UEXIT(N)                                                       00180000
CA                                                                      00190000
CA                                                                      00200000
CA  ARGUMENT-TYPE-DESCRIPTION                                           00210000
CA                                                                      00220000
CA  N        I4   LEVEL OF EXIT, USED BY STOP.                          00230000
CA                                                                      00240000
C                 U P D A T E  H I S T O R Y                            00250000
C                                                                       00260000
C DATE     BY    REASON                                                 00270000
C                                                                       00280000
C                                                                       00290000
C --------------------------------------                                00300000
C                                                                       00310000
      SUBROUTINE UEXIT(N)                                               00320000
C                                                                       00330000
      IMPLICIT INTEGER*4 (A-Z)                                          00340000
C                                                                       00350000
      DATA ZERRO / Z40000000 /                                          00350100
C                                                                       00350200
      COMMON / COMMEX / ECB(1)                                          00350300
C                                                                       00350400
      ECB(1) = ZERRO + N                                                00350500
      RETURN                                                            00350600
      END                                                               00350700