15int f_exp(
int argc,
const int *argt,
void **args)
18 DCELL *arg1 = args[1];
27 if (argt[0] != DCELL_TYPE)
30 if (argt[1] != DCELL_TYPE)
33 arg2 = (argc > 1) ? args[2] :
NULL;
36 if (IS_NULL_D(&arg1[i]))
38 else if (argc > 1 && IS_NULL_D(&arg2[i]))
40 else if (argc > 1 && arg1[i] < 0 && arg2[i] != ceil(arg2[i]))
44 res[i] = (argc > 1) ? pow(arg1[i], arg2[i]) : exp(arg1[i]);