C C SUBROUTINE M T T M K (LUNPT, NTM, IER) INCLUDE 'MTPUT.CMN' DATA IOEOF /"3000/ ! Write tape mark C----------------------------------------------------------------------------- C C Write one or more tape marks C C----------------------------------------------------------------------------- IF (NTM .LE. 0) NTM = 1 DO 10 N= 1, NTM CALL WTQIO (IOEOF, LUNPT, LUNPT,, IOSPT) IF (IOSPT(1) .LT. 0) GOTO 900 10 CONTINUE IER = 1 GOTO 90 900 WRITE (6,901) IOSPT(1) 901 FORMAT (/' * FATAL * -- Tape-mark write error', 1 /' IOS', T19, '= ', I5) IER = -1 90 RETURN END