Search Site | Contact Details | FAQ

ADAS Subroutine d8part

       subroutine d8part(x, y, num, te, flimit, result)

C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: D8TRAN *******************
C
C  PURPOSE: To integrate between x(1) and x(num) 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 : (r*8)  x        = tabulated edge energies (eV).
C  input : (r*8)  y        = tabulated energies (eV).
C  input : (i*4)  num      = actual number of edges.
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
C
C  VERSION  : 1.1                          
C  DATE     : 05-08-2003
C  MODIFIED : Martin O'Mullane
C              - First version in SCCS.
C
C  VERSION  : 1.2
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             NUM
      REAL*8              FLIMIT,      RESULT,      TE,          X(*)
      REAL*8              Y(*)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk