diff options
Diffstat (limited to 'contrib/libf2c/libF77/r_dim.c')
| -rw-r--r-- | contrib/libf2c/libF77/r_dim.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/contrib/libf2c/libF77/r_dim.c b/contrib/libf2c/libF77/r_dim.c index baca95c..48d2fc7 100644 --- a/contrib/libf2c/libF77/r_dim.c +++ b/contrib/libf2c/libF77/r_dim.c @@ -1,10 +1,7 @@ #include "f2c.h" -#ifdef KR_headers -double r_dim(a,b) real *a, *b; -#else -double r_dim(real *a, real *b) -#endif +double +r_dim (real * a, real * b) { -return( *a > *b ? *a - *b : 0); + return (*a > *b ? *a - *b : 0); } |
