ADAS Subroutine bgrwer
C SUBROUTINE BGRWER( NDGEN , NDSPF , & IRW , & NARR , DEF , GEN , SPF ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: BGRERR ********************* C C PURPOSE: TO READ OR WRITE ERROR INFORMATION FROM/TO IDL. THE SIZE C OF THE ARRAYS HAS ALREADY BEEN PASSES TO IDL. 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) irw = switch for read/write to idl C irw = 0 read C irw = 1 write 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 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----------------------------------------------------------------------- INTEGER IRW, NARR(3), NDGEN, NDSPF REAL*8 DEF, GEN(NDGEN,2) REAL*8 SPF(NDSPF,3)