/*
 * File:
 *   complex.c
 * Author:
 *   Samuel A. Rebelsky
 * Version:
 *   1.0 of March 2003.
 * Summary:
 *   A few simple procedures to support computation with complex
 *   numbers.
 * Contents:
 *   complex cmult(complex a, complex b)
 *     Compute and return the produce of a and b.
 */

/*********************************************************************
 * Headers *
 ***********/

#include "complex.h"

/*********************************************************************
 * Exported Procedures *
 ***********************/

complex cmult(complex a, complex b) {
  complex result;
  result.real = a.real*b.real - a.imaginary*b.imaginary;
  result.imaginary = a.real*b.imaginary + b.real*a.imaginary;
  return result;
}