mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
41 lines
1.0 KiB
C
41 lines
1.0 KiB
C
/*
|
||
Copyright 1983
|
||
Alcyon Corporation
|
||
8716 Production Ave.
|
||
San Diego, Ca. 92121
|
||
*/
|
||
|
||
/*char *version "@(#)fmod.c 1.2 10/19/83";
|
||
|
||
/* fmod - returns the number f such that x = iy + f, and
|
||
0 <= f <= y. */
|
||
|
||
double
|
||
fmod(x,y)
|
||
double x;
|
||
double y;
|
||
{
|
||
double z;
|
||
double retval;
|
||
register long i;
|
||
double fabs();
|
||
double absx;
|
||
double absy;
|
||
|
||
absx = fabs(x);
|
||
absy = fabs(y);
|
||
for(z = absx; z - absy >= 0. ; z -= absy)
|
||
;
|
||
i = z;
|
||
if( x < 0.0 )
|
||
i *= -1;
|
||
retval = i;
|
||
return( retval );
|
||
}
|
||
|
||
etval );
|
||
}
|
||
|
||
etval );
|
||
}
|
||
|
||
etval );
|
||
}
|
||
|
||
|