3C  NSKIPF:  FORTRAN INTERFACE FOR QIO SKIPFILE RTNE4C   IR=NSKIPF(LTAPE,N) WHERE N IS # FILES, LTAPE NOT1C   PRESENTLY IN USE.  ASSUMES TAPE DRIVE IS MSA03C   AND NO FILE IS OPEN ON TAPE.  FUNCTION RETURNS 8C   -(# FILES ACTUALLY SKIPPED) OR ERROR CODE FROM QIOW.)C  CALLS SYS$QIOW, SYS$ASSIGN, SYS$DASSGN0C     10/28/83  LOGICAL TAPE DRIVE NAME 'TDRIVE'.C@ RMX 5/11/82  FUNCTION MADE EXTERNAL 9/16/83      FUNCTION NSKIPF(LTAPE,N)      EXTERNAL IO$_SKIPFILE.      INTEGER*4 SYS$QIOW,SYS$ASSIGN,SYS$DASSGN      INTEGER*2 MCHAN,MIOSB(4)C)      NSKIPF=SYS$ASSIGN('TDRIVE',MCHAN,,)      IF (.NOT.NSKIPF) RETURN8      NSKIPF=SYS$QIOW(,%VAL(MCHAN),IO$_SKIPFILE,MIOSB,,,     1 %VAL(N),,,,,)"      IF (NSKIPF) NSKIPF=-MIOSB(2)       IR=SYS$DASSGN(%VAL(MCHAN))      RETURN	      END