|
Текст подпрограммы и версий amy5r_c.zip , amy5d_c.zip , amy5c_c.zip |
Тексты тестовых примеров tamy5r_c.zip , tamy5d_c.zip , tamy5c_c.zip |
Вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме.
real amy5r_c (real *a, integer *n, integer *i)
Параметры
| a - | вещественный вектор длины n на (n + 1)/2, в котором задается симметричная матрица в компактной форме; |
| n - | порядок матрицы (тип: целый); |
| i - | номер строки (или столбца) (тип: целый). |
Версии
| amy5d_c - | вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме с удвоенной точностью. |
| amy5c_c - | вычисление суммы абсолютных значений элементов строки (или столбца) эрмитовой матрицы, заданной в компактной форме. |
Вызываемые подпрограммы: нет.
Замечания по использованию
|
В функции amy5d_c вектор a должен иметь тип double. В функции amy5c_c вектор a должен иметь тип complex. |
int main(void)
{
/* Initialized data */
static float a[10] = { 1.1f,2.1f,2.2f,3.1f,3.2f,3.3f,4.1f,4.2f,4.3f,4.4f };
/* Local variables */
extern float amy5r_c(float *, int *, int *);
static int i__, n;
static float y;
n = 4;
i__ = 3;
y = (float)amy5r_c(a, &n, &i__);
printf("\n %16.7e \n", y);
return 0;
} /* main */
Результат: y = 13.9