diff options
| author | Alexander Kabaev <kan@FreeBSD.org> | 2003-07-11 03:42:19 +0000 |
|---|---|---|
| committer | Alexander Kabaev <kan@FreeBSD.org> | 2003-07-11 03:42:19 +0000 |
| commit | 6bdbd039fdee37985426b3cfdb6ec9b43f1c96aa (patch) | |
| tree | ddafd6196c36e6100eb4f969af01a11ee9c83a81 /contrib/libf2c/libF77/d_prod.c | |
| parent | 63c14f51d5c7b6579c1eac10cec4b60f42b86e84 (diff) | |
Notes
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 3d4cef7835c2..11fe2c7f68ea 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)); } |