SUBROUTINE CLERR(IER,LENFO,LENFI,NO,NI)
C
C	This subroutine reports command line errors.
C	All errors are fatal.
C

	CALL ERRSET(91,,,,.FALSE.)	!Suppress computed goto message.
	IF(IER .EQ.1)CALL EXIT		!EOF (^Z) response to CBA>.
	IF(LENFO .GT. 0)GO TO 5		!OK, proceed.
	IER=-5				!No output file.
	GO TO 20			!Go to error processing.
5	IF(LENFI .GT. 0)GO TO 15	!OK, proceed.
	IER=-7				!No input file
	GO TO 20			!Go to error processing.
15	IF(NO .EQ. 1)GO TO 10		!OK, proceed.
	IF((IER .GT. -5) .AND. (IER .LT. 0))GO TO 20 !Go to error processing.
	IER=-5				!Assume no output file.
	IF(NO .GT. 1)IER=-6		!Or maybe too many output files.
	GO TO 20			!Go to error processing.
10	IF(NI .EQ. 1)GO TO 20		!OK, proceed.
	IER=-7				!Assume no input file.
	IF(NI .GT. 1)IER=-8		!Or maybe too many input files.
20	IER=-IER			!Make positive error number.
	IF(IER .EQ. 0)RETURN		!0 means no errors.
	GO TO (8010,8020,8030,8040,8050,8060,8070,8080)IER	!Pick one.
	TYPE 9000,IER			!
9000	FORMAT(1X,'CBA -- UNKNOWN ERROR:',I4)
	CALL EXIT			!
8010	TYPE 9010			!
9010	FORMAT(1X,'CBA -- SYNTAX ERROR')
	CALL EXIT			!
8020	TYPE 9020			!
9020	FORMAT(1X,'CBA -- I/O ERROR OR BAD INDIRECT FILE SPECIFICATION.')
	CALL EXIT			!
8030	TYPE 9030			!
9030	FORMAT(1X,'CBA -- WILD CARD IN FILE SPECIFICATION.')
	CALL EXIT			!
8040	TYPE 9040			!
9040	FORMAT(1X,'CBA -- ERROR IN CALLING COMMAND LINE PROCESSOR.')
	CALL EXIT			!
8050	TYPE 9050			!
9050	FORMAT(1X,'CBA -- NO OUTPUT FILE SPECIFIED.')
	CALL EXIT			!
8060	TYPE 9060			!
9060	FORMAT(1X,'CBA -- TOO MANY OUTPUT FILES SPECIFIED.')
	CALL EXIT			!
8070	TYPE 9070			!
9070	FORMAT(1X,'CBA -- NO INPUT FILE SPECIFIED.')
	CALL EXIT			!
8080	TYPE 9080			!
9080	FORMAT(1X,'CBA -- TOO MANY INPUT FILES SPECIFIED.')
	CALL EXIT			!
	END