home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / CXLOG2.C < prev    next >
Encoding:
Text File  |  1984-08-08  |  275 b   |  13 lines
  1.    cxlog2(a,r)
  2.  
  3.       /* this function finds the logarithm to the base 2 of */
  4.       /* a complex argument.                                */
  5.  
  6.       float a[],r[];
  7.     {
  8.       cxloge(a,r);
  9.       r[0] = r[0] * 1.442695041;
  10.       r[1] = r[1] * 1.442695041;
  11.     }
  12.  
  13.