Commit | Line | Data |
---|---|---|
547779a8 WH |
1 | #ifdef KR_headers |
2 | extern double sqrt(); | |
3 | double f__cabs(real, imag) double real, imag; | |
4 | #else | |
5 | #undef abs | |
6 | #include "math.h" | |
7 | double f__cabs(double real, double imag) | |
8 | #endif | |
9 | { | |
ad4581d8 WH |
10 | struct {double x, y;} z; |
11 | z.x = real; | |
12 | z.y = imag; | |
13 | return cabs(z); | |
547779a8 | 14 | } |