Search Site | Contact Details | FAQ

ADAS Subroutine xxopen

       SUBROUTINE XXOPEN( IUNIT, DSFULL , LEXIST )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXOPEN *********************
C
C  PURPOSE: TO INQUIRE & OPEN INPUT DATA FILE & ALLOCATE TO UNIT 'IUNIT'
C           (READ ONLY)  - IF IT DOES NOT EXISTS A MESSAGE IS  SENT  TO
C           THE SCREEN AND LEXIST IS RETURNED AS FALSE.
C
C  CALLING PROGRAM:  GENERAL USE
C
C  SUBROUTINE:
C
C  INPUT :    (I*4)  IUNIT   = UNIT TO WHICH INPUT FILE IS ALLOCATED
C  INPUT :    (C*(*))DSFULL  = FULL INPUT DATA SET NAME (INCL. USERID)
C                              IN FORM FOR DYNAMIC ALLOCATION.
C  OUTPUT:    (L*4)  LEXIST  = .TRUE.  => DATA SETS EXISTS AND IS OPEN
C                            = .FALSE. => DATA SET DOES NOT EXIST
C
C             (I*4)  I4UNIT  = FUNCTION (SEE ROUTINE SECTION BELOW)
C             (C*1)  BSLASH  = '/' - MUST BE FIRST 'DSFULL'CHARACTER
C NOTE:
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          I4UNIT     ADAS      FETCH UNIT NUMBER FOR OUTPUT OF MESSAGES
C          XXTERM     ADAS      TERMINATES ADAS PROGRAM WITH MESSAGE
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/37
C          JET EXT. 2520
C
C DATE:    04/03/91 - ADAS91 VERSION (INCLUDES INQUIRE)
C
C UPDATE:  07/08/91 - PE BRIDEN: ADDED ERROR HANDLING FOR OPEN ERROR.
C
C UPDATE:  23/04/93 - PE BRIDEN - ADAS91: ADDED I4UNIT FUNCTION TO WRITE
C                                         STATEMENTS FOR SCREEN MESSAGES
C
C UPDATE:  24/05/93 - PE BRIDEN - ADAS91: CHANGED I4UNIT(0)-> I4UNIT(-1)
C
C-----------------------------------------------------------------------
      CHARACTER*(*)       DSFULL
      INTEGER             IUNIT
      LOGICAL             LEXIST
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk