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

CSROOT(XR,XI,YR,YI)

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