QCaml/Utils/math_functions.c

#include <math.h>
#include <caml/mlvalues.h>
#include <caml/alloc.h>


CAMLprim value erf_float_bytecode(value x)
{
  return copy_double(erf(Double_val(x)));
}  

CAMLprim double erf_float(double x)
{
  return erf(x);
}