SUBROUTINE CRQUIT C*********************************************************************** C C Author: Nick Bourgeois Version: 91f04a 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 Close the input file. Close the output file. C C C Edit Record: C C 24-Apr-91: Original creation started. C 04-Jun-91: Original creation completed. C C C Calling sequence: C C InLun = C OutLun = C CALL CRQUIT C C C Called By: C C CVRCDS C C*********************************************************************** INCLUDE 'CVRCDS.DAT' !Common & variables declarations CLOSE (UNIT=InLun) CLOSE (UNIT=OutLun) 900 CONTINUE RETURN END !CRQUIT.FOR.