mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-07-05 02:45:50 +02:00
16 lines
221 B
C
16 lines
221 B
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);
|
|
}
|
|
|