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, 'b, 'c) Bigarray.Array2.t ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int option ->
  int option ->
  [< `L | `R > `L ] ->
  bool ->
  [< `C | `N | `T ] -> [< `N | `U ] -> int * int * char * char * char * char
val syrk_get_params :
  string ->
  (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t option ->
  int option ->
  int option ->
  bool ->
  [< `C | `N | `T > `N ] ->
  int * int * char * char * ('a, 'b, 'c)