21int f_log(
int argc,
const int *argt,
void **args)
24 DCELL *arg1 = args[1];
25 DCELL *arg2 = (argc >= 2) ? args[2] : (DCELL *)0;
34 if (argt[0] != DCELL_TYPE)
37 if (argt[1] != DCELL_TYPE)
40 if (argc > 1 && argt[2] != DCELL_TYPE)
44 if (IS_NULL_D(&arg1[i]) || (arg1[i] <= 0.0))
46 else if (argc > 1 && (IS_NULL_D(&arg2[i]) || (arg2[i] <= 0.0)))
50 res[i] = (argc > 1) ? log(arg1[i]) / log(arg2[i]) : log(arg1[i]);