sig
type ws
val make : int -> Sum.ws
external accel : float array -> Sum.ws -> Fun.result
= "ml_gsl_sum_levin_u_accel"
type ws_info = { size : int; terms_used : int; sum_plain : float; }
external get_info : Sum.ws -> Sum.ws_info = "ml_gsl_sum_levin_u_getinfo"
module Trunc :
sig
type ws
val make : int -> Sum.Trunc.ws
external accel : float array -> Sum.Trunc.ws -> Fun.result
= "ml_gsl_sum_levin_utrunc_accel"
type ws_info = { size : int; terms_used : int; sum_plain : float; }
external get_info : Sum.Trunc.ws -> Sum.Trunc.ws_info
= "ml_gsl_sum_levin_utrunc_getinfo"
end
end