Previous: cdiv Up: ../eispad.html Next: epslon

CSROOT(XR,XI,YR,YI)

       SUBROUTINE CSROOT(XR,XI,YR,YI)
       DOUBLE PRECISION XR,XI,YR,YI
 C
 C     (YR,YI) = COMPLEX DSQRT(XR,XI)
 C     BRANCH CHOSEN SO THAT YR .GE. 0.0 AND SIGN(YI) .EQ. SIGN(XI)
 C