home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / complex-lib / cxmul.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-07-14  |  424 b   |  25 lines
  1. /*
  2.     CxMul -- multiply one complex by another
  3.  
  4.     CxMul( &a, &b )    multiplies  a  by  b  and returns  &a
  5.  
  6.     last edit:    86/01/04    D A Gwyn
  7.  
  8.     SCCS ID:    @(#)cxmul.c    1.1
  9. */
  10.  
  11. #include    <complex.h>
  12.  
  13. complex *
  14. CxMul( ap, bp )
  15.     register complex    *ap, *bp;    /* (may coincide) */
  16.     {
  17.     double            ap__re = ap->re;
  18.     double            bp__re = bp->re;
  19.  
  20.     ap->re = ap__re * bp__re - ap->im * bp->im;
  21.     ap->im = ap__re * bp->im + ap->im * bp__re;
  22.  
  23.     return ap;
  24.     }
  25.