home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / cmult.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-21  |  921 b   |  33 lines
  1. /* cmult.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       subroutine cmult(xr,xi,yr,yi,cr,ci) >*/
  9. /* Subroutine */ int cmult_(xr, xi, yr, yi, cr, ci)
  10. doublereal *xr, *xi, *yr, *yi, *cr, *ci;
  11. {
  12.     static doublereal xitemp, yitemp, xrtemp, yrtemp;
  13.  
  14. /* .. ok if cr and ci are really xr and xi or yr and yi */
  15. /*<       implicit double precision (a-h,o-z) >*/
  16. /*<       xrtemp=xr >*/
  17.     xrtemp = *xr;
  18. /*<       xitemp=xi >*/
  19.     xitemp = *xi;
  20. /*<       yrtemp=yr >*/
  21.     yrtemp = *yr;
  22. /*<       yitemp=yi >*/
  23.     yitemp = *yi;
  24. /*<       cr=xrtemp*yrtemp-xitemp*yitemp >*/
  25.     *cr = xrtemp * yrtemp - xitemp * yitemp;
  26. /*<       ci=xitemp*yrtemp+xrtemp*yitemp >*/
  27.     *ci = xitemp * yrtemp + xrtemp * yitemp;
  28. /*<       return >*/
  29.     return 0;
  30. /*<       end >*/
  31. } /* cmult_ */
  32.  
  33.