ADAS Subroutine d7clos
SUBROUTINE D7CLOS( IUNT11 , IUNT12 , & OPEN11 , OPEN12 , & IFCNT , NDFILE , FILESL , FILESU , & DATE & ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: D7CLOS ********************* C C PURPOSE: TO WRITE TERMINATOR SEQUENCES AND CLOSE FILES ON C UNIT11 (MAINCL FILE) AND UNIT12 (ATOMPARS FILE) C C CALLING PROGRAM: ADAS407 C C SUBROUTINE: C C INPUT : (I*4) IUNT11 = UNIT NUMBER FOR MAINCL OUTPUT FILE C INPUT : (I*4) IUNT12 = UNIT NUMBER FOR ATOMPARS OUTPUT FILE C INPUT : (L*4) OPEN11 = .TRUE. => MAINCL PASSING FILE OPENED C .FALSE. => MAINCL PASSING FILE NOT OPENED C INPUT : (L*4) OPEN12 = .TRUE. => ATMPRS PASSING FILE OPENED C .FALSE. => ATMPRS PASSING FILE NOT OPENED C INPUT : (I*4) IFCNT = NUMBER OF RECOMBINED/RECOMBINING FILE C PAIRS USED C INPUT : (I*4) NDFILE = MAX. NUMBER OF FILES FOR DIMENSIONING FILESL C AND FILESU. THIS IS NECESSARY ON A DEC, BUT C NOT ON THE IBM AT JET (???) C INPUT : (C*80) FILESL() = RECOMBINED FILE C INPUT : (C*80) FILESU() = RECOMBINING FILE C C (I*4) I = GENERAL INTEGER C (C*6) USERID = USER IDENTIFIER C (C*8) DATE = CURRENT DATE C C C ROUTINES: C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------ C C C AUTHOR: H. P. SUMMERS, JET C K1/1/57 C JET EXT. 4941 C C DATE: 12/07/94 C C UNIX-IDL PORT: C WILLIAM OSBORN, TESSELLA SUPPORT SERVICES PLC. C C DATE: 22ND APRIL 1996 C C VERSION: 1.1 DATE: 22-04-96 C MODIFIED: WILLIAM OSBORN C - FIRST VERSION. C C VERSION: 1.2 DATE: 23-04-96 C MODIFIED: WILLIAM OSBORN C INCREASED FILE NAME LENGTHS TO 80 C----------------------------------------------------------------------- C----------------------------------------------------------------------- C C----------------------------------------------------------------------- CHARACTER*8 DATE CHARACTER*80 FILESL(NDFILE), FILESU(NDFILE) INTEGER IFCNT, IUNT11, IUNT12, NDFILE LOGICAL OPEN11, OPEN12