SUBROUTINE FATAL (IFEHL)
	COMMON NERR,IERRS,LC,CC,DIN,FIN
	COMMON SYM,ID,INUM,RNUM,SLENG,CH,STRING
	COMMON STACK,BOTTOM,TOP,KITUM,KZEIGER,NIDEK,NZEIGER
	COMMON IC0,RC0,SC0,P0,I0,T0,GPUNKT
	COMMON ICZEIGER,RCZEIGER,PZEIGER,IZEIGER,TZEIGER,SCZEIGER
	COMMON ICTAB,RCTAB,SCTAB,SCZ,PTAB,PZ,ITAB,IZ,TTAB,TZ
	INTEGER PUNKT,GPUNKT,NPUNKT,INKITUM,INKI,INKI0,INKI1
	INTEGER NERR,IERRS(61,3),LC,CC
	INTEGER SYM,ID,INUM,SLENG,CH,STRING(80)
	INTEGER STACK(200),BOTTOM(10),TOP(10),KITUM(200,4)
	INTEGER NIDEK(100,2),NZEIGER,IC0,RC0,SC0,P0,I0,T0
	INTEGER ICZEIGER,RCZEIGER,PZEIGER,IZEIGER,TZEIGER,SCZEIGER
	INTEGER ICTAB(200),SCTAB(200),SCZ(50),PTAB(100),PZ(50)
	INTEGER ITAB(100),IZ(50),TTAB(400),TZ(50)
	REAL RNUM,RCTAB(50)
	LOGICAL LEER,DD,B
1	FORMAT(A2)	@INTERN INTEGER
2	FORMAT(I6)	@EXTERN INTEGER
3	FORMAT(A6)	@INTERN REAL
4	FORMAT(E15.7)	@EXTERN REAL
5	FORMAT(A1)	@CHARACTER
6	FORMAT(80A1)	@LINE
	WRITE(1,10)IFEHL
10	FORMAT('FATALER FEHLER NR. ',I5)
	NERR=NERR+1
	IERRS(NERR,1)=0
	IERRS(NERR,2)=LC
	IERRS(NERR,3)=CC
	CALL CHAIN('ERRORM')
	RETURN
	END