/************************************************************************/
/*  Complex datatypes and basic functions.				*/
/************************************************************************/

typedef struct dcomplex_ {
    double	real;			/*  real part of complex	*/
    double	imag;			/*  imaginary part of complex.	*/
}   DCOMPLEX;

extern DCOMPLEX dcmplx (double, double);
extern DCOMPLEX dcadd (DCOMPLEX, DCOMPLEX);
extern DCOMPLEX dcsub (DCOMPLEX, DCOMPLEX);
extern DCOMPLEX dcmult (DCOMPLEX, DCOMPLEX);
extern DCOMPLEX dcdiv (DCOMPLEX, DCOMPLEX);