upstream/1.1.0_cvsrelease/1.1.0_cvs

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/libF77/cabs.c b/lib/libF77/cabs.c
new file mode 100644
index 000000000000..8c14afd15ca2
--- /dev/null
+++ b/lib/libF77/cabs.c
@@ -0,0 +1,14 @@
+#ifdef KR_headers
+extern double sqrt();
+double f__cabs(real, imag) double real, imag;
+#else
+#undef abs
+#include "math.h"
+double f__cabs(double real, double imag)
+#endif
+{
+struct {double x, y;} z;
+z.x = real;
+z.y = imag;
+return cabs(z);
+}