Search Site | Contact Details | FAQ

ADAS Subroutine bgperr

C
      SUBROUTINE BGPERR( NDGEN  , NDSPF   , 
     &                   NUM    , ERRARR  ,
     &                   NARR   , DEF     , GEN     , SPF  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BGRERR *********************
C
C  PURPOSE: PARSES ERROR INFORMATION FROM ADF04 FILES. 
C
C  CALLING PROGRAM: ADAS216
C
C  SUBROUTINE:
C
C  INPUT : (I*4)   NDGEN    = MAX. NUMBER OF GENERAL ERRORS ALLOWED
C  INPUT : (I*4)   NDSPF    = MAX. NUMBER OF SPECIFIC ERRORS ALLOWED
C
C  INPUT:  (I*4)   NUM      = NUMBER OF ERROR LINES
C  INPUT:  (C*70)  ERRARR() = COMPRESSED STRING OF ERRORS
C
C
C  OUTPUT: (R*8)   NARR(3)  = NO. OF ERROR TYPES FOR EXCITATION
C                               1ST INDEX:  NO. DEFAULT (0 OR 1)
C                               2ND INDEX:  NO. GENERAL 
C                               3RD INDEX:  NO. SPECIFIC 
C  OUTPUT: (R*8)   DEF      = DEFAULT ERROR
C  OUTPUT: (R*8)   GEN(,)   = GENERAL ERROR
C                               1ST DIMENSION: SOURCE/DESTINATION LEVEL
C                               2ND DIMENSION: ERROR
C
C  OUTPUT: (R*8)   SPF(,)   = SPECIFIC ERROR
C                               1ST DIMENSION: FIRST LEVEL
C                               2ND DIMENSION: SECOND LEVEL
C                               3RD DIMENSION: ERROR
C
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          XXFCHR     ADAS      GETS OCCURANCES OF SUBSTRING IN A STRING
C          I4UNIT     ADAS      FETCH UNIT NUMBER FOR OUTPUT OF MESSAGES
C
C
C  AUTHOR  : MARTIN O'MULLANE,
C            K1/1/43,
C            JET
C
C VERSION  : 1.1                          DATE: 17/03/1999
C MODIFIED : MARTIN O'MULLANE  
C            FIRST VERSION.
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      CHARACTER*70        ERRARR(1+NDGEN+NDSPF)
      INTEGER             NARR(3),     NDGEN,       NDSPF,       NUM
      REAL*8              DEF,         GEN(NDGEN,2)
      REAL*8              SPF(NDSPF,3)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk