SPL,L,M,O,T,C NAME .XEC(8) "REV G 770324" ! ! KEYBOARD INPUT/OUTPUT INTERFACE ROUTINE(RTE) ! LET ABRTF BE INTEGER,EXTERNAL LET EXEC,DIAG BE SUBROUTINE,EXTERNAL LET INLU BE INTEGER,EXTERNAL LET IAILU BE INTEGER,EXTERNAL ! .XEC: SUBROUTINE(RCODE,BUFR,N) GLOBAL IF RCODE=2 THEN GO TO OK IFNOT (ABRTF AND 2) THEN GOTO OK !CHECK "ABORT" FLAG ! ! CALL DIAGNOSTIC ROUTINE TO CLOSE FILES AND ! PURGE OUTPUT FILES. ! CALL DIAG(21) ! OK: LU _ [IFNOT IAILU THEN 401K, ELSE (INLU OR 400K)] CALL EXEC(RCODE,LU,BUFR,N);RETURN END END END$