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 / PYTHAG.z / PYTHAG
Encoding:
Text File  |  1998-10-30  |  1.3 KB  |  67 lines
  1.  
  2.  
  3.  
  4. ____PPPPYYYYTTTTHHHHAAAAGGGG((((3333FFFF))))                                                        ____PPPPYYYYTTTTHHHHAAAAGGGG((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      PYTHAG, SPYTHAG  -  EISPACK auxiliary routine.
  10.  
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  13.           ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn ffffuuuunnnnccccttttiiiioooonnnn  ppppyyyytttthhhhaaaagggg((((aaaa,,,,bbbb))))
  14.           ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn aaaa,,,,bbbb
  15.  
  16.           rrrreeeeaaaallll ffffuuuunnnnccccttttiiiioooonnnn             ssssppppyyyytttthhhhaaaagggg((((aaaa,,,,bbbb))))
  17.           rrrreeeeaaaallll aaaa,,,,bbbb
  18.  
  19.  
  20. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  21.      Finds sqrt(a**2+b**2) without overflow or destructive underflow.
  22.  
  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.