blob: 8c26ea3670c01ea0b38e1918a8809b81ee4a10a0 [file] [log] [blame]
long long
f (a)
double a;
{
double b;
unsigned long long v;
b = a / 2.0;
v = (unsigned) b;
a -= (double) v;
return v;
}