/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* timesx APL2 V1.0.0 **************************************************
* Called by residuex and powerx.                                       *
* Returns the product of left and rite, both being complex numbers.    *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void timesx(left,rite,ret)
double *left,*rite,*ret;
{
	*ret = *left * *rite - *(left+1) * *(rite+1);
     *(ret+1) = *rite * *(left+1) + *left * *(rite+1);
}