SUBROUTINE DOHDR2 C*********************************************************************** C C Author: Nick Bourgeois Version: 90j31a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Report HDR2 label record data. C C Write the tape block length to the output directory file. If a C write error occurs, set the error flag, display an error C message, and exit this subroutine. C C C Edit Record: C C 24-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C C C Calling sequence: C C LblRcd = C OutLun = C CALL DOHDR2 C C C Returns: C C Error C C C Called By: C C TDWORK C C*********************************************************************** INCLUDE 'TAPEDR.DAT' !Common & variables declarations WRITE (OutLun,*,ERR=850) 'Tape block length: ', * LblRcd(6:10) GOTO 900 850 CONTINUE Error = .TRUE. TYPE *, 'DOHDR2: write error' 900 CONTINUE RETURN END !DOHDR2.FOR.