Module `Lacaml_utils`Source

General auxiliary functions

Sourceval empty_int32_vec : Lacaml_common.int32_vec

Sourceval get_norm_char : [< `F | `I | `M | `O ] -> char

Sourceval get_uplo_char : bool -> char

Sourceval get_trans_char : [< `C | `N | `T ] -> char

Sourceval get_side_char : [< `L | `R ] -> char

Sourceval get_diag_char : [< `N | `U ] -> char

Sourceval get_s_d_job_char : [< `A | `N | `O | `S ] -> char

Sourceval get_job_char : bool -> char

Sourceval job_char_true : char

Sourceval job_char_false : char

Sourceval a_str : string

Sourceval ab_str : string

Sourceval alphas_str : string

Sourceval ap_str : string

Sourceval b_str : string

Sourceval c_str : string

Sourceval d_str : string

Sourceval dl_str : string

Sourceval du_str : string

Sourceval e_str : string

Sourceval ipiv_str : string

Sourceval iseed_str : string

Sourceval k_str : string

Sourceval ka_str : string

Sourceval kb_str : string

Sourceval work_str : string

Sourceval lwork_str : string

Sourceval liwork_str : string

Sourceval kd_str : string

Sourceval kl_str : string

Sourceval ku_str : string

Sourceval m_str : string

Sourceval n_str : string

Sourceval nrhs_str : string

Sourceval s_str : string

Sourceval tau_str : string

Sourceval u_str : string

Sourceval um_str : string

Sourceval un_str : string

Sourceval vm_str : string

Sourceval vn_str : string

Sourceval vs_str : string

Sourceval vsr_str : string

Sourceval vsc_str : string

Sourceval vt_str : string

Sourceval w_str : string

Sourceval wi_str : string

Sourceval wr_str : string

Sourceval x_str : string

Sourceval y_str : string

Sourceval z_str : string

Source

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

Sourceval calc_unpacked_dim : string -> int -> int

Sourceval get_unpacked_dim : string -> ?n:int -> int -> int

Sourceval ilaenv : int -> string -> string -> int -> int -> int -> int -> int

Sourceval check_var_ltz : string -> string -> int -> unit

Source

val check_vec : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array1.t ->
  int ->
  unit

Source

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

Source

val check_dim1_mat : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  string ->
  int ->
  unit

Source

val check_dim2_mat : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  string ->
  int ->
  unit

Source

val check_dim_mat : 
  string ->
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  int ->
  unit

Source

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

Source

val get_dim_vec : 
  string ->
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array1.t ->
  string ->
  int option ->
  int

Source

val get_dim1_mat : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  string ->
  int option ->
  int

Source

val get_dim2_mat : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  string ->
  int option ->
  int

Source

val get_k_mat_sb : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  string ->
  int option ->
  int

Source

val get_dim_mat_packed : 
  string ->
  string ->
  int ->
  ('a, 'b, 'c) Bigarray.Array1.t ->
  string ->
  int option ->
  int

Sourceval get_inc : string -> string -> int option -> int

Sourceval get_ofs : string -> string -> int option -> int

Sourceval get_vec_geom : string -> string -> int option -> int option -> int * int

Source

val get_n_of_square : 
  string ->
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int option ->
  int

Source

val get_n_of_a : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int option ->
  int

Source

val get_nrhs_of_b : 
  string ->
  int ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int option ->
  int

Source

val orgqr_err : 
  loc:string ->
  m:int ->
  n:int ->
  k:int ->
  work:('a, 'b, 'c) Bigarray.Array1.t ->
  a:('d, 'e, 'f) Bigarray.Array2.t ->
  err:int ->
  'g

Source

val orgqr_get_params : 
  string ->
  ?m:int ->
  ?n:int ->
  ?k:int ->
  tau:('a, 'b, 'c) Bigarray.Array1.t ->
  ar:int ->
  ac:int ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int * int * int

Source

val ormqr_err : 
  loc:string ->
  side:[< `L | `R ] ->
  m:int ->
  n:int ->
  k:int ->
  lwork:int ->
  a:('a, 'b, 'c) Bigarray.Array2.t ->
  c:('d, 'e, 'f) Bigarray.Array2.t ->
  err:int ->
  'g

Source

val ormqr_get_params : 
  string ->
  side:[< `L | `R ] ->
  ?m:int ->
  ?n:int ->
  ?k:int ->
  tau:('a, 'b, 'c) Bigarray.Array1.t ->
  ar:int ->
  ac:int ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  cr:int ->
  cc:int ->
  ('g, 'h, 'i) Bigarray.Array2.t ->
  int * int * int

Source

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

Source

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

Source

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

Source

val xxev_get_params : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int option ->
  bool ->
  bool ->
  int * char * char

Source

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

Source

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

Source

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

Source

val gXmv_get_params : 
  string ->
  (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
  int ->
  int ->
  int option ->
  int option ->
  ('d, 'e, 'f) Bigarray.Array1.t ->
  int option ->
  int option ->
  ('a, 'b, 'c) Bigarray.Array1.t option ->
  [< `C | `N | `T N ] ->
  int * int * int * int * ('a, 'b, 'c) Bigarray.Array1.t * char

Source

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

Source

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

Source

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

Source

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

Source

val get_rows_mat_tr : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  int ->
  [> `N ] ->
  string ->
  int option ->
  int

Source

val get_cols_mat_tr : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  int ->
  [> `N ] ->
  string ->
  int option ->
  int

Source

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

Source

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

Source

val check_mat_square : 
  string ->
  string ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  int ->
  int ->
  unit

Source

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

Source

val trXm_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

Source

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) Bigarray.Array2.t

