11int f_mod(
int argc,
const int *argt,
void **args)
20 if (argt[1] != argt[0] || argt[2] != argt[0])
30 if (IS_NULL_C(&arg1[i]) || IS_NULL_C(&arg2[i]))
33 res[i] = arg1[i] % arg2[i];
39 FCELL *arg1 = args[1];
40 FCELL *arg2 = args[2];
43 if (IS_NULL_F(&arg1[i]) || IS_NULL_F(&arg2[i]))
47 res[i] = (FCELL)fmod(arg1[i], arg2[i]);
56 DCELL *arg1 = args[1];
57 DCELL *arg2 = args[2];
60 if (IS_NULL_D(&arg1[i]) || IS_NULL_D(&arg2[i]))
64 res[i] = (DCELL)fmod(arg1[i], arg2[i]);