ADAS Subroutine capasf
SUBROUTINE CAPASF( IUPS1 , IUPS2 , IUPS3 , IUPS4 , IURUN , & DSNPS1 , DSNPS2 , DSNPS3 , DSNPS4 , DSNRUN, & LPASS1 , LPASS2 , LPASS3 , LPASS4 , LRUN , & IRCODE ) C C C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: CAPASF ********************* C C PURPOSE: HANDLES OPENING OF OUTPUT PASSING FILES. C C CALLING PROGRAM: ADAS310 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) IUPS3 = UNIT NO. FOR THIRD PASSING FILE. C INPUT : (I*4) IUPS4 = UNIT NO. FOR FOURTH 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) DSNPS3 = THIRD PASSING FILE DATA SET NAME. C INPUT : (C*80) DSNPS4 = FOURTH 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 INPUT : (L*4) LPASS3 = FLAG FOR WHETHER OR NOT 3RD PASSING FILE C HAS BEEN REQUESTED C INPUT : (L*4) LPASS4 = FLAG FOR WHETHER OR NOT 4TH PASSING FILE C HAS BEEN REQUESTED C C OUTPUT: (I*4) IRCODE = RETURN CODE AFTER ATTEMPTING TO OPEN FILES. C C ROUTINES: C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------- C C AUTHOR: JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC) C K1/0/81 C JET EXT. 5183 C C DATE: 17/01/94 C C UNIX-IDL PORT: C C VERSION: 1.1 DATE: 08-02-96 C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC) C - FIRST VERSION C C VERSION: 1.2 DATE: 02-04-96 C MODIFIED: TIM HAMMOND/PAUL BRIDEN C - REMOVED FILE= ARGUMENT FROM SCRATCH FILE OPEN C STATEMENTS AS IT CAN CAUSE A COMPILATION ERROR OF C WARNING MESSAGE UNDER AIX. C C----------------------------------------------------------------------- C C----------------------------------------------------------------------- CHARACTER*80 DSNPS1, DSNPS2, DSNPS3, DSNPS4 CHARACTER*80 DSNRUN INTEGER IRCODE, IUPS1, IUPS2, IUPS3 INTEGER IUPS4, IURUN LOGICAL LPASS1, LPASS2, LPASS3, LPASS4 LOGICAL LRUN