home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / CSROOT.z / CSROOT
Encoding:
Text File  |  1998-10-30  |  1.4 KB  |  67 lines
  1.  
  2.  
  3.  
  4. ____CCCCSSSSRRRROOOOOOOOTTTT((((3333FFFF))))                                                        ____CCCCSSSSRRRROOOOOOOOTTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSROOT, SCSROOT  -  EISPACK auxiliary routine.
  10.  
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  13.           ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee  ccccssssrrrrooooooootttt((((xxxxrrrr,,,, xxxxiiii,,,, yyyyrrrr,,,, yyyyiiii))))
  14.           ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn xxxxrrrr,,,, xxxxiiii,,,, yyyyrrrr,,,, yyyyiiii
  15.  
  16.           ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee ssssccccssssrrrrooooooootttt((((xxxxrrrr,,,, xxxxiiii,,,, yyyyrrrr,,,, yyyyiiii))))
  17.           rrrreeeeaaaallll             xxxxrrrr,,,, xxxxiiii,,,, yyyyrrrr,,,, yyyyIIII
  18.  
  19.  
  20. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  21.      (yr,yi) = complex sqrt(xr,xi) Branch chosen so that yr .ge. 0.0 and
  22.      sign(yi) .eq. sign(xi).
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.