diff options
author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-01 12:38:32 +0000 |
---|---|---|
committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-01 12:38:32 +0000 |
commit | 0fa1f522915088d7bcbf7c9492fa70dc6cddaa17 (patch) | |
tree | c6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libF77/d_mod.c | |
parent | bc09eb06ee8c1540503d5314a71617de2151fbf2 (diff) | |
download | gcc-0fa1f522915088d7bcbf7c9492fa70dc6cddaa17.tar.gz |
* libF77/*: Fix formatting.
* libI77/*: Likewise.
* libU77/*: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54145 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/d_mod.c')
-rw-r--r-- | libf2c/libF77/d_mod.c | 40 |
1 files changed, 21 insertions, 19 deletions
diff --git a/libf2c/libF77/d_mod.c b/libf2c/libF77/d_mod.c index bbc24ad6547..15cedefadd1 100644 --- a/libf2c/libF77/d_mod.c +++ b/libf2c/libF77/d_mod.c @@ -1,31 +1,33 @@ #include "f2c.h" #ifdef IEEE_drem -double drem(double, double); +double drem (double, double); #else #undef abs #include <math.h> #endif -double d_mod(doublereal *x, doublereal *y) +double +d_mod (doublereal * x, doublereal * y) { #ifdef IEEE_drem - double xa, ya, z; - if ((ya = *y) < 0.) - ya = -ya; - z = drem(xa = *x, ya); - if (xa > 0) { - if (z < 0) - z += ya; - } - else if (z > 0) - z -= ya; - return z; + double xa, ya, z; + if ((ya = *y) < 0.) + ya = -ya; + z = drem (xa = *x, ya); + if (xa > 0) + { + if (z < 0) + z += ya; + } + else if (z > 0) + z -= ya; + return z; #else - double quotient; - if( (quotient = *x / *y) >= 0) - quotient = floor(quotient); - else - quotient = -floor(-quotient); - return(*x - (*y) * quotient ); + double quotient; + if ((quotient = *x / *y) >= 0) + quotient = floor (quotient); + else + quotient = -floor (-quotient); + return (*x - (*y) * quotient); #endif } |