SUBROUTINE	CLERR
C
C		Subroutine to write error messages
C
	INCLUDE	'CLCOMMON.FTN'			! Commons
	IF(IERR .EQ. 0) RETURN
D	WRITE(6,9999) IFUNC,IFSTAT,ISRC,IDST,ICNT,IFCNA,VALUE,VALUE1,
D	1	VALUE2,VALUES
D9999	FORMAT(6O15)
	JERR	= JERR + 1				!COUNTS NUMBER OF ERRORS
	OPEN(UNIT=3,NAME='LB:[1,2]CAMERR.MSG',READONLY,SHARED,
	1	TYPE='OLD')
	DO 56 J	= 1,200					!LOOK THRU 200 MESSAGES
	READ(3,9507,END=57,ERR=57) I,ITXT
	IF(I .NE. IERR) GO TO 56
	WRITE(6,9503) IERR,ITXT				!WRITE ERROR MESSAGE
	GO TO 58
56	CONTINUE
57	WRITE(6,9503) IERR				!WRITE MESSAGE WHEN NO ERROR TEXT
58	CONTINUE
	Close(unit=3)
	IF(IFUNC .NE. -2)
	1 WRITE(6,9504) (IBLANK,J=1,ISTOLD+INDENT-ISTRT0+1),
	2	(IUNDER,J=ISTOLD,ISTRT)
	LERR	= IERR					!SAVE ERROR FOR LATER
9504	FORMAT(9X,124A1)
9503	FORMAT(/' *** ERROR ***	'I7,110A1)
9507	FORMAT(I6,120A1)
	END