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 ]
  type schur_vectors = [ `Compute_Schur_vectors | `No_Schur_vectors ]
  type eigen_value_sort =
      [ `No_sort
      | `Select_custom of Stdlib.Complex.t -> bool
      | `Select_exterior_disk
      | `Select_interior_disk
      | `Select_left_plane
      | `Select_right_plane ]
  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
  module Types :
    sig
      module Vec :
        sig
          type 'vec unop =
              ?n:int ->
              ?ofsy:int ->
              ?incy:int -> ?y:'vec -> ?ofsx:int -> ?incx:int -> 'vec -> 'vec
          type 'vec binop =
              ?n:int ->
              ?ofsz:int ->
              ?incz:int ->
              ?z:'vec ->
              ?ofsx:int ->
              ?incx:int -> 'vec -> ?ofsy:int -> ?incy:int -> 'vec -> 'vec
        end
      module Mat :
        sig
          type 'mat unop =
              ?m:int ->
              ?n:int ->
              ?br:int ->
              ?bc:int -> ?b:'mat -> ?ar:int -> ?ac:int -> 'mat -> 'mat
          type 'mat binop =
              ?m:int ->
              ?n:int ->
              ?cr:int ->
              ?cc:int ->
              ?c:'mat ->
              ?ar:int ->
              ?ac:int -> 'mat -> ?br:int -> ?bc:int -> 'mat -> 'mat
        end
    end
end