CSROOT(3F)

CSROOT, SCSROOT - EISPACK auxiliary routine.

As shipped in IRIX 6.5.15. Unchanged since IRIX 6.5.

NAME
     CSROOT, SCSROOT  -  EISPACK auxiliary routine.


SYNOPSYS
          subroutine  csroot(xr, xi, yr, yi)
          double precision xr, xi, yr, yi

          subroutine scsroot(xr, xi, yr, yi)
          real             xr, xi, yr, yI


DESCRIPTION
     (yr,yi) = complex sqrt(xr,xi) Branch chosen so that yr .ge. 0.0 and
     sign(yi) .eq. sign(xi).