Search Site | Contact Details | FAQ

ADAS Subroutine dasumd

       SUBROUTINE DASUMD ( NDREP  , NDPRT   , NDT    ,
     &                     IPI    , IPF     , IPFS   ,
     &                     MAXTM  , IREPMAX , IREP   , DRMF   , 
     &                     DRMS   
     &                   )
C-----------------------------------------------------------------------
C
C **************** FORTRAN 77 SUBROUTINE: DASUMD  **********************
C
C  VERSION: 1.0
C
C  PURPOSE: TO SUM BADNELL DIELECTRONIC RATE COEFFICIENT DATA OVER THE
C           REPRESENTATIVE SET TO GIVE ZERO DENSITY TOTAL RATE
C           FROM SATELLITE LINES.
C
C           BASED ON B4SUMD
C       
C  CALLING PROGRAM: DADATA
C
C
C  INPUT:
C  INPUT :  (I*4) NDREP    = MAXIMUM NUMBER OF REPRESENTATIVE LEVELS
C  INPUT :  (I*4) NDPRT    = MAXIMUM NUMBER OF PARENT STATES
C  INPUT :  (I*4) NDT      = MAXIMUM NUMBER OF TEMPERATURES
C  INPUT :  (I*4) IPI      = INITIAL PARENT
C  INPUT :  (I*4) IPF      = FINAL PARENT
C  INPUT :  (I*4) IPFS     = SOIN SYSTEM
C  INPUT :  (I*4) DRMF(,,) = BADNELL DIELECTRONIC DATA (CM3 S-1)
C                            1ST.DIM: REPR. N-SHELL INDEX
C                            2ND.DIM: INITIAL PARENT INDEX
C                            3RD.DIM: FINAL PARENT INDEX
C                            4TH.DIM: SPIN SYSTEM INDEX
C                            5TH.DIM: TEMPERATURE INDEX
C  INPUT :  (I*4) NBT      = NO. OF TEMPERATURES
C  INPUT :  (I*4) IREPMAX  = NO OF REPRESENTATIVE LEVELS
C  INPUT :  (I*4) IREP()   = SET OF REPRESENTATIVE LEVELS
C
C  OUTPUT:  (R*8) DRMS()   = SUMMED DR RATE COEFFICIENTS (CM3 S-1)
C                            1ST.DIM: INITIAL PARENT INDEX
C                            2ND.DIM: FINAL PARENT INDEX
C                            3RD.DIM: SPIN SYSTEM INDEX
C                            4TH.DIM: TEMPERATURE INDEX
C
C           (I*4) NREP     = GENERAL LEVEL INDEX
C           (I*4) IN       = GENERAL INDEX
C           (I*4) IT       = GENERAL INDEX
C           (R*8) V        = GENERAL VARIABLE FOR N-SHELL
C           (R*8) V1       = GENERAL VARIABLE FOR N-SHELL
C           (R*8) Y        = GENERAL VARIABLE FOR N-SHELL
C           (R*8) Y0       = GENERAL VARIABLE FOR N-SHELL
C           (R*8) Y1       = GENERAL VARIABLE FOR N-SHELL
C
C
C  AUTHOR:   Martin O'Mullane
C            JET
C           
C  DATE:     19-02-98
C
C  VERSION:  1.1						DATE: 03-03-98
C  MODIFIED: RICHARD MARTIN
C		- PUT THROUGH SCCS.
C                 
C-------------------------------------------------------------------
      INTEGER             IPF,         IPFS,        IPI
      INTEGER             IREP(NDREP), IREPMAX,     MAXTM,       NDPRT
      INTEGER             NDREP,       NDT
      REAL*8              DRMF(NDREP,NDPRT,NDPRT,2,NDT)
      REAL*8              DRMS(NDPRT,NDPRT,2,NDT)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk