sig
  val verbose : bool Pervasives.ref
  val logpoints : string Pervasives.ref
  type linesearch_method = Backtracking | Golden | Brent
  val linesearch_method : Bfgs.linesearch_method Pervasives.ref
  val bt_acctol : float Pervasives.ref
  val bt_reduc : float Pervasives.ref
  val bt_epsilon : float Pervasives.ref
  val ls_max_iter : int Pervasives.ref
  val ls_abstol : float Pervasives.ref
  val ls_reltol : float Pervasives.ref
  val step : float Pervasives.ref
  val bfgs :
    (float array -> float) ->
    (float array -> float array) ->
    float array ->
    int ->
    float ->
    float -> int -> (int -> bool) -> int * float array * float * float array
end