Текст подпрограммы и версий
pa04r_c.zip  pa04d_c.zip  		Тексты тестовых примеров
tpa04r_c.zip  tpa04d_c.zip 

Подпрограмма:  pa04r_c

Назначение

Вычисление показательной функции от комплексного аргумента.

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

pa04r_c вычисляет значение функции  ez, где  z = XR + XI i  - заданное комплексное число.

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

    int pa04r_c (real *xr, real *xi, real *yr, real *yi)

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

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

int main(void)
{
    /* System generated locals */
    complex q__1;

    /* Builtin functions */
    void c_exp(complex *, complex *);

    /* Local variables */
    extern int pa04r_c(float *, float *, float *, float *);
    static complex r__;
    static float xi, yi, xr, yr;

    xr = 1.f;
    xi = -1.f;
    pa04r_c(&xr, &xi, &yr, &yi);

    printf("\n %16.7e %16.7e \n", yr, yi);
    c_exp(&q__1, &c_b5);
    r__.r = q__1.r, r__.i = q__1.i;

    printf("\n %16.7e %16.7e \n", r__.r, r__.i);
    return 0;
} /* main */


Результаты:    yr  =  1.468694 ,       yi  =  - 2.287355