fmod
#define fmod(x, y) __tg_simple2(x, y, fmod)
__weak_reference(fmod, fmodl);
if (hp<=0x7fdfffff) x = fmod(x,p+p); /* now x < 2p */
double fmod(double, double);
TGMACRO_REAL_REAL(fmod)
PASS_REAL_REAL_ARG_REAL_RET(fmod));