summaryrefslogtreecommitdiff
path: root/libf2c/libF77/d_mod.c
diff options
context:
space:
mode:
authorghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4>2002-06-01 12:38:32 +0000
committerghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4>2002-06-01 12:38:32 +0000
commit0fa1f522915088d7bcbf7c9492fa70dc6cddaa17 (patch)
treec6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libF77/d_mod.c
parentbc09eb06ee8c1540503d5314a71617de2151fbf2 (diff)
downloadgcc-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.c40
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
}