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 =
    (int32, Bigarray.int32_elt, Bigarray.fortran_layout) Bigarray.Array1.t
val create_int_vec : int -> int_vec
val mat_of_vec :
  ('a, 'b, 'c) Bigarray.Array1.t -> ('a, 'b, 'c) Bigarray.Array2.t