summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libF77/d_imag.c
diff options
context:
space:
mode:
authorDale Rahn <drahn@cvs.openbsd.org>2004-02-29 19:27:25 +0000
committerDale Rahn <drahn@cvs.openbsd.org>2004-02-29 19:27:25 +0000
commit06bbcaeb9d33fce156543e2d84b1df4a0a9e1127 (patch)
tree8614ca58169c994e07adc995d206e8434b020c5d /gnu/lib/libf2c/libF77/d_imag.c
parent4a95829907bd98f42503d9e6f91af8df4c9313ab (diff)
Import of libf2c from gcc3.3.2
Diffstat (limited to 'gnu/lib/libf2c/libF77/d_imag.c')
-rw-r--r--gnu/lib/libf2c/libF77/d_imag.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/lib/libf2c/libF77/d_imag.c b/gnu/lib/libf2c/libF77/d_imag.c
new file mode 100644
index 00000000000..793a3f9c405
--- /dev/null
+++ b/gnu/lib/libf2c/libF77/d_imag.c
@@ -0,0 +1,10 @@
+#include "f2c.h"
+
+#ifdef KR_headers
+double d_imag(z) doublecomplex *z;
+#else
+double d_imag(doublecomplex *z)
+#endif
+{
+return(z->i);
+}