/* cmult.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/*<       subroutine cmult(xr,xi,yr,yi,cr,ci) >*/
/* Subroutine */ int cmult_(xr, xi, yr, yi, cr, ci)
doublereal *xr, *xi, *yr, *yi, *cr, *ci;
{
    static doublereal xitemp, yitemp, xrtemp, yrtemp;

/* .. ok if cr and ci are really xr and xi or yr and yi */
/*<       implicit double precision (a-h,o-z) >*/
/*<       xrtemp=xr >*/
    xrtemp = *xr;
/*<       xitemp=xi >*/
    xitemp = *xi;
/*<       yrtemp=yr >*/
    yrtemp = *yr;
/*<       yitemp=yi >*/
    yitemp = *yi;
/*<       cr=xrtemp*yrtemp-xitemp*yitemp >*/
    *cr = xrtemp * yrtemp - xitemp * yitemp;
/*<       ci=xitemp*yrtemp+xrtemp*yitemp >*/
    *ci = xitemp * yrtemp + xrtemp * yitemp;
/*<       return >*/
    return 0;
/*<       end >*/
} /* cmult_ */

