Search Site | Contact Details | FAQ

ADAS Subroutine bgwerr

C
      SUBROUTINE BGWERR( IUNIT  ,
     &                   NUMEXC , DEFEXC , GENEXC , SPFEXC ,
     &                   NUMREC , DEFREC , GENREC , SPFREC ,
     &                   NUMCXR , DEFCXR , GENCXR , SPFCXR ,
     &                   NUMION , DEFION , GENION , SPFION 
     &                  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BGWERR *********************
C
C  PURPOSE:  Writes error information to IUNIT
C
C  CALLING PROGRAM: ADAS216
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                          
C  DATE     : 17/03/1999
C
C  MODIFIED : Martin O'Mullane  
C             First version.
C
C VERSION  : 1.2
C DATE     : 03-01-2006
C MODIFIED : Martin O'Mullane
C              - Increase NDSPF to 2100.
C
C-----------------------------------------------------------------------
      INTEGER             IUNIT,       NUMCXR(3),   NUMEXC(3)
      INTEGER             NUMION(3),   NUMREC(3)
      REAL*8              DEFCXR,      DEFEXC,      DEFION,      DEFREC
      REAL*8              GENCXR(NDGEN,2),          GENEXC(NDGEN,2)
      REAL*8              GENION(NDGEN,2),          GENREC(NDGEN,2)
      REAL*8              SPFCXR(NDSPF,3),          SPFEXC(NDSPF,3)
      REAL*8              SPFION(NDSPF,3),          SPFREC(NDSPF,3)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk