1 long long
f(a)2 f (a)
3      double a;
4 {
5   double b;
6   unsigned long long v;
7 
8   b = a / 2.0;
9   v = (unsigned) b;
10   a -= (double) v;
11   return v;
12 }
13