C*	BANERR - ERROR ROUTINE FOR BANNER PROGRAM
C
	SUBROUTINE BANERR (IER)
C
 501	FORMAT (' FAILURE ON GETTSK DIRECTIVE')
 502	FORMAT (' ERROR 2 OR 3 SHOULD NEVER OCCUR !!')
 504	FORMAT (' FAILURE ON GETMCR DIRECTIVE')
 505	FORMAT (' FAILURE ON GETLUN DIRECTIVE')
C
	GO TO (1,2,3,4,5)	,IER
C
 1	WRITE (5, 501)
	GO TO 300
 2	CONTINUE
 3	CONTINUE
	WRITE (5, 502)
	GO TO 300
 4	WRITE (5, 504)
	GO TO 300
 5	WRITE (5, 505)
	GO TO 300
C
 300	CALL EXIT
	END