_CSROOT(3F) _CSROOT(3F)
CSROOT, SCSROOT - EISPACK auxiliary routine.
subroutine csroot(xr, xi, yr, yi)
double precision xr, xi, yr, yi
subroutine scsroot(xr, xi, yr, yi)
real xr, xi, yr, yI
(yr,yi) = complex sqrt(xr,xi) Branch chosen so that yr .ge. 0.0 and
sign(yi) .eq. sign(xi).
PPPPaaaaggggeeee 1111 [ Back ]
|