57int f_nmode(
int argc,
const int *argt,
void **args)
60 static int value_size;
61 int size = argc *
sizeof(double);
67 for (i = 1; i <= argc; i++)
68 if (argt[i] != argt[0])
71 if (size > value_size) {
73 value = G_realloc(value, value_size);
79 CELL **argv = (CELL **)&args[1];
84 for (j = 0; j < argc; j++) {
85 if (IS_NULL_C(&argv[j][i]))
87 value[n++] = (double)argv[j][i];
93 res[i] = (CELL)mode(value, n);
99 FCELL **argv = (FCELL **)&args[1];
101 for (i = 0; i <
columns; i++) {
104 for (j = 0; j < argc; j++) {
105 if (IS_NULL_F(&argv[j][i]))
107 value[n++] = (double)argv[j][i];
113 res[i] = (FCELL)mode(value, n);
118 DCELL *res = args[0];
119 DCELL **argv = (DCELL **)&args[1];
121 for (i = 0; i <
columns; i++) {
124 for (j = 0; j < argc; j++) {
125 if (IS_NULL_D(&argv[j][i]))
127 value[n++] = (double)argv[j][i];
133 res[i] = (DCELL)mode(value, n);