diff options
Diffstat (limited to 'contrib/libf2c/libF77/d_prod.c')
| -rw-r--r-- | contrib/libf2c/libF77/d_prod.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/contrib/libf2c/libF77/d_prod.c b/contrib/libf2c/libF77/d_prod.c index 3d4cef7..11fe2c7 100644 --- a/contrib/libf2c/libF77/d_prod.c +++ b/contrib/libf2c/libF77/d_prod.c @@ -1,10 +1,7 @@ #include "f2c.h" -#ifdef KR_headers -double d_prod(x,y) real *x, *y; -#else -double d_prod(real *x, real *y) -#endif +double +d_prod (real * x, real * y) { -return( (*x) * (*y) ); + return ((*x) * (*y)); } |
