C$IO	FID- OPEN A FILE BY ID AND SEQUENCE NUMBER FROM FORTRAN
C.	18-APR-80	P. H. CANNON
C	A PROGRAM TO ILLUSTRATE OPEN BY FILE ID
C
C	THIS PROGRAM ASSUMES THAT YOU ALREADY KNOW THE
C	FILE ID AND SEQUENCE NUMBER OF THE FILE YOU 
	WISH TO OPEN.
C
C
C
	INTEGER*2 FDB(64)
	INTEGER*2 LUN,HOC
	INTEGER*2 BUF(256)
C
C
	CALL INIT(FDB)
C	OPEN AN EXISTING FILE FOR WRITE
	HOC="402
	LUN=1
C	SET UP THE FILE ID AND FILE SEQUENCE NUMBER
C	THE N.FID FIELD OF THE FILE NAME BLOCK
C	THE FILE ID NUMBER
	FDB(34)="5351
C	THE FILE SEQUENCE NUMBER
	FDB(35)="7
C	RESERVED
	FDB(36)=0
C	THE DEVICE NAME
	FDB(47)="47104
C	THE UNIT NUMBER
	FDB(48)=1
	CALL OFID(FDB,HOC,LUN,IER)
	DO 1000 I=1,400
	DO 1100	J=1,256
1100	BUF(J)=I*2
	CALL DABWT(FDB,BUF,512,I,,IER)
1000	CONTINUE
	CALL CLOS(FDB)
	CALL EXIT
	END