C
C
C	M D F I L E . C O M
C	-------------------
C
C  COMPONENT:	MASTER DIRECTORY FILE DEFINITION AND COMMON
C
C  DATE:	19-NOV-79
C
C
C
	PARAMETER	MDF = .TRUE.	! MDF PROCESSING ENABLED
C**	PARAMETER	MDF = .FALSE.	! MDF PROCESSING DISABLED
C
C
	PARAMETER	MDFFIL = '[0,0]000000.DIR'	! MDF FILSPEC
C
C
	BYTE	  MDFREC(16)		! MDF RECORD BUFFER
	INTEGER	  MDFFID		! MDF ENTRY FILE-ID NUMBER
	INTEGER	  MDFSEQ		! MDF ENTRY FILE SEQUENCE NUMBER
	INTEGER	  MDFNAM(3)		! MDF ENTRY FILE NAME
	INTEGER	  MDFTYP		! MDF ENTRY FILE TYPE
	INTEGER	  MDFVER		! MDF ENTRY FILE VERSION
C
	EQUIVALENCE (MDFFID,MDFREC(1))
	EQUIVALENCE (MDFSEQ,MDFREC(3))
	EQUIVALENCE (MDFNAM,MDFREC(7))
	EQUIVALENCE (MDFTYP,MDFREC(13))
	EQUIVALENCE (MDFVER,MDFREC(15))
C
C
	COMMON /MDFILE/ MDFREC
C
C