mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-06-29 08:24:43 +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);
|
||
|
}
|
||
|
|