Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://xmm.vilspa.esa.es/sas/7.1.0/doc/ssclib/node16.html
Дата изменения: Mon Jul 9 01:26:54 2007 Дата индексирования: Sat Dec 22 08:44:00 2007 Кодировка: Поисковые слова: massive stars |
Given two vectors and
containing samples of a function
, this subroutine returns the `trapezoidal-rule' estimate of the integral of
. In other words,
is replaced by the set of piecewise-continuous line segments defined by
and
. Note that
is assumed to be monotonically increasing - if it isn't, you'll get strange results.
interface trapezoidSum function trapezoidSumSingle(x, y) result(summ) real(single), intent(in) :: x(:), y(size(x)) real(single) :: summ end function trapezoidSumSingle function trapezoidSumDouble(x, y) result(summ) real(double), intent(in) :: x(:), y(size(x)) real(double) :: summ end function trapezoidSumDouble end interface