CAMLprim value sunml_nvec_par_n_vdotprod(value vx, value vy)
{
    CAMLparam2(vx, vy);
    realtype r = N_VDotProd_Parallel(NVEC_VAL(vx), NVEC_VAL(vy));
    CAMLreturn(caml_copy_double(r));
}
Example #2
0
CAMLprim value caml_div_float(value f, value g)
{
  return caml_copy_double(Double_val(f) / Double_val(g));
}
Example #3
0
CAMLprim value caml_acos_float(value f)
{
  return caml_copy_double(acos(Double_val(f)));
}
Example #4
0
CAMLprim value caml_atan2_float(value f, value g)
{
  return caml_copy_double(atan2(Double_val(f), Double_val(g)));
}
Example #5
0
CAMLprim value caml_log10_float(value f)
{
  return caml_copy_double(log10(Double_val(f)));
}
Example #6
0
CAMLprim value caml_power_float(value f, value g)
{
  return caml_copy_double(pow(Double_val(f), Double_val(g)));
}
Example #7
0
CAMLprim value caml_gc_minor_words(value v)
{
  CAMLparam0 ();   /* v is ignored */
  CAMLreturn(caml_copy_double(caml_gc_minor_words_unboxed()));
}
Example #8
0
CAMLprim value caml_fmod_float(value f1, value f2)
{
  return caml_copy_double(fmod(Double_val(f1), Double_val(f2)));
}
Example #9
0
CAMLprim value caml_copysign_float(value f, value g)
{
    return caml_copy_double(caml_copysign(Double_val(f), Double_val(g)));
}
Example #10
0
/* dereference and return a datetime as epoch */
value caml_oci_get_date_as_double(value defs) {
  CAMLparam1(defs);
  oci_define_t d = Oci_defhandle_val(defs);

  CAMLreturn(caml_copy_double(ocidate_to_epoch(d.ptr)));
}
CAMLprim value sunml_nvec_par_n_vminquotient(value vnum, value vdenom)
{
    CAMLparam2(vnum, vdenom);
    realtype r = N_VMinQuotient_Parallel(NVEC_VAL(vnum), NVEC_VAL(vdenom));
    CAMLreturn(caml_copy_double(r));
}
CAMLprim value sunml_nvec_par_n_vl1norm(value vx)
{
    CAMLparam1(vx);
    realtype r = N_VL1Norm_Parallel(NVEC_VAL(vx));
    CAMLreturn(caml_copy_double(r));
}
CAMLprim value sunml_nvec_par_n_vwl2norm(value vx, value vw)
{
    CAMLparam2(vx, vw);
    realtype r = N_VWL2Norm_Parallel(NVEC_VAL(vx), NVEC_VAL(vw));
    CAMLreturn(caml_copy_double(r));
}
Example #14
0
CAMLprim value caml_exp_float(value f)
{
  return caml_copy_double(exp(Double_val(f)));
}
Example #15
0
CAMLprim value
float_of_int64(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_double((double)Int64_val(v)));
}
Example #16
0
CAMLprim value caml_floor_float(value f)
{
  return caml_copy_double(floor(Double_val(f)));
}
Example #17
0
CAMLprim value
float_of_uint128(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_double((double)Uint128_val(v)));
}
Example #18
0
CAMLprim value caml_ldexp_float(value f, value i)
{
  return caml_copy_double(ldexp(Double_val(f), Int_val(i)));
}
Example #19
0
CAMLprim value
caml_sfSprite_getScaleY(value sprite)
{
    sfVector2f scale = sfSprite_getScale(SfSprite_val(sprite));
    return caml_copy_double(scale.y);
}
Example #20
0
CAMLprim value caml_sqrt_float(value f)
{
  return caml_copy_double(sqrt(Double_val(f)));
}
Example #21
0
CAMLprim value
caml_sfSprite_getRotation(value sprite)
{
    return caml_copy_double(
            sfSprite_getRotation(SfSprite_val(sprite)));
}
Example #22
0
CAMLprim value caml_tanh_float(value f)
{
  return caml_copy_double(tanh(Double_val(f)));
}
Example #23
0
CAMLprim value caml_float_of_int(value n)
{
  return caml_copy_double((double) Long_val(n));
}
Example #24
0
CAMLprim value caml_atan_float(value f)
{
  return caml_copy_double(atan(Double_val(f)));
}
Example #25
0
CAMLprim value caml_neg_float(value f)
{
  return caml_copy_double(- Double_val(f));
}
Example #26
0
CAMLprim value caml_ceil_float(value f)
{
  return caml_copy_double(ceil(Double_val(f)));
}
Example #27
0
CAMLprim value ml_nvec_par_n_vmin(value vx)
{
    CAMLparam1(vx);
    realtype r = N_VMin_Parallel(NVEC_VAL(vx));
    CAMLreturn(caml_copy_double(r));
}