Lines Matching defs:DISKIO

97       SUBROUTINE DISKIO  subroutine
174       ENTRY QOPEN(IUNIT,NAME,ATBUTE)
180 10      IF (LUNIT(J)) GOTO 20
189 20    IUNIT = J
268 30      CALL UGTENV('CCP4_EXTEND',MSG)
273 40      FAB(IUNIT).FAB$B_FAC = FAB$M_GET .OR. FAB$M_PUT .OR. FAB$M_BIO
385       ENTRY QCLOSE(IUNIT)
443       ENTRY QMODE(IUNIT,MODE,MCHITM)
468       ENTRY QREAD(IUNIT,ARRAY,NBYTES,IER)
469       ENTRY QREADR(IUNIT,ARRAY,NBYTES,IER)
470       ENTRY QREADI(IUNIT,ARRAY,NBYTES,IER)
471       ENTRY QREADQ(IUNIT,ARRAY,NBYTES,IER)
476  45   IF (IUNIT.GT.MAXNC .OR. IUNIT.LT.1)
509 50    NLEFT = NRECSZ(IUNIT) + 1 - NEL(IUNIT)
611 60    IF (ISTAT.NE.RMS$_EOF) THEN
620 100	IF (IER.EQ.0) THEN
697       ENTRY QWRITE(IUNIT,ARRAY,NBYTES)
698       ENTRY QWRITI(IUNIT,ARRAY,NBYTES)
699       ENTRY QWRITR(IUNIT,ARRAY,NBYTES)
700       ENTRY QWRITQ(IUNIT,ARRAY,NBYTES)
740 70    NLEFT = NSIZE1 - NEL(IUNIT)
842 80    CALL LIB$SYS_GETMSG(ISTAT,L,MSG)
852       ENTRY QBACK(IUNIT,LRECL)
877       ENTRY QSKIP(IUNIT,LRECL)
898       ENTRY QSEEK(IUNIT,IREC,IEL,LRECL)
913 90    IF (IVBLK.NE.NVBLK(IUNIT)) THEN
956       ENTRY QLOCATE(IUNIT,LOCATION)
975       ENTRY QQINQ(IUNIT,NAME,FILNAM,LENGTH)
995 	ENTRY QSETMS(IUNIT,MS,IRET)