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