|
Текст подпрограммы и версий ( Фортран ) pa01r.zip pa01d.zip |
Тексты тестовых примеров ( Фортран ) tpa01r.zip tpa01d.zip |
|
Текст подпрограммы и версий ( Си ) pa01r_c.zip pa01d_c.zip |
Тексты тестовых примеров ( Си ) tpa01r_c.zip tpa01d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) pa01r_p.zip pa01e_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa01r_p.zip tpa01e_p.zip |
Деление комплексных чисел.
PA01R делит комплексное число X = XR + XI i на комплексное число Y = YR + YI i .
SUBROUTINE PA01R (XR, XI, YR, YI, ZR, ZI )
Параметры
| XR, XI - | действительная и мнимая часть делимого X (тип: вещественный); |
| YR, YI - | действительная и мнимая части делителя Y (тип: вещественный); |
| ZR, ZI - | вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. |
Версии
| PA01D - | деление комплексных чисел в режиме удвоенной точности. При этом параметры XR, XI, YR, YI, ZR и ZI должны иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
XR = 1.0
XI = 2.0
YR = 3.0
YI = 4.0
CALL PA01R (XR, XI, YR, YI, ZR, ZI)
Результаты: ZR = 0.44 , ZI = 0.08