11int f_nmin(
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]))
35 min = argz[j][i], nul = 0;
36 else if (
min > argz[j][i])
37 min = argz[j][i], nul = 0;
47 FCELL **argz = (FCELL **)args;
53 for (j = 1; j <= argc; j++)
54 if (IS_NULL_F(&argz[j][i]))
57 min = argz[j][i], nul = 0;
58 else if (
min > argz[j][i])
59 min = argz[j][i], nul = 0;
70 DCELL **argz = (DCELL **)args;
76 for (j = 1; j <= argc; j++)
77 if (IS_NULL_D(&argz[j][i]))
80 min = argz[j][i], nul = 0;
81 else if (
min > argz[j][i])
82 min = argz[j][i], nul = 0;