well I don't know anything about this stuff, but thee appears to be C code in the package in misc.c which evaluates this function. Is that what you want?