9int f_mul(
int argc,
const int *argt,
void **args)
16 for (i = 1; i <= argc; i++)
17 if (argt[i] != argt[0])
23 CELL **argz = (CELL **)args;
27 for (j = 1; j <= argc; j++) {
28 if (IS_NULL_C(&argz[j][i])) {
39 FCELL **argz = (FCELL **)args;
43 for (j = 1; j <= argc; j++) {
44 if (IS_NULL_F(&argz[j][i])) {
55 DCELL **argz = (DCELL **)args;
59 for (j = 1; j <= argc; j++) {
60 if (IS_NULL_D(&argz[j][i])) {