SUBROUTINE SDQUIT C*********************************************************************** C C Author: Nick Bourgeois Version: 90l05a 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 a termination message to the output file. C Close the output file. Call a routine to rewind the magnetic C tape. C C C Edit Record: C C 13-Nov-90: Original creation started. C 05-Dec-90: Original creation completed. C C C Calling sequence: C C EndMsg = C MTDvNm = C OutLun = C Rewind = C CALL SDINIT C C C Called By: C C SVSTDR C C C Routines Called: C C MTFOR C C*********************************************************************** INCLUDE 'SVSTDR.DAT' !Common & variables declarations WRITE (OutLun,*) WRITE (OutLun,*) EndMsg CLOSE (Unit = OutLun) CALL MTFOR (MTDvNm,Rewind) RETURN END !SDQUIT.FOR.