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
