.TITLE	I/O FUNCTION CODES
;
;  THIS IS A BLOCK DATA SUBPROGRAM TO PROVIDE FORTRAN ACCESS
;  TO THE QIO FUNCTION CODES. THIS INITIALIZES THE NAMED COMMON BLOCK
;  /IOFUNS/ TO CONTAIN THE CODES REQUIRED FOR USE IN FORTRAN CALL QIO
;  STATEMENTS.
;
;  STANDARD QIO FUNCTIONS :
	.GLOBL	IO.ATT, IO.DET, IO.KIL, IO.RLB, IO.RVB, IO.WLB, IO.WVB
;
;  DEVICE SPECIFIC QIO FUNCTIONS FOR MAG TAPE :
	.GLOBL	IO.EOF, IO.RWD, IO.RWU, IO.SEC, IO.SMO, IO.SPB, IO.SPF
	.GLOBL	IO.STC
;
;
;  IMPLEMENTED APRIL '77 BY	J. R. SOPKA
;					APPLIED PHYSICS LAB, HN-10
;					UNIVERSITY OF WASHINGTON
;					SEATTLE, WASHINGTON, 98195
	.PSECT	IOFUNS,RW,D,GBL,REL,OVR
;
;
;
IOATT:	IO.ATT
IODET:	IO.DET
IOKIL:	IO.KIL
IORLB:	IO.RLB
IORVB:	IO.RVB
IOWLB:	IO.WLB
IOWVB:	IO.WVB
;
IOEOF:	IO.EOF
IORWD:	IO.RWD
IORWU:	IO.RWU
IOSEC:	IO.SEC
IOSMO:	IO.SMO
IOSPB:	IO.SPB
IOSPF:	IO.SPF
IOSTC:	IO.STC
;
;	.THE
	.END