eifrac
eifrac( x2, &i, num ); /* x = i + f */
eifrac( den, &i, den ); /* i/log 2 = i1 + f1 */
void eldexp(), efrexp(), eifrac(), ltoe();
eifrac( y, &li, w );
eifrac( y, &li, w );