|
real *8 function, dimension(2) | cq (x, y) |
|
Definition at line 293 of file CALLING_cpHTO.f.
◆ cq()
real*8 function, dimension(2) hto_acmplx_rat::operator(.cq.)::cq |
( |
real*8, dimension(2), intent(in) |
x, |
|
|
real*8, dimension(2), intent(in) |
y |
|
) |
| |
Definition at line 298 of file CALLING_cpHTO.f.
299 real*8,
dimension(2) ::
cq,z1,z2
300 real*8,
INTENT(IN),
dimension(2) :: x,y
302 IF(x(2).eq.0.d0.and.y(2).eq.0.d0)
THEN
307 IF(abs(x(2)).eq.1.d0.and.abs(y(2)).eq.1.d0)
THEN
311 IF(abs(x(2)).eq.1.d0)
then
316 ELSEIF(abs(y(2)).eq.1.d0)
then
325 IF(abs(z2(1)) > abs(z2(2)))
THEN
327 cq(1)= (z1(1)+theta*z1(2))/(theta*z2(2)+z2(1))
328 cq(2)= (z1(2)-theta*z1(1))/(theta*z2(2)+z2(1))
331 cq(1)= (theta*z1(1)+z1(2))/(theta*z2(1)+z2(2))
332 cq(2)= (theta*z1(2)-z1(1))/(theta*z2(1)+z2(2))
The documentation for this interface was generated from the following file: