Search Site | Contact Details | FAQ

ADAS Subroutine cbpasf

      SUBROUTINE CBPASF( IUPS1  , IUPS2  , IURUN , DSNPS1 , DSNPS2 ,
     &                   DSNRUN , LPASS1 , LPASS2 , LRUN  , IRCODE  )
C
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CBPASF *********************
C
C  PURPOSE: HANDLES OPENING OF OUTPUT PASSING FILES.
C
C  CALLING PROGRAM: ADAS311
C
C  SUBROUTINE:
C
C  INPUT : (I*4)   IUPS1    = UNIT NO. FOR FIRST PASSING FILE.
C  INPUT : (I*4)   IUPS2    = UNIT NO. FOR SECOND PASSING FILE.
C  INPUT : (I*4)   IURUN    = UNIT NO. FOR RUN SUMMARY FILE.
C  INPUT : (C*80)  DSNPS1   = FIRST PASSING FILE DATA SET NAME.
C  INPUT : (C*80)  DSNPS2   = SECOND PASSING FILE DATA SET NAME.
C  INPUT : (C*80)  DSNRUN   = RUN SUMMARY FILE DATA SET NAME.
C  INPUT : (L*4)   LPASS1   = FLAG FOR WHETHER OR NOT 1ST PASSING FILE
C                             HAS BEEN REQUESTED
C  INPUT : (L*4)   LPASS2   = FLAG FOR WHETHER OR NOT 2ND PASSING FILE
C                             HAS BEEN REQUESTED
C
C  OUTPUT: (I*4)   IRCODE   = RETURN CODE AFTER ATTEMPTING TO OPEN FILES.
C
C
C  CONTACT : HARVEY ANDERSON
C	     UNIVERSITY OF STRATHCLYDE
C	     ANDERSON@PHYS.STRATH.AC.UK
C
C  NOTE   : ROUTINE BASED ON THE STRUCTURE OF CAPASF.F, WHICH IS
C           USED BY ADAS310.
C
C  DATE   :  02/15/94
C
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      CHARACTER*80        DSNPS1,      DSNPS2,      DSNRUN
      INTEGER             IRCODE,      IUPS1,       IUPS2,       IURUN
      LOGICAL             LPASS1,      LPASS2,      LRUN
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk