sig
  type double_vector_flat = private {
    data : float array;
    off : int;
    len : int;
    stride : int;
  }
  type vector = Vector_flat.double_vector_flat
  val check : Vector_flat.vector -> Vector_flat.vector
  val create : ?init:float -> int -> Vector_flat.vector
  val of_array : float array -> Vector_flat.vector
  val to_array : Vector_flat.vector -> float array
  val length : Vector_flat.vector -> int
  val get : Vector_flat.vector -> int -> float
  val set : Vector_flat.vector -> int -> float -> unit
  val set_all : Vector_flat.vector -> float -> unit
  val set_zero : Vector_flat.vector -> unit
  val set_basis : Vector_flat.vector -> int -> unit
  val memcpy : src:Vector_flat.vector -> dst:Vector_flat.vector -> unit
  val copy : Vector_flat.vector -> Vector_flat.vector
  val swap_element : Vector_flat.vector -> int -> int -> unit
  val reverse : Vector_flat.vector -> unit
  external add : Vector_flat.vector -> Vector_flat.vector -> unit
    = "ml_gsl_vector_add"
  external sub : Vector_flat.vector -> Vector_flat.vector -> unit
    = "ml_gsl_vector_sub"
  external mul : Vector_flat.vector -> Vector_flat.vector -> unit
    = "ml_gsl_vector_mul"
  external div : Vector_flat.vector -> Vector_flat.vector -> unit
    = "ml_gsl_vector_div"
  external scale : Vector_flat.vector -> float -> unit
    = "ml_gsl_vector_scale"
  external add_constant : Vector_flat.vector -> float -> unit
    = "ml_gsl_vector_add_constant"
  external is_null : Vector_flat.vector -> bool = "ml_gsl_vector_isnull"
  external max : Vector_flat.vector -> float = "ml_gsl_vector_max"
  external min : Vector_flat.vector -> float = "ml_gsl_vector_min"
  external minmax : Vector_flat.vector -> float * float
    = "ml_gsl_vector_minmax"
  external max_index : Vector_flat.vector -> int = "ml_gsl_vector_maxindex"
  external min_index : Vector_flat.vector -> int = "ml_gsl_vector_minindex"
  external minmax_index : Vector_flat.vector -> int * int
    = "ml_gsl_vector_minmaxindex"
  val subvector :
    ?stride:int ->
    Vector_flat.vector -> off:int -> len:int -> Vector_flat.vector
  val view_array :
    ?stride:int -> ?off:int -> ?len:int -> float array -> Vector_flat.vector
end