SUBROUTINE CRINIT 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 Control the initialization process for the CVRCDS program. C C Call a routine to prompt for and accept the name of the file C whose records are to be converted. Call a routine to control C the opening of the input and output files. Initialize the I/O C file record pointers. C C C Edit Record: C C 24-Apr-91: Original creation started. C 03-Jun-91: Original creation completed. C C C Calling sequence: C C CALL CRINIT C C C Returns: C C Error C FilNam C C C Called By: C C CVRCDS C C C Routines Called: C C GTFLNM C OPNFLS C C*********************************************************************** INCLUDE 'CVRCDS.DAT' !Common & variables declarations CALL GTFLNM !Get the file name. CALL OPNFLS !Open the I/O files. IRcdNm = 1 !Initialize the ORcdNm = 1 ! pointers. 900 CONTINUE RETURN END !CRINIT.FOR.