Search Site | Contact Details | FAQ

ADAS Subroutine bddrsm2

       SUBROUTINE BDDRSM2( NDREP , NDT  ,
     &                     MAXTM  , IREPMAX, IREP , DRMF , DRMS ,
     &                     EIJN   , PWTEMP    )
       IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------------
C
C **************** FORTRAN 77 SUBROUTINE: BDDRSUM **********************
C
C    VERSION   2.0
C
C    AUTHOR:   WILLIAM J. DICKSON
C              JET JOINT UNDERTAKING
C
C    DATE:     14TH DECEMBER 1992
C
C
C    PURPOSE:
C    --------
C       TO SUM BADNELL DIELECTRONIC RATE COEFFICIENT DATA OVER THE
C       REPRESENTATIVE SET TO GIVE ZERO DENSITY TOTAL AND
C       RADIATED POWER FROM SATELLITE LINES
C
C       CALLING PROGRAM BDMNCLT
C
C
C    INPUT:
C    ------
C     NDREP         -  MAXIMUM NUMBER OF REPRESENTATIVE LEVELS
C     NDT           -  MAXIMUM NUMBER OF TEMPERATURES
C     DRMF(,)       -  BADNELL DIELECTRONIC DATA
C                          1ST INDEX   -  REPRESENTATIVE LEVEL
C                          2ND INDEX   -  TEMPERATURE
C     NBT           -  NO OF TEMPERATURES
C     IREPMAX       -  NO OF REPRESENTATIVE LEVELS
C     IREP          -  SET OF REPRESENTATIVE LEVELS
C     EIJN()        -  SAT. ENERGY AS A FUNCTION OF REPRESENTATIVE LEVEL
C                         UNITS - KELVIN
C    OUTPUT:
C    -------
C     DRMS()        -  SUMMED DR RATE COEFFICIENTS
C                          1ST INDEX    -  TEMPERATURE
C
C     PWTEMP()      -  SAT. RADIATED POWER (UNITS ERG S-1 CM3)
C                          1ST INDEX    -  TEMPERATURE
C
C
C    UPDATE:
C    -------
C     15/12/92   REVISED ALGOROTHM HAS BETTER AGREEMENT WITH
C                INTERNAL SUM CALCULATED BY MAINCL
C-----------------------------------------------------------------------
C
C UNIX-IDL CONVERSION:
C
C VERSION: 1.1                          DATE: 22-08-96
C MODIFIED: WILLIAM OSBORN
C               - FIRST CONVERTED. NO CHANGES.
C
C-----------------------------------------------------------------------
C-------------------------------------------------------------------
C
      INTEGER             IREP(NDREP), IREPMAX,     MAXTM,       NDREP
      INTEGER             NDT
      REAL*8              DRMF(NDREP,NDT),          DRMS(NDT)
      REAL*8              EIJN(NDREP), PWTEMP(NDT)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk