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)