Текст подпрограммы и версий
sfa3r_c.zip  sfa3d_c.zip  		Тексты тестовых примеров
tsfa3r_c.zip  tsfa3d_c.zip 

Функция:  sfa3r_c

Назначение

Вычисление значений сферической функции Неймана (функции Стокса).

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

Подпрограмма - функция sfa3r_c вычисляет сферическую функцию Неймана (функцию Стокса)
( π/2x)1/2  Nn + 1/2 (X) от вещественных аргументов X. Если X = 0, то значение функции полагается равным наибольшему представимому в машине числу. Значение  n  должно быть больше или равно  1 .

Абрамовиц М., Стиган И. Справочник по специальным функциям. М.: Наука, 1979.

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

    real sfa3r_c (real *x, integer *n)

   Параметры
x - заданное значение аргумента (тип: вещественный);
n - заданное значение порядка вычисляемой функции, n ≥ 1 (тип: целый). 
   Версии
sfa3d_c - вычисление значений сферической функции Неймана (функции Стокса) в режиме удвоенной точности; при этом параметр x должен иметь тип double. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    extern float sfa3r_c(float *, int *);
    static float y;

    y = (float)sfa3r_c(&c_b1, &c__1);

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


Результат:   y = -10000.5