Search Site | Contact Details | FAQ

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)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk