/* Fake library for vms */ double fmod(a, b) double a, b; { extern double mth$dmod(); return (mth$dmod(&a, &b)); }