module Common :
  sig
    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
  end
module Utils :
  sig
    val empty_int_vec : Common.int_vec
    val get_norm_char : [< `F | `I | `M | `O ] -> char
    val get_uplo_char : bool -> char
    val get_trans_char : [< `C | `N | `T ] -> char
    val get_side_char : [< `L | `R ] -> char
    val get_diag_char : [< `N | `U ] -> char
    val get_s_d_job_char : [< `A | `N | `O | `S ] -> char
    val get_job_char : bool -> char
    val job_char_true : char
    val job_char_false : char
    val a_str : string
    val ap_str : string
    val b_str : string
    val c_str : string
    val k_str : string
    val m_str : string
    val n_str : string
    val s_str : string
    val u_str : string
    val um_str : string
    val un_str : string
    val vm_str : string
    val vn_str : string
    val vt_str : string
    val x_str : string
    val y_str : string
    val get_work :
      string ->
      (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
      ('a, 'b, 'c) Bigarray.Array1.t option ->
      int -> int -> string -> ('a, 'b, 'c) Bigarray.Array1.t * int
    val calc_unpacked_dim : string -> int -> int
    val get_unpacked_dim : string -> ?n:int -> int -> int
    external ilaenv :
      int -> string -> string -> int -> int -> int -> int -> int
      = "lacaml_ilaenv_stub_bc" "lacaml_ilaenv_stub"
    val check_var_ltz : string -> string -> int -> unit
    val check_vec :
      string -> string -> ('a, 'b, 'c) Bigarray.Array1.t -> int -> unit
    val get_vec :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array1.t option ->
      int ->
      int ->
      int ->
      (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
      ('a, 'b, 'c) Bigarray.Array1.t
    val check_dim1_mat :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t -> int -> string -> int -> unit
    val check_dim2_mat :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t -> int -> string -> int -> unit
    val check_dim_mat :
      string ->
      string ->
      int -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> int -> unit
    val get_mat :
      string ->
      string ->
      (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option ->
      int -> int -> ('a, 'b, 'c) Bigarray.Array2.t
    val get_dim_vec :
      string ->
      string ->
      int ->
      int -> ('a, 'b, 'c) Bigarray.Array1.t -> string -> int option -> int
    val get_dim1_mat :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t -> int -> string -> int option -> int
    val get_dim2_mat :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t -> int -> string -> int option -> int
    val get_k_mat_sb :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t -> int -> string -> int option -> int
    val get_dim_mat_packed :
      string ->
      string ->
      int -> ('a, 'b, 'c) Bigarray.Array1.t -> string -> int option -> int
    val get_inc : string -> string -> int option -> int
    val get_ofs : string -> string -> int option -> int
    val get_vec_geom :
      string -> string -> int option -> int option -> int * int
    val get_n_of_square :
      string ->
      string ->
      int -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int option -> int
    val get_n_of_a :
      string ->
      int -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int option -> int
    val get_nrhs_of_b :
      string ->
      int ->
      int -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int option -> int
    val gelsX_err :
      string ->
      (m:int -> n:int -> nrhs:int -> int) ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      int ->
      int -> int -> int -> int -> ('d, 'e, 'f) Bigarray.Array2.t -> int -> 'g
    val gelsX_get_s :
      (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
      string ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array1.t option -> ('a, 'b, 'c) Bigarray.Array1.t
    val gelsX_get_params :
      string ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      int option ->
      int option ->
      int option ->
      int -> int -> ('d, 'e, 'f) Bigarray.Array2.t -> int * int * int
    val xxev_get_wx :
      (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
      string ->
      string ->
      int ->
      ('a, 'b, 'c) Bigarray.Array1.t option ->
      int -> int * ('a, 'b, 'c) Bigarray.Array1.t
    val geev_get_job_side :
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
      string ->
      int ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option option ->
      int * int * ('a, 'b, 'c) Bigarray.Array2.t * char * bool
    val geev_gen_get_params :
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
      int ->
      int ->
      ('d, 'e, 'f) Bigarray.Array2.t ->
      int option ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option option ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option option ->
      int * int * int * ('a, 'b, 'c) Bigarray.Array2.t * char * int * 
      int * ('a, 'b, 'c) Bigarray.Array2.t * char * bool
    val gXmv_get_params :
      string ->
      (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
      int ->
      int ->
      ('d, 'e, 'f) Bigarray.Array2.t ->
      int option ->
      int option ->
      int option ->
      int option ->
      ('g, 'h, 'i) Bigarray.Array1.t ->
      int option ->
      int option ->
      ('a, 'b, 'c) Bigarray.Array1.t option ->
      [< `C | `N | `T > `N ] ->
      int * int * int * int * int * int * ('a, 'b, 'c) Bigarray.Array1.t *
      char
    val symv_get_params :
      string ->
      (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
      int ->
      int ->
      ('d, 'e, 'f) Bigarray.Array2.t ->
      int option ->
      int option ->
      int option ->
      ('g, 'h, 'i) Bigarray.Array1.t ->
      int option ->
      int option ->
      ('a, 'b, 'c) Bigarray.Array1.t option ->
      bool ->
      int * int * int * int * int * ('a, 'b, 'c) Bigarray.Array1.t * char
    val trXv_get_params :
      string ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      int option ->
      int option ->
      int option ->
      ('d, 'e, 'f) Bigarray.Array1.t ->
      bool ->
      [< `C | `N | `T ] ->
      [< `N | `U ] -> int * int * int * char * char * char
    val tpXv_get_params :
      string ->
      int option ->
      ('a, 'b, 'c) Bigarray.Array1.t ->
      ?n:int ->
      int option ->
      int option ->
      ('d, 'e, 'f) Bigarray.Array1.t ->
      bool ->
      [< `C | `N | `T ] ->
      [< `N | `U ] -> int * int * int * int * char * char * char
    val get_c :
      string ->
      (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option ->
      int -> int -> ('a, 'b, 'c) Bigarray.Array2.t
    val get_rows_mat_tr :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      int -> int -> [> `N ] -> string -> int option -> int
    val get_cols_mat_tr :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      int -> int -> [> `N ] -> string -> int option -> int
    val get_inner_dim :
      string ->
      string ->
      ('a, 'b, 'c) Bigarray.Array2.t ->
      int ->
      int ->
      [> `N ] ->
      string ->
      ('d, 'e, 'f) Bigarray.Array2.t ->
      int -> int -> [> `N ] -> string -> int option -> int
    val gemm_get_params :
      string ->
      (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
      int ->
      int ->
      ('d, 'e, 'f) Bigarray.Array2.t ->
      [< `C | `N | `T > `N ] ->
      int ->
      int ->
      ('g, 'h, 'i) Bigarray.Array2.t ->
      int ->
      [< `C | `N | `T > `N ] ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option ->
      int option ->
      int option ->
      int option ->
      int * int * int * char * char * ('a, 'b, 'c) Bigarray.Array2.t
    val check_mat_square :
      string ->
      string -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> int -> int -> unit
    val symm_get_params :
      string ->
      (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
      int ->
      int ->
      ('d, 'e, 'f) Bigarray.Array2.t ->
      int ->
      int ->
      ('g, 'h, 'i) Bigarray.Array2.t ->
      int ->
      int ->
      ('a, 'b, 'c) Bigarray.Array2.t option ->
      int option ->
      int option ->
      [< `L | `R > `L ] ->
      bool -> int * int * char * char * ('a, 'b, 'c) Bigarray.Array2.t
    val trmm_get_params :
      string ->
      int ->
      int ->
      ('a, '