SUBROUTINE TDQUIT 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 Shut things down, neat and clean. C C Write a blank line and an termination meaasge to the output C directory file. Close the output dev:filnam.ext. Call a C routine to rewind the magnetic tape to load point. C C C Edit Record: C C 12-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C C C Calling sequence: C C EndMsg = C MTDvNm = C OutLun = C Rewind = C CALL TDQUIT C C C Called By: C C TAPEDR C C C Routines Called: C C MTFOR C C*********************************************************************** INCLUDE 'TAPEDR.DAT' !Common & variables declarations WRITE (OutLun,*) WRITE (OutLun,*) EndMsg CLOSE (UNIT = OutLun) CALL MTFOR (MTDvNm,Rewind) RETURN END !TDQUIT.FOR.