* * ************************************************************************ ************************************************************************ * * SUBROUTINE FINISH * * AST DELIVERY ROUTINE FOR TERMINATION MAILBOX * ************************************************************************ * IMPLICIT INTEGER(A-Z) * INTEGER*2 EXITMSG(100) INTEGER*2 IOSTATUS(4) INTEGER*2 MSG$_DELPROC /'3'X/ COMMON PIDADR COMMON IOSTATUS COMMON EXITMSG EXTERNAL SS$_NORMAL * * T1 = %LOC(SS$_NORMAL) IF(IOSTATUS(1).NE.T1) CALL LIB$SIGNAL(%VAL(IOSTATUS(1))) * * TYPE *,EXITMSG(1),EXITMSG(2),EXITMSG(3) * IF (EXITMSG(1).NE.MSG$_DELPROC) THEN * TYPE *,'NOT A TERMINATION MAILBOX' * ENDIF * * IF (IOSTATUS(2).NE.PIDADR) THEN * TYPE *,'NOT MY PID' * GO TO 100 * * ELSE WRITE (*,10) 10 FORMAT (1X,'BOOST>EXIT NORMAL') * ENDIF * 100 CALL EXIT END