sig
  type trans2 = [ `N | `T ]
  type side = [ `L | `R ]
  type diag = [ `N | `U ]
  type norm2 = [ `I | `O ]
  type norm4 = [ `F | `I | `M | `O ]
  type svd_job = [ `A | `N | `O | `S ]
  exception InternalError of string
  type int_vec =
      (int, Bigarray.int_elt, Bigarray.fortran_layout) Bigarray.Array1.t
  val create_int_vec : int -> Lacaml_common.int_vec
  type int32_vec =
      (int32, Bigarray.int32_elt, Bigarray.fortran_layout) Bigarray.Array1.t
  val create_int32_vec : int -> Lacaml_common.int32_vec
  val mat_from_vec :
    ('a, 'b, 'c) Bigarray.Array1.t -> ('a, 'b, 'c) Bigarray.Array2.t
end