SUBROUTINE DOEOF1 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 EOF1 label record data. C C Write the total number of tape records followed by a blank line C to the output directory file. If a write error occurs, set the C error flag, display an error message, and exit this subroutine. C C C Edit Record: C C 25-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C C C Calling sequence: C C LblRcd = C OutLun = C CALL DOEOF1 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) 'Number of tape blocks: ', * LblRcd(55:60) WRITE (OutLun,*,ERR=850) GO TO 900 850 CONTINUE Error = .TRUE. TYPE *, 'DOEOF1: write error' 900 CONTINUE RETURN END !DOEOF1.FOR.