16 lines
439 B
C
16 lines
439 B
C
/* @(#)oldcomplex.h 1.1 92/07/30 SMI */
|
|
|
|
/*
|
|
* Copyright (c) 1988 by Sun Microsystems, Inc.
|
|
*/
|
|
|
|
#include <math.h>
|
|
|
|
typedef struct { float real, imag; } complex;
|
|
typedef struct { double dreal, dimag; } dcomplex;
|
|
|
|
/* So far the following works for all architectures. */
|
|
|
|
#define COMPLEXFUNCTIONTYPE double
|
|
#define RETURNCOMPLEX(R,M) { union { double _d; float _f[2]} _kluge ; _kluge._f[0] = (R) ; _kluge._f[1] = (M) ; return(_kluge._d) ; }
|