C VERSION: 5-FEB-85 C C SUBROUTINE M T P U T (LUNPT, BUFPT, BUFPTL, BLKPT, 1 WAIT, IER) C C LOGICAL WAIT INCLUDE 'MTPUT.CMN' DATA IOWLB / "400/ ! Write Logical block CALL GETADR (PARPT(1), BUFPT) PARPT(2)= BUFPTL IER = 1 CALL QIO (IOWLB, LUNPT, LUNPT,, IOSPT, PARPT, IDS) IF (.NOT. WAIT) THEN GOTO 90 ! Return without waiting ELSE CALL WAITFR (LUNPT) END IF IF (IOSPT(1) .GT. 0) THEN GOTO 90 ! Return after waiting ELSE WRITE (6,6) IOSPT(1), IOSPT2(2), BLKPT+1 6 FORMAT (/' * FATAL * -- Tape write error', 1 /' IOS', T19, '= ', I5, 2 /' Byte count', T19, '= ', I5, 3 /' Block', T19, '= ', I5) IER = -1 END IF 90 RETURN END