Search Site | Contact Details | FAQ

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
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk