11int f_max(
int argc,
const int *argt,
void **args)
18 for (i = 1; i <= argc; i++)
19 if (argt[i] != argt[0])
25 CELL **argz = (CELL **)args;
31 for (j = 1; j <= argc; j++)
32 if (IS_NULL_C(&argz[j][i]))
36 else if (
max < argz[j][i])
47 FCELL **argz = (FCELL **)args;
53 for (j = 1; j <= argc; j++)
54 if (IS_NULL_F(&argz[j][i]))
58 else if (
max < argz[j][i])
70 DCELL **argz = (DCELL **)args;
76 for (j = 1; j <= argc; j++)
77 if (IS_NULL_D(&argz[j][i]))
81 else if (
max < argz[j][i])