C  QIO.DCK to be included in subroutines using SYS$QIOW

	INTEGER*2 CHAN,STATUS(4)
	COMMON /QIO/ CHAN,STATUS