Текст подпрограммы и версий
pa02r_c.zip  pa02d_c.zip  		Тексты тестовых примеров
tpa02r_c.zip  tpa02d_c.zip 

Функция:  pa02r_c

Назначение

Вычисление модуля комплексного числа.

Математическое описание

pa02r_c вычисляет модуль комплексного числа XR + XI i .

Использование 

    real pa02r_c(real *xr, real *xi)

   Параметры
xr, xi - действительная и мнимая части заданного комплексного числа (тип: вещественный). 
   Версии
pa02d_c - вычисление модуля комплексного числа в режиме удвоенной точности. При этом параметры xr и xi должны иметь тип double, а функция pa02d_c должна быть оформлена как double. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

Пример использования 

int main(void)
{
    /* Local variables */
    extern float pa02r_c(float *, float *);
    static float xi, xr, res;

    xi = 0.f;
    xr = 1.f;
    res = (float)pa02r_c(&xr, &xi);

    printf("\n %13.3e \n", res);
    return 0;
} /* main */


Результат:    res  =  1.0