//elementary operations on complex numbers
//for use with program carpol1.cpp 
#include "ucomplex.h"


void CADD(Complex c1,Complex c2, Complex *c3) {
  c3->r=c1.r+c2.r; c3->i=c1.i+c2.i;
}

void CDIF(Complex c1,Complex c2, Complex *c3) {
  c3->r=c1.r-c2.r; c3->i=c1.i-c2.i;
}

void CMUL(Complex c1,Complex c2, Complex *c3) {
  c3->r=c1.r*c2.r-c1.i*c2.i;
  c3->i=c1.r*c2.i+c1.i*c2.r;
}

void CPRO(double alpha, Complex c, Complex *c1) {
  c1->r=alpha*c.r; c1->i=alpha*c.i;
}


//end of file ucomplex.cpp