C
C
C	M D F I L E . C O M
C	===================
C
C
C  COMPONENT:	MASTER DIRECTORY FILE DEFINITION AND COMMON
C  ---------
C
C  DATE:	27-FEB-80
C  ----
C
C  AUTHOR:	GR JOHNSON
C  ------	BATTELLE NORTHWEST
C		P O BOX 999
C		RICHLAND WA 99352
C
C  SOURCE:	FORTRAN IV-PLUS
C  ------
C
C
C  OPEN PARAMETERS:
C  ---------------
C
C	NAME		= MDFFNM
C	ACCESS		= 'DIRECT'
C	FORM		= 'UNFORMATTED'
C	RECORDSIZE	= 4
C
C
C  FILE NAME:
C  ---------
C
	PARAMETER MDFFNM = '[0,0]000000.DIR'
C
C
C  RECORD BUFFER:
C  -------------
C
	BYTE	  MDFREC(16)
C
C
C  RECORD DEFINITION:
C  -----------------
C
	INTEGER	  MDFFID		! ENTRY FILE-ID NUMBER
	INTEGER	  MDFSEQ		! ENTRY FILE SEQUENCE NUMBER
	INTEGER	  MDFNAM(3)		! ENTRY FILE NAME
	INTEGER	  MDFTYP		! ENTRY FILE TYPE
	INTEGER	  MDFVER		! 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
C  RECORD ACCESS POINTER:
C  ---------------------
C
	INTEGER	  MDFPNT
C
C
C  COMMON BLOCK DEFINITION:
C  -----------------------
C
	COMMON /MDFILE/ MDFREC,
	2		MDFPNT
C
C