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(*)