SUBROUTINE ERROR (N)
C
      IMPLICIT LOGICAL*1 (B)
      DOUBLE PRECISION SYMBOL
      COMMON/PARAMS/LUNIN,LUNOUT,LUNCMD,BTAB,BSPC,NLINE,NSTMT,
     1ICLASS,BCHR,BLST,JSYM(2),NSYMTP,IPARNS,NPAGE,NLIST
      COMMON /INBUFR/INSIZ,INCNT,IOUTX,MCRSIZ,INFIL,IOUTFL,
     1BDPB(2),BUFR(80),BNAM(24),BTIME(8),BDATE(9),BX(1)
	COMMON /ERROR/ IERR
	COMMON /LINE/ LINE
      COMMON NSYM,NELM,KLIM,SYMBOL(2000)
C
	IF (LINE.EQ.100) CALL FRMCTL(0)
	IERR = IERR + 1
	GOTO	(10,20,90,90,90,90,90,90,90,30) N
10	WRITE	(LUNOUT,15) NSTMT
15	FORMAT	(' ******   Unrecognised Statement Type in Statement ',
	1	  I4,' ******')
	GOTO	900
20	WRITE	(LUNOUT,25) NSTMT
25	FORMAT	(' ******   Statement Syntax Error in Statement ',
	1	  I4,' ******')
	GOTO	900
30	WRITE	(LUNOUT,35) NSTMT
35	FORMAT	(' ******   Unbalanced Quotation Marks in Statement ',
	1	  I4,' ******')
	GOTO	900
90      WRITE(LUNOUT,100)N,NSTMT
100   FORMAT(' ******   SYNTAX ERROR  #',I4,' in Statement ',
	1	  I4,' ******')
900   CALL FRMCTL(1)
      RETURN
      END