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