toepmult.c

speech signal process tools

toepmult(a,ia,b,ib,c,ic,p)
double a,ia,b,ib,*c,*ic,p;
{
	*c+= (a*b-ia*ib)/p;
	*ic+= (a*ib+ia*b)/p;
	return;
}