Search Site | Contact Details | FAQ

ADAS Subroutine d8intg

       subroutine d8intg( ndedge  ,  ndeng   ,
     &                    iedge   ,  ieng    , 
     &                    edge    ,  energy  ,  fraction ,
     &                    te      ,  flimit  ,  result   
     &                   )

C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: D8TRAN *******************
C
C  PURPOSE: To integrate between a and b with an interval of step
C           the integrand
C                          f(x)exp(-x) * exp(+a)
C           where f(x) is the filter function.
C
C
C  CALLING PROGRAM: adas408
C
C  FUNCTION:
C
C  input : (i*4)  ndeng    = maximum number of energies in adf35 file.
C  input : (i*4)  ndedge   = maximum number of energy edges in adf35 file.
C  input : (i*4)  ieng     = actual number of energies.
C  input : (i*4)  iedge    = actual number of edges.
C  input : (r*8)  edge     = tabulated edge energies (eV).
C  input : (r*8)  energy   = tabulated energies (eV).
C  input : (r*8)  fraction = tabulated transmission fractions.
C  input : (r*8)  te       = user supplied temperature (eV).
C  input : (r*8)  flimit   = lower limit of integration (eV/Te)
C
C  output: (r*8)  result   = value of integral.
C
C  NOTES: 
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          i4indfvs   ADAS      Finds nearest index for a non-monotonic
C                               array
C          xxmerg     ADAS      Merge two grids.
C          d8tran     ADAS      Returns transmission of a filter.
C          d8part     ADAS      Trapezoidal integration routine.
C
C  Author   : Martin O'Mullane UCC 26/8/92
C
C  VERSION  : 1.1                          
C  DATE     : 15-04-96
C  MODIFIED : Martin O'Mullane
C              - First version in SCCS.
C
C  VERSION  : 1.2                          
C  DATE     : 05-0-2003
C  MODIFIED : Martin O'Mullane  
C              - Uses adf35 filter file data.
C                
C  VERSION  : 1.3
C  DATE     : 16-02-2005
C  MODIFIED : Martin O'Mullane
C              - Do not re-use x1() and x2() in parts integration.
C
C
C-----------------------------------------------------------------------
      INTEGER             IEDGE,       IENG,        NDEDGE,      NDENG
      REAL*8              EDGE(NDEDGE),             ENERGY(NDENG)
      REAL*8              FLIMIT,      FRACTION(NDENG),          RESULT
      REAL*8              TE
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk