C*******************************************************
C
C	MTFCB.FTN  MAGTAPE FILE CONTROL BLOCK
C
	COMMON/MTFCB/MTLUN,TTLUN,KTBLK,KTFILE,
     1	LABFLG,TYPE(5),MAGERR
C
	INTEGER TTLUN
	LOGICAL*1 MAGERR,TYPE
C
C	MAGERR IS SET .TRUE. IN PROCEDURE RETURN-AFTER-ERROR
C	MTLUN  IS THE MAG TAPE LOGICAL UNIT
C	TTLUN  IS THE ERROR MESSAGE LOGICAL UNIT
C	       USED BY THE SUBROUTINE ERROR.
C	KTBLK  IS THE READ/WRITE BLOCK COUNT
C	KTFILE IS THE CURRENT FILE COUNT
C	LABFLG IS USED TO DETERMINE WHETHER THE DATA
C	       JUST READ WAS FROM THE DDF OR DF.
C	TYPE   IS USED TO DETERMINE WHETHER A TAPE IS
C	       TO BE READ OR WRITEN.
C
C*******************************************************
