|
Текст подпрограммы и версий ( Фортран ) pa02r.zip pa02d.zip |
Тексты тестовых примеров ( Фортран ) tpa02r.zip tpa02d.zip |
|
Текст подпрограммы и версий ( Си ) pa02r_c.zip pa02d_c.zip |
Тексты тестовых примеров ( Си ) tpa02r_c.zip tpa02d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) pa02r_p.zip pa02e_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa02r_p.zip tpa02e_p.zip |
Вычисление модуля комплексного числа.
PA02R вычисляет модуль комплексного числа XR + XI i .
FUNCTION PA02R (XR, XI )
Параметры
| XR, XI - | действительная и мнимая части заданного комплексного числа (тип: вещественный). |
Версии
| PA02D - | вычисление модуля комплексного числа в режиме удвоенной точности. При этом параметры XR и XI должны иметь тип DOUBLE PRECISION, а функция PA02D должна быть оформлена как DOUBLE PRECISION FUNCTION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
XR = 1.0
XI = 0.0
RES = PA02R (XR, XI)
Результат: RES = 1.0