Source

val syr2k_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 ->
  bool ->
  [< `C | `N | `T N ] ->
  int * int * char * char * ('a, 'b, 'c) Bigarray.Array2.t

Source

val xlange_get_params : 
  string ->
  int option ->
  int option ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int * int

Source

val xxtrs_get_params : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int option ->
  int * int

Source

val xxtrs_err : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int ->
  'g

Sourceval xxtri_singular_err : string -> int -> 'a

Sourceval xxtri_err : string -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> 'd

Sourceval xxcon_err : string -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> 'd

Source

val geXrf_get_params : 
  string ->
  int option ->
  int option ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int * int

Source

val getrf_err : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  'd

Sourceval getrf_lu_err : string -> int -> 'a

Source

val getrf_get_ipiv : 
  string ->
  (int32, Bigarray.int32_elt, Bigarray.fortran_layout) Bigarray.Array1.t option ->
  int ->
  int ->
  Lacaml_common.int32_vec

Source

val sytrf_get_ipiv : 
  string ->
  (int32, Bigarray.int32_elt, Bigarray.fortran_layout) Bigarray.Array1.t option ->
  int ->
  Lacaml_common.int32_vec

Sourceval sytrf_err : string -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> 'd

Sourceval sytrf_fact_err : string -> int -> 'a

Sourceval potrf_chol_err : string -> int -> 'a

Sourceval potrf_err : string -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> 'd

Source

val potrs_err : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int ->
  'g

Source

val trtrs_err : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int ->
  'g

Source

val tbtrs_err : 
  string ->
  int ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int ->
  'g

Source

val getri_err : 
  string ->
  (int -> int) ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  int ->
  'd

Sourceval trtri_err : string -> int -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> 'd

Source

val gecon_err : 
  string ->
  char ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  'd

Sourceval gees_err : string -> int -> int -> char -> char -> 'a

Sourceval dummy_select_fun : 'a -> bool

Source

val gees_get_params_generic : 
  string ->
  (int -> int -> ('a, 'b, 'c) Bigarray.Array2.t) ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  [< `Compute_Schur_vectors | `No_Schur_vectors ] ->
  [< `No_sort
  | `Select_custom of 'd -> bool
  | `Select_exterior_disk
  | `Select_interior_disk
  | `Select_left_plane
  | `Select_right_plane ] ->
  int option ->
  int ->
  int ->
  ('e, 'f, 'g) Bigarray.Array2.t ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t option ->
  char * char * int * ('d -> bool) * int * ('a, 'b, 'c) Bigarray.Array2.t

Source

val gees_get_params_real : 
  string ->
  (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
  (int -> int -> ('d, 'e, 'f) Bigarray.Array2.t) ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  [< `Compute_Schur_vectors | `No_Schur_vectors ] ->
  [< `No_sort
  | `Select_custom of 'g -> bool
  | `Select_exterior_disk
  | `Select_interior_disk
  | `Select_left_plane
  | `Select_right_plane ] ->
  int option ->
  int ->
  int ->
  ('h, 'i, 'j) Bigarray.Array2.t ->
  ('a, 'b, 'c) Bigarray.Array1.t option ->
  ('a, 'b, 'c) Bigarray.Array1.t option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t option ->
  char
  * char
  * int
  * ('g ->
  bool)
  * int
  * ('d, 'e, 'f) Bigarray.Array2.t
  * ('a, 'b, 'c) Bigarray.Array1.t
  * ('a, 'b, 'c) Bigarray.Array1.t

Source

val gees_get_params_complex : 
  string ->
  (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
  (int -> int -> ('d, 'e, 'f) Bigarray.Array2.t) ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  [< `Compute_Schur_vectors | `No_Schur_vectors ] ->
  [< `No_sort
  | `Select_custom of 'g -> bool
  | `Select_exterior_disk
  | `Select_interior_disk
  | `Select_left_plane
  | `Select_right_plane ] ->
  int option ->
  int ->
  int ->
  ('h, 'i, 'j) Bigarray.Array2.t ->
  ('a, 'b, 'c) Bigarray.Array1.t option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t option ->
  char
  * char
  * int
  * ('g ->
  bool)
  * int
  * ('d, 'e, 'f) Bigarray.Array2.t
  * ('a, 'b, 'c) Bigarray.Array1.t

Source

val gesvd_err : 
  string ->
  char ->
  char ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  ('g, 'h, 'i) Bigarray.Array2.t ->
  int ->
  int ->
  'j

Source

val gesvd_get_params : 
  string ->
  (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
  (int -> int -> ('d, 'e, 'f) Bigarray.Array2.t) ->
  [< `A | `N | `O | `S ] ->
  [< `A | `N | `O | `S ] ->
  int option ->
  int option ->
  int ->
  int ->
  ('g, 'h, 'i) Bigarray.Array2.t ->
  ('a, 'b, 'c) Bigarray.Array1.t option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t option ->
  char
  * char
  * int
  * int
  * ('a, 'b, 'c) Bigarray.Array1.t
  * ('d, 'e, 'f) Bigarray.Array2.t
  * ('d, 'e, 'f) Bigarray.Array2.t

Source

val gesdd_err : 
  string ->
  char ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  ('g, 'h, 'i) Bigarray.Array2.t ->
  int ->
  int ->
  'j

Source

val gesdd_get_params : 
  string ->
  (int -> ('a, 'b, 'c) Bigarray.Array1.t) ->
  (int -> int -> ('d, 'e, 'f) Bigarray.Array2.t) ->
  [< `A | `N | `O | `S ] ->
  int option ->
  int option ->
  int ->
  int ->
  ('g, 'h, 'i) Bigarray.Array2.t ->
  ('a, 'b, 'c) Bigarray.Array1.t option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t option ->
  char
  * int
  * int
  * ('a, 'b, 'c) Bigarray.Array1.t
  * ('d, 'e, 'f) Bigarray.Array2.t
  * ('d, 'e, 'f) Bigarray.Array2.t

Source

val xxsv_err : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int ->
  'd

Sourceval xxsv_lu_err : string -> int -> 'a

Sourceval xxsv_pos_err : string -> int -> 'a

Sourceval xxsv_ind_err : string -> int -> 'a

Sourceval xxsv_a_err : string -> ('a, 'b, 'c) Bigarray.Array2.t -> int -> 'd

Sourceval xxsv_work_err : string -> int -> 'a

Source

val xxsv_get_ipiv : 
  string ->
  (int32, Bigarray.int32_elt, Bigarray.fortran_layout) Bigarray.Array1.t option ->
  int ->
  Lacaml_common.int32_vec

Source

val xxsv_get_params : 
  string ->
  int ->
  int ->
  ('a, 'b, 'c) Bigarray.Array2.t ->
  int option ->
  int ->
  int ->
  ('d, 'e, 'f) Bigarray.Array2.t ->
  int option ->
  int * int

package lacaml

Module Lacaml_utilsSource

Module `Lacaml_utils`Source