af5f4c3d DW |
1 | /* |
2 | * "@(#)d_mod.c 1.1" |
3 | */ |
4 | |
5 | double d_mod(x,y) |
6 | double *x, *y; |
7 | { |
8 | double floor(), quotient = *x / *y; |
9 | if (quotient >= 0.0) |
10 | quotient = floor(quotient); |
11 | else |
12 | quotient = -floor(-quotient); |
13 | return(*x - (*y) * quotient ); |
14 | } |