C..   ERROR.FTN   BOHDEN K. CMAYL0   NOV 1981
C..
C..  ROUTINE TO PRINT ERRORS
C..
	SUBROUTINE ERROR(INPUT,KINPUT,MSG)
	BYTE BELL,IPER,INPUT(80),MSG(80)
	DATA BELL,IPER/7,'.'/
	DO 10 KMSG=1,80
	IF(MSG(KMSG).EQ.0) GO TO 11
	IF(MSG(KMSG).EQ.IPER.AND.MSG(KMSG+1).EQ.IPER) GO TO 11
10	CONTINUE
	KMSG=24
11	CONTINUE
	TYPE 1,BELL,(MSG(I),I=1,KMSG)
1	FORMAT('0*** ERROR *** ',80A1)
	IF(KINPUT.LE.0) RETURN
	TYPE 2,(INPUT(I),I=1,KINPUT)
2	FORMAT(' DATA:',80A1)
	RETURN
	END