|
Текст подпрограммы и версий ( Фортран ) av00r.zip av00d.zip av00c.zip |
Тексты тестовых примеров ( Фортран ) tav00r.zip tav00d.zip tav00c.zip |
|
Текст подпрограммы и версий ( Си ) av00r_c.zip av00d_c.zip av00c_c.zip |
Тексты тестовых примеров ( Си ) tav00r_c.zip tav00d_c.zip tav00c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av00r_p.zip av00e_p.zip av00c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav00r_p.zip tav00e_p.zip tav00c_p.zip |
Суммирование компонент вектора с повышенной точностью.
Вычисляется сумма компонент вектора длины N с помощью алгоритма попарного суммирования.
REAL FUNCTION AV00R (S, N)
Параметры
| S - | одномерный массив длины N, в котором задается исходный вектор (тип: вещественный); |
| N - | длина вектора S (тип: целый). |
Версии
| AV00D - | суммирование элементов вектора при помощи алгоритма попарного суммирования с удвоенной точностью; |
| AV00C - | суммирование элементов комплексного вектора при помощи алгоритма попарного суммирования. |
Вызываемые подпрограммы: нет
Замечания по использованию
| 1. |
В функции АV00D параметр S имеет тип DОUВLЕ РRЕСISIОN. | |
| 2. |
В функции АV00С параметр S имеет тип СОМРLЕХ. | |
| 3. | Исходная информация, заданная в массиве S, не сохраняется. |
DIMENSION S(100)
DATA S /100*0.00009876/
N = 100
Z = AV00R (S, N)
Результат: Z = 0.009876