C********************************************************************** C SUBROUTINE IFERR C C ABNORMAL TERMINATION ROUTINE -- WHEN THE INTERFACE ROUTINES HIT C A FATAL ERROR THEY PRINT A MESSAGE DESCRIBING WHAT HAPPENED. C THEN THEY CALL THIS WHICH PRINTS OUT ALL INFORMATION C NEEDED TO RESTART RUN, THEN EXITS. C INCLUDE 'COMMON.FTN' C C Exit WRITE(ITYP,9004) IFSTAT,KICK 9004 FORMAT(' >> ABNORMAL TERMINATION OF AUTO <<',/, & ' > IFSTAT, KICK=',2I3) C C Print out most of the information including traceback. CALL STATUS STOP END