diff options
Diffstat (limited to 'contrib/libf2c/libF77/r_imag.c')
-rw-r--r-- | contrib/libf2c/libF77/r_imag.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/contrib/libf2c/libF77/r_imag.c b/contrib/libf2c/libF77/r_imag.c index d51252b..784abc8 100644 --- a/contrib/libf2c/libF77/r_imag.c +++ b/contrib/libf2c/libF77/r_imag.c @@ -1,10 +1,7 @@ #include "f2c.h" -#ifdef KR_headers -double r_imag(z) complex *z; -#else -double r_imag(complex *z) -#endif +double +r_imag (complex * z) { -return(z->i); + return (z->i); } |