libflame  revision_anchor
Functions
FLA_main_prototypes.h File Reference

(r)

Go to the source code of this file.

Functions

fla_blocksize_tFLA_Blocksize_create (dim_t b_s, dim_t b_d, dim_t b_c, dim_t b_z)
 
fla_blocksize_tFLA_Blocksize_create_copy (fla_blocksize_t *bp)
 
void FLA_Blocksize_set (fla_blocksize_t *bp, dim_t b_s, dim_t b_d, dim_t b_c, dim_t b_z)
 
void FLA_Blocksize_scale (fla_blocksize_t *bp, double factor)
 
void FLA_Blocksize_free (fla_blocksize_t *bp)
 
dim_t FLA_Blocksize_extract (FLA_Datatype dt, fla_blocksize_t *bp)
 
fla_blocksize_tFLA_Query_blocksizes (FLA_Dimension dim)
 
dim_t FLA_Query_blocksize (FLA_Datatype dt, FLA_Dimension dim)
 
dim_t FLA_Determine_blocksize (FLA_Obj A_unproc, FLA_Quadrant to_dir, fla_blocksize_t *cntl_blocksizes)
 
dim_t FLA_determine_matrix_size (FLA_Obj A_unproc, FLA_Quadrant to_dir)
 
unsigned int FLA_Check_error_level (void)
 
unsigned int FLA_Check_error_level_set (unsigned int level)
 
FLA_Error FLA_Check_error_code_helper (int code, char *file, int line)
 
FLA_Error FLA_Check_valid_side (FLA_Side side)
 
FLA_Error FLA_Check_valid_uplo (FLA_Uplo uplo)
 
FLA_Error FLA_Check_valid_trans (FLA_Trans trans)
 
FLA_Error FLA_Check_valid_diag (FLA_Diag diag)
 
FLA_Error FLA_Check_valid_conj (FLA_Conj conj)
 
FLA_Error FLA_Check_valid_direct (FLA_Conj direct)
 
FLA_Error FLA_Check_valid_storev (FLA_Conj storev)
 
FLA_Error FLA_Check_valid_inverse (FLA_Inv inv)
 
FLA_Error FLA_Check_valid_datatype (FLA_Datatype datatype)
 
FLA_Error FLA_Check_valid_object_datatype (FLA_Obj A)
 
FLA_Error FLA_Check_valid_evd_type (FLA_Evd_type evd_type)
 
FLA_Error FLA_Check_valid_svd_type (FLA_Svd_type svd_type)
 
FLA_Error FLA_Check_valid_svd_type_combination (FLA_Svd_type svd_type_u, FLA_Svd_type svd_type_v)
 
FLA_Error FLA_Check_valid_svd_type_and_trans_combination (FLA_Svd_type svd_type_u, FLA_Trans transu, FLA_Svd_type svd_type_v, FLA_Trans transv)
 
FLA_Error FLA_Check_floating_datatype (FLA_Datatype datatype)
 
FLA_Error FLA_Check_int_datatype (FLA_Datatype datatype)
 
FLA_Error FLA_Check_real_datatype (FLA_Datatype datatype)
 
FLA_Error FLA_Check_complex_datatype (FLA_Datatype datatype)
 
FLA_Error FLA_Check_floating_object (FLA_Obj A)
 
FLA_Error FLA_Check_int_object (FLA_Obj A)
 
FLA_Error FLA_Check_real_object (FLA_Obj A)
 
FLA_Error FLA_Check_comparable_object (FLA_Obj A)
 
FLA_Error FLA_Check_complex_object (FLA_Obj A)
 
FLA_Error FLA_Check_consistent_datatype (FLA_Datatype datatype, FLA_Obj A)
 
FLA_Error FLA_Check_consistent_object_datatype (FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Check_identical_object_precision (FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Check_square (FLA_Obj A)
 
FLA_Error FLA_Check_if_scalar (FLA_Obj A)
 
FLA_Error FLA_Check_if_vector (FLA_Obj A)
 
FLA_Error FLA_Check_conformal_dims (FLA_Trans trans, FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Check_matrix_matrix_dims (FLA_Trans transa, FLA_Trans transb, FLA_Obj A, FLA_Obj B, FLA_Obj C)
 
FLA_Error FLA_Check_matrix_vector_dims (FLA_Trans trans, FLA_Obj A, FLA_Obj x, FLA_Obj y)
 
FLA_Error FLA_Check_equal_vector_dims (FLA_Obj x, FLA_Obj y)
 
FLA_Error FLA_Check_conj1_trans_and_datatype (FLA_Trans trans, FLA_Obj A)
 
FLA_Error FLA_Check_hess_indices (FLA_Obj A, int ilo, int ihi)
 
FLA_Error FLA_Check_null_pointer (void *ptr)
 
FLA_Error FLA_Check_object_dims (FLA_Trans trans, dim_t m, dim_t n, FLA_Obj A)
 
FLA_Error FLA_Check_valid_pivot_type (FLA_Pivot_type ptype)
 
FLA_Error FLA_Check_malloc_pointer (void *ptr)
 
FLA_Error FLA_Check_base_buffer_mismatch (FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Check_adjacent_objects_2x2 (FLA_Obj A11, FLA_Obj A12, FLA_Obj A21, FLA_Obj A22)
 
FLA_Error FLA_Check_adjacent_objects_2x1 (FLA_Obj AT, FLA_Obj AB)
 
FLA_Error FLA_Check_adjacent_objects_1x2 (FLA_Obj AL, FLA_Obj AR)
 
FLA_Error FLA_Check_blocksize_value (dim_t b)
 
FLA_Error FLA_Check_blocksize_object (FLA_Datatype datatype, fla_blocksize_t *bp)
 
FLA_Error FLA_Check_file_descriptor (int fd)
 
FLA_Error FLA_Check_lseek_result (int requested_offset, int lseek_r_val)
 
FLA_Error FLA_Check_close_result (int close_r_val)
 
FLA_Error FLA_Check_unlink_result (int unlink_r_val)
 
FLA_Error FLA_Check_read_result (int requested_size, int read_r_val)
 
FLA_Error FLA_Check_write_result (int requested_size, int write_r_val)
 
FLA_Error FLA_Check_valid_quadrant (FLA_Quadrant quad)
 
FLA_Error FLA_Check_vector_dim_min (FLA_Obj x, dim_t min_dim)
 
FLA_Error FLA_Check_pthread_create_result (int pthread_create_r_val)
 
FLA_Error FLA_Check_pthread_join_result (int pthread_join_r_val)
 
FLA_Error FLA_Check_valid_isgn_value (FLA_Obj isgn)
 
FLA_Error FLA_Check_sylv_matrix_dims (FLA_Obj A, FLA_Obj B, FLA_Obj C)
 
FLA_Error FLA_Check_chol_failure (FLA_Error r_val)
 
FLA_Error FLA_Check_valid_elemtype (FLA_Elemtype elemtype)
 
FLA_Error FLA_Check_posix_memalign_failure (int r_val)
 
FLA_Error FLA_Check_submatrix_dims_and_offset (dim_t m, dim_t n, dim_t i, dim_t j, FLA_Obj A)
 
FLA_Error FLA_Check_object_scalar_elemtype (FLA_Obj A)
 
FLA_Error FLA_Check_object_matrix_elemtype (FLA_Obj A)
 
FLA_Error FLA_Check_num_threads (unsigned int n_threads)
 
FLA_Error FLA_Check_conj_and_datatype (FLA_Conj conj, FLA_Obj A)
 
FLA_Error FLA_Check_valid_complex_trans (FLA_Trans trans)
 
FLA_Error FLA_Check_valid_real_trans (FLA_Trans trans)
 
FLA_Error FLA_Check_valid_blas_trans (FLA_Trans trans)
 
FLA_Error FLA_Check_nonconstant_datatype (FLA_Datatype datatype)
 
FLA_Error FLA_Check_nonconstant_object (FLA_Obj A)
 
FLA_Error FLA_Check_identical_object_datatype (FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Check_divide_by_zero (FLA_Obj alpha)
 
FLA_Error FLA_Check_identical_object_elemtype (FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Check_pivot_index_range (FLA_Obj p, dim_t k1, dim_t k2)
 
FLA_Error FLA_Check_householder_panel_dims (FLA_Obj A, FLA_Obj T)
 
FLA_Error FLA_Check_object_length_equals (FLA_Obj A, dim_t m)
 
FLA_Error FLA_Check_object_width_equals (FLA_Obj A, dim_t n)
 
FLA_Error FLA_Check_object_length_min (FLA_Obj A, dim_t m)
 
FLA_Error FLA_Check_object_width_min (FLA_Obj A, dim_t n)
 
FLA_Error FLA_Check_valid_error_level (unsigned int level)
 
FLA_Error FLA_Check_attempted_repart_2x2 (FLA_Obj A_quad, dim_t b_m, dim_t b_n)
 
FLA_Error FLA_Check_attempted_repart_2x1 (FLA_Obj A_side, dim_t b_m)
 
FLA_Error FLA_Check_attempted_repart_1x2 (FLA_Obj A_side, dim_t b_n)
 
FLA_Error FLA_Check_valid_leftright_side (FLA_Side side)
 
FLA_Error FLA_Check_valid_topbottom_side (FLA_Side side)
 
FLA_Error FLA_Check_matrix_strides (dim_t m, dim_t n, dim_t rs, dim_t cs)
 
FLA_Error FLA_Check_vector_dim (FLA_Obj x, dim_t expected_length)
 
FLA_Error FLA_Check_row_vector (FLA_Obj x)
 
FLA_Error FLA_Check_col_vector (FLA_Obj x)
 
FLA_Error FLA_Check_valid_machval (FLA_Machval val)
 
FLA_Error FLA_Check_valid_diag_offset (FLA_Obj A, FLA_Diag_off offset)
 
FLA_Error FLA_Check_col_storage (FLA_Obj A)
 
FLA_Error FLA_Check_row_storage (FLA_Obj A)
 
char * FLA_Error_string_for_code (int code)
 
void FLA_Error_messages_init (void)
 
void FLA_Print_message (char *str, char *file, int line)
 
void FLA_Abort (void)
 
void FLA_Init (void)
 
void FLA_Finalize (void)
 
FLA_Bool FLA_Initialized (void)
 
void FLA_Init_safe (FLA_Error *init_result)
 
void FLA_Finalize_safe (FLA_Error init_result)
 
void FLA_Init_constants (void)
 
void FLA_Finalize_constants (void)
 
void FLA_Init_numerical_constants (void)
 
void FLA_Finalize_numerical_constants (void)
 
void FLA_Lock_init (FLA_Lock *fla_lock_ptr)
 
void FLA_Lock_destroy (FLA_Lock *fla_lock_ptr)
 
void FLA_Lock_acquire (FLA_Lock *fla_lock_ptr)
 
void FLA_Lock_release (FLA_Lock *fla_lock_ptr)
 
void FLA_Memory_leak_counter_init (void)
 
void FLA_Memory_leak_counter_finalize (void)
 
FLA_Bool FLA_Memory_leak_counter_status (void)
 
FLA_Bool FLA_Memory_leak_counter_set (FLA_Bool new_status)
 
void * FLA_malloc (size_t size)
 
void * FLA_realloc (void *old_ptr, size_t size)
 
void FLA_free (void *ptr)
 
FLA_Error FLA_Obj_copy_view (FLA_Obj A, FLA_Obj *B)
 
void FLA_Obj_extract_real_scalar (FLA_Obj alpha, double *alpha_value)
 
void FLA_Obj_extract_complex_scalar (FLA_Obj alpha, dcomplex *alpha_value)
 
void FLA_Obj_extract_real_part (FLA_Obj alpha, FLA_Obj beta)
 
void FLA_Obj_extract_imag_part (FLA_Obj alpha, FLA_Obj beta)
 
void FLA_Obj_set_real_part (FLA_Obj alpha, FLA_Obj beta)
 
void FLA_Obj_set_imag_part (FLA_Obj alpha, FLA_Obj beta)
 
FLA_Error FLA_Obj_show (char *s1, FLA_Obj A, char *format, char *s2)
 
FLA_Error FLA_Obj_fshow (FILE *file, char *s1, FLA_Obj A, char *format, char *s2)
 
FLA_Error FLA_Obj_copy_view_check (FLA_Obj A, FLA_Obj *B)
 
FLA_Error FLA_Obj_extract_real_scalar_check (FLA_Obj alpha, double *alpha_value)
 
FLA_Error FLA_Obj_extract_complex_scalar_check (FLA_Obj alpha, dcomplex *alpha_value)
 
FLA_Error FLA_Obj_extract_real_part_check (FLA_Obj alpha, FLA_Obj beta)
 
FLA_Error FLA_Obj_extract_imag_part_check (FLA_Obj alpha, FLA_Obj beta)
 
FLA_Error FLA_Obj_set_real_part_check (FLA_Obj alpha, FLA_Obj beta)
 
FLA_Error FLA_Obj_set_imag_part_check (FLA_Obj alpha, FLA_Obj beta)
 
FLA_Error FLA_Obj_show_check (char *s1, FLA_Obj obj, char *format, char *s2)
 
FLA_Error FLA_Obj_fshow_check (FILE *file, char *s1, FLA_Obj obj, char *format, char *s2)
 
FLA_Error FLA_Copy_buffer_to_object (FLA_Trans trans, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj obj)
 
FLA_Error FLA_Copy_object_to_buffer (FLA_Trans trans, dim_t i, dim_t j, FLA_Obj obj, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs)
 
FLA_Error FLA_Copy_buffer_to_object_check (FLA_Trans trans, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj obj)
 
FLA_Error FLA_Copy_object_to_buffer_check (FLA_Trans trans, dim_t i, dim_t j, FLA_Obj obj, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs)
 
FLA_Error FLA_Axpy_buffer_to_object (FLA_Trans trans, FLA_Obj alpha, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj C)
 
FLA_Error FLA_Axpy_object_to_buffer (FLA_Trans trans, FLA_Obj alpha, dim_t i, dim_t j, FLA_Obj C, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs)
 
FLA_Error FLA_Axpy_buffer_to_object_check (FLA_Trans trans, FLA_Obj alpha, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj C)
 
FLA_Error FLA_Axpy_object_to_buffer_check (FLA_Trans trans, FLA_Obj alpha, dim_t i, dim_t j, FLA_Obj C, dim_t m, dim_t n, void *buffer, dim_t rs, dim_t cs)
 
void * FLA_shmalloc (size_t size)
 
void FLA_shfree (void *ptr)
 
FLA_Bool FLA_is_owner (void)
 
FLA_Error FLA_Obj_nullify (FLA_Obj *obj)
 
FLA_Error FLA_Obj_create (FLA_Datatype datatype, dim_t m, dim_t n, dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_ext (FLA_Datatype datatype, FLA_Elemtype elemtype, dim_t m, dim_t n, dim_t m_inner, dim_t n_inner, dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_conf_to (FLA_Trans trans, FLA_Obj old, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_copy_of (FLA_Trans trans, FLA_Obj old, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_without_buffer (FLA_Datatype datatype, dim_t m, dim_t n, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_constant (double const_real, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_constant_ext (float const_s, double const_d, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_complex_constant (double const_real, double const_imag, FLA_Obj *obj)
 
FLA_Error FLA_Obj_attach_buffer (void *buffer, dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_buffer (dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_free (FLA_Obj *obj)
 
FLA_Error FLA_Obj_free_without_buffer (FLA_Obj *obj)
 
FLA_Error FLA_Obj_free_buffer (FLA_Obj *obj)
 
dim_t FLA_align_ldim (dim_t ldim, dim_t elem_size)
 
dim_t FLA_compute_num_elem (dim_t elem_size, dim_t m, dim_t n, dim_t *rs, dim_t *cs)
 
void FLA_adjust_strides (dim_t m, dim_t n, dim_t *rs, dim_t *cs)
 
FLA_Error FLA_Obj_flip_base (FLA_Obj *obj)
 
FLA_Error FLA_Obj_flip_view (FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_ext_check (FLA_Datatype datatype, FLA_Elemtype elemtype, dim_t m, dim_t n, dim_t m_inner, dim_t n_inner, dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_conf_to_check (FLA_Trans trans, FLA_Obj obj_old, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_without_buffer_check (FLA_Datatype datatype, dim_t m, dim_t n, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_constant_check (double const_real, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_constant_ext_check (float const_s, double const_d, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_complex_constant_check (double const_real, double const_imag, FLA_Obj *obj)
 
FLA_Error FLA_Obj_attach_buffer_check (void *buffer, dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_buffer_check (dim_t rs, dim_t cs, FLA_Obj *obj)
 
FLA_Error FLA_Obj_free_check (FLA_Obj *obj)
 
FLA_Error FLA_Obj_free_without_buffer_check (FLA_Obj *obj)
 
FLA_Error FLA_Obj_free_buffer_check (FLA_Obj *obj)
 
FLA_Error FLA_Obj_create_buffer_task (dim_t rs, dim_t cs, FLA_Obj obj, void *cntl)
 
FLA_Error FLA_Obj_free_buffer_task (FLA_Obj obj, void *cntl)
 
FLA_Datatype FLA_Obj_datatype (FLA_Obj obj)
 
FLA_Datatype FLA_Obj_datatype_proj_to_real (FLA_Obj A)
 
FLA_Datatype FLA_Obj_datatype_proj_to_complex (FLA_Obj A)
 
FLA_Elemtype FLA_Obj_elemtype (FLA_Obj obj)
 
dim_t FLA_Obj_datatype_size (FLA_Datatype datatype)
 
dim_t FLA_Obj_elem_size (FLA_Obj obj)
 
dim_t FLA_Obj_length (FLA_Obj obj)
 
dim_t FLA_Obj_width (FLA_Obj obj)
 
FLA_Uplo FLA_Obj_structure (FLA_Obj obj)
 
dim_t FLA_Obj_vector_dim (FLA_Obj obj)
 
dim_t FLA_Obj_vector_inc (FLA_Obj obj)
 
dim_t FLA_Obj_min_dim (FLA_Obj obj)
 
dim_t FLA_Obj_max_dim (FLA_Obj obj)
 
dim_t FLA_Obj_row_stride (FLA_Obj obj)
 
dim_t FLA_Obj_col_stride (FLA_Obj obj)
 
dim_t FLA_Obj_row_offset (FLA_Obj obj)
 
dim_t FLA_Obj_col_offset (FLA_Obj obj)
 
dim_t FLA_Obj_base_length (FLA_Obj obj)
 
dim_t FLA_Obj_base_width (FLA_Obj obj)
 
dim_t FLA_Obj_num_elem_alloc (FLA_Obj obj)
 
void * FLA_Obj_base_buffer (FLA_Obj obj)
 
void * FLA_Obj_buffer_at_view (FLA_Obj obj)
 
FLA_Bool FLA_Obj_buffer_is_null (FLA_Obj obj)
 
FLA_Bool FLA_Obj_is_int (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_floating_point (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_constant (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_real (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_complex (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_single_precision (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_double_precision (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_scalar (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_vector (FLA_Obj A)
 
FLA_Bool FLA_Obj_has_zero_dim (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_row_major (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_col_major (FLA_Obj A)
 
FLA_Bool FLA_Obj_is_conformal_to (FLA_Trans trans, FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_is (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_is_identical (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_is_overlapped (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_equals (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_gt (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_ge (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_lt (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_le (FLA_Obj A, FLA_Obj B)
 
void * FLA_Submatrix_at (FLA_Datatype datatype, void *buffer, dim_t i, dim_t j, dim_t rs, dim_t cs)
 
FLA_Bool FLA_Obj_has_nan (FLA_Obj A)
 
FLA_Error FLA_Obj_datatype_check (FLA_Obj obj)
 
FLA_Error FLA_Obj_datatype_proj_to_real_check (FLA_Obj obj)
 
FLA_Error FLA_Obj_elemtype_check (FLA_Obj obj)
 
FLA_Error FLA_Obj_datatype_size_check (FLA_Datatype datatype)
 
FLA_Error FLA_Obj_elem_size_check (FLA_Obj obj)
 
FLA_Error FLA_Obj_buffer_at_view_check (FLA_Obj obj)
 
FLA_Error FLA_Obj_equals_check (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_gt_check (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_ge_check (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_lt_check (FLA_Obj A, FLA_Obj B)
 
FLA_Bool FLA_Obj_le_check (FLA_Obj A, FLA_Obj B)
 
FLA_Error FLA_Submatrix_at_check (FLA_Datatype datatype, void *buffer, dim_t i, dim_t j, dim_t rs, dim_t cs)
 
FLA_Error FLA_Obj_has_nan_check (FLA_Obj A)
 
void FLA_Param_map_flame_to_netlib_trans (FLA_Trans trans, void *blas_trans)
 
void FLA_Param_map_flame_to_netlib_uplo (FLA_Uplo uplo, void *blas_uplo)
 
void FLA_Param_map_flame_to_netlib_side (FLA_Uplo side, void *blas_side)
 
void FLA_Param_map_flame_to_netlib_diag (FLA_Diag diag, void *blas_diag)
 
void FLA_Param_map_flame_to_netlib_direct (FLA_Direct direct, void *lapack_direct)
 
void FLA_Param_map_flame_to_netlib_storev (FLA_Store storev, void *lapack_storev)
 
void FLA_Param_map_flame_to_netlib_evd_type (FLA_Evd_type evd_type, void *lapack_evd_type)
 
void FLA_Param_map_flame_to_netlib_svd_type (FLA_Svd_type svd_type, void *lapack_svd_type)
 
void FLA_Param_map_flame_to_netlib_machval (FLA_Machval machval, void *blas_machval)
 
void FLA_Param_map_flame_to_blis_trans (FLA_Trans trans, trans1_t *blis_trans)
 
void FLA_Param_map_flame_to_blis_conj (FLA_Conj conj, conj1_t *blis_conj)
 
void FLA_Param_map_flame_to_blis_uplo (FLA_Uplo uplo, uplo1_t *blis_uplo)
 
void FLA_Param_map_flame_to_blis_side (FLA_Uplo side, side1_t *blis_side)
 
void FLA_Param_map_flame_to_blis_diag (FLA_Diag diag, diag1_t *blis_diag)
 
void FLA_Param_map_blis_to_flame_trans (trans1_t trans, FLA_Trans *flame_trans)
 
void FLA_Param_map_blis_to_flame_uplo (uplo1_t uplo, FLA_Uplo *flame_uplo)
 
void FLA_Param_map_blis_to_flame_side (side1_t side, FLA_Side *flame_side)
 
void FLA_Param_map_blis_to_flame_diag (diag1_t diag, FLA_Diag *flame_diag)
 
void FLA_Param_map_char_to_flame_trans (char *trans, FLA_Trans *flame_trans)
 
void FLA_Param_map_char_to_flame_uplo (char *uplo, FLA_Uplo *flame_uplo)
 
void FLA_Param_map_char_to_flame_side (char *side, FLA_Side *flame_side)
 
void FLA_Param_map_char_to_flame_diag (char *diag, FLA_Diag *flame_diag)
 
void FLA_Param_map_char_to_flame_storev (char *storev, FLA_Direct *flame_storev)
 
void FLA_Param_map_char_to_flame_direct (char *direct, FLA_Direct *flame_direct)
 
void FLA_Param_map_char_to_flame_inv (char *inv, FLA_Inv *flame_inv)
 
void FLA_Param_map_netlib_to_flame_trans (char *trans, FLA_Trans *flame_trans)
 
void FLA_Param_map_netlib_to_flame_uplo (char *uplo, FLA_Uplo *flame_uplo)
 
void FLA_Param_map_netlib_to_flame_side (char *side, FLA_Side *flame_side)
 
void FLA_Param_map_netlib_to_flame_diag (char *diag, FLA_Diag *flame_diag)
 
void FLA_Param_map_netlib_to_flame_inv (int *itype, FLA_Inv *flame_inv)
 
void FLA_Param_map_netlib_to_flame_svd_type (char *svd, FLA_Svd_type *flame_svd)
 
FLA_Error FLA_Part_2x2 (FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
 
FLA_Error FLA_Part_2x1 (FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t mb, FLA_Side side)
 
FLA_Error FLA_Part_1x2 (FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
 
FLA_Error FLA_Merge_2x2 (FLA_Obj A11, FLA_Obj A12, FLA_Obj A21, FLA_Obj A22, FLA_Obj *A)
 
FLA_Error FLA_Merge_2x1 (FLA_Obj AT, FLA_Obj AB, FLA_Obj *A)
 
FLA_Error FLA_Merge_1x2 (FLA_Obj AL, FLA_Obj AR, FLA_Obj *A)
 
FLA_Error FLA_Repart_2x2_to_3x3 (FLA_Obj ATL, FLA_Obj ATR, FLA_Obj *A00, FLA_Obj *A01, FLA_Obj *A02, FLA_Obj *A10, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj ABL, FLA_Obj ABR, FLA_Obj *A20, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
 
FLA_Error FLA_Repart_2x1_to_3x1 (FLA_Obj AT, FLA_Obj *A0, FLA_Obj *A1, FLA_Obj AB, FLA_Obj *A2, dim_t mb, FLA_Side side)
 
FLA_Error FLA_Repart_1x2_to_1x3 (FLA_Obj AL, FLA_Obj AR, FLA_Obj *A0, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
 
FLA_Error FLA_Cont_with_3x3_to_2x2 (FLA_Obj *ATL, FLA_Obj *ATR, FLA_Obj A00, FLA_Obj A01, FLA_Obj A02, FLA_Obj A10, FLA_Obj A11, FLA_Obj A12, FLA_Obj *ABL, FLA_Obj *ABR, FLA_Obj A20, FLA_Obj A21, FLA_Obj A22, FLA_Quadrant quadrant)
 
FLA_Error FLA_Cont_with_3x1_to_2x1 (FLA_Obj *AT, FLA_Obj A0, FLA_Obj A1, FLA_Obj *AB, FLA_Obj A2, FLA_Side side)
 
FLA_Error FLA_Cont_with_1x3_to_1x2 (FLA_Obj *AL, FLA_Obj *AR, FLA_Obj A0, FLA_Obj A1, FLA_Obj A2, FLA_Side side)
 
FLA_Error FLA_Repart_3x3_to_5x5 (FLA_Obj ATL, FLA_Obj ATM, FLA_Obj ATR, FLA_Obj AML, FLA_Obj AMM, FLA_Obj AMR, FLA_Obj ABL, FLA_Obj ABM, FLA_Obj ABR, FLA_Obj *A00, FLA_Obj *A01, FLA_Obj *A02, FLA_Obj *A03, FLA_Obj *A04, FLA_Obj *A10, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A13, FLA_Obj *A14, FLA_Obj *A20, FLA_Obj *A21, FLA_Obj *A22, FLA_Obj *A23, FLA_Obj *A24, FLA_Obj *A30, FLA_Obj *A31, FLA_Obj *A32, FLA_Obj *A33, FLA_Obj *A34, FLA_Obj *A40, FLA_Obj *A41, FLA_Obj *A42, FLA_Obj *A43, FLA_Obj *A44, dim_t b, FLA_Quadrant quadrant)
 
FLA_Error FLA_Cont_with_5x5_to_3x3 (FLA_Obj *ATL, FLA_Obj *ATM, FLA_Obj *ATR, FLA_Obj *AML, FLA_Obj *AMM, FLA_Obj *AMR, FLA_Obj *ABL, FLA_Obj *ABM, FLA_Obj *ABR, FLA_Obj A00, FLA_Obj A01, FLA_Obj A02, FLA_Obj A03, FLA_Obj A04, FLA_Obj A10, FLA_Obj A11, FLA_Obj A12, FLA_Obj A13, FLA_Obj A14, FLA_Obj A20, FLA_Obj A21, FLA_Obj A22, FLA_Obj A23, FLA_Obj A24, FLA_Obj A30, FLA_Obj A31, FLA_Obj A32, FLA_Obj A33, FLA_Obj A34, FLA_Obj A40, FLA_Obj A41, FLA_Obj A42, FLA_Obj A43, FLA_Obj A44, FLA_Quadrant quadrant)
 
FLA_Error FLA_Part_2x2_check (FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
 
FLA_Error FLA_Part_2x1_check (FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t mb, FLA_Side side)
 
FLA_Error FLA_Part_1x2_check (FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
 
FLA_Error FLA_Merge_2x2_check (FLA_Obj A11, FLA_Obj A12, FLA_Obj A21, FLA_Obj A22, FLA_Obj *A)
 
FLA_Error FLA_Merge_2x1_check (FLA_Obj AT, FLA_Obj AB, FLA_Obj *A)
 
FLA_Error FLA_Merge_1x2_check (FLA_Obj AL, FLA_Obj AR, FLA_Obj *A)
 
FLA_Error FLA_Repart_2x2_to_3x3_check (FLA_Obj ATL, FLA_Obj ATR, FLA_Obj *A00, FLA_Obj *A01, FLA_Obj *A02, FLA_Obj *A10, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj ABL, FLA_Obj ABR, FLA_Obj *A20, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
 
FLA_Error FLA_Repart_2x1_to_3x1_check (FLA_Obj AT, FLA_Obj *A0, FLA_Obj *A1, FLA_Obj AB, FLA_Obj *A2, dim_t mb, FLA_Side side)
 
FLA_Error FLA_Repart_1x2_to_1x3_check (FLA_Obj AL, FLA_Obj AR, FLA_Obj *A0, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
 
FLA_Error FLA_Cont_with_3x3_to_2x2_check (FLA_Obj *ATL, FLA_Obj *ATR, FLA_Obj A00, FLA_Obj A01, FLA_Obj A02, FLA_Obj A10, FLA_Obj A11, FLA_Obj A12, FLA_Obj *ABL, FLA_Obj *ABR, FLA_Obj A20, FLA_Obj A21, FLA_Obj A22, FLA_Quadrant quadrant)
 
FLA_Error FLA_Cont_with_3x1_to_2x1_check (FLA_Obj *AT, FLA_Obj A0, FLA_Obj A1, FLA_Obj *AB, FLA_Obj A2, FLA_Side side)
 
FLA_Error FLA_Cont_with_1x3_to_1x2_check (FLA_Obj *AL, FLA_Obj *AR, FLA_Obj A0, FLA_Obj A1, FLA_Obj A2, FLA_Side side)
 

Function Documentation

◆ FLA_Abort()

void FLA_Abort ( void  )

◆ FLA_adjust_strides()

void FLA_adjust_strides ( dim_t  m,
dim_t  n,
dim_t rs,
dim_t cs 
)
229 {
230  // Check the strides, and modify them if needed.
231  if ( *rs == 0 && *cs == 0 )
232  {
233  // Default values induce column-major storage, except when m == 1,
234  // because we dont want both strides to be unit.
235  if ( m == 1 && n > 1 )
236  {
237  *rs = n;
238  *cs = 1;
239  }
240  else
241  {
242  *rs = 1;
243  *cs = m;
244  }
245  }
246  else if ( *rs == 1 && *cs == 1 )
247  {
248  // If both strides are unit, this is probably a "lazy" request for a
249  // single vector (but could also be a request for a 1xn matrix in column-
250  // major order or an mx1 matrix in row-major order). In libflame, we have
251  // decided to "reserve" the case where rs == cs == 1 for scalars only, as
252  // having unit strides can upset the BLAS error checking when attempting
253  // to induce a row-major operation. Also, there is another special case
254  // where rs == cs == 1 and one or both of m and n equal zero. This last
255  // case is supported to allow creating "empty" objects.
256 
257  if ( m == 0 || n == 0 )
258  {
259  // Nothing needs to be done for the "empty" case where m and/or n
260  // equal zero.
261  }
262  else if ( m == 1 && n == 1 )
263  {
264  // Nothing needs to be done for the scalar case where m == n == 1.
265  }
266  else if ( m > 1 && n == 1 )
267  {
268  // Set the column stride to indicate that this is a column vector stored
269  // in column-major order. This is necessary because, in some cases, we
270  // have to satisify the error checking in the underlying BLAS library,
271  // which expects the leading dimension to be set to at least m, even if
272  // it will never be used for indexing since it is a vector and thus only
273  // has one column of data.
274  *cs = m;
275  }
276  else if ( m == 1 && n > 1 )
277  {
278  // Set the row stride to indicate that this is a row vector stored
279  // in row-major order.
280  *rs = n;
281  }
282  }
283 }

Referenced by FLA_Obj_attach_buffer(), FLA_Obj_create_buffer(), and FLA_Obj_create_ext().

◆ FLA_align_ldim()

dim_t FLA_align_ldim ( dim_t  ldim,
dim_t  elem_size 
)
212 {
213 #ifdef FLA_ENABLE_MEMORY_ALIGNMENT
214  #ifdef FLA_ENABLE_LDIM_ALIGNMENT
215  // Increase ldim so that ( ldim * elem_size ) is a multiple of the desired
216  // alignment.
217  ldim = ( ( ldim * elem_size + FLA_MEMORY_ALIGNMENT_BOUNDARY - 1 ) /
218  FLA_MEMORY_ALIGNMENT_BOUNDARY ) *
219  FLA_MEMORY_ALIGNMENT_BOUNDARY /
220  elem_size;
221  #endif
222 #endif
223 
224  return ldim;
225 }

Referenced by FLA_compute_num_elem().

◆ FLA_Axpy_buffer_to_object()

FLA_Error FLA_Axpy_buffer_to_object ( FLA_Trans  trans,
FLA_Obj  alpha,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs,
dim_t  i,
dim_t  j,
FLA_Obj  C 
)
14 {
15  FLA_Obj X;
16  FLA_Obj YTL, YTR,
17  YBL, Yij;
18 
19  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
20  FLA_Axpy_buffer_to_object_check( trans, alpha, m, n, X_buffer, rs, cs, i, j, Y );
21 
22  FLA_Part_2x2( Y, &YTL, &YTR,
23  &YBL, &Yij, i, j, FLA_TL );
24 
26  FLA_Obj_attach_buffer( X_buffer, rs, cs, &X );
27 
28  FLA_Axpyt_external( trans, alpha, X, Yij );
29 
31 
32  return FLA_SUCCESS;
33 }
FLA_Error FLA_Axpy_buffer_to_object_check(FLA_Trans trans, FLA_Obj alpha, dim_t m, dim_t n, void *A_buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj B)
Definition: FLA_Axpy_buffer_to_object_check.c:13
FLA_Error FLA_Axpyt_external(FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
Definition: FLA_Axpyt_external.c:13
FLA_Error FLA_Part_2x2(FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
Definition: FLA_View.c:17
FLA_Error FLA_Obj_create_without_buffer(FLA_Datatype datatype, dim_t m, dim_t n, FLA_Obj *obj)
Definition: FLA_Obj.c:362
FLA_Error FLA_Obj_free_without_buffer(FLA_Obj *obj)
Definition: FLA_Obj.c:615
FLA_Error FLA_Obj_attach_buffer(void *buffer, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:522
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int i
Definition: bl1_axmyv2.c:145
Definition: FLA_type_defs.h:159

References FLA_Axpy_buffer_to_object_check(), FLA_Axpyt_external(), FLA_Check_error_level(), FLA_Obj_attach_buffer(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_free_without_buffer(), FLA_Part_2x2(), and i.

◆ FLA_Axpy_buffer_to_object_check()

FLA_Error FLA_Axpy_buffer_to_object_check ( FLA_Trans  trans,
FLA_Obj  alpha,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs,
dim_t  i,
dim_t  j,
FLA_Obj  C 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_real_trans( trans );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( B );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( B );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_consistent_object_datatype( B, alpha );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_if_scalar( alpha );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_null_pointer( A_buffer );
33  FLA_Check_error_code( e_val );
34 
35  e_val = FLA_Check_object_dims( trans, m, n, B );
36  FLA_Check_error_code( e_val );
37 
38  e_val = FLA_Check_matrix_strides( m, n, rs, cs );
39  FLA_Check_error_code( e_val );
40 
41  if ( trans == FLA_NO_TRANSPOSE )
42  {
43  e_val = FLA_Check_submatrix_dims_and_offset( m, n, i, j, B );
44  FLA_Check_error_code( e_val );
45  }
46  else
47  {
48  e_val = FLA_Check_submatrix_dims_and_offset( n, m, i, j, B );
49  FLA_Check_error_code( e_val );
50  }
51 
52  e_val = FLA_Check_nonconstant_object( B );
53  FLA_Check_error_code( e_val );
54 
55  return FLA_SUCCESS;
56 }
FLA_Error FLA_Check_matrix_strides(dim_t m, dim_t n, dim_t rs, dim_t cs)
Definition: FLA_Check.c:1146
FLA_Error FLA_Check_if_scalar(FLA_Obj A)
Definition: FLA_Check.c:373
FLA_Error FLA_Check_null_pointer(void *ptr)
Definition: FLA_Check.c:518
FLA_Error FLA_Check_object_dims(FLA_Trans trans, dim_t m, dim_t n, FLA_Obj A)
Definition: FLA_Check.c:528
FLA_Error FLA_Check_consistent_object_datatype(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:339
FLA_Error FLA_Check_nonconstant_object(FLA_Obj A)
Definition: FLA_Check.c:954
FLA_Error FLA_Check_valid_real_trans(FLA_Trans trans)
Definition: FLA_Check.c:917
FLA_Error FLA_Check_submatrix_dims_and_offset(dim_t m, dim_t n, dim_t i, dim_t j, FLA_Obj A)
Definition: FLA_Check.c:834
FLA_Error FLA_Check_floating_object(FLA_Obj A)
Definition: FLA_Check.c:232
int FLA_Error
Definition: FLA_type_defs.h:47

References FLA_Check_consistent_object_datatype(), FLA_Check_floating_object(), FLA_Check_if_scalar(), FLA_Check_matrix_strides(), FLA_Check_nonconstant_object(), FLA_Check_null_pointer(), FLA_Check_object_dims(), FLA_Check_submatrix_dims_and_offset(), FLA_Check_valid_real_trans(), and i.

Referenced by FLA_Axpy_buffer_to_object().

◆ FLA_Axpy_object_to_buffer()

FLA_Error FLA_Axpy_object_to_buffer ( FLA_Trans  trans,
FLA_Obj  alpha,
dim_t  i,
dim_t  j,
FLA_Obj  C,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs 
)
38 {
39  FLA_Obj Y;
40  FLA_Obj XTL, XTR,
41  XBL, Xij;
42 
43  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
44  FLA_Axpy_object_to_buffer_check( trans, alpha, i, j, X, m, n, Y_buffer, rs, cs );
45 
46  FLA_Part_2x2( X, &XTL, &XTR,
47  &XBL, &Xij, i, j, FLA_TL );
48 
50  FLA_Obj_attach_buffer( Y_buffer, rs, cs, &Y );
51 
52  FLA_Axpyt_external( trans, alpha, Xij, Y );
53 
55 
56  return FLA_SUCCESS;
57 }
FLA_Error FLA_Axpy_object_to_buffer_check(FLA_Trans trans, FLA_Obj alpha, dim_t i, dim_t j, FLA_Obj A, dim_t m, dim_t n, void *B_buffer, dim_t rs, dim_t cs)
Definition: FLA_Axpy_object_to_buffer_check.c:13

References FLA_Axpy_object_to_buffer_check(), FLA_Axpyt_external(), FLA_Check_error_level(), FLA_Obj_attach_buffer(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_free_without_buffer(), FLA_Part_2x2(), and i.

◆ FLA_Axpy_object_to_buffer_check()

FLA_Error FLA_Axpy_object_to_buffer_check ( FLA_Trans  trans,
FLA_Obj  alpha,
dim_t  i,
dim_t  j,
FLA_Obj  C,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_real_trans( trans );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( A );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_consistent_object_datatype( A, alpha );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_if_scalar( alpha );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_null_pointer( B_buffer );
33  FLA_Check_error_code( e_val );
34 
35  e_val = FLA_Check_object_dims( trans, m, n, A );
36  FLA_Check_error_code( e_val );
37 
38  e_val = FLA_Check_matrix_strides( m, n, rs, cs );
39  FLA_Check_error_code( e_val );
40 
41  if ( trans == FLA_NO_TRANSPOSE )
42  {
43  e_val = FLA_Check_submatrix_dims_and_offset( m, n, i, j, A );
44  FLA_Check_error_code( e_val );
45  }
46  else
47  {
48  e_val = FLA_Check_submatrix_dims_and_offset( n, m, i, j, A );
49  FLA_Check_error_code( e_val );
50  }
51 
52  e_val = FLA_Check_nonconstant_object( A );
53  FLA_Check_error_code( e_val );
54 
55  return FLA_SUCCESS;
56 }

References FLA_Check_consistent_object_datatype(), FLA_Check_floating_object(), FLA_Check_if_scalar(), FLA_Check_matrix_strides(), FLA_Check_nonconstant_object(), FLA_Check_null_pointer(), FLA_Check_object_dims(), FLA_Check_submatrix_dims_and_offset(), FLA_Check_valid_real_trans(), and i.

Referenced by FLA_Axpy_object_to_buffer().

◆ FLA_Blocksize_create()

fla_blocksize_t* FLA_Blocksize_create ( dim_t  b_s,
dim_t  b_d,
dim_t  b_c,
dim_t  b_z 
)
37 {
38  fla_blocksize_t* bp;
39 
40  // Allocate memory for the blocksize structure.
41  bp = ( fla_blocksize_t* ) FLA_malloc( sizeof(fla_blocksize_t) );
42 
43  // Assign the provided blocksize values into the corresponding fields.
44  bp->s = b_s;
45  bp->d = b_d;
46  bp->c = b_c;
47  bp->z = b_z;
48 
49  // Return a pointer to the structure.
50  return bp;
51 }
void * FLA_malloc(size_t size)
Definition: FLA_Memory.c:111
Definition: FLA_Cntl.h:14
dim_t s
Definition: FLA_Cntl.h:15
dim_t z
Definition: FLA_Cntl.h:18
dim_t d
Definition: FLA_Cntl.h:16
dim_t c
Definition: FLA_Cntl.h:17

References FLA_Blocksize_s::c, FLA_Blocksize_s::d, FLA_malloc(), FLA_Blocksize_s::s, and FLA_Blocksize_s::z.

Referenced by FLA_Query_blocksizes(), FLASH_Apply_CAQ2_UT_cntl_init(), FLASH_Apply_CAQ_UT_inc_cntl_init(), FLASH_Apply_pivots_cntl_init(), FLASH_Apply_Q2_UT_cntl_init(), FLASH_Apply_Q_UT_cntl_init(), FLASH_Apply_Q_UT_inc_cntl_init(), FLASH_Apply_QUD_UT_cntl_init(), FLASH_Apply_QUD_UT_inc_cntl_init(), FLASH_Axpy_cntl_init(), FLASH_Axpyt_cntl_init(), FLASH_CAQR2_UT_cntl_init(), FLASH_CAQR_UT_inc_cntl_init(), FLASH_Chol_cntl_init(), FLASH_Copy_cntl_init(), FLASH_Copyr_cntl_init(), FLASH_Copyt_cntl_init(), FLASH_Eig_gest_cntl_init(), FLASH_Gemm_cntl_init(), FLASH_Gemv_cntl_init(), FLASH_Hemm_cntl_init(), FLASH_Her2k_cntl_init(), FLASH_Herk_cntl_init(), FLASH_LQ_UT_cntl_init(), FLASH_LU_incpiv_cntl_init(), FLASH_LU_nopiv_cntl_init(), FLASH_LU_piv_cntl_init(), FLASH_Lyap_cntl_init(), FLASH_QR2_UT_cntl_init(), FLASH_QR_UT_cntl_init(), FLASH_QR_UT_inc_cntl_init(), FLASH_Scal_cntl_init(), FLASH_Scalr_cntl_init(), FLASH_Sylv_cntl_init(), FLASH_Symm_cntl_init(), FLASH_Syr2k_cntl_init(), FLASH_Syrk_cntl_init(), FLASH_Trinv_cntl_init(), FLASH_Trmm_cntl_init(), FLASH_Trsm_cntl_init(), FLASH_Trsv_cntl_init(), FLASH_Ttmm_cntl_init(), FLASH_UDdate_UT_cntl_init(), and FLASH_UDdate_UT_inc_cntl_init().

◆ FLA_Blocksize_create_copy()

fla_blocksize_t* FLA_Blocksize_create_copy ( fla_blocksize_t bp)
84 {
85  fla_blocksize_t* bp_copy;
86  FLA_Error e_val;
87 
88  // Verify that the given blocksize pointer is valid.
89  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
90  {
91  e_val = FLA_Check_null_pointer( bp );
92  FLA_Check_error_code( e_val );
93  }
94 
95  // Allocate memory for the blocksize structure.
96  bp_copy = ( fla_blocksize_t* ) FLA_malloc( sizeof(fla_blocksize_t) );
97 
98  // Assign the provided blocksize object's values into the corresponding
99  // fields of the new object.
100  bp_copy->s = bp->s;
101  bp_copy->d = bp->d;
102  bp_copy->c = bp->c;
103  bp_copy->z = bp->z;
104 
105  // Return a pointer to the structure.
106  return bp_copy;
107 }

References FLA_Blocksize_s::c, FLA_Blocksize_s::d, FLA_Check_error_level(), FLA_Check_null_pointer(), FLA_malloc(), FLA_Blocksize_s::s, and FLA_Blocksize_s::z.

Referenced by FLA_Chol_cntl_init(), FLA_LU_nopiv_cntl_init(), and FLA_LU_piv_cntl_init().

◆ FLA_Blocksize_extract()

dim_t FLA_Blocksize_extract ( FLA_Datatype  dt,
fla_blocksize_t bp 
)
117 {
118  dim_t b = 0;
119  FLA_Error e_val;
120 
121  // Verify that the given blocksize pointer is valid.
122  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
123  {
124  e_val = FLA_Check_null_pointer( bp );
125  FLA_Check_error_code( e_val );
126  }
127 
128  if ( dt == FLA_FLOAT )
129  b = bp->s;
130  else if ( dt == FLA_DOUBLE )
131  b = bp->d;
132  else if ( dt == FLA_COMPLEX )
133  b = bp->c;
134  else if ( dt == FLA_DOUBLE_COMPLEX )
135  b = bp->z;
136 
137  // Return the blocksize corresponding with the datatype.
138  return b;
139 }
unsigned long dim_t
Definition: FLA_type_defs.h:71

References FLA_Blocksize_s::c, FLA_Blocksize_s::d, FLA_Check_error_level(), FLA_Check_null_pointer(), FLA_Blocksize_s::s, and FLA_Blocksize_s::z.

Referenced by FLA_Check_blocksize_object(), FLA_Determine_blocksize(), FLA_Trinv(), and FLA_Ttmm().

◆ FLA_Blocksize_free()

void FLA_Blocksize_free ( fla_blocksize_t bp)
111 {
112  FLA_free( bp );
113 }
void FLA_free(void *ptr)
Definition: FLA_Memory.c:247

References FLA_free().

Referenced by FLA_Apply_CAQ2_UT_cntl_finalize(), FLA_Apply_Q2_UT_cntl_finalize(), FLA_Apply_Q_UT_cntl_finalize(), FLA_Apply_QUD_UT_cntl_finalize(), FLA_Bidiag_UT_cntl_finalize(), FLA_CAQR2_UT_cntl_finalize(), FLA_Chol_cntl_finalize(), FLA_Eig_gest_cntl_finalize(), FLA_Gemm_cntl_finalize(), FLA_Hemm_cntl_finalize(), FLA_Her2k_cntl_finalize(), FLA_Herk_cntl_finalize(), FLA_Hess_UT_cntl_finalize(), FLA_LQ_UT_cntl_finalize(), FLA_LU_nopiv_cntl_finalize(), FLA_LU_piv_cntl_finalize(), FLA_Lyap_cntl_finalize(), FLA_QR2_UT_cntl_finalize(), FLA_QR_UT_cntl_finalize(), FLA_SPDinv_cntl_finalize(), FLA_Sylv_cntl_finalize(), FLA_Symm_cntl_finalize(), FLA_Syr2k_cntl_finalize(), FLA_Syrk_cntl_finalize(), FLA_Transpose_cntl_finalize(), FLA_Tridiag_UT_cntl_finalize(), FLA_Trinv_cntl_finalize(), FLA_Trmm_cntl_finalize(), FLA_Trsm_cntl_finalize(), FLA_Ttmm_cntl_finalize(), FLA_UDdate_UT_cntl_finalize(), FLASH_Apply_CAQ2_UT_cntl_finalize(), FLASH_Apply_CAQ_UT_inc_cntl_finalize(), FLASH_Apply_pivots_cntl_finalize(), FLASH_Apply_Q2_UT_cntl_finalize(), FLASH_Apply_Q_UT_cntl_finalize(), FLASH_Apply_Q_UT_inc_cntl_finalize(), FLASH_Apply_QUD_UT_cntl_finalize(), FLASH_Apply_QUD_UT_inc_cntl_finalize(), FLASH_Axpy_cntl_finalize(), FLASH_Axpyt_cntl_finalize(), FLASH_CAQR2_UT_cntl_finalize(), FLASH_CAQR_UT_inc_cntl_finalize(), FLASH_Chol_cntl_finalize(), FLASH_Copy_cntl_finalize(), FLASH_Copyr_cntl_finalize(), FLASH_Copyt_cntl_finalize(), FLASH_Eig_gest_cntl_finalize(), FLASH_Gemm_cntl_finalize(), FLASH_Gemv_cntl_finalize(), FLASH_Hemm_cntl_finalize(), FLASH_Her2k_cntl_finalize(), FLASH_Herk_cntl_finalize(), FLASH_LQ_UT_cntl_finalize(), FLASH_LU_incpiv_cntl_finalize(), FLASH_LU_nopiv_cntl_finalize(), FLASH_LU_piv_cntl_finalize(), FLASH_Lyap_cntl_finalize(), FLASH_QR2_UT_cntl_finalize(), FLASH_QR_UT_cntl_finalize(), FLASH_QR_UT_inc_cntl_finalize(), FLASH_Scal_cntl_finalize(), FLASH_Scalr_cntl_finalize(), FLASH_SPDinv_cntl_finalize(), FLASH_Sylv_cntl_finalize(), FLASH_Symm_cntl_finalize(), FLASH_Syr2k_cntl_finalize(), FLASH_Syrk_cntl_finalize(), FLASH_Trinv_cntl_finalize(), FLASH_Trmm_cntl_finalize(), FLASH_Trsm_cntl_finalize(), FLASH_Trsv_cntl_finalize(), FLASH_Ttmm_cntl_finalize(), FLASH_UDdate_UT_cntl_finalize(), and FLASH_UDdate_UT_inc_cntl_finalize().

◆ FLA_Blocksize_scale()

void FLA_Blocksize_scale ( fla_blocksize_t bp,
double  factor 
)
65 {
66  FLA_Error e_val;
67 
68  // Verify that the given blocksize pointer is valid.
69  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
70  {
71  e_val = FLA_Check_null_pointer( bp );
72  FLA_Check_error_code( e_val );
73  }
74 
75  // Assign the provided blocksize values into the corresponding fields.
76  bp->s = ( dim_t )( ( double ) bp->s * factor );
77  bp->d = ( dim_t )( ( double ) bp->d * factor );
78  bp->c = ( dim_t )( ( double ) bp->c * factor );
79  bp->z = ( dim_t )( ( double ) bp->z * factor );
80 }

References FLA_Blocksize_s::c, FLA_Blocksize_s::d, FLA_Check_error_level(), FLA_Check_null_pointer(), FLA_Blocksize_s::s, and FLA_Blocksize_s::z.

Referenced by FLA_Apply_CAQ2_UT_cntl_init(), FLA_Apply_Q2_UT_cntl_init(), FLA_Apply_Q_UT_cntl_init(), FLA_Apply_QUD_UT_cntl_init(), FLA_Bidiag_UT_cntl_init(), FLA_CAQR2_UT_cntl_init(), FLA_Chol_cntl_init(), FLA_Hess_UT_cntl_init(), FLA_LQ_UT_cntl_init(), FLA_LU_nopiv_cntl_init(), FLA_LU_piv_cntl_init(), FLA_QR2_UT_cntl_init(), FLA_QR_UT_cntl_init(), FLA_Tridiag_UT_cntl_init(), and FLA_UDdate_UT_cntl_init().

◆ FLA_Blocksize_set()

void FLA_Blocksize_set ( fla_blocksize_t bp,
dim_t  b_s,
dim_t  b_d,
dim_t  b_c,
dim_t  b_z 
)
55 {
56  // Assign the provided blocksize values into the corresponding fields.
57  if ( b_s != 0 ) bp->s = b_s;
58  if ( b_d != 0 ) bp->d = b_d;
59  if ( b_c != 0 ) bp->c = b_c;
60  if ( b_z != 0 ) bp->z = b_z;
61 }

References FLA_Blocksize_s::c, FLA_Blocksize_s::d, FLA_Blocksize_s::s, and FLA_Blocksize_s::z.

Referenced by FLASH_Apply_Q_UT().

◆ FLA_Check_adjacent_objects_1x2()

FLA_Error FLA_Check_adjacent_objects_1x2 ( FLA_Obj  AL,
FLA_Obj  AR 
)
630 {
631  FLA_Error e_val = FLA_SUCCESS;
632 
633  if ( FLA_Obj_length( AL ) != FLA_Obj_length( AR ) )
634  e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;
635 
636  if ( AR.offn != AL.offn + FLA_Obj_width( AL ) )
637  e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ADJ;
638 
639  if ( AL.offm != AR.offm )
640  e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED;
641 
642  return e_val;
643 }
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
dim_t offm
Definition: FLA_type_defs.h:161
dim_t offn
Definition: FLA_type_defs.h:162

References FLA_Obj_length(), FLA_Obj_width(), FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Merge_1x2_check().

◆ FLA_Check_adjacent_objects_2x1()

FLA_Error FLA_Check_adjacent_objects_2x1 ( FLA_Obj  AT,
FLA_Obj  AB 
)
614 {
615  FLA_Error e_val = FLA_SUCCESS;
616 
617  if ( FLA_Obj_width( AT ) != FLA_Obj_width( AB ) )
618  e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;
619 
620  if ( AB.offm != AT.offm + FLA_Obj_length( AT ) )
621  e_val = FLA_OBJECTS_NOT_VERTICALLY_ADJ;
622 
623  if ( AB.offn != AT.offn )
624  e_val = FLA_OBJECTS_NOT_VERTICALLY_ALIGNED;
625 
626  return e_val;
627 }

References FLA_Obj_length(), FLA_Obj_width(), FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Merge_2x1_check().

◆ FLA_Check_adjacent_objects_2x2()

FLA_Error FLA_Check_adjacent_objects_2x2 ( FLA_Obj  A11,
FLA_Obj  A12,
FLA_Obj  A21,
FLA_Obj  A22 
)
584 {
585  FLA_Error e_val = FLA_SUCCESS;
586 
587  if ( FLA_Obj_length( ATL ) != FLA_Obj_length( ATR ) ||
588  FLA_Obj_length( ABL ) != FLA_Obj_length( ABR ) ||
589  FLA_Obj_width( ATL ) != FLA_Obj_width( ABL ) ||
590  FLA_Obj_width( ATR ) != FLA_Obj_width( ABR ) )
591  e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;
592 
593  if ( ATL.offm != ABL.offm + FLA_Obj_length( ABL ) ||
594  ATR.offm != ABR.offm + FLA_Obj_length( ABL ) )
595  e_val = FLA_OBJECTS_NOT_VERTICALLY_ADJ;
596 
597  if ( ATL.offn != ABL.offn ||
598  ATR.offn != ABR.offn )
599  e_val = FLA_OBJECTS_NOT_VERTICALLY_ALIGNED;
600 
601  if ( ATL.offn != ATR.offn + FLA_Obj_width( ATR ) ||
602  ABL.offn != ABR.offn + FLA_Obj_width( ATR ) )
603  e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ADJ;
604 
605  if ( ATL.offm != ATR.offm ||
606  ABL.offm != ABR.offm )
607  e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED;
608 
609  return e_val;
610 }

References FLA_Obj_length(), FLA_Obj_width(), FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Merge_2x2_check().

◆ FLA_Check_attempted_repart_1x2()

FLA_Error FLA_Check_attempted_repart_1x2 ( FLA_Obj  A_side,
dim_t  b_n 
)
1115 {
1116  FLA_Error e_val = FLA_SUCCESS;
1117 
1118  if ( b_n > FLA_Obj_width( A_side ) )
1119  e_val = FLA_ATTEMPTED_OVER_REPART_1X2;
1120 
1121  return e_val;
1122 }

References FLA_Obj_width().

Referenced by FLA_Repart_1x2_to_1x3_check().

◆ FLA_Check_attempted_repart_2x1()

FLA_Error FLA_Check_attempted_repart_2x1 ( FLA_Obj  A_side,
dim_t  b_m 
)
1105 {
1106  FLA_Error e_val = FLA_SUCCESS;
1107 
1108  if ( b_m > FLA_Obj_length( A_side ) )
1109  e_val = FLA_ATTEMPTED_OVER_REPART_2X1;
1110 
1111  return e_val;
1112 }

References FLA_Obj_length().

Referenced by FLA_Repart_2x1_to_3x1_check().

◆ FLA_Check_attempted_repart_2x2()

FLA_Error FLA_Check_attempted_repart_2x2 ( FLA_Obj  A_quad,
dim_t  b_m,
dim_t  b_n 
)
1092 {
1093  FLA_Error e_val = FLA_SUCCESS;
1094 
1095  if ( b_m > FLA_Obj_length( A_quad ) )
1096  e_val = FLA_ATTEMPTED_OVER_REPART_2X2;
1097 
1098  if ( b_n > FLA_Obj_width( A_quad ) )
1099  e_val = FLA_ATTEMPTED_OVER_REPART_2X2;
1100 
1101  return e_val;
1102 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Repart_2x2_to_3x3_check().

◆ FLA_Check_base_buffer_mismatch()

FLA_Error FLA_Check_base_buffer_mismatch ( FLA_Obj  A,
FLA_Obj  B 
)
573 {
574  FLA_Error e_val = FLA_SUCCESS;
575 
576  if ( A.base->buffer != B.base->buffer )
577  e_val = FLA_OBJECT_BASE_BUFFER_MISMATCH;
578 
579  return e_val;
580 }
void * buffer
Definition: FLA_type_defs.h:138
FLA_Base_obj * base
Definition: FLA_type_defs.h:168

References FLA_Obj_view::base, and FLA_Obj_struct::buffer.

Referenced by FLA_Merge_1x2_check(), FLA_Merge_2x1_check(), and FLA_Merge_2x2_check().

◆ FLA_Check_blocksize_object()

FLA_Error FLA_Check_blocksize_object ( FLA_Datatype  datatype,
fla_blocksize_t bp 
)
656 {
657  FLA_Error e_val = FLA_SUCCESS;
658  dim_t b;
659 
660  b = FLA_Blocksize_extract( datatype, bp );
661  if ( b <= 0 )
662  e_val = FLA_INVALID_BLOCKSIZE_OBJ;
663 
664  return e_val;
665 }
dim_t FLA_Blocksize_extract(FLA_Datatype dt, fla_blocksize_t *bp)
Definition: FLA_Blocksize.c:116

References FLA_Blocksize_extract().

◆ FLA_Check_blocksize_value()

FLA_Error FLA_Check_blocksize_value ( dim_t  b)
646 {
647  FLA_Error e_val = FLA_SUCCESS;
648 
649  if ( b <= 0 )
650  e_val = FLA_INVALID_BLOCKSIZE_VALUE;
651 
652  return e_val;
653 }

Referenced by FLA_Determine_blocksize().

◆ FLA_Check_chol_failure()

FLA_Error FLA_Check_chol_failure ( FLA_Error  r_val)
804 {
805  FLA_Error e_val = FLA_SUCCESS;
806 
807  if ( r_val > 0 )
808  e_val = FLA_CHOL_FAILED_MATRIX_NOT_SPD;
809 
810  return e_val;
811 }

Referenced by FLA_SPDinv_internal().

◆ FLA_Check_close_result()

FLA_Error FLA_Check_close_result ( int  close_r_val)
688 {
689  FLA_Error e_val = FLA_SUCCESS;
690 
691  if ( close_r_val == -1 )
692  e_val = FLA_CLOSE_RETURNED_ERROR;
693 
694  return e_val;
695 }

◆ FLA_Check_col_storage()

FLA_Error FLA_Check_col_storage ( FLA_Obj  A)
1326 {
1327  FLA_Error e_val = FLA_SUCCESS;
1328 
1329  if ( FLA_Obj_row_stride( A ) != 1 )
1330  e_val = FLA_EXPECTED_COL_STORAGE;
1331 
1332  return e_val;
1333 }
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167

References FLA_Obj_row_stride().

Referenced by FLA_Bidiag_check(), FLA_Hess_check(), FLA_Hevd_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_LQ_check(), FLA_QR_check(), FLA_Svd_check(), FLA_Svd_ext_check(), and FLA_Tridiag_check().

◆ FLA_Check_col_vector()

FLA_Error FLA_Check_col_vector ( FLA_Obj  x)
1234 {
1235  FLA_Error e_val = FLA_SUCCESS;
1236 
1237  if ( FLA_Obj_width( x ) != 1 )
1238  e_val = FLA_EXPECTED_COL_VECTOR;
1239 
1240  return e_val;
1241 }

References FLA_Obj_width().

Referenced by FLA_Accum_T_UT_check(), FLA_Bidiag_check(), FLA_LQ_check(), FLA_LU_piv_check(), FLA_LU_piv_solve_check(), FLA_QR_check(), FLA_Shift_pivots_to_check(), and FLA_Tridiag_check().

◆ FLA_Check_comparable_object()

FLA_Error FLA_Check_comparable_object ( FLA_Obj  A)
272 {
273  FLA_Error e_val = FLA_SUCCESS;
274  FLA_Datatype datatype;
275 
276  datatype = FLA_Obj_datatype( A );
277 
278  if ( FLA_Check_int_datatype( datatype ) != FLA_SUCCESS &&
279  FLA_Check_real_datatype( datatype ) != FLA_SUCCESS )
280  e_val = FLA_OBJECT_NOT_COMPARABLE;
281 
282  return e_val;
283 }
FLA_Error FLA_Check_real_datatype(FLA_Datatype datatype)
Definition: FLA_Check.c:208
FLA_Error FLA_Check_int_datatype(FLA_Datatype datatype)
Definition: FLA_Check.c:197
int FLA_Datatype
Definition: FLA_type_defs.h:49

References FLA_Check_int_datatype(), FLA_Check_real_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Obj_ge_check(), FLA_Obj_gt_check(), FLA_Obj_le_check(), and FLA_Obj_lt_check().

◆ FLA_Check_complex_datatype()

FLA_Error FLA_Check_complex_datatype ( FLA_Datatype  datatype)
221 {
222  FLA_Error e_val = FLA_SUCCESS;
223 
224  if ( datatype != FLA_CONSTANT &&
225  datatype != FLA_COMPLEX &&
226  datatype != FLA_DOUBLE_COMPLEX )
227  e_val = FLA_INVALID_COMPLEX_DATATYPE;
228 
229  return e_val;
230 }

Referenced by FLA_Check_complex_object().

◆ FLA_Check_complex_object()

FLA_Error FLA_Check_complex_object ( FLA_Obj  A)
286 {
287  FLA_Error e_val = FLA_SUCCESS;
288  FLA_Datatype datatype;
289 
290  datatype = FLA_Obj_datatype( A );
291 
292  if ( FLA_Check_complex_datatype( datatype ) != FLA_SUCCESS )
293  e_val = FLA_OBJECT_NOT_COMPLEX;
294 
295  return e_val;
296 }
FLA_Error FLA_Check_complex_datatype(FLA_Datatype datatype)
Definition: FLA_Check.c:220

References FLA_Check_complex_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Apply_G_check(), FLA_Bsvd_check(), and FLA_Obj_extract_complex_scalar_check().

◆ FLA_Check_conformal_dims()

FLA_Error FLA_Check_conformal_dims ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  B 
)
394 {
395  FLA_Error e_val = FLA_SUCCESS;
396 
397  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
398  {
399  if ( FLA_Obj_length( A ) != FLA_Obj_length( B ) )
400  e_val = FLA_NONCONFORMAL_DIMENSIONS;
401 
402  if ( FLA_Obj_width( A ) != FLA_Obj_width( B ) )
403  e_val = FLA_NONCONFORMAL_DIMENSIONS;
404  }
405  else
406  {
407  if ( FLA_Obj_width( A ) != FLA_Obj_length( B ) )
408  e_val = FLA_NONCONFORMAL_DIMENSIONS;
409 
410  if ( FLA_Obj_length( A ) != FLA_Obj_width( B ) )
411  e_val = FLA_NONCONFORMAL_DIMENSIONS;
412  }
413 
414  return e_val;
415 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_CAQ_UT_inc_internal_check(), FLA_Apply_HUD_UT_check(), FLA_Apply_Q2_UT_check(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_internal_check(), FLA_Axpy_check(), FLA_Axpy_internal_check(), FLA_Axpyrt_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Axpyt_internal_check(), FLA_CAQR_UT_inc_check(), FLA_CAQR_UT_inc_solve_check(), FLA_Copy_check(), FLA_Copy_internal_check(), FLA_Copyr_check(), FLA_Copyr_internal_check(), FLA_Copyrt_check(), FLA_Copyt_check(), FLA_Copyt_internal_check(), FLA_Eig_gest_internal_check(), FLA_FS_incpiv_check(), FLA_Hevdr_check(), FLA_Inv_scal_elemwise_check(), FLA_LU_incpiv_check(), FLA_Lyap_internal_check(), FLA_Max_elemwise_diff_check(), FLA_Obj_equals_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_inc_check(), FLA_QR_UT_inc_solve_check(), FLA_Scal_elemwise_check(), FLA_Swap_check(), FLA_Swapt_check(), and FLA_UDdate_UT_inc_check().

◆ FLA_Check_conj1_trans_and_datatype()

FLA_Error FLA_Check_conj1_trans_and_datatype ( FLA_Trans  trans,
FLA_Obj  A 
)
488 {
489  FLA_Error e_val = FLA_SUCCESS;
490 
491  if ( trans == FLA_CONJ_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE ){
492  if ( FLA_Obj_is_complex( A ) == FALSE )
493  e_val = FLA_INVALID_TRANS_GIVEN_DATATYPE;
494  }
495 
496  return e_val;
497 }
FLA_Bool FLA_Obj_is_complex(FLA_Obj A)
Definition: FLA_Query.c:324

References FLA_Obj_is_complex().

◆ FLA_Check_conj_and_datatype()

FLA_Error FLA_Check_conj_and_datatype ( FLA_Conj  conj,
FLA_Obj  A 
)
895 {
896  FLA_Error e_val = FLA_SUCCESS;
897 
898  if ( conj == FLA_CONJUGATE ){
899  if ( FLA_Obj_is_complex( A ) == FALSE )
900  e_val = FLA_INVALID_CONJ_GIVEN_DATATYPE;
901  }
902 
903  return e_val;
904 }

References FLA_Obj_is_complex().

◆ FLA_Check_consistent_datatype()

FLA_Error FLA_Check_consistent_datatype ( FLA_Datatype  datatype,
FLA_Obj  A 
)
352 {
353  FLA_Error e_val = FLA_SUCCESS;
354 
355  if ( FLA_Obj_datatype( A ) != FLA_CONSTANT &&
356  datatype != FLA_CONSTANT )
357  if ( FLA_Obj_datatype( A ) != datatype )
358  e_val = FLA_INCONSISTENT_DATATYPES;
359 
360  return e_val;
361 }

References FLA_Obj_datatype().

◆ FLA_Check_consistent_object_datatype()

FLA_Error FLA_Check_consistent_object_datatype ( FLA_Obj  A,
FLA_Obj  B 
)
340 {
341  FLA_Error e_val = FLA_SUCCESS;
342 
343  if ( FLA_Obj_datatype( A ) != FLA_CONSTANT &&
344  FLA_Obj_datatype( B ) != FLA_CONSTANT )
345  if ( FLA_Obj_datatype( A ) != FLA_Obj_datatype( B ) )
346  e_val = FLA_INCONSISTENT_DATATYPES;
347 
348  return e_val;
349 }

References FLA_Obj_datatype().

Referenced by FLA_Accum_T_UT_check(), FLA_Axpy_buffer_to_object_check(), FLA_Axpy_check(), FLA_Axpy_object_to_buffer_check(), FLA_Axpyrt_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Bidiag_UT_recover_tau_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dotcs_check(), FLA_Dots_check(), FLA_Fill_with_linear_dist_check(), FLA_Fill_with_random_dist_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Hemm_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her2k_check(), FLA_Hess_UT_recover_tau_check(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_LQ_UT_recover_tau_check(), FLA_Obj_equals_check(), FLA_Obj_ge_check(), FLA_Obj_gt_check(), FLA_Obj_le_check(), FLA_Obj_lt_check(), FLA_QR_UT_recover_tau_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), FLA_Scalr_check(), FLA_Set_check(), FLA_Set_diag_check(), FLA_Setr_check(), FLA_Shift_diag_check(), FLA_Symm_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Tridiag_UT_recover_tau_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsvsx_check(), FLASH_Axpy_buffer_to_hier(), and FLASH_Axpy_hier_to_buffer().

◆ FLA_Check_divide_by_zero()

FLA_Error FLA_Check_divide_by_zero ( FLA_Obj  alpha)
978 {
979  FLA_Error e_val = FLA_SUCCESS;
980 
981  if ( FLA_Obj_equals( alpha, FLA_ZERO ) )
982  e_val = FLA_DIVIDE_BY_ZERO;
983 
984  return e_val;
985 }
FLA_Obj FLA_ZERO
Definition: FLA_Init.c:20
FLA_Bool FLA_Obj_equals(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:507

References FLA_Obj_equals(), and FLA_ZERO.

Referenced by FLA_Inv_scal_check(), and FLA_Inv_scalc_check().

◆ FLA_Check_equal_vector_dims()

FLA_Error FLA_Check_equal_vector_dims ( FLA_Obj  x,
FLA_Obj  y 
)
478 {
479  FLA_Error e_val = FLA_SUCCESS;
480 
481  if ( FLA_Obj_vector_dim( x ) != FLA_Obj_vector_dim( y ) )
482  e_val = FLA_UNEQUAL_VECTOR_DIMS;
483 
484  return e_val;
485 }
dim_t FLA_Obj_vector_dim(FLA_Obj obj)
Definition: FLA_Query.c:137

References FLA_Obj_vector_dim().

Referenced by FLA_Apply_G_mx2_check(), FLA_Axpy_check(), FLA_Copy_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_check(), and FLA_Swap_check().

◆ FLA_Check_error_code_helper()

FLA_Error FLA_Check_error_code_helper ( int  code,
char *  file,
int  line 
)
39 {
40  if ( code == FLA_SUCCESS )
41  return code;
42 
43  //if ( /* fatal error checking enabled */ )
44  if ( TRUE )
45  {
46  if ( FLA_ERROR_CODE_MAX <= code && code <= FLA_ERROR_CODE_MIN )
47  {
49  file, line );
50  FLA_Abort();
51  }
52  else
53  {
54  FLA_Print_message( FLA_Error_string_for_code( FLA_UNDEFINED_ERROR_CODE ),
55  file, line );
56  FLA_Abort();
57  }
58  }
59 
60  return code;
61 }
char * FLA_Error_string_for_code(int code)
Definition: FLA_Error.c:23
void FLA_Abort(void)
Definition: FLA_Error.c:248
void FLA_Print_message(char *str, char *file, int line)
Definition: FLA_Error.c:234

References FLA_Abort(), FLA_Error_string_for_code(), and FLA_Print_message().

◆ FLA_Check_error_level()

unsigned int FLA_Check_error_level ( void  )
19 {
20  return fla_error_checking_level;
21 }

Referenced by FLA_Absolute_square(), FLA_Absolute_value(), FLA_Accum_T_UT(), FLA_Add_to_diag(), FLA_Amax_external(), FLA_Apply_CAQ2_UT_internal(), FLA_Apply_CAQ_UT_inc_internal(), FLA_Apply_diag_matrix(), FLA_Apply_G(), FLA_Apply_H2_UT(), FLA_Apply_HUD_UT(), FLA_Apply_pivots_unb_external(), FLA_Apply_Q2_UT_internal(), FLA_Apply_Q_blk_external(), FLA_Apply_Q_UT(), FLA_Apply_Q_UT_inc_internal(), FLA_Apply_Q_UT_internal(), FLA_Apply_QUD_UT(), FLA_Apply_QUD_UT_inc_internal(), FLA_Apply_QUD_UT_internal(), FLA_Asum_external(), FLA_Axpy(), FLA_Axpy_buffer_to_object(), FLA_Axpy_external(), FLA_Axpy_external_gpu(), FLA_Axpy_internal(), FLA_Axpy_object_to_buffer(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt(), FLA_Axpyt_external(), FLA_Axpyt_internal(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT(), FLA_Bidiag_UT_extract_diagonals(), FLA_Bidiag_UT_extract_real_diagonals(), FLA_Bidiag_UT_form_U(), FLA_Bidiag_UT_form_V(), FLA_Bidiag_UT_internal(), FLA_Bidiag_UT_realify(), FLA_Bidiag_UT_realify_diagonals(), FLA_Bidiag_UT_recover_tau(), FLA_Bidiag_UT_scale_diagonals(), FLA_Blocksize_create_copy(), FLA_Blocksize_extract(), FLA_Blocksize_scale(), FLA_Bsvd(), FLA_Bsvd_create_workspace(), FLA_Bsvd_ext(), FLA_CAQR2_UT_internal(), FLA_Chol(), FLA_Chol_blk_external(), FLA_Chol_internal(), FLA_Chol_solve(), FLA_Chol_unb_external(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Cont_with_1x3_to_1x2(), FLA_Cont_with_3x1_to_2x1(), FLA_Cont_with_3x3_to_2x2(), FLA_Copy(), FLA_Copy_buffer_to_object(), FLA_Copy_external(), FLA_Copy_external_gpu(), FLA_Copy_internal(), FLA_Copy_object_to_buffer(), FLA_Copyr(), FLA_Copyr_external(), FLA_Copyr_internal(), FLA_Copyrt_external(), FLA_Copyt(), FLA_Copyt_external(), FLA_Copyt_internal(), FLA_Determine_blocksize(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Eig_gest(), FLA_Eig_gest_blk_external(), FLA_Eig_gest_internal(), FLA_Eig_gest_unb_external(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Fill_with_random_dist(), FLA_Form_perm_matrix(), FLA_Gemm(), FLA_Gemm_external(), FLA_Gemm_external_gpu(), FLA_Gemm_internal(), FLA_Gemv(), FLA_Gemv_external(), FLA_Gemv_external_gpu(), FLA_Gemv_internal(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Givens2(), FLA_Hemm(), FLA_Hemm_external(), FLA_Hemm_external_gpu(), FLA_Hemm_internal(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k(), FLA_Her2k_external(), FLA_Her2k_external_gpu(), FLA_Her2k_internal(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk(), FLA_Herk_external(), FLA_Herk_external_gpu(), FLA_Herk_internal(), FLA_Hermitianize(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hess_UT(), FLA_Hess_UT_internal(), FLA_Hess_UT_recover_tau(), FLA_Hevd(), FLA_Hevd_compute_scaling(), FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Househ2_UT(), FLA_Househ2s_UT(), FLA_Househ3UD_UT(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Invert(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT(), FLA_LQ_UT_internal(), FLA_LQ_UT_solve(), FLA_LU_find_zero_on_diagonal(), FLA_LU_nopiv(), FLA_LU_nopiv_internal(), FLA_LU_nopiv_solve(), FLA_LU_piv(), FLA_LU_piv_blk_external(), FLA_LU_piv_internal(), FLA_LU_piv_solve(), FLA_LU_piv_unb_external(), FLA_Lyap(), FLA_Lyap_internal(), FLA_Mach_params(), FLA_malloc(), FLA_Max_abs_value(), FLA_Max_abs_value_herm(), FLA_Max_elemwise_diff(), FLA_Merge_1x2(), FLA_Merge_2x1(), FLA_Merge_2x2(), FLA_Mult_add(), FLA_Negate(), FLA_Norm1(), FLA_Norm_frob(), FLA_Norm_inf(), FLA_Nrm2_external(), FLA_Obj_attach_buffer(), FLA_Obj_buffer_at_view(), FLA_Obj_copy_view(), FLA_Obj_create_buffer(), FLA_Obj_create_complex_constant(), FLA_Obj_create_conf_to(), FLA_Obj_create_constant(), FLA_Obj_create_constant_ext(), FLA_Obj_create_ext(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_datatype_size(), FLA_Obj_elem_size(), FLA_Obj_elemtype(), FLA_Obj_equals(), FLA_Obj_extract_complex_scalar(), FLA_Obj_extract_imag_part(), FLA_Obj_extract_real_part(), FLA_Obj_extract_real_scalar(), FLA_Obj_flip_base(), FLA_Obj_flip_view(), FLA_Obj_free(), FLA_Obj_free_buffer(), FLA_Obj_free_without_buffer(), FLA_Obj_fshow(), FLA_Obj_ge(), FLA_Obj_gt(), FLA_Obj_has_nan(), FLA_Obj_le(), FLA_Obj_lt(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_Obj_show(), FLA_Part_1x2(), FLA_Part_2x1(), FLA_Part_2x2(), FLA_Pow(), FLA_QR2_UT_internal(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT(), FLA_QR_UT_copy_internal(), FLA_QR_UT_form_Q(), FLA_QR_UT_internal(), FLA_QR_UT_piv(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_internal(), FLA_QR_UT_recover_tau(), FLA_QR_UT_solve(), FLA_Random_herm_matrix(), FLA_Random_matrix(), FLA_Random_spd_matrix(), FLA_Random_symm_matrix(), FLA_Random_tri_matrix(), FLA_Random_unitary_matrix(), FLA_realloc(), FLA_Repart_1x2_to_1x3(), FLA_Repart_2x1_to_3x1(), FLA_Repart_2x2_to_3x3(), FLA_Scal(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scal_external_gpu(), FLA_Scal_internal(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Scalr(), FLA_Scalr_external(), FLA_Scalr_external_gpu(), FLA_Scalr_internal(), FLA_Set(), FLA_Set_diag(), FLA_Set_to_identity(), FLA_Setr(), FLA_Shift_diag(), FLA_Shift_pivots_to(), FLA_Sort(), FLA_Sort_evd(), FLA_Sort_svd(), FLA_SPDinv(), FLA_SPDinv_blk_external(), FLA_SPDinv_internal(), FLA_Sqrt(), FLA_Submatrix_at(), FLA_Svd(), FLA_Svd_compute_scaling(), FLA_Svd_ext(), FLA_Svd_external(), FLA_Svdd_external(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Sylv(), FLA_Sylv_internal(), FLA_Sylv_unb_external(), FLA_Symm(), FLA_Symm_external(), FLA_Symm_external_gpu(), FLA_Symm_internal(), FLA_Symmetrize(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k(), FLA_Syr2k_external(), FLA_Syr2k_external_gpu(), FLA_Syr2k_internal(), FLA_Syr_external(), FLA_Syrk(), FLA_Syrk_external(), FLA_Syrk_external_gpu(), FLA_Syrk_internal(), FLA_Transpose(), FLA_Triangularize(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Tridiag_UT(), FLA_Tridiag_UT_extract_diagonals(), FLA_Tridiag_UT_extract_real_diagonals(), FLA_Tridiag_UT_form_Q(), FLA_Tridiag_UT_internal(), FLA_Tridiag_UT_realify(), FLA_Tridiag_UT_realify_subdiagonal(), FLA_Tridiag_UT_recover_tau(), FLA_Tridiag_UT_scale_diagonals(), FLA_Tridiag_UT_shift_U(), FLA_Trinv(), FLA_Trinv_blk_external(), FLA_Trinv_internal(), FLA_Trinv_unb_external(), FLA_Trmm(), FLA_Trmm_external(), FLA_Trmm_external_gpu(), FLA_Trmm_internal(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trmvsx_external(), FLA_Trsm(), FLA_Trsm_external(), FLA_Trsm_external_gpu(), FLA_Trsm_internal(), FLA_Trsmsx_external(), FLA_Trsv(), FLA_Trsv_external(), FLA_Trsv_external_gpu(), FLA_Trsv_internal(), FLA_Trsvsx_external(), FLA_Ttmm(), FLA_Ttmm_blk_external(), FLA_Ttmm_internal(), FLA_Ttmm_unb_external(), FLA_UDdate_UT(), FLA_UDdate_UT_internal(), FLA_UDdate_UT_solve(), FLA_UDdate_UT_update_rhs(), FLA_Wilkshift_tridiag(), FLASH_Apply_CAQ_UT_inc(), FLASH_Apply_Q2_UT(), FLASH_Apply_Q_UT(), FLASH_Apply_Q_UT_inc(), FLASH_Apply_QUD_UT_inc(), FLASH_Axpy(), FLASH_Axpy_buffer_to_hier(), FLASH_Axpy_hier_to_buffer(), FLASH_Axpyt(), FLASH_CAQR_UT_inc_noopt(), FLASH_CAQR_UT_inc_solve(), FLASH_Chol(), FLASH_Chol_solve(), FLASH_Copy(), FLASH_Copy_buffer_to_hier(), FLASH_Copy_hier_to_buffer(), FLASH_Copyr(), FLASH_Copyt(), FLASH_Eig_gest(), FLASH_FS_incpiv(), FLASH_Gemm(), FLASH_Gemv(), FLASH_Hemm(), FLASH_Her2k(), FLASH_Herk(), FLASH_LQ_UT(), FLASH_LQ_UT_solve(), FLASH_LU_find_zero_on_diagonal(), FLASH_LU_incpiv(), FLASH_LU_incpiv_solve(), FLASH_LU_nopiv(), FLASH_LU_nopiv_solve(), FLASH_LU_piv(), FLASH_LU_piv_solve(), FLASH_Lyap(), FLASH_Obj_attach_buffer(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_blocksizes(), FLASH_Obj_create_conf_to(), FLASH_Obj_create_flat_conf_to_hier(), FLASH_Obj_create_flat_copy_of_hier(), FLASH_Obj_create_helper(), FLASH_Obj_create_hier_conf_to_flat(), FLASH_Obj_create_hier_conf_to_flat_ext(), FLASH_Obj_create_hier_copy_of_flat(), FLASH_Obj_create_hier_copy_of_flat_ext(), FLASH_Obj_create_hierarchy(), FLASH_Obj_free(), FLASH_Obj_free_hierarchy(), FLASH_Obj_free_without_buffer(), FLASH_Part_create_1x2(), FLASH_Part_create_2x1(), FLASH_Part_create_2x2(), FLASH_QR2_UT(), FLASH_QR_UT(), FLASH_QR_UT_inc_noopt(), FLASH_QR_UT_inc_opt1(), FLASH_QR_UT_inc_solve(), FLASH_QR_UT_solve(), FLASH_Random_spd_matrix(), FLASH_Scal(), FLASH_Scalr(), FLASH_SPDinv(), FLASH_Sylv(), FLASH_Symm(), FLASH_Syr2k(), FLASH_Syrk(), FLASH_Trinv(), FLASH_Trmm(), FLASH_Trsm(), FLASH_Trsv(), FLASH_Ttmm(), FLASH_UDdate_UT_inc(), FLASH_UDdate_UT_inc_solve(), and FLASH_UDdate_UT_inc_update_rhs().

◆ FLA_Check_error_level_set()

unsigned int FLA_Check_error_level_set ( unsigned int  level)
24 {
25  FLA_Error e_val;
26  unsigned int old_level;
27 
28  e_val = FLA_Check_valid_error_level( new_level );
29  FLA_Check_error_code( e_val );
30 
31  old_level = fla_error_checking_level;
32 
33  fla_error_checking_level = new_level;
34 
35  return old_level;
36 }
FLA_Error FLA_Check_valid_error_level(unsigned int level)
Definition: FLA_Check.c:1079

References FLA_Check_valid_error_level().

◆ FLA_Check_file_descriptor()

FLA_Error FLA_Check_file_descriptor ( int  fd)
668 {
669  FLA_Error e_val = FLA_SUCCESS;
670 
671  if ( fd == -1 )
672  e_val = FLA_OPEN_RETURNED_ERROR;
673 
674  return e_val;
675 }

◆ FLA_Check_floating_datatype()

FLA_Error FLA_Check_floating_datatype ( FLA_Datatype  datatype)
184 {
185  FLA_Error e_val = FLA_SUCCESS;
186 
187  if ( datatype != FLA_CONSTANT &&
188  datatype != FLA_FLOAT &&
189  datatype != FLA_DOUBLE &&
190  datatype != FLA_COMPLEX &&
191  datatype != FLA_DOUBLE_COMPLEX )
192  e_val = FLA_INVALID_FLOATING_DATATYPE;
193 
194  return e_val;
195 }

Referenced by FLA_Check_floating_object().

◆ FLA_Check_floating_object()

FLA_Error FLA_Check_floating_object ( FLA_Obj  A)
233 {
234  FLA_Error e_val = FLA_SUCCESS;
235  FLA_Datatype datatype;
236 
237  datatype = FLA_Obj_datatype( A );
238 
239  if ( FLA_Check_floating_datatype( datatype ) != FLA_SUCCESS )
240  e_val = FLA_OBJECT_NOT_FLOATING_POINT;
241 
242  return e_val;
243 }
FLA_Error FLA_Check_floating_datatype(FLA_Datatype datatype)
Definition: FLA_Check.c:183

References FLA_Check_floating_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Absolute_square_check(), FLA_Absolute_value_check(), FLA_Accum_T_UT_check(), FLA_Add_to_diag_check(), FLA_Amax_check(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_diag_matrix_check(), FLA_Apply_G_check(), FLA_Apply_H2_UT_check(), FLA_Apply_HUD_UT_check(), FLA_Apply_pivots_check(), FLA_Apply_Q2_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_QUD_UT_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Asum_check(), FLA_Axpy_buffer_to_object_check(), FLA_Axpy_check(), FLA_Axpy_object_to_buffer_check(), FLA_Axpyrt_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Bidiag_check(), FLA_Bidiag_form_U_check(), FLA_Bidiag_form_V_check(), FLA_Bidiag_UT_check(), FLA_Bidiag_UT_extract_diagonals_check(), FLA_Bidiag_UT_extract_real_diagonals_check(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_realify_check(), FLA_Bidiag_UT_realify_diagonals_check(), FLA_Bidiag_UT_recover_tau_check(), FLA_Bidiag_UT_scale_diagonals_check(), FLA_CAQR_UT_inc_check(), FLA_CAQR_UT_inc_solve_check(), FLA_Check_identical_object_precision(), FLA_Chol_check(), FLA_Chol_solve_check(), FLA_Conjugate_check(), FLA_Conjugate_r_check(), FLA_Copy_buffer_to_object_check(), FLA_Copy_object_to_buffer_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_check(), FLA_Eig_gest_check(), FLA_Fill_with_cluster_dist_check(), FLA_Fill_with_geometric_dist_check(), FLA_Fill_with_inverse_dist_check(), FLA_Fill_with_linear_dist_check(), FLA_Fill_with_logarithmic_dist_check(), FLA_Fill_with_random_dist_check(), FLA_Form_perm_matrix_check(), FLA_FS_incpiv_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Hermitianize_check(), FLA_Hess_check(), FLA_Hess_UT_check(), FLA_Hess_UT_recover_tau_check(), FLA_Hevd_check(), FLA_Hevd_compute_scaling_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_Inv_scal_check(), FLA_Inv_scal_elemwise_check(), FLA_Inv_scalc_check(), FLA_Invert_check(), FLA_LQ_check(), FLA_LQ_UT_check(), FLA_LQ_UT_form_Q_check(), FLA_LQ_UT_recover_tau_check(), FLA_LQ_UT_solve_check(), FLA_LU_find_zero_on_diagonal_check(), FLA_LU_incpiv_check(), FLA_LU_incpiv_solve_check(), FLA_LU_nopiv_check(), FLA_LU_nopiv_solve_check(), FLA_LU_piv_check(), FLA_LU_piv_solve_check(), FLA_Lyap_check(), FLA_Max_abs_value_check(), FLA_Max_abs_value_herm_check(), FLA_Max_elemwise_diff_check(), FLA_Mult_add_check(), FLA_Negate_check(), FLA_Norm1_check(), FLA_Norm_frob_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_datatype_proj_to_real_check(), FLA_Obj_extract_imag_part_check(), FLA_Obj_extract_real_part_check(), FLA_Obj_has_nan_check(), FLA_Obj_set_imag_part_check(), FLA_Obj_set_real_part_check(), FLA_Pow_check(), FLA_QR2_UT_check(), FLA_QR_check(), FLA_QR_form_Q_check(), FLA_QR_UT_check(), FLA_QR_UT_form_Q_check(), FLA_QR_UT_inc_check(), FLA_QR_UT_inc_solve_check(), FLA_QR_UT_piv_check(), FLA_QR_UT_piv_colnorm_check(), FLA_QR_UT_recover_tau_check(), FLA_QR_UT_solve_check(), FLA_Random_herm_matrix_check(), FLA_Random_matrix_check(), FLA_Random_spd_matrix_check(), FLA_Random_symm_matrix_check(), FLA_Random_tri_matrix_check(), FLA_Random_unitary_matrix_check(), FLA_Scal_check(), FLA_Scal_elemwise_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), FLA_Scalr_check(), FLA_Setr_check(), FLA_Shift_diag_check(), FLA_Sort_check(), FLA_Sort_evd_check(), FLA_Sort_svd_check(), FLA_SPDinv_check(), FLA_Sqrt_check(), FLA_Svd_check(), FLA_Svd_compute_scaling_check(), FLA_Svd_ext_check(), FLA_Svdd_check(), FLA_Swap_check(), FLA_Swapt_check(), FLA_Sylv_check(), FLA_Symm_check(), FLA_Symmetrize_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Transpose_check(), FLA_Triangularize_check(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_realify_subdiagonal_check(), FLA_Tridiag_UT_recover_tau_check(), FLA_Tridiag_UT_scale_diagonals_check(), FLA_Tridiag_UT_shift_U_check(), FLA_Trinv_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsv_check(), FLA_Trsvsx_check(), FLA_Ttmm_check(), FLA_UDdate_UT_check(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_solve_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_solve_check(), FLA_UDdate_UT_update_rhs_check(), and FLASH_LU_find_zero_on_diagonal_check().

◆ FLA_Check_hess_indices()

FLA_Error FLA_Check_hess_indices ( FLA_Obj  A,
int  ilo,
int  ihi 
)
500 {
501  FLA_Error e_val = FLA_SUCCESS;
502 
503  if ( FLA_Obj_width( A ) == 0 && ilo != 0 && ihi != -1 )
504  e_val = FLA_INVALID_HESSENBERG_INDICES;
505 
506  if ( ilo < 0 || FLA_Obj_width( A ) - 1 < ilo )
507  e_val = FLA_INVALID_HESSENBERG_INDICES;
508 
509  if ( ihi < 0 || FLA_Obj_width( A ) - 1 < ihi )
510  e_val = FLA_INVALID_HESSENBERG_INDICES;
511 
512  if ( ihi < ilo )
513  e_val = FLA_INVALID_HESSENBERG_INDICES;
514 
515  return e_val;
516 }

References FLA_Obj_width().

Referenced by FLA_Hess_check().

◆ FLA_Check_householder_panel_dims()

FLA_Error FLA_Check_householder_panel_dims ( FLA_Obj  A,
FLA_Obj  T 
)
1024 {
1025  FLA_Error e_val = FLA_SUCCESS;
1026  dim_t nb_alg;
1027 
1028  nb_alg = FLA_Query_blocksize( FLA_Obj_datatype( A ), FLA_DIMENSION_MIN );
1029 
1030  if ( FLA_Obj_length( T ) < nb_alg )
1031  e_val = FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL;
1032 
1033  if ( FLA_Obj_width( T ) < FLA_Obj_min_dim( A ) )
1034  e_val = FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL;
1035 
1036  return e_val;
1037 }
dim_t FLA_Query_blocksize(FLA_Datatype dt, FLA_Dimension dim)
Definition: FLA_Blocksize.c:161
dim_t FLA_Obj_min_dim(FLA_Obj obj)
Definition: FLA_Query.c:153

References FLA_Obj_datatype(), FLA_Obj_length(), FLA_Obj_min_dim(), FLA_Obj_width(), and FLA_Query_blocksize().

◆ FLA_Check_identical_object_datatype()

FLA_Error FLA_Check_identical_object_datatype ( FLA_Obj  A,
FLA_Obj  B 
)
968 {
969  FLA_Error e_val = FLA_SUCCESS;
970 
971  if ( FLA_Obj_datatype( A ) != FLA_Obj_datatype( B ) )
972  e_val = FLA_OBJECT_DATATYPES_NOT_EQUAL;
973 
974  return e_val;
975 }

References FLA_Obj_datatype().

Referenced by FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_G_1x2_check(), FLA_Apply_G_mx2_check(), FLA_Apply_GTG_check(), FLA_Apply_H2_UT_check(), FLA_Apply_HUD_UT_check(), FLA_Apply_Q2_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_QUD_UT_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Axpy_check(), FLA_Axpyrt_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Bidiag_check(), FLA_Bidiag_form_U_check(), FLA_Bidiag_form_V_check(), FLA_Bidiag_UT_check(), FLA_Bidiag_UT_extract_diagonals_check(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_realify_check(), FLA_Bidiag_UT_realify_diagonals_check(), FLA_Bsvd_check(), FLA_Bsvd_ext_check(), FLA_CAQR_UT_inc_check(), FLA_CAQR_UT_inc_solve_check(), FLA_Chol_solve_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_check(), FLA_FS_incpiv_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Givens1_check(), FLA_Givens2_check(), FLA_Hemm_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Hess_check(), FLA_Hess_UT_check(), FLA_Hevdr_check(), FLA_Househ2_UT_check(), FLA_Househ2s_UT_check(), FLA_Househ3UD_UT_check(), FLA_Introduce_bulge_check(), FLA_Inv_scal_elemwise_check(), FLA_LQ_check(), FLA_LQ_UT_check(), FLA_LQ_UT_form_Q_check(), FLA_LQ_UT_solve_check(), FLA_LU_incpiv_check(), FLA_LU_incpiv_solve_check(), FLA_LU_nopiv_solve_check(), FLA_LU_piv_solve_check(), FLA_Lyap_check(), FLA_Max_elemwise_diff_check(), FLA_QR2_UT_check(), FLA_QR_check(), FLA_QR_form_Q_check(), FLA_QR_UT_check(), FLA_QR_UT_form_Q_check(), FLA_QR_UT_inc_check(), FLA_QR_UT_inc_solve_check(), FLA_QR_UT_piv_check(), FLA_QR_UT_solve_check(), FLA_Scal_elemwise_check(), FLA_Sort_svd_check(), FLA_Svd_check(), FLA_Svd_ext_check(), FLA_Svdd_check(), FLA_Swap_check(), FLA_Swapt_check(), FLA_Sylv_check(), FLA_Symm_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_realify_subdiagonal_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsv_check(), FLA_Trsvsx_check(), FLA_UDdate_UT_check(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_solve_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_solve_check(), FLA_UDdate_UT_update_rhs_check(), and FLA_Wilkshift_tridiag_check().

◆ FLA_Check_identical_object_elemtype()

FLA_Error FLA_Check_identical_object_elemtype ( FLA_Obj  A,
FLA_Obj  B 
)

◆ FLA_Check_identical_object_precision()

FLA_Error FLA_Check_identical_object_precision ( FLA_Obj  A,
FLA_Obj  B 
)
299 {
300  FLA_Error e_val = FLA_SUCCESS;
301  FLA_Datatype datatype_A;
302  FLA_Datatype datatype_B;
303  dim_t precision_A;
304  dim_t precision_B;
305 
306  datatype_A = FLA_Obj_datatype( A );
307  datatype_B = FLA_Obj_datatype( B );
308 
309  if ( datatype_A == FLA_CONSTANT ||
310  datatype_B == FLA_CONSTANT )
311  {
312  return FLA_SUCCESS;
313  }
314 
315  if ( FLA_Check_floating_object( A ) != FLA_SUCCESS ||
316  FLA_Check_floating_object( B ) != FLA_SUCCESS )
317  {
318  return FLA_OBJECT_NOT_FLOATING_POINT;
319  }
320 
321  datatype_A = FLA_Obj_datatype( A );
322  datatype_B = FLA_Obj_datatype( B );
323 
324  precision_A = FLA_Obj_datatype_size( datatype_A );
325  precision_B = FLA_Obj_datatype_size( datatype_B );
326 
327  if ( FLA_Obj_is_complex( A ) )
328  precision_A = precision_A / 2;
329 
330  if ( FLA_Obj_is_complex( B ) )
331  precision_B = precision_B / 2;
332 
333  if ( precision_A != precision_B )
334  e_val = FLA_INCONSISTENT_OBJECT_PRECISION;
335 
336  return e_val;
337 }
FLA_Error FLA_Check_floating_object(FLA_Obj A)
Definition: FLA_Check.c:232
dim_t FLA_Obj_datatype_size(FLA_Datatype datatype)
Definition: FLA_Query.c:61

References FLA_Check_floating_object(), FLA_Obj_datatype(), FLA_Obj_datatype_size(), and FLA_Obj_is_complex().

Referenced by FLA_Apply_diag_matrix_check(), FLA_Apply_G_check(), FLA_Apply_G_mx2_check(), FLA_Asum_check(), FLA_Bidiag_UT_extract_real_diagonals_check(), FLA_Bidiag_UT_scale_diagonals_check(), FLA_Bsvd_check(), FLA_Fill_with_cluster_dist_check(), FLA_Fill_with_geometric_dist_check(), FLA_Fill_with_inverse_dist_check(), FLA_Fill_with_linear_dist_check(), FLA_Fill_with_logarithmic_dist_check(), FLA_Fill_with_random_dist_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Hevd_check(), FLA_Hevd_compute_scaling_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_Lyap_check(), FLA_Max_abs_value_check(), FLA_Max_abs_value_herm_check(), FLA_Norm1_check(), FLA_Norm_frob_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_extract_imag_part_check(), FLA_Obj_extract_real_part_check(), FLA_Obj_set_imag_part_check(), FLA_Obj_set_real_part_check(), FLA_QR_UT_piv_check(), FLA_QR_UT_piv_colnorm_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), FLA_Scalr_check(), FLA_Shift_diag_check(), FLA_Sort_evd_check(), FLA_Sort_svd_check(), FLA_Svd_check(), FLA_Svd_compute_scaling_check(), FLA_Svd_ext_check(), FLA_Svdd_check(), FLA_Sylv_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), and FLA_Tridiag_UT_scale_diagonals_check().

◆ FLA_Check_if_scalar()

FLA_Error FLA_Check_if_scalar ( FLA_Obj  A)
374 {
375  FLA_Error e_val = FLA_SUCCESS;
376 
377  if ( FLA_Obj_length( A ) != 1 || FLA_Obj_width( A ) != 1 )
378  e_val = FLA_OBJECT_NOT_SCALAR;
379 
380  return e_val;
381 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Absolute_square_check(), FLA_Absolute_value_check(), FLA_Amax_check(), FLA_Apply_G_1x2_check(), FLA_Apply_G_mx2_check(), FLA_Apply_GTG_check(), FLA_Apply_H2_UT_check(), FLA_Apply_HUD_UT_check(), FLA_Asum_check(), FLA_Axpy_buffer_to_object_check(), FLA_Axpy_object_to_buffer_check(), FLA_Axpyrt_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Bidiag_UT_scale_diagonals_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dotcs_check(), FLA_Dots_check(), FLA_Fill_with_cluster_dist_check(), FLA_Fill_with_geometric_dist_check(), FLA_Fill_with_inverse_dist_check(), FLA_Fill_with_linear_dist_check(), FLA_Fill_with_logarithmic_dist_check(), FLA_Fill_with_random_dist_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Givens1_check(), FLA_Givens2_check(), FLA_Hemm_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Hevd_compute_scaling_check(), FLA_Househ2_UT_check(), FLA_Househ2s_UT_check(), FLA_Househ3UD_UT_check(), FLA_Introduce_bulge_check(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_Lyap_check(), FLA_Max_abs_value_check(), FLA_Max_abs_value_herm_check(), FLA_Mult_add_check(), FLA_Norm1_check(), FLA_Norm_frob_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_extract_complex_scalar_check(), FLA_Obj_extract_real_scalar_check(), FLA_Obj_ge_check(), FLA_Obj_gt_check(), FLA_Obj_le_check(), FLA_Obj_lt_check(), FLA_Obj_set_imag_part_check(), FLA_Obj_set_real_part_check(), FLA_Pow_check(), FLA_QR_UT_piv_colnorm_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), FLA_Scalr_check(), FLA_Set_check(), FLA_Set_diag_check(), FLA_Shift_diag_check(), FLA_Sqrt_check(), FLA_Svd_compute_scaling_check(), FLA_Sylv_check(), FLA_Symm_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Tridiag_UT_scale_diagonals_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsvsx_check(), FLA_Wilkshift_tridiag_check(), FLASH_Axpy_buffer_to_hier(), and FLASH_Axpy_hier_to_buffer().

◆ FLA_Check_if_vector()

FLA_Error FLA_Check_if_vector ( FLA_Obj  A)
384 {
385  FLA_Error e_val = FLA_SUCCESS;
386 
387  if ( FLA_Obj_length( A ) != 1 && FLA_Obj_width( A ) != 1 )
388  e_val = FLA_OBJECT_NOT_VECTOR;
389 
390  return e_val;
391 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Amax_check(), FLA_Apply_G_mx2_check(), FLA_Apply_H2_UT_check(), FLA_Apply_HUD_UT_check(), FLA_Apply_pivots_check(), FLA_Asum_check(), FLA_Bidiag_form_U_check(), FLA_Bidiag_form_V_check(), FLA_Bidiag_UT_extract_diagonals_check(), FLA_Bidiag_UT_extract_real_diagonals_check(), FLA_Bidiag_UT_realify_check(), FLA_Bidiag_UT_realify_diagonals_check(), FLA_Bidiag_UT_recover_tau_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_check(), FLA_Fill_with_cluster_dist_check(), FLA_Fill_with_geometric_dist_check(), FLA_Fill_with_inverse_dist_check(), FLA_Fill_with_linear_dist_check(), FLA_Fill_with_logarithmic_dist_check(), FLA_Fill_with_random_dist_check(), FLA_Form_perm_matrix_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Hess_UT_recover_tau_check(), FLA_Househ2s_UT_check(), FLA_Invert_check(), FLA_LQ_UT_recover_tau_check(), FLA_Nrm2_check(), FLA_QR_form_Q_check(), FLA_QR_UT_recover_tau_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_realify_subdiagonal_check(), FLA_Tridiag_UT_recover_tau_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsv_check(), and FLA_Trsvsx_check().

◆ FLA_Check_int_datatype()

FLA_Error FLA_Check_int_datatype ( FLA_Datatype  datatype)
198 {
199  FLA_Error e_val = FLA_SUCCESS;
200 
201  if ( datatype != FLA_CONSTANT &&
202  datatype != FLA_INT )
203  e_val = FLA_INVALID_INTEGER_DATATYPE;
204 
205  return e_val;
206 }

Referenced by FLA_Check_comparable_object(), and FLA_Check_int_object().

◆ FLA_Check_int_object()

FLA_Error FLA_Check_int_object ( FLA_Obj  A)
246 {
247  FLA_Error e_val = FLA_SUCCESS;
248  FLA_Datatype datatype;
249 
250  datatype = FLA_Obj_datatype( A );
251 
252  if ( FLA_Check_int_datatype( datatype ) != FLA_SUCCESS )
253  e_val = FLA_OBJECT_NOT_INTEGER;
254 
255  return e_val;
256 }

References FLA_Check_int_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Amax_check(), FLA_Apply_pivots_check(), FLA_Fill_with_cluster_dist_check(), FLA_Form_perm_matrix_check(), FLA_FS_incpiv_check(), FLA_LU_incpiv_check(), FLA_LU_incpiv_solve_check(), FLA_LU_piv_check(), FLA_LU_piv_solve_check(), FLA_Lyap_check(), FLA_QR_UT_piv_check(), FLA_Shift_pivots_to_check(), and FLA_Sylv_check().

◆ FLA_Check_lseek_result()

FLA_Error FLA_Check_lseek_result ( int  requested_offset,
int  lseek_r_val 
)
678 {
679  FLA_Error e_val = FLA_SUCCESS;
680 
681  if ( lseek_r_val != requested_offset )
682  e_val = FLA_LSEEK_RETURNED_ERROR;
683 
684  return e_val;
685 }

◆ FLA_Check_malloc_pointer()

FLA_Error FLA_Check_malloc_pointer ( void *  ptr)
563 {
564  FLA_Error e_val = FLA_SUCCESS;
565 
566  if ( ptr == NULL )
567  e_val = FLA_MALLOC_RETURNED_NULL_POINTER;
568 
569  return e_val;
570 }

Referenced by FLA_malloc(), and FLA_realloc().

◆ FLA_Check_matrix_matrix_dims()

FLA_Error FLA_Check_matrix_matrix_dims ( FLA_Trans  transa,
FLA_Trans  transb,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  C 
)
418 {
419  FLA_Error e_val = FLA_SUCCESS;
420  dim_t k_A, k_B;
421  dim_t m_A, m_C;
422  dim_t n_B, n_C;
423 
424  m_A = ( transa == FLA_NO_TRANSPOSE ||
425  transa == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_length( A ) :
426  FLA_Obj_width( A ) );
427  k_A = ( transa == FLA_NO_TRANSPOSE ||
428  transa == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_width( A ) :
429  FLA_Obj_length( A ) );
430 
431  k_B = ( transb == FLA_NO_TRANSPOSE ||
432  transb == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_length( B ) :
433  FLA_Obj_width( B ) );
434  n_B = ( transb == FLA_NO_TRANSPOSE ||
435  transb == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_width( B ) :
436  FLA_Obj_length( B ) );
437 
438  m_C = FLA_Obj_length( C );
439  n_C = FLA_Obj_width( C );
440 
441  if ( m_A != m_C )
442  e_val = FLA_NONCONFORMAL_DIMENSIONS;
443 
444  if ( k_A != k_B )
445  e_val = FLA_NONCONFORMAL_DIMENSIONS;
446 
447  if ( n_B != n_C )
448  e_val = FLA_NONCONFORMAL_DIMENSIONS;
449 
450  return e_val;
451 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Apply_Q2_UT_check(), FLA_Apply_QUD_UT_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_internal_check(), FLA_CAQR_UT_inc_solve_check(), FLA_Chol_solve_check(), FLA_Gemm_check(), FLA_Gemm_internal_check(), FLA_Hemm_check(), FLA_Hemm_internal_check(), FLA_Her2k_check(), FLA_Her2k_internal_check(), FLA_Herk_check(), FLA_Herk_internal_check(), FLA_LQ_UT_solve_check(), FLA_LU_incpiv_solve_check(), FLA_LU_nopiv_solve_check(), FLA_LU_piv_solve_check(), FLA_QR2_UT_check(), FLA_QR_UT_inc_solve_check(), FLA_QR_UT_solve_check(), FLA_Symm_check(), FLA_Symm_internal_check(), FLA_Syr2k_check(), FLA_Syr2k_internal_check(), FLA_Syrk_check(), FLA_Syrk_internal_check(), FLA_Trmm_check(), FLA_Trmm_internal_check(), FLA_Trmmsx_check(), FLA_Trsm_check(), FLA_Trsm_internal_check(), FLA_Trsmsx_check(), FLA_UDdate_UT_inc_solve_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_solve_check(), and FLA_UDdate_UT_update_rhs_check().

◆ FLA_Check_matrix_strides()

FLA_Error FLA_Check_matrix_strides ( dim_t  m,
dim_t  n,
dim_t  rs,
dim_t  cs 
)
1147 {
1148  FLA_Error e_val = FLA_SUCCESS;
1149 
1150  // Note: The default case (whereby we interpret rs == cs == 0 as a request
1151  // for column-major order) is handled prior to calling this function, so we
1152  // never see zero strides here.
1153 
1154  // Disallow either of the strides to be zero.
1155  if ( ( rs == 0 || cs == 0 ) )
1156  return FLA_INVALID_STRIDE_COMBINATION;
1157 
1158  // Check stride consistency in cases of general stride.
1159  if ( rs != 1 && cs != 1 )
1160  {
1161  // We apply different tests depending on which way the strides "tilt".
1162  if ( rs == cs )
1163  {
1164  // If rs == cs, then we must be dealing with an m-by-1 or a 1-by-n matrix
1165  // and thus at least one of the dimensions, m or n, must be unit (even if
1166  // the other is zero).
1167  if ( m != 1 && n != 1 )
1168  return FLA_INVALID_STRIDE_COMBINATION;
1169  }
1170  else if ( rs < cs )
1171  {
1172  // For column-major tilt, cs must be equal or larger than m * rs.
1173  if ( m * rs > cs )
1174  return FLA_INVALID_STRIDE_COMBINATION;
1175  }
1176  else if ( cs < rs )
1177  {
1178  // For row-major tilt, rs must be equal or larger than n * cs.
1179  if ( n * cs > rs )
1180  return FLA_INVALID_STRIDE_COMBINATION;
1181  }
1182  }
1183 
1184  if ( rs == 1 && cs == 1 )
1185  {
1186  // Only allow rs == cs == 1 for scalars and "empty" objects.
1187  if ( !( m == 1 && n == 1 ) &&
1188  !( m == 0 ) &&
1189  !( n == 0 ) )
1190  return FLA_INVALID_STRIDE_COMBINATION;
1191  }
1192  else // perform additional stride/dimension checks on non-scalars.
1193  {
1194  if ( rs == 1 )
1195  {
1196  // For column-major storage, don't allow the column stride to be less than
1197  // the m dimension.
1198  if ( cs < m )
1199  e_val = FLA_INVALID_COL_STRIDE;
1200  }
1201  else if ( cs == 1 )
1202  {
1203  // For row-major storage, don't allow the row stride to be less than
1204  // the n dimension.
1205  if ( rs < n )
1206  e_val = FLA_INVALID_ROW_STRIDE;
1207  }
1208  }
1209 
1210  return e_val;
1211 }

Referenced by FLA_Axpy_buffer_to_object_check(), FLA_Axpy_object_to_buffer_check(), FLA_Copy_buffer_to_object_check(), FLA_Copy_object_to_buffer_check(), FLA_Obj_attach_buffer_check(), FLA_Obj_create_buffer_check(), FLA_Obj_create_ext_check(), FLASH_Axpy_buffer_to_hier(), FLASH_Axpy_hier_to_buffer(), FLASH_Copy_buffer_to_hier(), FLASH_Copy_hier_to_buffer(), and FLASH_Obj_attach_buffer_check().

◆ FLA_Check_matrix_vector_dims()

FLA_Error FLA_Check_matrix_vector_dims ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  x,
FLA_Obj  y 
)
454 {
455  FLA_Error e_val = FLA_SUCCESS;
456 
457  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
458  {
459  if ( FLA_Obj_width( A ) != FLA_Obj_vector_dim( x ) )
460  e_val = FLA_NONCONFORMAL_DIMENSIONS;
461 
462  if ( FLA_Obj_length( A ) != FLA_Obj_vector_dim( y ) )
463  e_val = FLA_NONCONFORMAL_DIMENSIONS;
464  }
465  else
466  {
467  if ( FLA_Obj_length( A ) != FLA_Obj_vector_dim( x ) )
468  e_val = FLA_NONCONFORMAL_DIMENSIONS;
469 
470  if ( FLA_Obj_width( A ) != FLA_Obj_vector_dim( y ) )
471  e_val = FLA_NONCONFORMAL_DIMENSIONS;
472  }
473 
474  return e_val;
475 }

References FLA_Obj_length(), FLA_Obj_vector_dim(), and FLA_Obj_width().

Referenced by FLA_Apply_HUD_UT_check(), FLA_Form_perm_matrix_check(), FLA_Gemv_check(), FLA_Gemv_internal_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsv_check(), FLA_Trsv_internal_check(), and FLA_Trsvsx_check().

◆ FLA_Check_nonconstant_datatype()

FLA_Error FLA_Check_nonconstant_datatype ( FLA_Datatype  datatype)
941 {
942  FLA_Error e_val = FLA_SUCCESS;
943 
944  if ( datatype != FLA_INT &&
945  datatype != FLA_FLOAT &&
946  datatype != FLA_DOUBLE &&
947  datatype != FLA_COMPLEX &&
948  datatype != FLA_DOUBLE_COMPLEX )
949  e_val = FLA_INVALID_NONCONSTANT_DATATYPE;
950 
951  return e_val;
952 }

Referenced by FLA_Check_nonconstant_object().

◆ FLA_Check_nonconstant_object()

FLA_Error FLA_Check_nonconstant_object ( FLA_Obj  A)
955 {
956  FLA_Error e_val = FLA_SUCCESS;
957  FLA_Datatype datatype;
958 
959  datatype = FLA_Obj_datatype( A );
960 
961  if ( FLA_Check_nonconstant_datatype( datatype ) != FLA_SUCCESS )
962  e_val = FLA_OBJECT_NOT_NONCONSTANT;
963 
964  return e_val;
965 }
FLA_Error FLA_Check_nonconstant_datatype(FLA_Datatype datatype)
Definition: FLA_Check.c:940

References FLA_Check_nonconstant_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Absolute_square_check(), FLA_Absolute_value_check(), FLA_Add_to_diag_check(), FLA_Amax_check(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_diag_matrix_check(), FLA_Apply_G_1x2_check(), FLA_Apply_G_check(), FLA_Apply_G_mx2_check(), FLA_Apply_GTG_check(), FLA_Apply_H2_UT_check(), FLA_Apply_HUD_UT_check(), FLA_Apply_pivots_check(), FLA_Apply_Q2_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_QUD_UT_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Asum_check(), FLA_Axpy_buffer_to_object_check(), FLA_Axpy_check(), FLA_Axpy_object_to_buffer_check(), FLA_Axpyrt_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Bidiag_check(), FLA_Bidiag_form_U_check(), FLA_Bidiag_form_V_check(), FLA_Bidiag_UT_check(), FLA_Bidiag_UT_extract_diagonals_check(), FLA_Bidiag_UT_extract_real_diagonals_check(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_realify_check(), FLA_Bidiag_UT_scale_diagonals_check(), FLA_Bsvd_check(), FLA_Bsvd_create_workspace(), FLA_CAQR_UT_inc_check(), FLA_CAQR_UT_inc_solve_check(), FLA_Chol_check(), FLA_Chol_solve_check(), FLA_Conjugate_check(), FLA_Conjugate_r_check(), FLA_Copy_buffer_to_object_check(), FLA_Copy_check(), FLA_Copy_object_to_buffer_check(), FLA_Copyr_check(), FLA_Copyrt_check(), FLA_Copyt_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_check(), FLA_Eig_gest_check(), FLA_Fill_with_cluster_dist_check(), FLA_Fill_with_geometric_dist_check(), FLA_Fill_with_inverse_dist_check(), FLA_Fill_with_linear_dist_check(), FLA_Fill_with_logarithmic_dist_check(), FLA_Fill_with_random_dist_check(), FLA_Form_perm_matrix_check(), FLA_FS_incpiv_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Ger_check(), FLA_Gerc_check(), FLA_Givens1_check(), FLA_Givens2_check(), FLA_Hemm_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Hermitianize_check(), FLA_Hess_check(), FLA_Hess_UT_check(), FLA_Hevd_check(), FLA_Hevd_compute_scaling_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_Househ2_UT_check(), FLA_Househ2s_UT_check(), FLA_Househ3UD_UT_check(), FLA_Introduce_bulge_check(), FLA_Inv_scal_check(), FLA_Inv_scal_elemwise_check(), FLA_Inv_scalc_check(), FLA_Invert_check(), FLA_LQ_check(), FLA_LQ_UT_check(), FLA_LQ_UT_form_Q_check(), FLA_LQ_UT_solve_check(), FLA_LU_find_zero_on_diagonal_check(), FLA_LU_incpiv_check(), FLA_LU_incpiv_solve_check(), FLA_LU_nopiv_check(), FLA_LU_nopiv_solve_check(), FLA_LU_piv_check(), FLA_LU_piv_solve_check(), FLA_Lyap_check(), FLA_Max_abs_value_check(), FLA_Max_abs_value_herm_check(), FLA_Max_elemwise_diff_check(), FLA_Mult_add_check(), FLA_Negate_check(), FLA_Norm1_check(), FLA_Norm_frob_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_datatype_proj_to_real_check(), FLA_Obj_extract_imag_part_check(), FLA_Obj_extract_real_part_check(), FLA_Obj_has_nan_check(), FLA_Obj_set_imag_part_check(), FLA_Obj_set_real_part_check(), FLA_Pow_check(), FLA_QR2_UT_check(), FLA_QR_check(), FLA_QR_form_Q_check(), FLA_QR_UT_check(), FLA_QR_UT_form_Q_check(), FLA_QR_UT_inc_check(), FLA_QR_UT_inc_solve_check(), FLA_QR_UT_piv_check(), FLA_QR_UT_piv_colnorm_check(), FLA_QR_UT_solve_check(), FLA_Random_herm_matrix_check(), FLA_Random_matrix_check(), FLA_Random_spd_matrix_check(), FLA_Random_symm_matrix_check(), FLA_Random_tri_matrix_check(), FLA_Random_unitary_matrix_check(), FLA_Scal_check(), FLA_Scal_elemwise_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), FLA_Scalr_check(), FLA_Set_check(), FLA_Set_diag_check(), FLA_Set_to_identity_check(), FLA_Setr_check(), FLA_Shift_diag_check(), FLA_Shift_pivots_to_check(), FLA_Sort_check(), FLA_Sort_evd_check(), FLA_Sort_svd_check(), FLA_SPDinv_check(), FLA_Sqrt_check(), FLA_Svd_check(), FLA_Svd_compute_scaling_check(), FLA_Svd_ext_check(), FLA_Svdd_check(), FLA_Swap_check(), FLA_Swapt_check(), FLA_Sylv_check(), FLA_Symm_check(), FLA_Symmetrize_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Transpose_check(), FLA_Triangularize_check(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_scale_diagonals_check(), FLA_Tridiag_UT_shift_U_check(), FLA_Trinv_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsv_check(), FLA_Trsvsx_check(), FLA_Ttmm_check(), FLA_UDdate_UT_check(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_solve_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_solve_check(), FLA_UDdate_UT_update_rhs_check(), FLA_Wilkshift_tridiag_check(), and FLASH_LU_find_zero_on_diagonal_check().

◆ FLA_Check_null_pointer()

FLA_Error FLA_Check_null_pointer ( void *  ptr)
519 {
520  FLA_Error e_val = FLA_SUCCESS;
521 
522  if ( ptr == NULL )
523  e_val = FLA_NULL_POINTER;
524 
525  return e_val;
526 }

Referenced by FLA_Add_to_diag_check(), FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_CAQ_UT_inc_internal_check(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_internal_check(), FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_internal_check(), FLA_Axpy_buffer_to_object_check(), FLA_Axpy_internal_check(), FLA_Axpy_object_to_buffer_check(), FLA_Axpyt_internal_check(), FLA_Bidiag_UT_internal_check(), FLA_Blocksize_create_copy(), FLA_Blocksize_extract(), FLA_Blocksize_scale(), FLA_CAQR2_UT_internal_check(), FLA_Chol_internal_check(), FLA_Cont_with_1x3_to_1x2_check(), FLA_Cont_with_3x1_to_2x1_check(), FLA_Cont_with_3x3_to_2x2_check(), FLA_Copy_buffer_to_object_check(), FLA_Copy_internal_check(), FLA_Copy_object_to_buffer_check(), FLA_Copyr_internal_check(), FLA_Copyt_internal_check(), FLA_Eig_gest_internal_check(), FLA_Gemm_internal_check(), FLA_Gemv_internal_check(), FLA_Hemm_internal_check(), FLA_Her2k_internal_check(), FLA_Herk_internal_check(), FLA_Hess_UT_internal_check(), FLA_LQ_UT_internal_check(), FLA_LU_nopiv_internal_check(), FLA_LU_piv_internal(), FLA_Lyap_internal_check(), FLA_Merge_1x2_check(), FLA_Merge_2x1_check(), FLA_Merge_2x2_check(), FLA_Obj_attach_buffer_check(), FLA_Obj_buffer_at_view_check(), FLA_Obj_copy_view_check(), FLA_Obj_create_buffer_check(), FLA_Obj_create_complex_constant_check(), FLA_Obj_create_conf_to_check(), FLA_Obj_create_constant_check(), FLA_Obj_create_constant_ext_check(), FLA_Obj_create_ext_check(), FLA_Obj_create_without_buffer_check(), FLA_Obj_datatype_check(), FLA_Obj_datatype_proj_to_real_check(), FLA_Obj_elemtype_check(), FLA_Obj_extract_complex_scalar_check(), FLA_Obj_extract_real_scalar_check(), FLA_Obj_flip_base(), FLA_Obj_flip_view(), FLA_Obj_free_buffer_check(), FLA_Obj_free_check(), FLA_Obj_free_without_buffer_check(), FLA_Obj_fshow_check(), FLA_Obj_show_check(), FLA_Part_1x2_check(), FLA_Part_2x1_check(), FLA_Part_2x2_check(), FLA_QR2_UT_internal_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_internal_check(), FLA_QR_UT_piv_internal_check(), FLA_Repart_1x2_to_1x3_check(), FLA_Repart_2x1_to_3x1_check(), FLA_Repart_2x2_to_3x3_check(), FLA_Scal_internal_check(), FLA_Scalr_internal_check(), FLA_SPDinv_internal_check(), FLA_Submatrix_at_check(), FLA_Sylv_internal_check(), FLA_Symm_internal_check(), FLA_Syr2k_internal_check(), FLA_Syrk_internal_check(), FLA_Tridiag_UT_internal_check(), FLA_Trinv_internal_check(), FLA_Trmm_internal_check(), FLA_Trsm_internal_check(), FLA_Trsv_internal_check(), FLA_Ttmm_internal_check(), FLA_UDdate_UT_internal_check(), FLASH_Obj_attach_buffer_check(), FLASH_Obj_attach_buffer_hierarchy_check(), FLASH_Obj_blocksizes_check(), FLASH_Obj_create_conf_to_check(), FLASH_Obj_create_flat_conf_to_hier_check(), FLASH_Obj_create_flat_copy_of_hier_check(), FLASH_Obj_create_helper_check(), FLASH_Obj_create_hier_conf_to_flat_check(), FLASH_Obj_create_hier_conf_to_flat_ext_check(), FLASH_Obj_create_hier_copy_of_flat_check(), FLASH_Obj_create_hier_copy_of_flat_ext_check(), FLASH_Obj_create_hierarchy_check(), FLASH_Obj_free_check(), FLASH_Obj_free_hierarchy_check(), and FLASH_Obj_free_without_buffer_check().

◆ FLA_Check_num_threads()

FLA_Error FLA_Check_num_threads ( unsigned int  n_threads)
885 {
886  FLA_Error e_val = FLA_SUCCESS;
887 
888  if ( n_threads < 1 )
889  e_val = FLA_ENCOUNTERED_NON_POSITIVE_NTHREADS;
890 
891  return e_val;
892 }

Referenced by FLASH_Queue_set_num_threads().

◆ FLA_Check_object_dims()

FLA_Error FLA_Check_object_dims ( FLA_Trans  trans,
dim_t  m,
dim_t  n,
FLA_Obj  A 
)
529 {
530  FLA_Error e_val = FLA_SUCCESS;
531 
532  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
533  {
534  if ( FLA_Obj_length( A ) != m )
535  e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
536 
537  if ( FLA_Obj_width( A ) != n )
538  e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
539  }
540  else
541  {
542  if ( FLA_Obj_length( A ) != n )
543  e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
544 
545  if ( FLA_Obj_width( A ) != m )
546  e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
547  }
548 
549  return e_val;
550 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Axpy_buffer_to_object_check(), FLA_Axpy_object_to_buffer_check(), FLA_Copy_buffer_to_object_check(), and FLA_Copy_object_to_buffer_check().

◆ FLA_Check_object_length_equals()

FLA_Error FLA_Check_object_length_equals ( FLA_Obj  A,
dim_t  m 
)

◆ FLA_Check_object_length_min()

FLA_Error FLA_Check_object_length_min ( FLA_Obj  A,
dim_t  m 
)
1060 {
1061  FLA_Error e_val = FLA_SUCCESS;
1062 
1063  if ( FLA_Obj_length( A ) < m )
1064  e_val = FLA_INVALID_OBJECT_LENGTH;
1065 
1066  return e_val;
1067 }

References FLA_Obj_length().

Referenced by FLA_CAQR_UT_inc_check(), FLA_CAQR_UT_inc_solve_check(), FLA_QR_UT_inc_solve_check(), and FLA_QR_UT_solve_check().

◆ FLA_Check_object_matrix_elemtype()

FLA_Error FLA_Check_object_matrix_elemtype ( FLA_Obj  A)
872 {
873  FLA_Error e_val = FLA_SUCCESS;
874  FLA_Elemtype elemtype;
875 
876  elemtype = FLA_Obj_elemtype( A );
877 
878  if ( elemtype != FLA_MATRIX )
879  e_val = FLA_OBJECT_NOT_MATRIX_ELEMTYPE;
880 
881  return e_val;
882 }
int FLA_Elemtype
Definition: FLA_type_defs.h:50

References FLA_Obj_elemtype().

◆ FLA_Check_object_scalar_elemtype()

FLA_Error FLA_Check_object_scalar_elemtype ( FLA_Obj  A)
859 {
860  FLA_Error e_val = FLA_SUCCESS;
861  FLA_Elemtype elemtype;
862 
863  elemtype = FLA_Obj_elemtype( A );
864 
865  if ( elemtype != FLA_SCALAR )
866  e_val = FLA_OBJECT_NOT_SCALAR_ELEMTYPE;
867 
868  return e_val;
869 }

References FLA_Obj_elemtype().

Referenced by FLA_LU_find_zero_on_diagonal_check(), FLA_Obj_fshow_check(), and FLA_Obj_show_check().

◆ FLA_Check_object_width_equals()

FLA_Error FLA_Check_object_width_equals ( FLA_Obj  A,
dim_t  n 
)

◆ FLA_Check_object_width_min()

FLA_Error FLA_Check_object_width_min ( FLA_Obj  A,
dim_t  n 
)
1070 {
1071  FLA_Error e_val = FLA_SUCCESS;
1072 
1073  if ( FLA_Obj_width( A ) < n )
1074  e_val = FLA_INVALID_OBJECT_WIDTH;
1075 
1076  return e_val;
1077 }

References FLA_Obj_width().

Referenced by FLA_LQ_UT_internal_check(), and FLA_QR_UT_internal_check().

◆ FLA_Check_pivot_index_range()

FLA_Error FLA_Check_pivot_index_range ( FLA_Obj  p,
dim_t  k1,
dim_t  k2 
)
998 {
999  FLA_Error e_val = FLA_SUCCESS;
1000 
1001  if ( FLA_Obj_has_zero_dim( p ) )
1002  return e_val;
1003 
1004  // FGVZ: Note that we don't need to test if k1 < 0 since the type is an
1005  // unsigned integer. Same goes for k2 < 0. If we ever wanted to allow
1006  // the caller to specify the index range k1:k2 == -1:0, which would
1007  // result in no action. If this "no-op" behavior is needed, then k1 and
1008  // k2 should be type re-declared as ints.
1009  //if ( k1 < 0 || FLA_Obj_length( p ) - 1 < k1 )
1010  if ( FLA_Obj_length( p ) - 1 < k1 )
1011  e_val = FLA_INVALID_PIVOT_INDEX_RANGE;
1012 
1013  //if ( k2 < 0 || FLA_Obj_length( p ) - 1 < k2 )
1014  if ( FLA_Obj_length( p ) - 1 < k2 )
1015  e_val = FLA_INVALID_PIVOT_INDEX_RANGE;
1016 
1017  if ( k2 < k1 )
1018  e_val = FLA_INVALID_PIVOT_INDEX_RANGE;
1019 
1020  return e_val;
1021 }
FLA_Bool FLA_Obj_has_zero_dim(FLA_Obj A)
Definition: FLA_Query.c:400

References FLA_Obj_has_zero_dim(), and FLA_Obj_length().

◆ FLA_Check_posix_memalign_failure()

FLA_Error FLA_Check_posix_memalign_failure ( int  r_val)
825 {
826  FLA_Error e_val = FLA_SUCCESS;
827 
828  if ( r_val != 0 )
829  e_val = FLA_POSIX_MEMALIGN_FAILED;
830 
831  return e_val;
832 }

Referenced by FLA_malloc().

◆ FLA_Check_pthread_create_result()

FLA_Error FLA_Check_pthread_create_result ( int  pthread_create_r_val)
751 {
752  FLA_Error e_val = FLA_SUCCESS;
753 
754  if ( pthread_create_r_val != 0 )
755  e_val = FLA_PTHREAD_CREATE_RETURNED_ERROR;
756 
757  return e_val;
758 }

Referenced by FLASH_Queue_exec_parallel().

◆ FLA_Check_pthread_join_result()

FLA_Error FLA_Check_pthread_join_result ( int  pthread_join_r_val)
761 {
762  FLA_Error e_val = FLA_SUCCESS;
763 
764  if ( pthread_join_r_val != 0 )
765  e_val = FLA_PTHREAD_JOIN_RETURNED_ERROR;
766 
767  return e_val;
768 }

Referenced by FLASH_Queue_exec_parallel().

◆ FLA_Check_read_result()

FLA_Error FLA_Check_read_result ( int  requested_size,
int  read_r_val 
)
708 {
709  FLA_Error e_val = FLA_SUCCESS;
710 
711  if ( read_r_val == -1 )
712  e_val = FLA_READ_RETURNED_ERROR;
713 
714  return e_val;
715 }

◆ FLA_Check_real_datatype()

FLA_Error FLA_Check_real_datatype ( FLA_Datatype  datatype)
209 {
210  FLA_Error e_val = FLA_SUCCESS;
211 
212  if ( datatype != FLA_CONSTANT &&
213  datatype != FLA_FLOAT &&
214  datatype != FLA_DOUBLE )
215  e_val = FLA_INVALID_REAL_DATATYPE;
216 
217  return e_val;
218 }

Referenced by FLA_Check_comparable_object(), and FLA_Check_real_object().

◆ FLA_Check_real_object()

FLA_Error FLA_Check_real_object ( FLA_Obj  A)

◆ FLA_Check_row_storage()

FLA_Error FLA_Check_row_storage ( FLA_Obj  A)
1336 {
1337  FLA_Error e_val = FLA_SUCCESS;
1338 
1339  if ( FLA_Obj_col_stride( A ) != 1 )
1340  e_val = FLA_EXPECTED_ROW_STORAGE;
1341 
1342  return e_val;
1343 }
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174

References FLA_Obj_col_stride().

◆ FLA_Check_row_vector()

FLA_Error FLA_Check_row_vector ( FLA_Obj  x)
1224 {
1225  FLA_Error e_val = FLA_SUCCESS;
1226 
1227  if ( FLA_Obj_length( x ) != 1 )
1228  e_val = FLA_EXPECTED_ROW_VECTOR;
1229 
1230  return e_val;
1231 }

References FLA_Obj_length().

◆ FLA_Check_square()

FLA_Error FLA_Check_square ( FLA_Obj  A)
364 {
365  FLA_Error e_val = FLA_SUCCESS;
366 
367  if ( FLA_Obj_length( A ) != FLA_Obj_width( A ) )
368  e_val = FLA_OBJECT_NOT_SQUARE;
369 
370  return e_val;
371 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Apply_Q2_UT_check(), FLA_Chol_check(), FLA_Chol_solve_check(), FLA_Eig_gest_check(), FLA_Form_perm_matrix_check(), FLA_FS_incpiv_check(), FLA_Hemm_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Hermitianize_check(), FLA_Hess_UT_check(), FLA_Hevd_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_LU_incpiv_check(), FLA_LU_incpiv_solve_check(), FLA_LU_nopiv_solve_check(), FLA_LU_piv_solve_check(), FLA_Lyap_check(), FLA_Lyap_internal_check(), FLA_QR2_UT_check(), FLA_Random_herm_matrix_check(), FLA_Random_spd_matrix_check(), FLA_Random_symm_matrix_check(), FLA_Random_unitary_matrix_check(), FLA_SPDinv_check(), FLA_Svdd_check(), FLA_Sylv_check(), FLA_Symm_check(), FLA_Symmetrize_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Transpose_check(), FLA_Tridiag_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_shift_U_check(), FLA_Trinv_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsv_check(), FLA_Trsvsx_check(), FLA_Ttmm_check(), FLA_UDdate_UT_check(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_solve_check(), FLA_UDdate_UT_internal_check(), and FLA_UDdate_UT_solve_check().

◆ FLA_Check_submatrix_dims_and_offset()

FLA_Error FLA_Check_submatrix_dims_and_offset ( dim_t  m,
dim_t  n,
dim_t  i,
dim_t  j,
FLA_Obj  A 
)
835 {
836  FLA_Error e_val = FLA_SUCCESS;
837  dim_t m_A, n_A;
838 
839  if ( FLA_Obj_elemtype( A ) == FLA_MATRIX )
840  {
841  m_A = FLASH_Obj_scalar_length( A );
842  n_A = FLASH_Obj_scalar_width( A );
843  }
844  else
845  {
846  m_A = FLA_Obj_length( A );
847  n_A = FLA_Obj_width( A );
848  }
849 
850  if ( i > m_A || j > n_A )
851  e_val = FLA_INVALID_SUBMATRIX_OFFSET;
852  else if ( i + m > m_A || j + n > n_A )
853  e_val = FLA_INVALID_SUBMATRIX_DIMS;
854 
855  return e_val;
856 }
dim_t FLASH_Obj_scalar_length(FLA_Obj H)
Definition: FLASH_View.c:600
dim_t FLASH_Obj_scalar_width(FLA_Obj H)
Definition: FLASH_View.c:641

References FLA_Obj_elemtype(), FLA_Obj_length(), FLA_Obj_width(), FLASH_Obj_scalar_length(), FLASH_Obj_scalar_width(), and i.

Referenced by FLA_Axpy_buffer_to_object_check(), FLA_Axpy_object_to_buffer_check(), FLA_Copy_buffer_to_object_check(), FLA_Copy_object_to_buffer_check(), FLASH_Axpy_buffer_to_hier(), FLASH_Axpy_hier_to_buffer(), FLASH_Copy_buffer_to_hier(), and FLASH_Copy_hier_to_buffer().

◆ FLA_Check_sylv_matrix_dims()

FLA_Error FLA_Check_sylv_matrix_dims ( FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  C 
)
782 {
783  FLA_Error e_val = FLA_SUCCESS;
784  dim_t m_A, m_C;
785  dim_t n_B, n_C;
786 
787  m_A = FLA_Obj_length( A );
788 
789  n_B = FLA_Obj_width( B );
790 
791  m_C = FLA_Obj_length( C );
792  n_C = FLA_Obj_width( C );
793 
794  if ( m_A != m_C )
795  e_val = FLA_NONCONFORMAL_DIMENSIONS;
796 
797  if ( n_B != n_C )
798  e_val = FLA_NONCONFORMAL_DIMENSIONS;
799 
800  return e_val;
801 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Sylv_check(), and FLA_Sylv_internal_check().

◆ FLA_Check_unlink_result()

FLA_Error FLA_Check_unlink_result ( int  unlink_r_val)
698 {
699  FLA_Error e_val = FLA_SUCCESS;
700 
701  if ( unlink_r_val == -1 )
702  e_val = FLA_UNLINK_RETURNED_ERROR;
703 
704  return e_val;
705 }

◆ FLA_Check_valid_blas_trans()

FLA_Error FLA_Check_valid_blas_trans ( FLA_Trans  trans)
929 {
930  FLA_Error e_val = FLA_SUCCESS;
931 
932  if ( trans != FLA_NO_TRANSPOSE &&
933  trans != FLA_TRANSPOSE &&
934  trans != FLA_CONJ_TRANSPOSE )
935  e_val = FLA_INVALID_BLAS_TRANS;
936 
937  return e_val;
938 }

Referenced by FLA_Lyap_check(), and FLA_Sylv_check().

◆ FLA_Check_valid_complex_trans()

FLA_Error FLA_Check_valid_complex_trans ( FLA_Trans  trans)
907 {
908  FLA_Error e_val = FLA_SUCCESS;
909 
910  if ( trans != FLA_NO_TRANSPOSE &&
911  trans != FLA_CONJ_TRANSPOSE )
912  e_val = FLA_INVALID_COMPLEX_TRANS;
913 
914  return e_val;
915 }

Referenced by FLA_Apply_Q_check(), FLA_Her2k_check(), FLA_Herk_check(), and FLA_Tridiag_apply_Q_check().

◆ FLA_Check_valid_conj()

FLA_Error FLA_Check_valid_conj ( FLA_Conj  conj)
113 {
114  FLA_Error e_val = FLA_SUCCESS;
115 
116  if ( conj != FLA_NO_CONJUGATE &&
117  conj != FLA_CONJUGATE )
118  e_val = FLA_INVALID_CONJ;
119 
120  return e_val;
121 }

Referenced by FLA_Apply_diag_matrix_check(), FLA_Dot2cs_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Gemvc_check(), FLA_Gerc_check(), FLA_Hemvc_check(), FLA_Her2c_check(), FLA_Herc_check(), FLA_Inv_scalc_check(), FLA_Invert_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), and FLA_Shift_diag_check().

◆ FLA_Check_valid_datatype()

FLA_Error FLA_Check_valid_datatype ( FLA_Datatype  datatype)
157 {
158  FLA_Error e_val = FLA_SUCCESS;
159 
160  if ( datatype != FLA_INT &&
161  datatype != FLA_FLOAT &&
162  datatype != FLA_DOUBLE &&
163  datatype != FLA_COMPLEX &&
164  datatype != FLA_DOUBLE_COMPLEX &&
165  datatype != FLA_CONSTANT )
166  e_val = FLA_INVALID_DATATYPE;
167 
168  return e_val;
169 }

Referenced by FLA_Check_valid_object_datatype(), FLA_Obj_create_ext_check(), FLA_Obj_create_without_buffer_check(), FLA_Obj_datatype_size_check(), FLA_Obj_elem_size_check(), FLA_Submatrix_at_check(), FLASH_Obj_create_helper_check(), and FLASH_Obj_create_hierarchy_check().

◆ FLA_Check_valid_diag()

FLA_Error FLA_Check_valid_diag ( FLA_Diag  diag)
101 {
102  FLA_Error e_val = FLA_SUCCESS;
103 
104  if ( diag != FLA_NONUNIT_DIAG &&
105  diag != FLA_UNIT_DIAG &&
106  diag != FLA_ZERO_DIAG )
107  e_val = FLA_INVALID_DIAG;
108 
109  return e_val;
110 }

Referenced by FLA_Random_tri_matrix_check(), FLA_Triangularize_check(), FLA_Trinv_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsv_check(), and FLA_Trsvsx_check().

◆ FLA_Check_valid_diag_offset()

FLA_Error FLA_Check_valid_diag_offset ( FLA_Obj  A,
FLA_Diag_off  offset 
)
1316 {
1317  FLA_Error e_val = FLA_SUCCESS;
1318 
1319  if ( FLA_Obj_min_dim( A ) <= abs( offset ) )
1320  e_val = FLA_INVALID_DIAG_OFFSET;
1321 
1322  return e_val;
1323 }

References FLA_Obj_min_dim().

◆ FLA_Check_valid_direct()

FLA_Error FLA_Check_valid_direct ( FLA_Conj  direct)
124 {
125  FLA_Error e_val = FLA_SUCCESS;
126 
127  if ( direct != FLA_FORWARD &&
128  direct != FLA_BACKWARD )
129  e_val = FLA_INVALID_DIRECT;
130 
131  return e_val;
132 }

Referenced by FLA_Accum_T_UT_check(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_G_check(), FLA_Apply_Q2_UT_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_QUD_UT_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Sort_check(), FLA_Sort_evd_check(), and FLA_Sort_svd_check().

◆ FLA_Check_valid_elemtype()

FLA_Error FLA_Check_valid_elemtype ( FLA_Elemtype  elemtype)
814 {
815  FLA_Error e_val = FLA_SUCCESS;
816 
817  if ( elemtype != FLA_SCALAR &&
818  elemtype != FLA_MATRIX )
819  e_val = FLA_INVALID_ELEMTYPE;
820 
821  return e_val;
822 }

Referenced by FLA_Obj_create_ext_check(), and FLA_Obj_elem_size_check().

◆ FLA_Check_valid_error_level()

FLA_Error FLA_Check_valid_error_level ( unsigned int  level)
1080 {
1081  FLA_Error e_val = FLA_SUCCESS;
1082 
1083  if ( level != FLA_NO_ERROR_CHECKING &&
1084  level != FLA_MIN_ERROR_CHECKING &&
1085  level != FLA_FULL_ERROR_CHECKING )
1086  e_val = FLA_INVALID_ERROR_CHECKING_LEVEL;
1087 
1088  return e_val;
1089 }

Referenced by FLA_Check_error_level_set().

◆ FLA_Check_valid_evd_type()

FLA_Error FLA_Check_valid_evd_type ( FLA_Evd_type  evd_type)
1244 {
1245  FLA_Error e_val = FLA_SUCCESS;
1246 
1247  if ( evd_type != FLA_EVD_WITHOUT_VECTORS &&
1248  evd_type != FLA_EVD_WITH_VECTORS )
1249  e_val = FLA_INVALID_EVD_TYPE;
1250 
1251  return e_val;
1252 }

Referenced by FLA_Hevd_check(), FLA_Hevdd_check(), and FLA_Hevdr_check().

◆ FLA_Check_valid_inverse()

FLA_Error FLA_Check_valid_inverse ( FLA_Inv  inv)
146 {
147  FLA_Error e_val = FLA_SUCCESS;
148 
149  if ( inv != FLA_NO_INVERSE &&
150  inv != FLA_INVERSE )
151  e_val = FLA_INVALID_INVERSE;
152 
153  return e_val;
154 }

Referenced by FLA_Eig_gest_check().

◆ FLA_Check_valid_isgn_value()

FLA_Error FLA_Check_valid_isgn_value ( FLA_Obj  isgn)
771 {
772  FLA_Error e_val = FLA_SUCCESS;
773 
774  if ( !FLA_Obj_is( isgn, FLA_ONE ) &&
775  !FLA_Obj_is( isgn, FLA_MINUS_ONE ) )
776  e_val = FLA_INVALID_ISGN_VALUE;
777 
778  return e_val;
779 }
FLA_Obj FLA_MINUS_ONE
Definition: FLA_Init.c:22
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
FLA_Bool FLA_Obj_is(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:460

References FLA_MINUS_ONE, FLA_Obj_is(), and FLA_ONE.

Referenced by FLA_Lyap_check(), and FLA_Sylv_check().

◆ FLA_Check_valid_leftright_side()

FLA_Error FLA_Check_valid_leftright_side ( FLA_Side  side)

◆ FLA_Check_valid_machval()

FLA_Error FLA_Check_valid_machval ( FLA_Machval  val)
1296 {
1297  FLA_Error e_val = FLA_SUCCESS;
1298 
1299  if ( val != FLA_MACH_EPS &&
1300  val != FLA_MACH_SFMIN &&
1301  val != FLA_MACH_BASE &&
1302  val != FLA_MACH_PREC &&
1303  val != FLA_MACH_NDIGMANT &&
1304  val != FLA_MACH_RND &&
1305  val != FLA_MACH_EMIN &&
1306  val != FLA_MACH_RMIN &&
1307  val != FLA_MACH_EMAX &&
1308  val != FLA_MACH_RMAX &&
1309  val != FLA_MACH_EPS2 )
1310  e_val = FLA_INVALID_MACHVAL;
1311 
1312  return e_val;
1313 }

Referenced by FLA_Mach_params_check().

◆ FLA_Check_valid_object_datatype()

FLA_Error FLA_Check_valid_object_datatype ( FLA_Obj  A)

◆ FLA_Check_valid_pivot_type()

FLA_Error FLA_Check_valid_pivot_type ( FLA_Pivot_type  ptype)
553 {
554  FLA_Error e_val = FLA_SUCCESS;
555 
556  if ( ptype != FLA_NATIVE_PIVOTS && ptype != FLA_LAPACK_PIVOTS )
557  e_val = FLA_INVALID_PIVOT_TYPE;
558 
559  return e_val;
560 }

Referenced by FLA_Shift_pivots_to_check().

◆ FLA_Check_valid_quadrant()

FLA_Error FLA_Check_valid_quadrant ( FLA_Quadrant  quad)
728 {
729  FLA_Error e_val = FLA_SUCCESS;
730 
731  if ( quad != FLA_TL &&
732  quad != FLA_TR &&
733  quad != FLA_BL &&
734  quad != FLA_BR )
735  e_val = FLA_INVALID_QUADRANT;
736 
737  return e_val;
738 }

Referenced by FLA_Cont_with_3x3_to_2x2_check(), FLA_Part_2x2_check(), and FLA_Repart_2x2_to_3x3_check().

◆ FLA_Check_valid_real_trans()

FLA_Error FLA_Check_valid_real_trans ( FLA_Trans  trans)

◆ FLA_Check_valid_side()

FLA_Error FLA_Check_valid_side ( FLA_Side  side)
64 {
65  FLA_Error e_val = FLA_SUCCESS;
66 
67  if ( side != FLA_LEFT &&
68  side != FLA_RIGHT &&
69  side != FLA_TOP &&
70  side != FLA_BOTTOM )
71  e_val = FLA_INVALID_SIDE;
72 
73  return e_val;
74 }

◆ FLA_Check_valid_storev()

FLA_Error FLA_Check_valid_storev ( FLA_Conj  storev)
135 {
136  FLA_Error e_val = FLA_SUCCESS;
137 
138  if ( storev != FLA_COLUMNWISE &&
139  storev != FLA_ROWWISE )
140  e_val = FLA_INVALID_STOREV;
141 
142  return e_val;
143 }

Referenced by FLA_Accum_T_UT_check(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_Q2_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_QUD_UT_check(), and FLA_Apply_QUD_UT_inc_check().

◆ FLA_Check_valid_svd_type()

FLA_Error FLA_Check_valid_svd_type ( FLA_Svd_type  svd_type)
1255 {
1256  FLA_Error e_val = FLA_SUCCESS;
1257 
1258  if ( svd_type != FLA_SVD_VECTORS_ALL &&
1259  svd_type != FLA_SVD_VECTORS_MIN_COPY &&
1260  svd_type != FLA_SVD_VECTORS_MIN_OVERWRITE &&
1261  svd_type != FLA_SVD_VECTORS_NONE )
1262  e_val = FLA_INVALID_SVD_TYPE;
1263 
1264  return e_val;
1265 }

Referenced by FLA_Bsvd_check(), FLA_Svd_check(), FLA_Svd_ext_check(), and FLA_Svdd_check().

◆ FLA_Check_valid_svd_type_and_trans_combination()

FLA_Error FLA_Check_valid_svd_type_and_trans_combination ( FLA_Svd_type  svd_type_u,
FLA_Trans  transu,
FLA_Svd_type  svd_type_v,
FLA_Trans  transv 
)
1280 {
1281  FLA_Error e_val = FLA_SUCCESS;
1282 
1283  if ( svd_type_u == FLA_SVD_VECTORS_MIN_OVERWRITE )
1284  if ( transu == FLA_TRANSPOSE ||
1285  transu == FLA_CONJ_TRANSPOSE )
1286  e_val = FLA_INVALID_SVD_TYPE_AND_TRANS_COMBINATION;
1287  if ( svd_type_v == FLA_SVD_VECTORS_MIN_OVERWRITE )
1288  if ( transv == FLA_NO_TRANSPOSE ||
1289  transv == FLA_CONJ_NO_TRANSPOSE )
1290  e_val = FLA_INVALID_SVD_TYPE_AND_TRANS_COMBINATION;
1291 
1292  return e_val;
1293 }

Referenced by FLA_Svd_ext_check().

◆ FLA_Check_valid_svd_type_combination()

FLA_Error FLA_Check_valid_svd_type_combination ( FLA_Svd_type  svd_type_u,
FLA_Svd_type  svd_type_v 
)
1268 {
1269  FLA_Error e_val = FLA_SUCCESS;
1270 
1271  if ( svd_type_u == FLA_SVD_VECTORS_MIN_OVERWRITE &&
1272  svd_type_v == FLA_SVD_VECTORS_MIN_OVERWRITE )
1273  e_val = FLA_INVALID_SVD_TYPE_COMBINATION;
1274 
1275  return e_val;
1276 }

Referenced by FLA_Svd_ext_check().

◆ FLA_Check_valid_topbottom_side()

FLA_Error FLA_Check_valid_topbottom_side ( FLA_Side  side)
1136 {
1137  FLA_Error e_val = FLA_SUCCESS;
1138 
1139  if ( side != FLA_TOP &&
1140  side != FLA_BOTTOM )
1141  e_val = FLA_INVALID_SIDE;
1142 
1143  return e_val;
1144 }

Referenced by FLA_Cont_with_3x1_to_2x1_check(), FLA_Part_2x1_check(), and FLA_Repart_2x1_to_3x1_check().

◆ FLA_Check_valid_trans()

FLA_Error FLA_Check_valid_trans ( FLA_Trans  trans)

◆ FLA_Check_valid_uplo()

FLA_Error FLA_Check_valid_uplo ( FLA_Uplo  uplo)
77 {
78  FLA_Error e_val = FLA_SUCCESS;
79 
80  if ( uplo != FLA_LOWER_TRIANGULAR &&
81  uplo != FLA_UPPER_TRIANGULAR )
82  e_val = FLA_INVALID_UPLO;
83 
84  return e_val;
85 }

Referenced by FLA_Bidiag_UT_realify_diagonals_check(), FLA_Bsvd_check(), FLA_Chol_check(), FLA_Chol_solve_check(), FLA_Conjugate_r_check(), FLA_Copyr_check(), FLA_Copyrt_check(), FLA_Eig_gest_check(), FLA_Hemm_check(), FLA_Hemv_check(), FLA_Hemvc_check(), FLA_Her2_check(), FLA_Her2c_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Hermitianize_check(), FLA_Hevd_check(), FLA_Hevd_compute_scaling_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_Max_abs_value_herm_check(), FLA_Random_herm_matrix_check(), FLA_Random_spd_matrix_check(), FLA_Random_symm_matrix_check(), FLA_Random_tri_matrix_check(), FLA_Scalr_check(), FLA_Setr_check(), FLA_SPDinv_check(), FLA_Symm_check(), FLA_Symmetrize_check(), FLA_Symv_check(), FLA_Syr2_check(), FLA_Syr2k_check(), FLA_Syr_check(), FLA_Syrk_check(), FLA_Triangularize_check(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_scale_diagonals_check(), FLA_Tridiag_UT_shift_U_check(), FLA_Trinv_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trmv_check(), FLA_Trmvsx_check(), FLA_Trsm_check(), FLA_Trsmsx_check(), FLA_Trsv_check(), FLA_Trsvsx_check(), FLA_Ttmm_check(), and FLASH_Random_spd_matrix().

◆ FLA_Check_vector_dim()

FLA_Error FLA_Check_vector_dim ( FLA_Obj  x,
dim_t  expected_length 
)

◆ FLA_Check_vector_dim_min()

FLA_Error FLA_Check_vector_dim_min ( FLA_Obj  x,
dim_t  min_dim 
)
741 {
742  FLA_Error e_val = FLA_SUCCESS;
743 
744  if ( FLA_Obj_vector_dim( x ) < min_dim )
745  e_val = FLA_VECTOR_DIM_BELOW_MIN;
746 
747  return e_val;
748 }

References FLA_Obj_vector_dim().

Referenced by FLA_Bidiag_form_U_check(), FLA_Bidiag_form_V_check(), FLA_Hess_check(), FLA_LU_piv_check(), FLA_LU_piv_solve_check(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_check(), and FLA_Tridiag_form_Q_check().

◆ FLA_Check_write_result()

FLA_Error FLA_Check_write_result ( int  requested_size,
int  write_r_val 
)
718 {
719  FLA_Error e_val = FLA_SUCCESS;
720 
721  if ( write_r_val != requested_size )
722  e_val = FLA_WRITE_RETURNED_ERROR;
723 
724  return e_val;
725 }

◆ FLA_compute_num_elem()

dim_t FLA_compute_num_elem ( dim_t  elem_size,
dim_t  m,
dim_t  n,
dim_t rs,
dim_t cs 
)
135 {
136  dim_t n_elem;
137 
138  // Determine the amount of space we need to allocate based on the values of
139  // the row and column strides.
140  if ( m == 0 || n == 0 )
141  {
142  // For empty objects, set the length of the buffer to 0. Row and column
143  // strides should remain unchanged (because alignment is not needed).
144  n_elem = 0;
145  }
146  else if ( *rs == 1 )
147  {
148  // For column-major storage, use cs for computing the length of the buffer
149  // to allocate.
150 
151  // Align the leading dimension to some user-defined address multiple,
152  // if requested at configure-time.
153  *cs = FLA_align_ldim( *cs, elem_size );
154 
155  // Compute the length of the buffer needed for the object we're creating.
156  n_elem = ( size_t ) *cs *
157  ( size_t ) n;
158  }
159  else if ( *cs == 1 )
160  {
161  // For row-major storage, use rs for computing the length of the buffer
162  // to allocate.
163 
164  // Align the leading dimension to some user-defined address multiple,
165  // if requested at configure-time.
166  *rs = FLA_align_ldim( *rs, elem_size );
167 
168  // Compute the length of the buffer needed for the object we're creating.
169  n_elem = ( size_t ) m *
170  ( size_t ) *rs;
171  }
172  else
173  {
174  // For general storage, use rs and cs to compute the length of the buffer
175  // to allocate.
176 
177  // Compute the size of the buffer needed for the object we're creating.
178  if ( *rs < *cs )
179  {
180  *cs = FLA_align_ldim( *cs, elem_size );
181 
182  n_elem = ( size_t ) *cs *
183  ( size_t ) n;
184  }
185  else if ( *rs > *cs )
186  {
187  *rs = FLA_align_ldim( *rs, elem_size );
188 
189  n_elem = ( size_t ) m *
190  ( size_t ) *rs;
191  }
192  else // if ( rs == cs )
193  {
194  //rs = FLA_align_ldim( rs, FLA_Obj_elem_size( *obj ) );
195  *cs = FLA_align_ldim( *cs, elem_size );
196 
197  // Note that if rs == cs, then we must be creating either a 1-by-n matrix
198  // or a m-by-1 matrix. This constraint is enforced in
199  // FLA_Check_matrix_strides(). Thus, we can compute the buffer length:
200  // m * n * (rs|cs).
201  n_elem = ( size_t ) m *
202  ( size_t ) n *
203  ( size_t ) *cs;
204  }
205  }
206 
207  return n_elem;
208 }
dim_t FLA_align_ldim(dim_t ldim, dim_t elem_size)
Definition: FLA_Obj.c:211

References FLA_align_ldim().

Referenced by FLA_Obj_create_buffer(), and FLA_Obj_create_ext().

◆ FLA_Cont_with_1x3_to_1x2()

FLA_Error FLA_Cont_with_1x3_to_1x2 ( FLA_Obj AL,
FLA_Obj AR,
FLA_Obj  A0,
FLA_Obj  A1,
FLA_Obj  A2,
FLA_Side  side 
)
478 {
479  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
480  FLA_Cont_with_1x3_to_1x2_check( AL, AR, A0, A1, A2,
481  side );
482 
483  if ( side == FLA_LEFT )
484  {
485  AL->m = A0.m;
486  AL->n = A0.n + A1.n;
487  AL->offm = A0.offm;
488  AL->offn = A0.offn;
489  AL->base = A0.base;
490 
491  AR->m = A2.m;
492  AR->n = A2.n;
493  AR->offm = A2.offm;
494  AR->offn = A2.offn;
495  AR->base = A2.base;
496  }
497  else
498  {
499  AL->m = A0.m;
500  AL->n = A0.n;
501  AL->offm = A0.offm;
502  AL->offn = A0.offn;
503  AL->base = A0.base;
504 
505  AR->m = A1.m;
506  AR->n = A1.n + A2.n;
507  AR->offm = A1.offm;
508  AR->offn = A1.offn;
509  AR->base = A1.base;
510  }
511 
512  return FLA_SUCCESS;
513 }
FLA_Error FLA_Cont_with_1x3_to_1x2_check(FLA_Obj *AL, FLA_Obj *AR, FLA_Obj A0, FLA_Obj A1, FLA_Obj A2, FLA_Side side)
Definition: FLA_Cont_with_1x3_to_1x2_check.c:13
dim_t m
Definition: FLA_type_defs.h:163
dim_t n
Definition: FLA_type_defs.h:164

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Cont_with_1x3_to_1x2_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var3(), FLA_Apply_pivots_ln_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var3(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var2(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var2(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var2(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var2(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var2(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var2(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var2(), FLA_Axpy_blk_var3(), FLA_Axpy_blk_var4(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_CAQR2_UT_blk_var1(), FLA_Copy_blk_var3(), FLA_Copy_blk_var4(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var3(), FLA_Gemm_cc_unb_var4(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_ch_unb_var5(), FLA_Gemm_ch_unb_var6(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var3(), FLA_Gemm_cn_unb_var4(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_ct_unb_var5(), FLA_Gemm_ct_unb_var6(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var3(), FLA_Gemm_hc_unb_var4(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var3(), FLA_Gemm_hn_unb_var4(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var3(), FLA_Gemm_nc_unb_var4(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nh_unb_var5(), FLA_Gemm_nh_unb_var6(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var3(), FLA_Gemm_nn_unb_var4(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_nt_unb_var5(), FLA_Gemm_nt_unb_var6(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var3(), FLA_Gemm_tc_unb_var4(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var3(), FLA_Gemm_tn_unb_var4(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Hemm_ll_blk_var10(), FLA_Hemm_ll_blk_var9(), FLA_Hemm_ll_unb_var10(), FLA_Hemm_ll_unb_var9(), FLA_Hemm_lu_blk_var10(), FLA_Hemm_lu_blk_var9(), FLA_Hemm_lu_unb_var10(), FLA_Hemm_lu_unb_var9(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var10(), FLA_Her2k_ln_blk_var9(), FLA_Her2k_ln_unb_var10(), FLA_Her2k_ln_unb_var9(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var10(), FLA_Her2k_un_blk_var9(), FLA_Her2k_un_unb_var10(), FLA_Her2k_un_unb_var9(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var5(), FLA_Herk_ln_blk_var6(), FLA_Herk_ln_unb_var5(), FLA_Herk_ln_unb_var6(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var5(), FLA_Herk_un_blk_var6(), FLA_Herk_un_unb_var5(), FLA_Herk_un_unb_var6(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_step_unb_var1(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_unb_var1(), FLA_LU_piv_blk_var3(), FLA_LU_piv_unb_var3(), FLA_Norm1(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_UT_blk_var1(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_recover_tau(), FLA_QR_UT_unb_var1(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_Scal_blk_var3(), FLA_Scal_blk_var4(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Symm_ll_blk_var10(), FLA_Symm_ll_blk_var9(), FLA_Symm_ll_unb_var10(), FLA_Symm_ll_unb_var9(), FLA_Symm_lu_blk_var10(), FLA_Symm_lu_blk_var9(), FLA_Symm_lu_unb_var10(), FLA_Symm_lu_unb_var9(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Syr2k_ln_blk_var10(), FLA_Syr2k_ln_blk_var9(), FLA_Syr2k_ln_unb_var10(), FLA_Syr2k_ln_unb_var9(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var10(), FLA_Syr2k_un_blk_var9(), FLA_Syr2k_un_unb_var10(), FLA_Syr2k_un_unb_var9(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_ln_blk_var5(), FLA_Syrk_ln_blk_var6(), FLA_Syrk_ln_unb_var5(), FLA_Syrk_ln_unb_var6(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var5(), FLA_Syrk_un_blk_var6(), FLA_Syrk_un_unb_var5(), FLA_Syrk_un_unb_var6(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Trmm_llc_blk_var3(), FLA_Trmm_llc_blk_var4(), FLA_Trmm_llc_unb_var3(), FLA_Trmm_llc_unb_var4(), FLA_Trmm_llh_blk_var3(), FLA_Trmm_llh_blk_var4(), FLA_Trmm_llh_unb_var3(), FLA_Trmm_llh_unb_var4(), FLA_Trmm_lln_blk_var3(), FLA_Trmm_lln_blk_var4(), FLA_Trmm_lln_unb_var3(), FLA_Trmm_lln_unb_var4(), FLA_Trmm_llt_blk_var3(), FLA_Trmm_llt_blk_var4(), FLA_Trmm_llt_unb_var3(), FLA_Trmm_llt_unb_var4(), FLA_Trmm_luc_blk_var3(), FLA_Trmm_luc_blk_var4(), FLA_Trmm_luc_unb_var3(), FLA_Trmm_luc_unb_var4(), FLA_Trmm_luh_blk_var3(), FLA_Trmm_luh_blk_var4(), FLA_Trmm_luh_unb_var3(), FLA_Trmm_luh_unb_var4(), FLA_Trmm_lun_blk_var3(), FLA_Trmm_lun_blk_var4(), FLA_Trmm_lun_unb_var3(), FLA_Trmm_lun_unb_var4(), FLA_Trmm_lut_blk_var3(), FLA_Trmm_lut_blk_var4(), FLA_Trmm_lut_unb_var3(), FLA_Trmm_lut_unb_var4(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trsm_llc_blk_var3(), FLA_Trsm_llc_blk_var4(), FLA_Trsm_llc_unb_var3(), FLA_Trsm_llc_unb_var4(), FLA_Trsm_llh_blk_var3(), FLA_Trsm_llh_blk_var4(), FLA_Trsm_llh_unb_var3(), FLA_Trsm_llh_unb_var4(), FLA_Trsm_lln_blk_var3(), FLA_Trsm_lln_blk_var4(), FLA_Trsm_lln_unb_var3(), FLA_Trsm_lln_unb_var4(), FLA_Trsm_llt_blk_var3(), FLA_Trsm_llt_blk_var4(), FLA_Trsm_llt_unb_var3(), FLA_Trsm_llt_unb_var4(), FLA_Trsm_luc_blk_var3(), FLA_Trsm_luc_blk_var4(), FLA_Trsm_luc_unb_var3(), FLA_Trsm_luc_unb_var4(), FLA_Trsm_luh_blk_var3(), FLA_Trsm_luh_blk_var4(), FLA_Trsm_luh_unb_var3(), FLA_Trsm_luh_unb_var4(), FLA_Trsm_lun_blk_var3(), FLA_Trsm_lun_blk_var4(), FLA_Trsm_lun_unb_var3(), FLA_Trsm_lun_unb_var4(), FLA_Trsm_lut_blk_var3(), FLA_Trsm_lut_blk_var4(), FLA_Trsm_lut_unb_var3(), FLA_Trsm_lut_unb_var4(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_Axpy_hierarchy(), FLASH_Copy_hierarchy(), FLASH_LU_incpiv_var2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_create_hierarchy(), FLASH_Obj_scalar_width(), FLASH_Obj_show_hierarchy(), FLASH_SA_FS(), and FLASH_Trsm_piv().

◆ FLA_Cont_with_1x3_to_1x2_check()

FLA_Error FLA_Cont_with_1x3_to_1x2_check ( FLA_Obj AL,
FLA_Obj AR,
FLA_Obj  A0,
FLA_Obj  A1,
FLA_Obj  A2,
FLA_Side  side 
)
16 {
17  FLA_Error e_val;
18 
19  e_val = FLA_Check_null_pointer( AL );
20  FLA_Check_error_code( e_val );
21 
22  e_val = FLA_Check_null_pointer( AR );
23  FLA_Check_error_code( e_val );
24 
25  e_val = FLA_Check_valid_object_datatype( A0 );
26  FLA_Check_error_code( e_val );
27 
28  e_val = FLA_Check_valid_object_datatype( A1 );
29  FLA_Check_error_code( e_val );
30 
31  e_val = FLA_Check_valid_object_datatype( A2 );
32  FLA_Check_error_code( e_val );
33 
34  e_val = FLA_Check_valid_leftright_side( side );
35  FLA_Check_error_code( e_val );
36 
37  // Needed: check for adjacency, similar to those in FLA_Merge_*().
38 
39  return FLA_SUCCESS;
40 }
FLA_Error FLA_Check_valid_leftright_side(FLA_Side side)
Definition: FLA_Check.c:1124
FLA_Error FLA_Check_valid_object_datatype(FLA_Obj A)
Definition: FLA_Check.c:171

References FLA_Check_null_pointer(), FLA_Check_valid_leftright_side(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Cont_with_1x3_to_1x2().

◆ FLA_Cont_with_3x1_to_2x1()

FLA_Error FLA_Cont_with_3x1_to_2x1 ( FLA_Obj AT,
FLA_Obj  A0,
FLA_Obj  A1,
FLA_Obj AB,
FLA_Obj  A2,
FLA_Side  side 
)
432 {
433  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
435  A1,
436  AB, A2, side );
437 
438  if ( side == FLA_TOP )
439  {
440  AT->m = A0.m + A1.m;
441  AT->n = A0.n;
442  AT->offm = A0.offm;
443  AT->offn = A0.offn;
444  AT->base = A0.base;
445 
446  AB->m = A2.m;
447  AB->n = A2.n;
448  AB->offm = A2.offm;
449  AB->offn = A2.offn;
450  AB->base = A2.base;
451  }
452  else
453  {
454  AT->m = A0.m;
455  AT->n = A0.n;
456  AT->offm = A0.offm;
457  AT->offn = A0.offn;
458  AT->base = A0.base;
459 
460  AB->m = A1.m + A2.m;
461  AB->n = A1.n;
462  AB->offm = A1.offm;
463  AB->offn = A1.offn;
464  AB->base = A1.base;
465  }
466 
467  return FLA_SUCCESS;
468 }
FLA_Error FLA_Cont_with_3x1_to_2x1_check(FLA_Obj *AT, FLA_Obj A0, FLA_Obj A1, FLA_Obj *AB, FLA_Obj A2, FLA_Side side)
Definition: FLA_Cont_with_3x1_to_2x1_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Cont_with_3x1_to_2x1_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var2(), FLA_Apply_CAQ_UT_inc_apply_panels(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_pivots_ln_blk_var2(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var2(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var3(), FLA_Axpy_blk_var1(), FLA_Axpy_blk_var2(), FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR_UT_inc_copy_triangles(), FLA_CAQR_UT_inc_factorize_panels(), FLA_Copy_blk_var1(), FLA_Copy_blk_var2(), FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var1(), FLA_Gemm_cc_unb_var2(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_unb_var1(), FLA_Gemm_ch_unb_var2(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var1(), FLA_Gemm_cn_unb_var2(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_unb_var1(), FLA_Gemm_ct_unb_var2(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var5(), FLA_Gemm_hc_unb_var6(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var5(), FLA_Gemm_hn_unb_var6(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var1(), FLA_Gemm_nc_unb_var2(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_unb_var1(), FLA_Gemm_nh_unb_var2(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var1(), FLA_Gemm_nn_unb_var2(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_unb_var1(), FLA_Gemm_nt_unb_var2(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var5(), FLA_Gemm_tc_unb_var6(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var5(), FLA_Gemm_tn_unb_var6(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_h_blk_var5(), FLA_Gemv_h_blk_var6(), FLA_Gemv_n_blk_var1(), FLA_Gemv_n_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Gemv_t_blk_var5(), FLA_Gemv_t_blk_var6(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var10(), FLA_Hemm_rl_blk_var9(), FLA_Hemm_rl_unb_var10(), FLA_Hemm_rl_unb_var9(), FLA_Hemm_ru_blk_var10(), FLA_Hemm_ru_blk_var9(), FLA_Hemm_ru_unb_var10(), FLA_Hemm_ru_unb_var9(), FLA_Her2k_lh_blk_var10(), FLA_Her2k_lh_blk_var9(), FLA_Her2k_lh_unb_var10(), FLA_Her2k_lh_unb_var9(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var10(), FLA_Her2k_uh_blk_var9(), FLA_Her2k_uh_unb_var10(), FLA_Her2k_uh_unb_var9(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Herk_lh_blk_var5(), FLA_Herk_lh_blk_var6(), FLA_Herk_lh_unb_var5(), FLA_Herk_lh_unb_var6(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var5(), FLA_Herk_uh_blk_var6(), FLA_Herk_uh_unb_var5(), FLA_Herk_uh_unb_var6(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_recover_tau_submatrix(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Norm_inf(), FLA_QR2_UT_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau(), FLA_QR_UT_recover_tau_submatrix(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_Scal_blk_var1(), FLA_Scal_blk_var2(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var10(), FLA_Symm_rl_blk_var9(), FLA_Symm_rl_unb_var10(), FLA_Symm_rl_unb_var9(), FLA_Symm_ru_blk_var10(), FLA_Symm_ru_blk_var9(), FLA_Symm_ru_unb_var10(), FLA_Symm_ru_unb_var9(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var10(), FLA_Syr2k_lt_blk_var9(), FLA_Syr2k_lt_unb_var10(), FLA_Syr2k_lt_unb_var9(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var10(), FLA_Syr2k_ut_blk_var9(), FLA_Syr2k_ut_unb_var10(), FLA_Syr2k_ut_unb_var9(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var5(), FLA_Syrk_lt_blk_var6(), FLA_Syrk_lt_unb_var5(), FLA_Syrk_lt_unb_var6(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var5(), FLA_Syrk_ut_blk_var6(), FLA_Syrk_ut_unb_var5(), FLA_Syrk_ut_unb_var6(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var3(), FLA_Trmm_rlc_blk_var4(), FLA_Trmm_rlc_unb_var3(), FLA_Trmm_rlc_unb_var4(), FLA_Trmm_rlh_blk_var3(), FLA_Trmm_rlh_blk_var4(), FLA_Trmm_rlh_unb_var3(), FLA_Trmm_rlh_unb_var4(), FLA_Trmm_rln_blk_var3(), FLA_Trmm_rln_blk_var4(), FLA_Trmm_rln_unb_var3(), FLA_Trmm_rln_unb_var4(), FLA_Trmm_rlt_blk_var3(), FLA_Trmm_rlt_blk_var4(), FLA_Trmm_rlt_unb_var3(), FLA_Trmm_rlt_unb_var4(), FLA_Trmm_ruc_blk_var3(), FLA_Trmm_ruc_blk_var4(), FLA_Trmm_ruc_unb_var3(), FLA_Trmm_ruc_unb_var4(), FLA_Trmm_ruh_blk_var3(), FLA_Trmm_ruh_blk_var4(), FLA_Trmm_ruh_unb_var3(), FLA_Trmm_ruh_unb_var4(), FLA_Trmm_run_blk_var3(), FLA_Trmm_run_blk_var4(), FLA_Trmm_run_unb_var3(), FLA_Trmm_run_unb_var4(), FLA_Trmm_rut_blk_var3(), FLA_Trmm_rut_blk_var4(), FLA_Trmm_rut_unb_var3(), FLA_Trmm_rut_unb_var4(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var3(), FLA_Trsm_rlc_blk_var4(), FLA_Trsm_rlc_unb_var3(), FLA_Trsm_rlc_unb_var4(), FLA_Trsm_rlh_blk_var3(), FLA_Trsm_rlh_blk_var4(), FLA_Trsm_rlh_unb_var3(), FLA_Trsm_rlh_unb_var4(), FLA_Trsm_rln_blk_var3(), FLA_Trsm_rln_blk_var4(), FLA_Trsm_rln_unb_var3(), FLA_Trsm_rln_unb_var4(), FLA_Trsm_rlt_blk_var3(), FLA_Trsm_rlt_blk_var4(), FLA_Trsm_rlt_unb_var3(), FLA_Trsm_rlt_unb_var4(), FLA_Trsm_ruc_blk_var3(), FLA_Trsm_ruc_blk_var4(), FLA_Trsm_ruc_unb_var3(), FLA_Trsm_ruc_unb_var4(), FLA_Trsm_ruh_blk_var3(), FLA_Trsm_ruh_blk_var4(), FLA_Trsm_ruh_unb_var3(), FLA_Trsm_ruh_unb_var4(), FLA_Trsm_run_blk_var3(), FLA_Trsm_run_blk_var4(), FLA_Trsm_run_unb_var3(), FLA_Trsm_run_unb_var4(), FLA_Trsm_rut_blk_var3(), FLA_Trsm_rut_blk_var4(), FLA_Trsm_rut_unb_var3(), FLA_Trsm_rut_unb_var4(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_UDdate_UT_blk_var2(), FLASH_Axpy_hierarchy(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_Copy_hierarchy(), FLASH_FS_incpiv_aux1(), FLASH_FS_incpiv_aux2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_scalar_length(), FLASH_QR_UT_inc_create_hier_matrices(), and FLASH_SA_LU().

◆ FLA_Cont_with_3x1_to_2x1_check()

FLA_Error FLA_Cont_with_3x1_to_2x1_check ( FLA_Obj AT,
FLA_Obj  A0,
FLA_Obj  A1,
FLA_Obj AB,
FLA_Obj  A2,
FLA_Side  side 
)
17 {
18  FLA_Error e_val;
19 
20  e_val = FLA_Check_null_pointer( AT );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_null_pointer( AB );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_valid_object_datatype( A0 );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_valid_object_datatype( A1 );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_valid_object_datatype( A2 );
33  FLA_Check_error_code( e_val );
34 
35  e_val = FLA_Check_valid_topbottom_side( side );
36  FLA_Check_error_code( e_val );
37 
38  // Needed: check for adjacency, similar to those in FLA_Merge_*().
39 
40  return FLA_SUCCESS;
41 }
FLA_Error FLA_Check_valid_topbottom_side(FLA_Side side)
Definition: FLA_Check.c:1135

References FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_topbottom_side().

Referenced by FLA_Cont_with_3x1_to_2x1().

◆ FLA_Cont_with_3x3_to_2x2()

FLA_Error FLA_Cont_with_3x3_to_2x2 ( FLA_Obj ATL,
FLA_Obj ATR,
FLA_Obj  A00,
FLA_Obj  A01,
FLA_Obj  A02,
FLA_Obj  A10,
FLA_Obj  A11,
FLA_Obj  A12,
FLA_Obj ABL,
FLA_Obj ABR,
FLA_Obj  A20,
FLA_Obj  A21,
FLA_Obj  A22,
FLA_Quadrant  quadrant 
)
308 {
309  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
310  FLA_Cont_with_3x3_to_2x2_check( ATL, ATR, A00, A01, A02,
311  A10, A11, A12,
312  ABL, ABR, A20, A21, A22,
313  quadrant );
314 
315  if ( quadrant == FLA_TL )
316  {
317  ATL->m = A00.m + A10.m;
318  ATL->n = A00.n + A01.n;
319  ATL->offm = A00.offm;
320  ATL->offn = A00.offn;
321  ATL->base = A00.base;
322 
323  ATR->m = A02.m + A12.m;
324  ATR->n = A02.n;
325  ATR->offm = A02.offm;
326  ATR->offn = A02.offn;
327  ATR->base = A02.base;
328 
329  ABL->m = A20.m;
330  ABL->n = A20.n + A21.n;
331  ABL->offm = A20.offm;
332  ABL->offn = A20.offn;
333  ABL->base = A20.base;
334 
335  ABR->m = A22.m;
336  ABR->n = A22.n;
337  ABR->offm = A22.offm;
338  ABR->offn = A22.offn;
339  ABR->base = A22.base;
340  }
341  else if ( quadrant == FLA_TR )
342  {
343  ATL->m = A00.m + A10.m;
344  ATL->n = A00.n;
345  ATL->offm = A00.offm;
346  ATL->offn = A00.offn;
347  ATL->base = A00.base;
348 
349  ATR->m = A01.m + A11.m;
350  ATR->n = A01.n + A02.n;
351  ATR->offm = A01.offm;
352  ATR->offn = A01.offn;
353  ATR->base = A01.base;
354 
355  ABL->m = A20.m;
356  ABL->n = A20.n;
357  ABL->offm = A20.offm;
358  ABL->offn = A20.offn;
359  ABL->base = A20.base;
360 
361  ABR->m = A21.m;
362  ABR->n = A21.n + A22.n;
363  ABR->offm = A21.offm;
364  ABR->offn = A21.offn;
365  ABR->base = A21.base;
366  }
367  else if ( quadrant == FLA_BR )
368  {
369  ATL->m = A00.m;
370  ATL->n = A00.n;
371  ATL->offm = A00.offm;
372  ATL->offn = A00.offn;
373  ATL->base = A00.base;
374 
375  ATR->m = A01.m;
376  ATR->n = A01.n + A02.n;
377  ATR->offm = A01.offm;
378  ATR->offn = A01.offn;
379  ATR->base = A01.base;
380 
381  ABL->m = A10.m + A20.m;
382  ABL->n = A10.n;
383  ABL->offm = A10.offm;
384  ABL->offn = A10.offn;
385  ABL->base = A10.base;
386 
387  ABR->m = A11.m + A21.m;
388  ABR->n = A11.n + A12.n;
389  ABR->offm = A11.offm;
390  ABR->offn = A11.offn;
391  ABR->base = A11.base;
392  }
393  else if ( quadrant == FLA_BL )
394  {
395  ATL->m = A00.m;
396  ATL->n = A00.n + A01.n;
397  ATL->offm = A00.offm;
398  ATL->offn = A00.offn;
399  ATL->base = A00.base;
400 
401  ATR->m = A02.m;
402  ATR->n = A02.n;
403  ATR->offm = A02.offm;
404  ATR->offn = A02.offn;
405  ATR->base = A02.base;
406 
407  ABL->m = A10.m + A20.m;
408  ABL->n = A10.n + A11.n;
409  ABL->offm = A10.offm;
410  ABL->offn = A10.offn;
411  ABL->base = A10.base;
412 
413  ABR->m = A12.m + A22.m;
414  ABR->n = A12.n ;
415  ABR->offm = A12.offm;
416  ABR->offn = A12.offn;
417  ABR->base = A12.base;
418  }
419 
420  return FLA_SUCCESS;
421 }
FLA_Error FLA_Cont_with_3x3_to_2x2_check(FLA_Obj *ATL, FLA_Obj *ATR, FLA_Obj A00, FLA_Obj A01, FLA_Obj A02, FLA_Obj A10, FLA_Obj A11, FLA_Obj A12, FLA_Obj *ABL, FLA_Obj *ABR, FLA_Obj A20, FLA_Obj A21, FLA_Obj A22, FLA_Quadrant quadrant)
Definition: FLA_Cont_with_3x3_to_2x2_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Cont_with_3x3_to_2x2_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_blk_var1(), FLA_Chol_l_blk_var1(), FLA_Chol_l_blk_var2(), FLA_Chol_l_blk_var3(), FLA_Chol_l_unb_var1(), FLA_Chol_l_unb_var2(), FLA_Chol_l_unb_var3(), FLA_Chol_u_blk_var1(), FLA_Chol_u_blk_var2(), FLA_Chol_u_blk_var3(), FLA_Chol_u_unb_var1(), FLA_Chol_u_unb_var2(), FLA_Chol_u_unb_var3(), FLA_Copyr_l_blk_var1(), FLA_Copyr_l_blk_var2(), FLA_Copyr_l_blk_var3(), FLA_Copyr_l_blk_var4(), FLA_Copyr_u_blk_var1(), FLA_Copyr_u_blk_var2(), FLA_Copyr_u_blk_var3(), FLA_Copyr_u_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_il_unb_var3(), FLA_Eig_gest_il_unb_var4(), FLA_Eig_gest_il_unb_var5(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_iu_unb_var3(), FLA_Eig_gest_iu_unb_var4(), FLA_Eig_gest_iu_unb_var5(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nl_unb_var4(), FLA_Eig_gest_nl_unb_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Eig_gest_nu_unb_var4(), FLA_Eig_gest_nu_unb_var5(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau_submatrix(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_LQ_UT_unb_var1(), FLA_LQ_UT_unb_var2(), FLA_LU_find_zero_on_diagonal(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_nopiv_unb_var1(), FLA_LU_nopiv_unb_var2(), FLA_LU_nopiv_unb_var3(), FLA_LU_nopiv_unb_var4(), FLA_LU_nopiv_unb_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Lyap_h_blk_var1(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_h_blk_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_blk_var1(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_Lyap_n_blk_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_UT_blk_var1(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau_submatrix(), FLA_QR_UT_unb_var1(), FLA_QR_UT_unb_var2(), FLA_SA_LU_blk(), FLA_Scalr_l_blk_var1(), FLA_Scalr_l_blk_var2(), FLA_Scalr_l_blk_var3(), FLA_Scalr_l_blk_var4(), FLA_Scalr_u_blk_var1(), FLA_Scalr_u_blk_var2(), FLA_Scalr_u_blk_var3(), FLA_Scalr_u_blk_var4(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Transpose_blk_var1(), FLA_Transpose_blk_var2(), FLA_Transpose_unb_var1(), FLA_Transpose_unb_var2(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trinv_ln_blk_var1(), FLA_Trinv_ln_blk_var2(), FLA_Trinv_ln_blk_var3(), FLA_Trinv_ln_blk_var4(), FLA_Trinv_ln_unb_var1(), FLA_Trinv_ln_unb_var2(), FLA_Trinv_ln_unb_var3(), FLA_Trinv_ln_unb_var4(), FLA_Trinv_lu_blk_var1(), FLA_Trinv_lu_blk_var2(), FLA_Trinv_lu_blk_var3(), FLA_Trinv_lu_blk_var4(), FLA_Trinv_lu_unb_var1(), FLA_Trinv_lu_unb_var2(), FLA_Trinv_lu_unb_var3(), FLA_Trinv_lu_unb_var4(), FLA_Trinv_un_blk_var1(), FLA_Trinv_un_blk_var2(), FLA_Trinv_un_blk_var3(), FLA_Trinv_un_blk_var4(), FLA_Trinv_un_unb_var1(), FLA_Trinv_un_unb_var2(), FLA_Trinv_un_unb_var3(), FLA_Trinv_un_unb_var4(), FLA_Trinv_uu_blk_var1(), FLA_Trinv_uu_blk_var2(), FLA_Trinv_uu_blk_var3(), FLA_Trinv_uu_blk_var4(), FLA_Trinv_uu_unb_var1(), FLA_Trinv_uu_unb_var2(), FLA_Trinv_uu_unb_var3(), FLA_Trinv_uu_unb_var4(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_Ttmm_l_blk_var1(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_l_blk_var3(), FLA_Ttmm_l_unb_var1(), FLA_Ttmm_l_unb_var2(), FLA_Ttmm_l_unb_var3(), FLA_Ttmm_u_blk_var1(), FLA_Ttmm_u_blk_var2(), FLA_Ttmm_u_blk_var3(), FLA_Ttmm_u_unb_var1(), FLA_Ttmm_u_unb_var2(), FLA_Ttmm_u_unb_var3(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_FS_incpiv_aux1(), FLASH_LU_find_zero_on_diagonal(), FLASH_LU_incpiv_var1(), and FLASH_LU_incpiv_var2().

◆ FLA_Cont_with_3x3_to_2x2_check()

FLA_Error FLA_Cont_with_3x3_to_2x2_check ( FLA_Obj ATL,
FLA_Obj ATR,
FLA_Obj  A00,
FLA_Obj  A01,
FLA_Obj  A02,
FLA_Obj  A10,
FLA_Obj  A11,
FLA_Obj  A12,
FLA_Obj ABL,
FLA_Obj ABR,
FLA_Obj  A20,
FLA_Obj  A21,
FLA_Obj  A22,
FLA_Quadrant  quadrant 
)
17 {
18  FLA_Error e_val;
19 
20  e_val = FLA_Check_null_pointer( ATL );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_null_pointer( ABL );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_null_pointer( ATR );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_null_pointer( ABR );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_valid_object_datatype( A00 );
33  FLA_Check_error_code( e_val );
34 
35  e_val = FLA_Check_valid_object_datatype( A10 );
36  FLA_Check_error_code( e_val );
37 
38  e_val = FLA_Check_valid_object_datatype( A20 );
39  FLA_Check_error_code( e_val );
40 
41  e_val = FLA_Check_valid_object_datatype( A01 );
42  FLA_Check_error_code( e_val );
43 
44  e_val = FLA_Check_valid_object_datatype( A11 );
45  FLA_Check_error_code( e_val );
46 
47  e_val = FLA_Check_valid_object_datatype( A21 );
48  FLA_Check_error_code( e_val );
49 
50  e_val = FLA_Check_valid_object_datatype( A02 );
51  FLA_Check_error_code( e_val );
52 
53  e_val = FLA_Check_valid_object_datatype( A12 );
54  FLA_Check_error_code( e_val );
55 
56  e_val = FLA_Check_valid_object_datatype( A22 );
57  FLA_Check_error_code( e_val );
58 
59  e_val = FLA_Check_valid_quadrant( quadrant );
60  FLA_Check_error_code( e_val );
61 
62  // Needed: check for adjacency, similar to those in FLA_Merge_*().
63 
64  return FLA_SUCCESS;
65 }
FLA_Error FLA_Check_valid_quadrant(FLA_Quadrant quad)
Definition: FLA_Check.c:727

References FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_quadrant().

Referenced by FLA_Cont_with_3x3_to_2x2().

◆ FLA_Cont_with_5x5_to_3x3()

FLA_Error FLA_Cont_with_5x5_to_3x3 ( FLA_Obj ATL,
FLA_Obj ATM,
FLA_Obj ATR,
FLA_Obj AML,
FLA_Obj AMM,
FLA_Obj AMR,
FLA_Obj ABL,
FLA_Obj ABM,
FLA_Obj ABR,
FLA_Obj  A00,
FLA_Obj  A01,
FLA_Obj  A02,
FLA_Obj  A03,
FLA_Obj  A04,
FLA_Obj  A10,
FLA_Obj  A11,
FLA_Obj  A12,
FLA_Obj  A13,
FLA_Obj  A14,
FLA_Obj  A20,
FLA_Obj  A21,
FLA_Obj  A22,
FLA_Obj  A23,
FLA_Obj  A24,
FLA_Obj  A30,
FLA_Obj  A31,
FLA_Obj  A32,
FLA_Obj  A33,
FLA_Obj  A34,
FLA_Obj  A40,
FLA_Obj  A41,
FLA_Obj  A42,
FLA_Obj  A43,
FLA_Obj  A44,
FLA_Quadrant  quadrant 
)

◆ FLA_Copy_buffer_to_object()

FLA_Error FLA_Copy_buffer_to_object ( FLA_Trans  trans,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs,
dim_t  i,
dim_t  j,
FLA_Obj  obj 
)
14 {
15  FLA_Obj A;
16  FLA_Obj BTL, BTR,
17  BBL, Bij;
18 
19  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
20  FLA_Copy_buffer_to_object_check( trans, m, n, A_buffer, rs, cs, i, j, B );
21 
22  FLA_Part_2x2( B, &BTL, &BTR,
23  &BBL, &Bij, i, j, FLA_TL );
24 
26  FLA_Obj_attach_buffer( A_buffer, rs, cs, &A );
27 
28  FLA_Copyt_external( trans, A, Bij );
29 
31 
32  return FLA_SUCCESS;
33 }
FLA_Error FLA_Copy_buffer_to_object_check(FLA_Trans trans, dim_t m, dim_t n, void *A_buffer, dim_t rs, dim_t cs, dim_t i, dim_t j, FLA_Obj B)
Definition: FLA_Copy_buffer_to_object_check.c:13
FLA_Error FLA_Copyt_external(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Copyt_external.c:13

References FLA_Check_error_level(), FLA_Copy_buffer_to_object_check(), FLA_Copyt_external(), FLA_Obj_attach_buffer(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_free_without_buffer(), FLA_Part_2x2(), and i.

◆ FLA_Copy_buffer_to_object_check()

FLA_Error FLA_Copy_buffer_to_object_check ( FLA_Trans  trans,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs,
dim_t  i,
dim_t  j,
FLA_Obj  obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_real_trans( trans );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( B );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( B );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_null_pointer( A_buffer );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_object_dims( trans, m, n, B );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_matrix_strides( m, n, rs, cs );
33  FLA_Check_error_code( e_val );
34 
35  if ( trans == FLA_NO_TRANSPOSE )
36  {
37  e_val = FLA_Check_submatrix_dims_and_offset( m, n, i, j, B );
38  FLA_Check_error_code( e_val );
39  }
40  else
41  {
42  e_val = FLA_Check_submatrix_dims_and_offset( n, m, i, j, B );
43  FLA_Check_error_code( e_val );
44  }
45 
46  e_val = FLA_Check_nonconstant_object( B );
47  FLA_Check_error_code( e_val );
48 
49  return FLA_SUCCESS;
50 }

References FLA_Check_floating_object(), FLA_Check_matrix_strides(), FLA_Check_nonconstant_object(), FLA_Check_null_pointer(), FLA_Check_object_dims(), FLA_Check_submatrix_dims_and_offset(), FLA_Check_valid_real_trans(), and i.

Referenced by FLA_Copy_buffer_to_object().

◆ FLA_Copy_object_to_buffer()

FLA_Error FLA_Copy_object_to_buffer ( FLA_Trans  trans,
dim_t  i,
dim_t  j,
FLA_Obj  obj,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs 
)
38 {
39  FLA_Obj B;
40  FLA_Obj ATL, ATR,
41  ABL, Aij;
42 
43  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
44  FLA_Copy_object_to_buffer_check( trans, i, j, A, m, n, B_buffer, rs, cs );
45 
46  FLA_Part_2x2( A, &ATL, &ATR,
47  &ABL, &Aij, i, j, FLA_TL );
48 
50  FLA_Obj_attach_buffer( B_buffer, rs, cs, &B );
51 
52  FLA_Copyt_external( trans, Aij, B );
53 
55 
56  return FLA_SUCCESS;
57 }
FLA_Error FLA_Copy_object_to_buffer_check(FLA_Trans trans, dim_t i, dim_t j, FLA_Obj A, dim_t m, dim_t n, void *B_buffer, dim_t rs, dim_t cs)
Definition: FLA_Copy_object_to_buffer_check.c:13

References FLA_Check_error_level(), FLA_Copy_object_to_buffer_check(), FLA_Copyt_external(), FLA_Obj_attach_buffer(), FLA_Obj_create_without_buffer(), FLA_Obj_datatype(), FLA_Obj_free_without_buffer(), FLA_Part_2x2(), and i.

◆ FLA_Copy_object_to_buffer_check()

FLA_Error FLA_Copy_object_to_buffer_check ( FLA_Trans  trans,
dim_t  i,
dim_t  j,
FLA_Obj  obj,
dim_t  m,
dim_t  n,
void *  buffer,
dim_t  rs,
dim_t  cs 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_real_trans( trans );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( A );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_null_pointer( B_buffer );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_object_dims( trans, m, n, A );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_matrix_strides( m, n, rs, cs );
33  FLA_Check_error_code( e_val );
34 
35  if ( trans == FLA_NO_TRANSPOSE )
36  {
37  e_val = FLA_Check_submatrix_dims_and_offset( m, n, i, j, A );
38  FLA_Check_error_code( e_val );
39  }
40  else
41  {
42  e_val = FLA_Check_submatrix_dims_and_offset( n, m, i, j, A );
43  FLA_Check_error_code( e_val );
44  }
45 
46  e_val = FLA_Check_nonconstant_object( A );
47  FLA_Check_error_code( e_val );
48 
49  return FLA_SUCCESS;
50 }

References FLA_Check_floating_object(), FLA_Check_matrix_strides(), FLA_Check_nonconstant_object(), FLA_Check_null_pointer(), FLA_Check_object_dims(), FLA_Check_submatrix_dims_and_offset(), FLA_Check_valid_real_trans(), and i.

Referenced by FLA_Copy_object_to_buffer().

◆ FLA_Determine_blocksize()

dim_t FLA_Determine_blocksize ( FLA_Obj  A_unproc,
FLA_Quadrant  to_dir,
fla_blocksize_t cntl_blocksizes 
)
235 {
236  FLA_Error e_val;
237  FLA_Datatype datatype;
238  dim_t A_unproc_size;
239  dim_t typed_blocksize;
240  dim_t b;
241 
242  // Determine the size of the remaining portion of the matrix.
243  A_unproc_size = FLA_determine_matrix_size( A_unproc, to_dir );
244 
245  // Determine the datatype of the matrix.
246  datatype = FLA_Obj_datatype( A_unproc );
247 
248  // Determine the raw blocksize value from the blocksize structure.
249  typed_blocksize = FLA_Blocksize_extract( datatype, bp );
250 
251  // Check blocksize for zero value.
252  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
253  {
254  e_val = FLA_Check_blocksize_value( typed_blocksize );
255  FLA_Check_error_code( e_val );
256  }
257 
258  // If the unprocessed partition is smaller than our blocksize allows,
259  // we have to use it's length/width instead.
260  b = min( A_unproc_size, typed_blocksize );
261 
262  // Return the computed blocksize.
263  return b;
264 }
dim_t FLA_determine_matrix_size(FLA_Obj A_unproc, FLA_Quadrant to_dir)
Definition: FLA_Blocksize.c:267
dim_t FLA_Blocksize_extract(FLA_Datatype dt, fla_blocksize_t *bp)
Definition: FLA_Blocksize.c:116
FLA_Error FLA_Check_blocksize_value(dim_t b)
Definition: FLA_Check.c:645

References FLA_Blocksize_extract(), FLA_Check_blocksize_value(), FLA_Check_error_level(), FLA_determine_matrix_size(), and FLA_Obj_datatype().

Referenced by FLA_Apply_CAQ2_UT_lhfc_blk_var2(), FLA_Apply_CAQ2_UT_lhfc_blk_var3(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_pivots_ln_blk_var1(), FLA_Apply_pivots_ln_blk_var2(), FLA_Apply_Q2_UT_lhfc_blk_var2(), FLA_Apply_Q2_UT_lhfc_blk_var3(), FLA_Apply_Q2_UT_lnfc_blk_var2(), FLA_Apply_Q2_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var2(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var2(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var2(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var2(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var2(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var2(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var2(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var2(), FLA_Apply_QUD_UT_lhfc_blk_var3(), FLA_Axpy_blk_var1(), FLA_Axpy_blk_var2(), FLA_Axpy_blk_var3(), FLA_Axpy_blk_var4(), FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR_UT_inc_blk_var1(), FLA_Chol_l_blk_var1(), FLA_Chol_l_blk_var2(), FLA_Chol_l_blk_var3(), FLA_Chol_u_blk_var1(), FLA_Chol_u_blk_var2(), FLA_Chol_u_blk_var3(), FLA_Copy_blk_var1(), FLA_Copy_blk_var2(), FLA_Copy_blk_var3(), FLA_Copy_blk_var4(), FLA_Copyr_l_blk_var1(), FLA_Copyr_l_blk_var2(), FLA_Copyr_l_blk_var3(), FLA_Copyr_l_blk_var4(), FLA_Copyr_u_blk_var1(), FLA_Copyr_u_blk_var2(), FLA_Copyr_u_blk_var3(), FLA_Copyr_u_blk_var4(), FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_h_blk_var5(), FLA_Gemv_h_blk_var6(), FLA_Gemv_n_blk_var1(), FLA_Gemv_n_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Gemv_t_blk_var5(), FLA_Gemv_t_blk_var6(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var10(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_blk_var9(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var10(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_blk_var9(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var10(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_blk_var9(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var10(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_blk_var9(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var10(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_blk_var9(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var10(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_blk_var9(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var10(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_blk_var9(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var10(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_blk_var9(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_blk_var5(), FLA_Herk_lh_blk_var6(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_blk_var5(), FLA_Herk_ln_blk_var6(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_blk_var5(), FLA_Herk_uh_blk_var6(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_blk_var5(), FLA_Herk_un_blk_var6(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_Lyap_h_blk_var1(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_h_blk_var4(), FLA_Lyap_n_blk_var1(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_Lyap_n_blk_var4(), FLA_QR2_UT_blk_var2(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_Scal_blk_var1(), FLA_Scal_blk_var2(), FLA_Scal_blk_var3(), FLA_Scal_blk_var4(), FLA_Scalr_l_blk_var1(), FLA_Scalr_l_blk_var2(), FLA_Scalr_l_blk_var3(), FLA_Scalr_l_blk_var4(), FLA_Scalr_u_blk_var1(), FLA_Scalr_u_blk_var2(), FLA_Scalr_u_blk_var3(), FLA_Scalr_u_blk_var4(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var10(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_blk_var9(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var10(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_blk_var9(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var10(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_blk_var9(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var10(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_blk_var9(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var10(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_blk_var9(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var10(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_blk_var9(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var10(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_blk_var9(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var10(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_blk_var9(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_blk_var5(), FLA_Syrk_ln_blk_var6(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_blk_var5(), FLA_Syrk_lt_blk_var6(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_blk_var5(), FLA_Syrk_un_blk_var6(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_blk_var5(), FLA_Syrk_ut_blk_var6(), FLA_Transpose_blk_var1(), FLA_Transpose_blk_var2(), FLA_Trinv_ln_blk_var1(), FLA_Trinv_ln_blk_var2(), FLA_Trinv_ln_blk_var3(), FLA_Trinv_ln_blk_var4(), FLA_Trinv_lu_blk_var1(), FLA_Trinv_lu_blk_var2(), FLA_Trinv_lu_blk_var3(), FLA_Trinv_lu_blk_var4(), FLA_Trinv_un_blk_var1(), FLA_Trinv_un_blk_var2(), FLA_Trinv_un_blk_var3(), FLA_Trinv_un_blk_var4(), FLA_Trinv_uu_blk_var1(), FLA_Trinv_uu_blk_var2(), FLA_Trinv_uu_blk_var3(), FLA_Trinv_uu_blk_var4(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_blk_var3(), FLA_Trmm_llc_blk_var4(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_blk_var3(), FLA_Trmm_llh_blk_var4(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_blk_var3(), FLA_Trmm_lln_blk_var4(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_blk_var3(), FLA_Trmm_llt_blk_var4(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_blk_var3(), FLA_Trmm_luc_blk_var4(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_blk_var3(), FLA_Trmm_luh_blk_var4(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_blk_var3(), FLA_Trmm_lun_blk_var4(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_blk_var3(), FLA_Trmm_lut_blk_var4(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_blk_var3(), FLA_Trmm_rlc_blk_var4(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_blk_var3(), FLA_Trmm_rlh_blk_var4(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_blk_var3(), FLA_Trmm_rln_blk_var4(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_blk_var3(), FLA_Trmm_rlt_blk_var4(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_blk_var3(), FLA_Trmm_ruc_blk_var4(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_blk_var3(), FLA_Trmm_ruh_blk_var4(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_blk_var3(), FLA_Trmm_run_blk_var4(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_blk_var3(), FLA_Trmm_rut_blk_var4(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_blk_var3(), FLA_Trsm_llc_blk_var4(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_blk_var3(), FLA_Trsm_llh_blk_var4(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_blk_var3(), FLA_Trsm_lln_blk_var4(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_blk_var3(), FLA_Trsm_llt_blk_var4(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_blk_var3(), FLA_Trsm_luc_blk_var4(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_blk_var3(), FLA_Trsm_luh_blk_var4(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_blk_var3(), FLA_Trsm_lun_blk_var4(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_blk_var3(), FLA_Trsm_lut_blk_var4(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_blk_var3(), FLA_Trsm_rlc_blk_var4(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_blk_var3(), FLA_Trsm_rlh_blk_var4(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_blk_var3(), FLA_Trsm_rln_blk_var4(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_blk_var3(), FLA_Trsm_rlt_blk_var4(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_blk_var3(), FLA_Trsm_ruc_blk_var4(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_blk_var3(), FLA_Trsm_ruh_blk_var4(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_blk_var3(), FLA_Trsm_run_blk_var4(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_blk_var3(), FLA_Trsm_rut_blk_var4(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_Ttmm_l_blk_var1(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_l_blk_var3(), FLA_Ttmm_u_blk_var1(), FLA_Ttmm_u_blk_var2(), FLA_Ttmm_u_blk_var3(), FLA_UDdate_UT_blk_var2(), and FLA_UDdate_UT_inc_blk_var1().

◆ FLA_determine_matrix_size()

dim_t FLA_determine_matrix_size ( FLA_Obj  A_unproc,
FLA_Quadrant  to_dir 
)
268 {
269  dim_t r_val = 0;
270 
271  // Determine the size of the matrix dimension along which we are moving.
272  switch( to_dir )
273  {
274  case FLA_TOP:
275  case FLA_BOTTOM:
276  {
277  r_val = FLA_Obj_length( A_unproc );
278  break;
279  }
280  case FLA_LEFT:
281  case FLA_RIGHT:
282  {
283  r_val = FLA_Obj_width( A_unproc );
284  break;
285  }
286  case FLA_TL:
287  case FLA_TR:
288  case FLA_BL:
289  case FLA_BR:
290  {
291  // We need to use min_dim() here because the matrix might be
292  // rectangular.
293  r_val = FLA_Obj_min_dim( A_unproc );
294  break;
295  }
296  }
297 
298  return r_val;
299 }

References FLA_Obj_length(), FLA_Obj_min_dim(), and FLA_Obj_width().

Referenced by FLA_Determine_blocksize().

◆ FLA_Error_messages_init()

void FLA_Error_messages_init ( void  )
35 {
36  sprintf( FLA_Error_string_for_code(FLA_INVALID_SIDE),
37  "Invalid side parameter value." );
38  sprintf( FLA_Error_string_for_code(FLA_INVALID_UPLO),
39  "Invalid uplo parameter value." );
40  sprintf( FLA_Error_string_for_code(FLA_INVALID_TRANS),
41  "Invalid trans parameter value." );
42  sprintf( FLA_Error_string_for_code(FLA_INVALID_TRANS_GIVEN_DATATYPE),
43  "Invalid trans value (FLA_CONJ_TRANSPOSE|FLA_CONJ_NO_TRANSPOSE) for given non-complex object datatype" );
44  sprintf( FLA_Error_string_for_code(FLA_INVALID_CONJ),
45  "Invalid conjugate parameter value." );
46  sprintf( FLA_Error_string_for_code(FLA_INVALID_DIRECT),
47  "Invalid direction parameter value." );
48  sprintf( FLA_Error_string_for_code(FLA_INVALID_STOREV),
49  "Invalid storev parameter value." );
50  sprintf( FLA_Error_string_for_code(FLA_INVALID_DATATYPE),
51  "Invalid datatype value." );
52  sprintf( FLA_Error_string_for_code(FLA_INVALID_INTEGER_DATATYPE),
53  "Invalid integer datatype value." );
54  sprintf( FLA_Error_string_for_code(FLA_INVALID_REAL_DATATYPE),
55  "Invalid real datatype value." );
56  sprintf( FLA_Error_string_for_code(FLA_INVALID_COMPLEX_DATATYPE),
57  "Invalid complex datatype value." );
58  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_INTEGER),
59  "Expected integer object." );
60  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_REAL),
61  "Expected real object." );
62  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_COMPLEX),
63  "Expected complex object." );
64  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_SQUARE),
65  "Expected square matrix object." );
66  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_SCALAR),
67  "Expected scalar object." );
68  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_VECTOR),
69  "Expected vector object." );
70  sprintf( FLA_Error_string_for_code(FLA_INCONSISTENT_DATATYPES),
71  "Detected inconsistent object datatypes." );
72  sprintf( FLA_Error_string_for_code(FLA_NONCONFORMAL_DIMENSIONS),
73  "Detected inconsistent object dimensions." );
74  sprintf( FLA_Error_string_for_code(FLA_UNEQUAL_VECTOR_DIMS),
75  "Detected vectors of unequal dimensions." );
76  sprintf( FLA_Error_string_for_code(FLA_NULL_POINTER),
77  "Encountered NULL pointer." );
78  sprintf( FLA_Error_string_for_code(FLA_SPECIFIED_OBJ_DIM_MISMATCH),
79  "Specified dimensions do not match object dimensions." );
80  sprintf( FLA_Error_string_for_code(FLA_INVALID_PIVOT_TYPE),
81  "Invalid pivot index type specified." );
82  sprintf( FLA_Error_string_for_code(FLA_MALLOC_RETURNED_NULL_POINTER),
83  "malloc() returned NULL pointer." );
84  sprintf( FLA_Error_string_for_code(FLA_OBJECT_BASE_BUFFER_MISMATCH),
85  "Detected a buffer address mismatch between adjacent objects." );
86  sprintf( FLA_Error_string_for_code(FLA_OBJECTS_NOT_VERTICALLY_ADJ),
87  "Object partitions not vertically adjacent." );
88  sprintf( FLA_Error_string_for_code(FLA_OBJECTS_NOT_HORIZONTALLY_ADJ),
89  "Object partitions not horizontally adjacent." );
90  sprintf( FLA_Error_string_for_code(FLA_ADJACENT_OBJECT_DIM_MISMATCH),
91  "Object partitions have mismatched dimensions." );
92  sprintf( FLA_Error_string_for_code(FLA_OBJECTS_NOT_VERTICALLY_ALIGNED),
93  "Object partitions not vertically aligned." );
94  sprintf( FLA_Error_string_for_code(FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED),
95  "Object partitions not horizontally aligned." );
96  sprintf( FLA_Error_string_for_code(FLA_INVALID_FLOATING_DATATYPE),
97  "Expected single or double-precision real or complex datatype value." );
98  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_FLOATING_POINT),
99  "Expected single or double-precision real or complex object." );
100  sprintf( FLA_Error_string_for_code(FLA_INVALID_BLOCKSIZE_VALUE),
101  "Detected blocksize value less than or equal to zero." );
102  sprintf( FLA_Error_string_for_code(FLA_OPEN_RETURNED_ERROR),
103  "open() returned bad file descriptor." );
104  sprintf( FLA_Error_string_for_code(FLA_LSEEK_RETURNED_ERROR),
105  "lseek() returned error." );
106  sprintf( FLA_Error_string_for_code(FLA_CLOSE_RETURNED_ERROR),
107  "close() returned error." );
108  sprintf( FLA_Error_string_for_code(FLA_UNLINK_RETURNED_ERROR),
109  "unlink() returned error." );
110  sprintf( FLA_Error_string_for_code(FLA_READ_RETURNED_ERROR),
111  "read() returned error." );
112  sprintf( FLA_Error_string_for_code(FLA_WRITE_RETURNED_ERROR),
113  "write() returned error." );
114  sprintf( FLA_Error_string_for_code(FLA_INVALID_QUADRANT),
115  "Invalid quadrant parameter value." );
116  sprintf( FLA_Error_string_for_code(FLA_NOT_YET_IMPLEMENTED),
117  "Function or conditional branch/case not yet implemented." );
118  sprintf( FLA_Error_string_for_code(FLA_EXPECTED_NONNEGATIVE_VALUE),
119  "Expected non-negative value." );
120  sprintf( FLA_Error_string_for_code(FLA_SUPERMATRIX_NOT_ENABLED),
121  "SuperMatrix support must be enabled for this code to execute." );
122  sprintf( FLA_Error_string_for_code(FLA_UNDEFINED_ERROR_CODE),
123  "Undefined error code passed to FLA_Check_error_code()." );
124  sprintf( FLA_Error_string_for_code(FLA_INVALID_DIAG),
125  "Invalid diag parameter value." );
126  sprintf( FLA_Error_string_for_code(FLA_INCONSISTENT_OBJECT_PRECISION),
127  "Inconsistent precisions between objects." );
128  sprintf( FLA_Error_string_for_code(FLA_INVALID_BLOCKSIZE_OBJ),
129  "Encountered blocksize object containing value less than or equal to zero." );
130  sprintf( FLA_Error_string_for_code(FLA_VECTOR_DIM_BELOW_MIN),
131  "Detected vector dimension below pre-determined minimum." );
132  sprintf( FLA_Error_string_for_code(FLA_PTHREAD_CREATE_RETURNED_ERROR),
133  "pthread_create() returned error." );
134  sprintf( FLA_Error_string_for_code(FLA_PTHREAD_JOIN_RETURNED_ERROR),
135  "pthread_join() returned error." );
136  sprintf( FLA_Error_string_for_code(FLA_INVALID_ISGN_VALUE),
137  "Invalid value for isgn parameter (ie: |isgn| != 1)." );
138  sprintf( FLA_Error_string_for_code(FLA_CHOL_FAILED_MATRIX_NOT_SPD),
139  "FLA_Chol() failed due to negative diagonal element; matrix not SPD." );
140  sprintf( FLA_Error_string_for_code(FLA_INVALID_ELEMTYPE),
141  "Invalid object element type value." );
142  sprintf( FLA_Error_string_for_code(FLA_POSIX_MEMALIGN_FAILED),
143  "posix_memalign() returned error." );
144  sprintf( FLA_Error_string_for_code(FLA_INVALID_SUBMATRIX_DIMS),
145  "Invalid submatrix dimensions relative to parent matrix." );
146  sprintf( FLA_Error_string_for_code(FLA_INVALID_SUBMATRIX_OFFSET),
147  "Invalid submatrix offset relative to dimensions of submatrix and parent." );
148  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_SCALAR_ELEMTYPE),
149  "Object element type is not FLA_SCALAR as expected." );
150  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_MATRIX_ELEMTYPE),
151  "Object element type is not FLA_MATRIX as expected." );
152  sprintf( FLA_Error_string_for_code(FLA_ENCOUNTERED_NON_POSITIVE_NTHREADS),
153  "Encountered non-positive (zero) value for number of threads." );
154  sprintf( FLA_Error_string_for_code(FLA_INVALID_CONJ_GIVEN_DATATYPE),
155  "Invalid conj value (FLA_CONJUGATE) for given non-complex object datatype" );
156  sprintf( FLA_Error_string_for_code(FLA_INVALID_COMPLEX_TRANS),
157  "Invalid complex trans parameter value" );
158  sprintf( FLA_Error_string_for_code(FLA_INVALID_REAL_TRANS),
159  "Invalid real trans parameter value" );
160  sprintf( FLA_Error_string_for_code(FLA_INVALID_BLAS_TRANS),
161  "Invalid BLAS-style trans parameter value" );
162  sprintf( FLA_Error_string_for_code(FLA_INVALID_NONCONSTANT_DATATYPE),
163  "Invalid non-constant datatype value." );
164  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_NONCONSTANT),
165  "Expected non-constant object." );
166  sprintf( FLA_Error_string_for_code(FLA_OBJECT_DATATYPES_NOT_EQUAL),
167  "Detected unequal object datatypes." );
168  sprintf( FLA_Error_string_for_code(FLA_DIVIDE_BY_ZERO),
169  "Encountered request to invert zero scalar object." );
170  sprintf( FLA_Error_string_for_code(FLA_OBJECT_ELEMTYPES_NOT_EQUAL),
171  "Detected unequal object elemtypes." );
172  sprintf( FLA_Error_string_for_code(FLA_INVALID_PIVOT_INDEX_RANGE),
173  "Invalid pivot index range." );
174  sprintf( FLA_Error_string_for_code(FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL),
175  "Block-panel Householder matrix is too small." );
176  sprintf( FLA_Error_string_for_code(FLA_INVALID_OBJECT_LENGTH),
177  "Expected different object length." );
178  sprintf( FLA_Error_string_for_code(FLA_INVALID_OBJECT_WIDTH),
179  "Expected different object width." );
180  sprintf( FLA_Error_string_for_code(FLA_INVALID_ERROR_CHECKING_LEVEL),
181  "Invalid error checking level." );
182  sprintf( FLA_Error_string_for_code(FLA_ATTEMPTED_OVER_REPART_2X2),
183  "Detected attempt to (2x2) repartition more matrix into A11 than exists in source quadrant." );
184  sprintf( FLA_Error_string_for_code(FLA_ATTEMPTED_OVER_REPART_2X1),
185  "Detected attempt to (2x1) repartition more matrix into A1 than exists in source partition." );
186  sprintf( FLA_Error_string_for_code(FLA_ATTEMPTED_OVER_REPART_1X2),
187  "Detected attempt to (1x2) repartition more matrix into A1 than exists in source partition." );
188  sprintf( FLA_Error_string_for_code(FLA_EXTERNAL_LAPACK_NOT_IMPLEMENTED),
189  "External LAPACK wrapper was invoked despite not being enabled at configure-time." );
190  sprintf( FLA_Error_string_for_code(FLA_INVALID_ROW_STRIDE),
191  "Invalid matrix row stride." );
192  sprintf( FLA_Error_string_for_code(FLA_INVALID_COL_STRIDE),
193  "Invalid matrix column stride." );
194  sprintf( FLA_Error_string_for_code(FLA_INVALID_STRIDE_COMBINATION),
195  "Invalid combination of matrix row and column strides." );
196  sprintf( FLA_Error_string_for_code(FLA_INVALID_VECTOR_DIM),
197  "Detected vector of unexpected length/width." );
198  sprintf( FLA_Error_string_for_code(FLA_EXPECTED_ROW_VECTOR),
199  "Expected object to be a row vector." );
200  sprintf( FLA_Error_string_for_code(FLA_EXPECTED_COL_VECTOR),
201  "Expected object to be a column vector." );
202  sprintf( FLA_Error_string_for_code(FLA_INVALID_INVERSE),
203  "Invalid inverse parameter value." );
204  sprintf( FLA_Error_string_for_code(FLA_MALLOC_GPU_RETURNED_NULL_POINTER),
205  "Attempt to allocate memory on GPU failed." );
206  sprintf( FLA_Error_string_for_code(FLA_INVALID_EVD_TYPE),
207  "Invalid eigenvalue/vector type parameter value." );
208  sprintf( FLA_Error_string_for_code(FLA_INVALID_SVD_TYPE),
209  "Invalid singular vector type parameter value." );
210  sprintf( FLA_Error_string_for_code(FLA_INVALID_MACHVAL),
211  "Invalid machine parameter value." );
212  sprintf( FLA_Error_string_for_code(FLA_INVALID_DIAG_OFFSET),
213  "Invalid diagonal offset." );
214  sprintf( FLA_Error_string_for_code(FLA_EXPECTED_COL_STORAGE),
215  "Expected object to be stored by columns." );
216  sprintf( FLA_Error_string_for_code(FLA_EXPECTED_ROW_STORAGE),
217  "Expected object to be stored by rows." );
218  sprintf( FLA_Error_string_for_code(FLA_LAPAC2FLAME_INVALID_RETURN),
219  "Invalid return value from lapack2flame interface." );
220  sprintf( FLA_Error_string_for_code(FLA_INVALID_SVD_TYPE_COMBINATION),
221  "Invalid svd type parameter combination (both parameters are FLA_SVD_VECTORS_OVERWRITE)." );
222  sprintf( FLA_Error_string_for_code(FLA_INVALID_SVD_TYPE_AND_TRANS_COMBINATION),
223  "Invalid svd type parameters (FLA_SVD_VECTORS_OVERWRITE) and trans parameters combination." );
224  sprintf( FLA_Error_string_for_code(FLA_OBJECT_NOT_COMPARABLE),
225  "Expected real or int object." );
226 }
char * FLA_Error_string_for_code(int code)
Definition: FLA_Error.c:23

References FLA_Error_string_for_code().

◆ FLA_Error_string_for_code()

char* FLA_Error_string_for_code ( int  code)
24 {
25  return fla_error_string[-code];
26 }
char fla_error_string[FLA_MAX_NUM_ERROR_MSGS][FLA_MAX_ERROR_MSG_LENGTH]
Definition: FLA_Error.c:14

References fla_error_string.

Referenced by FLA_Check_error_code_helper(), and FLA_Error_messages_init().

◆ FLA_Finalize()

void FLA_Finalize ( void  )
77 {
78  if ( FLA_initialized == FALSE ) return;
79 
80  FLA_initialized = FALSE;
81 
83 
85 
86 #ifdef FLA_ENABLE_SUPERMATRIX
88 #endif
89 
91 }
void FLASH_Queue_finalize(void)
Definition: FLASH_Queue.c:262
void FLA_Cntl_finalize()
Definition: FLA_Cntl_init.c:19
void FLA_Finalize_constants()
Definition: FLA_Init.c:211
void FLA_Memory_leak_counter_finalize(void)
Definition: FLA_Memory.c:52

Referenced by FLA_Finalize_safe().

◆ FLA_Finalize_constants()

void FLA_Finalize_constants ( void  )
212 {
214  FLA_Obj_free( &FLA_TWO );
215  FLA_Obj_free( &FLA_ONE );
222 
232 }
FLA_Obj FLA_MINUS_TWO
Definition: FLA_Init.c:23
FLA_Obj FLA_SAFE_MIN_SQUARE
Definition: FLA_Init.c:28
FLA_Obj FLA_TWO
Definition: FLA_Init.c:17
FLA_Obj FLA_SAFE_INV_MIN_SQUARE
Definition: FLA_Init.c:30
FLA_Obj FLA_MINUS_ONE_HALF
Definition: FLA_Init.c:21
FLA_Obj FLA_MINUS_ONE
Definition: FLA_Init.c:22
FLA_Obj FLA_ONE_HALF
Definition: FLA_Init.c:19
FLA_Obj FLA_ZERO
Definition: FLA_Init.c:20
FLA_Obj FLA_SAFE_INV_MIN
Definition: FLA_Init.c:29
FLA_Obj FLA_UNDERFLOW_SQUARE_THRES
Definition: FLA_Init.c:33
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
FLA_Obj FLA_EPSILON
Definition: FLA_Init.c:26
FLA_Obj FLA_SAFE_MIN
Definition: FLA_Init.c:27
FLA_Obj FLA_THREE
Definition: FLA_Init.c:16
FLA_Obj FLA_MINUS_THREE
Definition: FLA_Init.c:24
FLA_Obj FLA_OVERFLOW_THRES
Definition: FLA_Init.c:32
FLA_Obj FLA_OVERFLOW_SQUARE_THRES
Definition: FLA_Init.c:34
FLA_Obj FLA_UNDERFLOW_THRES
Definition: FLA_Init.c:31
FLA_Error FLA_Obj_free(FLA_Obj *obj)
Definition: FLA_Obj.c:588

References FLA_EPSILON, FLA_MINUS_ONE, FLA_MINUS_ONE_HALF, FLA_MINUS_THREE, FLA_MINUS_TWO, FLA_Obj_free(), FLA_ONE, FLA_ONE_HALF, FLA_OVERFLOW_SQUARE_THRES, FLA_OVERFLOW_THRES, FLA_SAFE_INV_MIN, FLA_SAFE_INV_MIN_SQUARE, FLA_SAFE_MIN, FLA_SAFE_MIN_SQUARE, FLA_THREE, FLA_TWO, FLA_UNDERFLOW_SQUARE_THRES, FLA_UNDERFLOW_THRES, and FLA_ZERO.

◆ FLA_Finalize_numerical_constants()

void FLA_Finalize_numerical_constants ( void  )

◆ FLA_Finalize_safe()

void FLA_Finalize_safe ( FLA_Error  init_result)
119 {
120  if ( init_result == FLA_SUCCESS )
121  FLA_Finalize();
122 }
void FLA_Finalize()
Definition: FLA_Init.c:76

References FLA_Finalize().

◆ FLA_free()

void FLA_free ( void *  ptr)
248 {
249  // We don't want to decrement the counter if the buffer is NULL.
250  // This is because it's likely that the buffer was never allocated
251  // a valid pointer to begin with, which means FLA_malloc() was never
252  // called and thus the counter was never incremented. Or, it means
253  // memory was allocated but the address has since been lost, which
254  // means that we can't free it anyway.
255  if ( ptr != NULL )
256  {
257  // Free the memory addressed by ptr.
258  free( ptr );
259 
260  if ( FLA_Memory_leak_counter_status() == TRUE )
261  {
262 #ifdef FLA_ENABLE_MULTITHREADING
263  FLA_Lock_acquire( &fla_mem_leak_counter_lock );
264  fla_mem_leak_counter -= 1;
265  FLA_Lock_release( &fla_mem_leak_counter_lock );
266 #else
267  fla_mem_leak_counter -= 1;
268 #endif
269  }
270  }
271 }
FLA_Bool FLA_Memory_leak_counter_status(void)
Definition: FLA_Memory.c:79
void FLA_Lock_release(FLA_Lock *fla_lock_ptr)
Definition: FLA_Lock.c:58
void FLA_Lock_acquire(FLA_Lock *fla_lock_ptr)
Definition: FLA_Lock.c:43

References FLA_Lock_acquire(), and FLA_Memory_leak_counter_status().

Referenced by FLA_Apply_H2_UT_l_opc_var1(), FLA_Apply_H2_UT_l_opd_var1(), FLA_Apply_H2_UT_l_ops_var1(), FLA_Apply_H2_UT_l_opz_var1(), FLA_Apply_H2_UT_r_opc_var1(), FLA_Apply_H2_UT_r_opd_var1(), FLA_Apply_H2_UT_r_ops_var1(), FLA_Apply_H2_UT_r_opz_var1(), FLA_Bidiag_UT_u_step_ofc_var2(), FLA_Bidiag_UT_u_step_ofc_var3(), FLA_Bidiag_UT_u_step_ofc_var4(), FLA_Bidiag_UT_u_step_ofd_var2(), FLA_Bidiag_UT_u_step_ofd_var3(), FLA_Bidiag_UT_u_step_ofd_var4(), FLA_Bidiag_UT_u_step_ofs_var2(), FLA_Bidiag_UT_u_step_ofs_var3(), FLA_Bidiag_UT_u_step_ofs_var4(), FLA_Bidiag_UT_u_step_ofz_var2(), FLA_Bidiag_UT_u_step_ofz_var3(), FLA_Bidiag_UT_u_step_ofz_var4(), FLA_Bidiag_UT_u_step_opc_var1(), FLA_Bidiag_UT_u_step_opc_var2(), FLA_Bidiag_UT_u_step_opc_var3(), FLA_Bidiag_UT_u_step_opc_var4(), FLA_Bidiag_UT_u_step_opc_var5(), FLA_Bidiag_UT_u_step_opd_var1(), FLA_Bidiag_UT_u_step_opd_var2(), FLA_Bidiag_UT_u_step_opd_var3(), FLA_Bidiag_UT_u_step_opd_var4(), FLA_Bidiag_UT_u_step_opd_var5(), FLA_Bidiag_UT_u_step_ops_var1(), FLA_Bidiag_UT_u_step_ops_var2(), FLA_Bidiag_UT_u_step_ops_var3(), FLA_Bidiag_UT_u_step_ops_var4(), FLA_Bidiag_UT_u_step_ops_var5(), FLA_Bidiag_UT_u_step_opz_var1(), FLA_Bidiag_UT_u_step_opz_var2(), FLA_Bidiag_UT_u_step_opz_var3(), FLA_Bidiag_UT_u_step_opz_var4(), FLA_Bidiag_UT_u_step_opz_var5(), FLA_Blocksize_free(), FLA_Cntl_obj_free(), FLA_Hess_UT_step_ofc_var2(), FLA_Hess_UT_step_ofc_var3(), FLA_Hess_UT_step_ofc_var4(), FLA_Hess_UT_step_ofd_var2(), FLA_Hess_UT_step_ofd_var3(), FLA_Hess_UT_step_ofd_var4(), FLA_Hess_UT_step_ofs_var2(), FLA_Hess_UT_step_ofs_var3(), FLA_Hess_UT_step_ofs_var4(), FLA_Hess_UT_step_ofz_var2(), FLA_Hess_UT_step_ofz_var3(), FLA_Hess_UT_step_ofz_var4(), FLA_Hess_UT_step_opc_var2(), FLA_Hess_UT_step_opc_var3(), FLA_Hess_UT_step_opc_var4(), FLA_Hess_UT_step_opc_var5(), FLA_Hess_UT_step_opd_var2(), FLA_Hess_UT_step_opd_var3(), FLA_Hess_UT_step_opd_var4(), FLA_Hess_UT_step_opd_var5(), FLA_Hess_UT_step_ops_var2(), FLA_Hess_UT_step_ops_var3(), FLA_Hess_UT_step_ops_var4(), FLA_Hess_UT_step_ops_var5(), FLA_Hess_UT_step_opz_var2(), FLA_Hess_UT_step_opz_var3(), FLA_Hess_UT_step_opz_var4(), FLA_Hess_UT_step_opz_var5(), FLA_Obj_free(), FLA_Obj_free_buffer(), FLA_Obj_free_without_buffer(), FLA_realloc(), FLA_Tridiag_UT_l_step_ofc_var2(), FLA_Tridiag_UT_l_step_ofd_var2(), FLA_Tridiag_UT_l_step_ofs_var2(), FLA_Tridiag_UT_l_step_ofz_var2(), FLA_Tridiag_UT_l_step_opc_var1(), FLA_Tridiag_UT_l_step_opc_var2(), FLA_Tridiag_UT_l_step_opc_var3(), FLA_Tridiag_UT_l_step_opd_var1(), FLA_Tridiag_UT_l_step_opd_var2(), FLA_Tridiag_UT_l_step_opd_var3(), FLA_Tridiag_UT_l_step_ops_var1(), FLA_Tridiag_UT_l_step_ops_var2(), FLA_Tridiag_UT_l_step_ops_var3(), FLA_Tridiag_UT_l_step_opz_var1(), FLA_Tridiag_UT_l_step_opz_var2(), FLA_Tridiag_UT_l_step_opz_var3(), FLASH_Obj_create_conf_to(), FLASH_Obj_create_helper(), FLASH_Obj_free(), FLASH_Part_create_1x2(), FLASH_Part_create_2x1(), FLASH_Part_create_2x2(), FLASH_Queue_exec(), FLASH_Queue_exec_gpu(), FLASH_Queue_exec_parallel(), FLASH_Queue_exec_simulation(), FLASH_Task_free(), and FLASH_Task_free_parallel().

◆ FLA_Init()

void FLA_Init ( void  )
48 {
49  if ( FLA_initialized == TRUE ) return;
50 
51  FLA_initialized = TRUE;
52 
54 
56 
58 
59  FLA_Cntl_init();
60 
61 #if FLA_VECTOR_INTRINSIC_TYPE == FLA_SSE_INTRINSICS
62  _MM_SET_FLUSH_ZERO_MODE( _MM_FLUSH_ZERO_ON );
63 #endif
64 
65 #ifdef FLA_ENABLE_SUPERMATRIX
67 #endif
68 }
void FLASH_Queue_init(void)
Definition: FLASH_Queue.c:237
void FLA_Cntl_init()
Definition: FLA_Cntl_init.c:13
void FLA_Init_constants()
Definition: FLA_Init.c:141
void FLA_Memory_leak_counter_init(void)
Definition: FLA_Memory.c:26
void FLA_Error_messages_init(void)
Definition: FLA_Error.c:34

Referenced by FLA_Init_safe().

◆ FLA_Init_constants()

void FLA_Init_constants ( void  )
142 {
152 
153 
154  {
155  float
156  eps_f,
157  sfmin_f = FLT_MIN, sfmin_f2,
158  small_f = ( 1.0F / FLT_MAX ),
159  under_f = FLT_MIN,
160  over_f = FLT_MAX;
161 
162  double
163  eps_d,
164  sfmin_d = DBL_MIN, sfmin_d2,
165  small_d = ( 1.0 / DBL_MAX ),
166  under_d = DBL_MIN,
167  over_d = DBL_MAX;
168 
169  if ( FLT_ROUNDS == 1 )
170  {
171  eps_f = FLT_EPSILON*0.5F;
172  eps_d = DBL_EPSILON*0.5;
173  }
174  else
175  {
176  eps_f = FLT_EPSILON;
177  eps_d = DBL_EPSILON;
178  }
179 
180  if ( small_f >= sfmin_f ) sfmin_f = small_f * ( 1.0F + eps_f );
181  if ( small_d >= sfmin_d ) sfmin_d = small_d * ( 1.0 + eps_d );
182 
183  sfmin_f = sfmin_f/eps_f;
184  sfmin_d = sfmin_d/eps_d;
185 
186  sfmin_f2 = sqrt( sfmin_f );
187  sfmin_d2 = sqrt( sfmin_d );
188 
189  FLA_Obj_create_constant_ext( eps_f, eps_d, &FLA_EPSILON );
190 
191  FLA_Obj_create_constant_ext( sfmin_f, sfmin_d, &FLA_SAFE_MIN );
192  FLA_Obj_create_constant_ext( 1.0F/sfmin_f, 1.0/sfmin_d, &FLA_SAFE_INV_MIN );
193 
194  FLA_Obj_create_constant_ext( sfmin_f2, sfmin_d2, &FLA_SAFE_MIN_SQUARE );
195  FLA_Obj_create_constant_ext( 1.0F/sfmin_f2, 1.0/sfmin_d2, &FLA_SAFE_INV_MIN_SQUARE );
196 
197  FLA_Obj_create_constant_ext( under_f, under_d, &FLA_UNDERFLOW_THRES );
199 
200  FLA_Obj_create_constant_ext( sqrt( under_f ), sqrt( under_d ), &FLA_UNDERFLOW_SQUARE_THRES );
201  FLA_Obj_create_constant_ext( sqrt( over_f ), sqrt( over_d ), &FLA_OVERFLOW_SQUARE_THRES );
202  }
203 }
FLA_Error FLA_Obj_create_constant(double const_real, FLA_Obj *obj)
Definition: FLA_Obj.c:411
FLA_Error FLA_Obj_create_constant_ext(float const_s, double const_d, FLA_Obj *obj)
Definition: FLA_Obj.c:448

References FLA_EPSILON, FLA_MINUS_ONE, FLA_MINUS_ONE_HALF, FLA_MINUS_THREE, FLA_MINUS_TWO, FLA_Obj_create_constant(), FLA_Obj_create_constant_ext(), FLA_ONE, FLA_ONE_HALF, FLA_OVERFLOW_SQUARE_THRES, FLA_OVERFLOW_THRES, FLA_SAFE_INV_MIN, FLA_SAFE_INV_MIN_SQUARE, FLA_SAFE_MIN, FLA_SAFE_MIN_SQUARE, FLA_THREE, FLA_TWO, FLA_UNDERFLOW_SQUARE_THRES, FLA_UNDERFLOW_THRES, and FLA_ZERO.

◆ FLA_Init_numerical_constants()

void FLA_Init_numerical_constants ( void  )

◆ FLA_Init_safe()

void FLA_Init_safe ( FLA_Error init_result)
100 {
101  if ( FLA_Initialized() )
102  {
103  *init_result = FLA_FAILURE;
104  }
105  else
106  {
107  FLA_Init();
108  *init_result = FLA_SUCCESS;
109  }
110 }
void FLA_Init()
Definition: FLA_Init.c:47
FLA_Bool FLA_Initialized(void)
Definition: FLA_Init.c:130

References FLA_Init(), and FLA_Initialized().

◆ FLA_Initialized()

FLA_Bool FLA_Initialized ( void  )
131 {
132  return FLA_initialized;
133 }

Referenced by FLA_Init_safe().

◆ FLA_is_owner()

FLA_Bool FLA_is_owner ( void  )

◆ FLA_Lock_acquire()

void FLA_Lock_acquire ( FLA_Lock fla_lock_ptr)
49 {
50 #if FLA_MULTITHREADING_MODEL == FLA_OPENMP
51  omp_set_lock( &(fla_lock_ptr->lock) );
52 #elif FLA_MULTITHREADING_MODEL == FLA_PTHREADS
53  pthread_mutex_lock( &(fla_lock_ptr->lock) );
54 #endif
55 }
omp_lock_t lock
Definition: FLA_type_defs.h:105

References FLA_Lock_s::lock.

Referenced by FLA_free(), FLA_malloc(), FLASH_Queue_check_block_gpu(), FLASH_Queue_exec_gpu(), FLASH_Queue_exec_parallel_function(), FLASH_Queue_flush_block_gpu(), FLASH_Queue_flush_gpu(), FLASH_Queue_invalidate_block_gpu(), FLASH_Queue_mark_gpu(), FLASH_Queue_update_block_gpu(), FLASH_Queue_update_cache_block(), FLASH_Queue_wait_dequeue(), FLASH_Queue_work_stealing(), FLASH_Task_free_parallel(), FLASH_Task_update_binding(), and FLASH_Task_update_dependencies().

◆ FLA_Lock_destroy()

void FLA_Lock_destroy ( FLA_Lock fla_lock_ptr)
79 {
80 #if FLA_MULTITHREADING_MODEL == FLA_OPENMP
81  omp_destroy_lock( &(fla_lock_ptr->lock) );
82 #elif FLA_MULTITHREADING_MODEL == FLA_PTHREADS
83  pthread_mutex_destroy( &(fla_lock_ptr->lock) );
84 #endif
85 }

References FLA_Lock_s::lock.

Referenced by FLASH_Queue_exec().

◆ FLA_Lock_init()

void FLA_Lock_init ( FLA_Lock fla_lock_ptr)
34 {
35 #if FLA_MULTITHREADING_MODEL == FLA_OPENMP
36  omp_init_lock( &(fla_lock_ptr->lock) );
37 #elif FLA_MULTITHREADING_MODEL == FLA_PTHREADS
38  pthread_mutex_init( &(fla_lock_ptr->lock), NULL );
39 #endif
40 }

References FLA_Lock_s::lock.

Referenced by FLASH_Queue_exec().

◆ FLA_Lock_release()

void FLA_Lock_release ( FLA_Lock fla_lock_ptr)

◆ FLA_malloc()

void* FLA_malloc ( size_t  size)
112 {
113  void* ptr = NULL;
114  FLA_Error e_val;
115 #ifdef FLA_ENABLE_MEMORY_ALIGNMENT
116  int r_val;
117 #endif
118 
119  // In practice, the size argument should very rarely be zero. However, if the
120  // calling code does request a memory region of zero length, we short-circut
121  // the actual allocation request and just return NULL. Hopefully, the calling
122  // code is written such that the pointer is never dereferenced. At free()-time
123  // everything will be fine, as calling free() with a NULL pointer is safe.
124  // Also note that we do NOT increment the memory leak counter before returning.
125  // (Likewise, we will not decrement the counter when a NULL pointer is freed.)
126  if ( size == 0 ) return NULL;
127 
128 #ifdef FLA_ENABLE_MEMORY_ALIGNMENT
129 
130  // Allocate size bytes of memory. Here, we call posix_memalign() if
131  // memory alignment was requested at configure-time, providing the
132  // alignment boundary value given by the user. posix_memalign() also
133  // returns an error code, which is how it signals that something
134  // went wrong. Compare to malloc(), which does this by simply returning
135  // a NULL pointer.
136  r_val = posix_memalign( &ptr, ( size_t ) FLA_MEMORY_ALIGNMENT_BOUNDARY, size );
137 
138  // Check the return value of posix_memalign() for evidence that the
139  // request failed.
140  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
141  {
142  e_val = FLA_Check_posix_memalign_failure( r_val );
143  FLA_Check_error_code( e_val );
144  }
145 
146 #else
147 
148  // Allocate size bytes of memory. Note that malloc() only guarantees 8-byte
149  // alignment.
150  ptr = malloc( size );
151 
152  // It may not seem useful to have a check for a null pointer here, given
153  // that such an occurance would cause the file and line of the error to
154  // be reported as the below line of the current file instead of the file
155  // and line number of the calling code. However, consider that in the
156  // unlikely event that malloc() does return a null pointer, the user will
157  // have much bigger problems on his hands (e.g. an exhausted memory heap)
158  // than needing to know exactly what line in the library triggered error.
159  // Note that such a line in the application code is likely not the root
160  // source of the problem anyway (ie: not the reason why the heap is full).
161  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
162  {
163  e_val = FLA_Check_malloc_pointer( ptr );
164  FLA_Check_error_code( e_val );
165  }
166 
167 #endif
168 
169  // Update the memory leak counter if it is enabled, and do so thread-safely
170  // if multithreading is enabled.
171  if ( FLA_Memory_leak_counter_status() == TRUE )
172  {
173 #ifdef FLA_ENABLE_MULTITHREADING
174  FLA_Lock_acquire( &fla_mem_leak_counter_lock );
175  fla_mem_leak_counter += 1;
176  FLA_Lock_release( &fla_mem_leak_counter_lock );
177 #else
178  fla_mem_leak_counter += 1;
179 #endif
180  }
181 
182  // Return the pointer to the new memory region returned by malloc().
183  return ptr;
184 }
FLA_Error FLA_Check_malloc_pointer(void *ptr)
Definition: FLA_Check.c:562
FLA_Error FLA_Check_posix_memalign_failure(int r_val)
Definition: FLA_Check.c:824

References FLA_Check_error_level(), FLA_Check_malloc_pointer(), FLA_Check_posix_memalign_failure(), FLA_Lock_acquire(), and FLA_Memory_leak_counter_status().

Referenced by FLA_Apply_H2_UT_l_opc_var1(), FLA_Apply_H2_UT_l_opd_var1(), FLA_Apply_H2_UT_l_ops_var1(), FLA_Apply_H2_UT_l_opz_var1(), FLA_Apply_H2_UT_r_opc_var1(), FLA_Apply_H2_UT_r_opd_var1(), FLA_Apply_H2_UT_r_ops_var1(), FLA_Apply_H2_UT_r_opz_var1(), FLA_Bidiag_UT_u_step_ofc_var2(), FLA_Bidiag_UT_u_step_ofc_var3(), FLA_Bidiag_UT_u_step_ofc_var4(), FLA_Bidiag_UT_u_step_ofd_var2(), FLA_Bidiag_UT_u_step_ofd_var3(), FLA_Bidiag_UT_u_step_ofd_var4(), FLA_Bidiag_UT_u_step_ofs_var2(), FLA_Bidiag_UT_u_step_ofs_var3(), FLA_Bidiag_UT_u_step_ofs_var4(), FLA_Bidiag_UT_u_step_ofz_var2(), FLA_Bidiag_UT_u_step_ofz_var3(), FLA_Bidiag_UT_u_step_ofz_var4(), FLA_Bidiag_UT_u_step_opc_var1(), FLA_Bidiag_UT_u_step_opc_var2(), FLA_Bidiag_UT_u_step_opc_var3(), FLA_Bidiag_UT_u_step_opc_var4(), FLA_Bidiag_UT_u_step_opc_var5(), FLA_Bidiag_UT_u_step_opd_var1(), FLA_Bidiag_UT_u_step_opd_var2(), FLA_Bidiag_UT_u_step_opd_var3(), FLA_Bidiag_UT_u_step_opd_var4(), FLA_Bidiag_UT_u_step_opd_var5(), FLA_Bidiag_UT_u_step_ops_var1(), FLA_Bidiag_UT_u_step_ops_var2(), FLA_Bidiag_UT_u_step_ops_var3(), FLA_Bidiag_UT_u_step_ops_var4(), FLA_Bidiag_UT_u_step_ops_var5(), FLA_Bidiag_UT_u_step_opz_var1(), FLA_Bidiag_UT_u_step_opz_var2(), FLA_Bidiag_UT_u_step_opz_var3(), FLA_Bidiag_UT_u_step_opz_var4(), FLA_Bidiag_UT_u_step_opz_var5(), FLA_Blocksize_create(), FLA_Blocksize_create_copy(), FLA_Cntl_apcaq2ut_obj_create(), FLA_Cntl_apcaqutinc_obj_create(), FLA_Cntl_appiv_obj_create(), FLA_Cntl_apq2ut_obj_create(), FLA_Cntl_apqudut_obj_create(), FLA_Cntl_apqudutinc_obj_create(), FLA_Cntl_apqut_obj_create(), FLA_Cntl_apqutinc_obj_create(), FLA_Cntl_axpy_obj_create(), FLA_Cntl_axpyt_obj_create(), FLA_Cntl_bidiagut_obj_create(), FLA_Cntl_caqr2ut_obj_create(), FLA_Cntl_caqrutinc_obj_create(), FLA_Cntl_chol_obj_create(), FLA_Cntl_copy_obj_create(), FLA_Cntl_copyr_obj_create(), FLA_Cntl_copyt_obj_create(), FLA_Cntl_eig_gest_obj_create(), FLA_Cntl_gemm_obj_create(), FLA_Cntl_gemv_obj_create(), FLA_Cntl_hemm_obj_create(), FLA_Cntl_her2k_obj_create(), FLA_Cntl_herk_obj_create(), FLA_Cntl_hessut_obj_create(), FLA_Cntl_lqut_obj_create(), FLA_Cntl_lu_obj_create(), FLA_Cntl_lyap_obj_create(), FLA_Cntl_qr2ut_obj_create(), FLA_Cntl_qrut_obj_create(), FLA_Cntl_qrutinc_obj_create(), FLA_Cntl_scal_obj_create(), FLA_Cntl_scalr_obj_create(), FLA_Cntl_spdinv_obj_create(), FLA_Cntl_swap_obj_create(), FLA_Cntl_sylv_obj_create(), FLA_Cntl_symm_obj_create(), FLA_Cntl_syr2k_obj_create(), FLA_Cntl_syrk_obj_create(), FLA_Cntl_tpose_obj_create(), FLA_Cntl_tridiagut_obj_create(), FLA_Cntl_trinv_obj_create(), FLA_Cntl_trmm_obj_create(), FLA_Cntl_trsm_obj_create(), FLA_Cntl_trsv_obj_create(), FLA_Cntl_ttmm_obj_create(), FLA_Cntl_uddateut_obj_create(), FLA_Cntl_uddateutinc_obj_create(), FLA_Hess_UT_step_ofc_var2(), FLA_Hess_UT_step_ofc_var3(), FLA_Hess_UT_step_ofc_var4(), FLA_Hess_UT_step_ofd_var2(), FLA_Hess_UT_step_ofd_var3(), FLA_Hess_UT_step_ofd_var4(), FLA_Hess_UT_step_ofs_var2(), FLA_Hess_UT_step_ofs_var3(), FLA_Hess_UT_step_ofs_var4(), FLA_Hess_UT_step_ofz_var2(), FLA_Hess_UT_step_ofz_var3(), FLA_Hess_UT_step_ofz_var4(), FLA_Hess_UT_step_opc_var2(), FLA_Hess_UT_step_opc_var3(), FLA_Hess_UT_step_opc_var4(), FLA_Hess_UT_step_opc_var5(), FLA_Hess_UT_step_opd_var2(), FLA_Hess_UT_step_opd_var3(), FLA_Hess_UT_step_opd_var4(), FLA_Hess_UT_step_opd_var5(), FLA_Hess_UT_step_ops_var2(), FLA_Hess_UT_step_ops_var3(), FLA_Hess_UT_step_ops_var4(), FLA_Hess_UT_step_ops_var5(), FLA_Hess_UT_step_opz_var2(), FLA_Hess_UT_step_opz_var3(), FLA_Hess_UT_step_opz_var4(), FLA_Hess_UT_step_opz_var5(), FLA_Obj_create_buffer(), FLA_Obj_create_ext(), FLA_Obj_create_without_buffer(), FLA_realloc(), FLA_Tridiag_UT_l_step_ofc_var2(), FLA_Tridiag_UT_l_step_ofd_var2(), FLA_Tridiag_UT_l_step_ofs_var2(), FLA_Tridiag_UT_l_step_ofz_var2(), FLA_Tridiag_UT_l_step_opc_var1(), FLA_Tridiag_UT_l_step_opc_var2(), FLA_Tridiag_UT_l_step_opc_var3(), FLA_Tridiag_UT_l_step_opd_var1(), FLA_Tridiag_UT_l_step_opd_var2(), FLA_Tridiag_UT_l_step_opd_var3(), FLA_Tridiag_UT_l_step_ops_var1(), FLA_Tridiag_UT_l_step_ops_var2(), FLA_Tridiag_UT_l_step_ops_var3(), FLA_Tridiag_UT_l_step_opz_var1(), FLA_Tridiag_UT_l_step_opz_var2(), FLA_Tridiag_UT_l_step_opz_var3(), FLASH_Obj_create_conf_to(), FLASH_Obj_create_helper(), FLASH_Part_create_1x2(), FLASH_Part_create_2x1(), FLASH_Part_create_2x2(), FLASH_Queue_exec(), FLASH_Queue_exec_gpu(), FLASH_Queue_exec_parallel(), FLASH_Queue_exec_simulation(), and FLASH_Task_alloc().

◆ FLA_Memory_leak_counter_finalize()

void FLA_Memory_leak_counter_finalize ( void  )
53 {
54  // Output the memory leak counter, but only if it's currently enabled.
55  if ( FLA_Memory_leak_counter_status() == TRUE )
56  {
57  fprintf( stderr, "libflame: memory leak counter: %d\n", fla_mem_leak_counter );
58  fflush( stderr );
59  }
60 
61  // Destroy the memory leak counter lock, but only if we have locks in
62  // the first place (ie: only if multithreading is enabled).
63 #ifdef FLA_ENABLE_MULTITHREADING
64  FLA_Lock_destroy( &fla_mem_leak_counter_lock );
65 #endif
66 
67  // We leave the fla_mem_leak_counter_status variable alone.
68 
69  // Reset the counter, just for good measure.
70  fla_mem_leak_counter = 0;
71 }
void FLA_Lock_destroy(FLA_Lock *fla_lock_ptr)
Definition: FLA_Lock.c:73

References FLA_Memory_leak_counter_status().

◆ FLA_Memory_leak_counter_init()

void FLA_Memory_leak_counter_init ( void  )
27 {
28  // Initialize the memory leak counter to zero.
29  fla_mem_leak_counter = 0;
30 
31  // Initialize the memory leak counter status to whatever was requested at
32  // configure-time.
33 #ifdef FLA_ENABLE_MEMORY_LEAK_COUNTER
34  fla_mem_leak_counter_status = TRUE;
35 #else
36  fla_mem_leak_counter_status = FALSE;
37 #endif
38 
39  // Initialize the memory leak counter lock, but only if we have locks in
40  // the first place (ie: only if multithreading is enabled).
41 #ifdef FLA_ENABLE_MULTITHREADING
42  FLA_Lock_init( &fla_mem_leak_counter_lock );
43 #endif
44 }
void FLA_Lock_init(FLA_Lock *fla_lock_ptr)
Definition: FLA_Lock.c:28

◆ FLA_Memory_leak_counter_set()

FLA_Bool FLA_Memory_leak_counter_set ( FLA_Bool  new_status)
91 {
92  FLA_Bool old_status;
93 
94  // Grab the current status.
95  old_status = fla_mem_leak_counter_status;
96 
97  // Only make the change if the status is boolean. If the user provides us
98  // with garbage, we do nothing.
99  if ( new_status == TRUE || new_status == FALSE )
100  fla_mem_leak_counter_status = new_status;
101 
102  return old_status;
103 }
int FLA_Bool
Definition: FLA_type_defs.h:46

◆ FLA_Memory_leak_counter_status()

FLA_Bool FLA_Memory_leak_counter_status ( void  )
80 {
81  return fla_mem_leak_counter_status;
82 }

Referenced by FLA_free(), FLA_malloc(), and FLA_Memory_leak_counter_finalize().

◆ FLA_Merge_1x2()

FLA_Error FLA_Merge_1x2 ( FLA_Obj  AL,
FLA_Obj  AR,
FLA_Obj A 
)
563 {
564  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
565  FLA_Merge_1x2_check( AL, AR, A );
566 
567  A->m = AL.m;
568  A->n = AL.n + AR.n;
569  A->offm = AL.offm;
570  A->offn = AL.offn;
571  A->base = AL.base;
572 
573  return FLA_SUCCESS;
574 }
FLA_Error FLA_Merge_1x2_check(FLA_Obj AL, FLA_Obj AR, FLA_Obj *A)
Definition: FLA_Merge_1x2_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Merge_1x2_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fr_blk_var2(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), and FLA_QR_UT_piv_unb_var1().

◆ FLA_Merge_1x2_check()

FLA_Error FLA_Merge_1x2_check ( FLA_Obj  AL,
FLA_Obj  AR,
FLA_Obj A 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_object_datatype( AL );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_valid_object_datatype( AR );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_null_pointer( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_base_buffer_mismatch( AL, AR );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_adjacent_objects_1x2( AL, AR );
30  FLA_Check_error_code( e_val );
31 
32  return FLA_SUCCESS;
33 }
FLA_Error FLA_Check_base_buffer_mismatch(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:572
FLA_Error FLA_Check_adjacent_objects_1x2(FLA_Obj AL, FLA_Obj AR)
Definition: FLA_Check.c:629

References FLA_Check_adjacent_objects_1x2(), FLA_Check_base_buffer_mismatch(), FLA_Check_null_pointer(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Merge_1x2().

◆ FLA_Merge_2x1()

FLA_Error FLA_Merge_2x1 ( FLA_Obj  AT,
FLA_Obj  AB,
FLA_Obj A 
)

◆ FLA_Merge_2x1_check()

FLA_Error FLA_Merge_2x1_check ( FLA_Obj  AT,
FLA_Obj  AB,
FLA_Obj A 
)
15 {
16  FLA_Error e_val;
17 
18  e_val = FLA_Check_valid_object_datatype( AT );
19  FLA_Check_error_code( e_val );
20 
21  e_val = FLA_Check_valid_object_datatype( AB );
22  FLA_Check_error_code( e_val );
23 
24  e_val = FLA_Check_null_pointer( A );
25  FLA_Check_error_code( e_val );
26 
27  e_val = FLA_Check_base_buffer_mismatch( AT, AB );
28  FLA_Check_error_code( e_val );
29 
31  AB );
32  FLA_Check_error_code( e_val );
33 
34  return FLA_SUCCESS;
35 }
FLA_Error FLA_Check_adjacent_objects_2x1(FLA_Obj AT, FLA_Obj AB)
Definition: FLA_Check.c:612

References FLA_Check_adjacent_objects_2x1(), FLA_Check_base_buffer_mismatch(), FLA_Check_null_pointer(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Merge_2x1().

◆ FLA_Merge_2x2()

FLA_Error FLA_Merge_2x2 ( FLA_Obj  A11,
FLA_Obj  A12,
FLA_Obj  A21,
FLA_Obj  A22,
FLA_Obj A 
)
522 {
523  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
524  FLA_Merge_2x2_check( A11, A12,
525  A21, A22, A );
526 
527  A->m = A11.m + A21.m;
528  A->n = A11.n + A12.n;
529  A->offm = A11.offm;
530  A->offn = A11.offn;
531  A->base = A11.base;
532 
533  return FLA_SUCCESS;
534 }
FLA_Error FLA_Merge_2x2_check(FLA_Obj A11, FLA_Obj A12, FLA_Obj A21, FLA_Obj A22, FLA_Obj *A)
Definition: FLA_Merge_2x2_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Merge_2x2_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

◆ FLA_Merge_2x2_check()

FLA_Error FLA_Merge_2x2_check ( FLA_Obj  A11,
FLA_Obj  A12,
FLA_Obj  A21,
FLA_Obj  A22,
FLA_Obj A 
)
15 {
16  FLA_Error e_val;
17 
18  e_val = FLA_Check_valid_object_datatype( A11 );
19  FLA_Check_error_code( e_val );
20 
21  e_val = FLA_Check_valid_object_datatype( A21 );
22  FLA_Check_error_code( e_val );
23 
24  e_val = FLA_Check_valid_object_datatype( A12 );
25  FLA_Check_error_code( e_val );
26 
27  e_val = FLA_Check_valid_object_datatype( A22 );
28  FLA_Check_error_code( e_val );
29 
30  e_val = FLA_Check_null_pointer( A );
31  FLA_Check_error_code( e_val );
32 
33  e_val = FLA_Check_base_buffer_mismatch( A11, A21 );
34  FLA_Check_error_code( e_val );
35 
36  e_val = FLA_Check_base_buffer_mismatch( A12, A22 );
37  FLA_Check_error_code( e_val );
38 
39  e_val = FLA_Check_base_buffer_mismatch( A11, A12 );
40  FLA_Check_error_code( e_val );
41 
42  e_val = FLA_Check_adjacent_objects_2x2( A11, A12,
43  A21, A22 );
44  FLA_Check_error_code( e_val );
45 
46  return FLA_SUCCESS;
47 }
FLA_Error FLA_Check_adjacent_objects_2x2(FLA_Obj A11, FLA_Obj A12, FLA_Obj A21, FLA_Obj A22)
Definition: FLA_Check.c:582

References FLA_Check_adjacent_objects_2x2(), FLA_Check_base_buffer_mismatch(), FLA_Check_null_pointer(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Merge_2x2().

◆ FLA_Obj_attach_buffer()

FLA_Error FLA_Obj_attach_buffer ( void *  buffer,
dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
523 {
524  dim_t m, n;
525 
526  m = FLA_Obj_length( *obj );
527  n = FLA_Obj_width( *obj );
528 
529  // Adjust the strides, if necessary.
530  FLA_adjust_strides( m, n, &rs, &cs );
531 
532  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
533  FLA_Obj_attach_buffer_check( buffer, rs, cs, obj );
534 
535  obj->base->buffer = buffer;
536  obj->base->rs = rs;
537  obj->base->cs = cs;
538 
539  return FLA_SUCCESS;
540 }
void FLA_adjust_strides(dim_t m, dim_t n, dim_t *rs, dim_t *cs)
Definition: FLA_Obj.c:228
FLA_Error FLA_Obj_attach_buffer_check(void *buffer, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj_attach_buffer_check.c:13
dim_t rs
Definition: FLA_type_defs.h:129
dim_t cs
Definition: FLA_type_defs.h:130

References FLA_Obj_view::base, FLA_Obj_struct::buffer, FLA_Obj_struct::cs, FLA_adjust_strides(), FLA_Check_error_level(), FLA_Obj_attach_buffer_check(), FLA_Obj_length(), FLA_Obj_width(), and FLA_Obj_struct::rs.

Referenced by FLA_Axpy_buffer_to_object(), FLA_Axpy_object_to_buffer(), FLA_Copy_buffer_to_object(), FLA_Copy_object_to_buffer(), FLASH_Axpy_buffer_to_hier(), FLASH_Axpy_hier_to_buffer(), FLASH_Copy_buffer_to_hier(), FLASH_Copy_hier_to_buffer(), FLASH_Obj_attach_buffer(), FLASH_Obj_attach_buffer_hierarchy(), and FLASH_Obj_create_hierarchy().

◆ FLA_Obj_attach_buffer_check()

FLA_Error FLA_Obj_attach_buffer_check ( void *  buffer,
dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_matrix_strides( FLA_Obj_length( *obj ), FLA_Obj_width( *obj ), rs, cs );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Check_matrix_strides(), FLA_Check_null_pointer(), FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Obj_attach_buffer().

◆ FLA_Obj_base_buffer()

void* FLA_Obj_base_buffer ( FLA_Obj  obj)

◆ FLA_Obj_base_length()

dim_t FLA_Obj_base_length ( FLA_Obj  obj)
193 {
194  return (obj.base)->m;
195 }

References FLA_Obj_view::base.

Referenced by FLASH_Obj_base_scalar_length(), FLASH_Obj_blocksizes(), and FLASH_Obj_scalar_length_tl().

◆ FLA_Obj_base_width()

dim_t FLA_Obj_base_width ( FLA_Obj  obj)
199 {
200  return (obj.base)->n;
201 }

References FLA_Obj_view::base.

Referenced by FLASH_Obj_base_scalar_width(), FLASH_Obj_blocksizes(), and FLASH_Obj_scalar_width_tl().

◆ FLA_Obj_buffer_at_view()

void* FLA_Obj_buffer_at_view ( FLA_Obj  obj)
216 {
217  char* buffer;
218  size_t elem_size, offm, offn, rs, cs;
219  size_t byte_offset;
220 
221  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
223 
224  elem_size = ( size_t ) FLA_Obj_elem_size( obj );
225  rs = ( size_t ) FLA_Obj_row_stride( obj );
226  cs = ( size_t ) FLA_Obj_col_stride( obj );
227  offm = ( size_t ) obj.offm;
228  offn = ( size_t ) obj.offn;
229 
230  byte_offset = elem_size * ( offn * cs + offm * rs );
231 
232  buffer = ( char * ) (obj.base)->buffer;
233 
234  return ( void* ) ( buffer + byte_offset );
235 }
FLA_Error FLA_Obj_buffer_at_view_check(FLA_Obj obj)
Definition: FLA_Obj_buffer_at_view_check.c:13
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
dim_t FLA_Obj_elem_size(FLA_Obj obj)
Definition: FLA_Query.c:95

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Obj_buffer_at_view_check(), FLA_Obj_col_stride(), FLA_Obj_elem_size(), FLA_Obj_row_stride(), FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Apply_pivots_macro_external(), FLA_CAQR_UT_inc_init_structure(), FLA_Obj_is_identical(), FLA_Obj_is_overlapped(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_create_hierarchy(), FLASH_Obj_show_hierarchy(), FLASH_print_struct(), FLASH_print_struct_helper(), FLASH_Queue_read_gpu(), and FLASH_Queue_write_gpu().

◆ FLA_Obj_buffer_at_view_check()

FLA_Error FLA_Obj_buffer_at_view_check ( FLA_Obj  obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj.base );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Obj_view::base, and FLA_Check_null_pointer().

Referenced by FLA_Obj_buffer_at_view().

◆ FLA_Obj_buffer_is_null()

FLA_Bool FLA_Obj_buffer_is_null ( FLA_Obj  obj)
240 {
241  FLA_Bool r_val;
242 
243  if ( obj.base == NULL )
244  r_val = TRUE;
245  else if ( (obj.base)->buffer == NULL )
246  r_val = TRUE;
247  else
248  r_val = FALSE;
249 
250  return r_val;
251 }

References FLA_Obj_view::base.

◆ FLA_Obj_col_offset()

dim_t FLA_Obj_col_offset ( FLA_Obj  obj)
187 {
188  return obj.offn;
189 }

References FLA_Obj_view::offn.

Referenced by FLASH_Obj_adjust_views_hierarchy(), and FLASH_Obj_scalar_col_offset().

◆ FLA_Obj_col_stride()

dim_t FLA_Obj_col_stride ( FLA_Obj  obj)
175 {
176  return (obj.base)->cs;
177 }

References FLA_Obj_view::base.

Referenced by FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Add_to_diag(), FLA_Apply_diag_matrix(), FLA_Apply_G_lf_blk_var3(), FLA_Apply_G_lf_opt_var1(), FLA_Apply_G_rf_asm_var1(), FLA_Apply_G_rf_asm_var2(), FLA_Apply_G_rf_asm_var3(), FLA_Apply_G_rf_asm_var3b(), FLA_Apply_G_rf_asm_var6(), FLA_Apply_G_rf_asm_var6b(), FLA_Apply_G_rf_asm_var9(), FLA_Apply_G_rf_asm_var9b(), FLA_Apply_G_rf_blk_var1(), FLA_Apply_G_rf_blk_var2(), FLA_Apply_G_rf_blk_var3(), FLA_Apply_G_rf_blk_var3b(), FLA_Apply_G_rf_blk_var6(), FLA_Apply_G_rf_blk_var6b(), FLA_Apply_G_rf_blk_var9(), FLA_Apply_G_rf_blk_var9b(), FLA_Apply_G_rf_opt_var1(), FLA_Apply_G_rf_opt_var2(), FLA_Apply_G_rf_opt_var3(), FLA_Apply_G_rf_opt_var6(), FLA_Apply_G_rf_opt_var9(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_pivots_ln_opt_var1(), FLA_Apply_pivots_lt_opt_var1(), FLA_Apply_pivots_macro_external(), FLA_Apply_pivots_rn_opt_var1(), FLA_Apply_pivots_rt_opt_var1(), FLA_Apply_pivots_unb_external(), FLA_Apply_Q_blk_external(), FLA_Axpy_external(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_l_extract_diagonals(), FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_l_scale_diagonals(), FLA_Bidiag_UT_u_extract_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_scale_diagonals(), FLA_Bidiag_UT_u_step_ofu_var2(), FLA_Bidiag_UT_u_step_ofu_var3(), FLA_Bidiag_UT_u_step_ofu_var4(), FLA_Bidiag_UT_u_step_opt_var1(), FLA_Bidiag_UT_u_step_opt_var2(), FLA_Bidiag_UT_u_step_opt_var3(), FLA_Bidiag_UT_u_step_opt_var4(), FLA_Bidiag_UT_u_step_opt_var5(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_external(), FLA_Bsvd_sinval_v_opt_var1(), FLA_Bsvd_v_opt_var1(), FLA_Bsvd_v_opt_var2(), FLA_Bsvdd_external(), FLA_CAQR2_UT_opt_var1(), FLA_CAQR_UT_inc_init_structure(), FLA_Check_row_storage(), FLA_Chol_blk_external(), FLA_Chol_l_opt_var1(), FLA_Chol_l_opt_var2(), FLA_Chol_l_opt_var3(), FLA_Chol_u_opt_var1(), FLA_Chol_u_opt_var2(), FLA_Chol_u_opt_var3(), FLA_Chol_unb_external(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Copy_external(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Copyt_external(), FLA_Eig_gest_blk_external(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_opt_var3(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var3(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Eig_gest_unb_external(), FLA_Fused_Ahx_Ax_opt_var1(), FLA_Fused_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_opt_var1(), FLA_Fused_Her2_Ax_l_opt_var1(), FLA_Fused_Uhu_Yhu_Zhu_opt_var1(), FLA_Fused_UYx_ZVx_opt_var1(), FLA_Fused_UZhu_ZUhu_opt_var1(), FLA_Gemm_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemm_external(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k_external(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk_external(), FLA_Hermitianize(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hess_UT_step_ofu_var2(), FLA_Hess_UT_step_ofu_var3(), FLA_Hess_UT_step_ofu_var4(), FLA_Hess_UT_step_opt_var1(), FLA_Hess_UT_step_opt_var2(), FLA_Hess_UT_step_opt_var3(), FLA_Hess_UT_step_opt_var4(), FLA_Hess_UT_step_opt_var5(), FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT_opt_var1(), FLA_LQ_UT_opt_var2(), FLA_LU_nopiv_opt_var1(), FLA_LU_nopiv_opt_var2(), FLA_LU_nopiv_opt_var3(), FLA_LU_nopiv_opt_var4(), FLA_LU_nopiv_opt_var5(), FLA_LU_piv_blk_external(), FLA_LU_piv_opt_var3(), FLA_LU_piv_opt_var4(), FLA_LU_piv_opt_var5(), FLA_LU_piv_unb_external(), FLA_Lyap_h_opt_var1(), FLA_Lyap_h_opt_var2(), FLA_Lyap_h_opt_var3(), FLA_Lyap_h_opt_var4(), FLA_Lyap_n_opt_var1(), FLA_Lyap_n_opt_var2(), FLA_Lyap_n_opt_var3(), FLA_Lyap_n_opt_var4(), FLA_Max_abs_value(), FLA_Max_abs_value_herm(), FLA_Max_elemwise_diff(), FLA_Norm_frob(), FLA_Obj_buffer_at_view(), FLA_Obj_create_conf_to(), FLA_Obj_equals(), FLA_Obj_fshow(), FLA_Obj_has_nan(), FLA_Obj_is_row_major(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_QR2_UT_opt_var1(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT_form_Q_opt_var1(), FLA_QR_UT_opt_var1(), FLA_QR_UT_opt_var2(), FLA_Random_matrix(), FLA_Random_tri_matrix(), FLA_SA_Apply_pivots(), FLA_SA_LU_unb(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Scalr_external(), FLA_Set(), FLA_Set_diag(), FLA_Set_diagonal_matrix(), FLA_Set_diagonal_vector(), FLA_Set_offdiag(), FLA_Setr(), FLA_Shift_diag(), FLA_Sort_evd(), FLA_Sort_svd(), FLA_Svd_external(), FLA_Svdd_external(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Sylv_hh_opt_var1(), FLA_Sylv_hn_opt_var1(), FLA_Sylv_nh_opt_var1(), FLA_Sylv_nn_opt_var1(), FLA_Sylv_unb_external(), FLA_Symm_external(), FLA_Symmetrize(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Tevd_eigval_v_opt_var1(), FLA_Tevd_external(), FLA_Tevd_n_opt_var1(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Tevdd_external(), FLA_Tevdr_external(), FLA_Triangularize(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_l_step_ofu_var2(), FLA_Tridiag_UT_l_step_ofu_var3(), FLA_Tridiag_UT_l_step_opt_var1(), FLA_Tridiag_UT_l_step_opt_var2(), FLA_Tridiag_UT_l_step_opt_var3(), FLA_Tridiag_UT_shift_U(), FLA_Tridiag_UT_u_realify_opt(), FLA_Trinv_blk_external(), FLA_Trinv_ln_opt_var1(), FLA_Trinv_ln_opt_var2(), FLA_Trinv_ln_opt_var3(), FLA_Trinv_ln_opt_var4(), FLA_Trinv_lu_opt_var1(), FLA_Trinv_lu_opt_var2(), FLA_Trinv_lu_opt_var3(), FLA_Trinv_lu_opt_var4(), FLA_Trinv_un_opt_var1(), FLA_Trinv_un_opt_var2(), FLA_Trinv_un_opt_var3(), FLA_Trinv_un_opt_var4(), FLA_Trinv_unb_external(), FLA_Trinv_uu_opt_var1(), FLA_Trinv_uu_opt_var2(), FLA_Trinv_uu_opt_var3(), FLA_Trinv_uu_opt_var4(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), FLA_Trsv_external(), FLA_Ttmm_blk_external(), FLA_Ttmm_l_opt_var1(), FLA_Ttmm_l_opt_var2(), FLA_Ttmm_l_opt_var3(), FLA_Ttmm_u_opt_var1(), FLA_Ttmm_u_opt_var2(), FLA_Ttmm_u_opt_var3(), FLA_Ttmm_unb_external(), FLA_UDdate_UT_opt_var1(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_base_scalar_length(), FLASH_Obj_base_scalar_width(), FLASH_Obj_show_hierarchy(), FLASH_print_struct(), FLASH_print_struct_helper(), FLASH_Queue_check_gpu(), FLASH_Queue_exec_gpu(), FLASH_Queue_init_tasks(), FLASH_Queue_push(), FLASH_Queue_read_gpu(), FLASH_Queue_update_cache(), FLASH_Queue_write_gpu(), FLASH_Task_free(), and FLASH_Task_free_parallel().

◆ FLA_Obj_copy_view()

FLA_Error FLA_Obj_copy_view ( FLA_Obj  A,
FLA_Obj B 
)
16 {
17  FLA_Obj A_view;
18 
19  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
21 
22  // Set the m_inner and n_inner fields of a temporary copy of A.
23  A_view = A;
24  A_view.m_inner = FLASH_Obj_scalar_length( A );
25  A_view.n_inner = FLASH_Obj_scalar_width( A );
26 
27  // Copy the modified view into B.
28  *B = A_view;
29 
30  return FLA_SUCCESS;
31 }
FLA_Error FLA_Obj_copy_view_check(FLA_Obj A, FLA_Obj *B)
Definition: FLA_Obj_copy_view_check.c:13
dim_t n_inner
Definition: FLA_type_defs.h:166
dim_t m_inner
Definition: FLA_type_defs.h:165

References FLA_Check_error_level(), FLA_Obj_copy_view_check(), FLASH_Obj_scalar_length(), FLASH_Obj_scalar_width(), FLA_Obj_view::m_inner, and FLA_Obj_view::n_inner.

◆ FLA_Obj_copy_view_check()

FLA_Error FLA_Obj_copy_view_check ( FLA_Obj  A,
FLA_Obj B 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( A.base );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_null_pointer( B->base );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Obj_view::base, and FLA_Check_null_pointer().

Referenced by FLA_Obj_copy_view().

◆ FLA_Obj_create()

FLA_Error FLA_Obj_create ( FLA_Datatype  datatype,
dim_t  m,
dim_t  n,
dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
56 {
57  FLA_Obj_create_ext( datatype, FLA_SCALAR, m, n, m, n, rs, cs, obj );
58 
59  return FLA_SUCCESS;
60 }
FLA_Error FLA_Obj_create_ext(FLA_Datatype datatype, FLA_Elemtype elemtype, dim_t m, dim_t n, dim_t m_inner, dim_t n_inner, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:64

References FLA_Obj_create_ext().

Referenced by FLA_Apply_Q_blk_external(), FLA_Apply_Q_UT_create_workspace(), FLA_Apply_Q_UT_create_workspace_side(), FLA_Apply_QUD_UT_create_workspace(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_create_T(), FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_ofu_var4(), FLA_Bidiag_UT_u_opt_var4(), FLA_Bidiag_UT_u_opt_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_Bidiag_UT_u_unb_var4(), FLA_Bidiag_UT_u_unb_var5(), FLA_Bsvd_create_workspace(), FLA_Bsvd_external(), FLA_Bsvdd_external(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Fill_with_random_dist(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_create_T(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_Hevd_compute_scaling(), FLA_Hevd_external(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT_create_T(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_Norm1(), FLA_Norm_inf(), FLA_Obj_create_complex_constant(), FLA_Obj_create_constant(), FLA_Obj_create_constant_ext(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT_create_T(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var2(), FLA_Svd_compute_scaling(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_external(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Svdd_external(), FLA_Tevd_external(), FLA_Tevdd_external(), FLA_Tevdr_external(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Tridiag_UT_create_T(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_u_realify_unb(), FLA_UDdate_UT_create_T(), FLASH_Obj_create_flat_conf_to_hier(), and FLASH_Obj_create_helper().

◆ FLA_Obj_create_buffer()

FLA_Error FLA_Obj_create_buffer ( dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
545 {
546  size_t buffer_size;
547  size_t n_elem;
548  dim_t m, n;
549 
550  m = FLA_Obj_length( *obj );
551  n = FLA_Obj_width( *obj );
552 
553  // Adjust the strides, if necessary.
554  FLA_adjust_strides( m, n, &rs, &cs );
555 
556  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
557  FLA_Obj_create_buffer_check( rs, cs, obj );
558 
559  // Compute the number of elements needed for the buffer, adjusting
560  // the strides for alignment if needed.
561  n_elem = FLA_compute_num_elem( FLA_Obj_elem_size( *obj ),
562  m, n, &rs, &cs );
563 
564  // Compute the buffer size in bytes.
565  buffer_size = ( size_t ) n_elem *
566  ( size_t ) FLA_Obj_elem_size( *obj );
567 
568  // Allocate the base object's element buffer.
569 #ifdef FLA_ENABLE_SCC
570  obj->base->buffer = ( FLA_Obj_elemtype( *obj ) == FLA_MATRIX ? FLA_malloc( buffer_size ) : FLA_shmalloc( buffer_size ) );
571 #else
572  obj->base->buffer = FLA_malloc( buffer_size );
573 #endif
574  obj->base->buffer_info = 0;
575 
576  // Save the number of elements allocated (for use with FLASH).
577  obj->base->n_elem_alloc = n_elem;
578 
579  // Save the row and column strides used in the memory allocation.
580  obj->base->rs = rs;
581  obj->base->cs = cs;
582 
583  return FLA_SUCCESS;
584 }
void * FLA_shmalloc(size_t size)
Definition: FLA_Obj.c:21
dim_t FLA_compute_num_elem(dim_t elem_size, dim_t m, dim_t n, dim_t *rs, dim_t *cs)
Definition: FLA_Obj.c:134
FLA_Error FLA_Obj_create_buffer_check(dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj_create_buffer_check.c:13
dim_t FLA_Obj_elem_size(FLA_Obj obj)
Definition: FLA_Query.c:95
int buffer_info
Definition: FLA_type_defs.h:139
dim_t n_elem_alloc
Definition: FLA_type_defs.h:137

References FLA_Obj_view::base, FLA_Obj_struct::buffer, FLA_Obj_struct::buffer_info, FLA_Obj_struct::cs, FLA_adjust_strides(), FLA_Check_error_level(), FLA_compute_num_elem(), FLA_malloc(), FLA_Obj_create_buffer_check(), FLA_Obj_elem_size(), FLA_Obj_elemtype(), FLA_Obj_length(), FLA_Obj_width(), FLA_shmalloc(), FLA_Obj_struct::n_elem_alloc, and FLA_Obj_struct::rs.

Referenced by FLA_Obj_create_buffer_task().

◆ FLA_Obj_create_buffer_check()

FLA_Error FLA_Obj_create_buffer_check ( dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_matrix_strides( FLA_Obj_length( *obj ), FLA_Obj_width( *obj ), rs, cs );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Check_matrix_strides(), FLA_Check_null_pointer(), FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Obj_create_buffer().

◆ FLA_Obj_create_buffer_task()

FLA_Error FLA_Obj_create_buffer_task ( dim_t  rs,
dim_t  cs,
FLA_Obj  obj,
void *  cntl 
)
14 {
15  FLA_Error r_val;
16 
17  r_val = FLA_Obj_create_buffer( rs, cs, &obj );
18 
19  FLA_Set( FLA_ZERO, obj );
20 
21  return r_val;
22 }
FLA_Error FLA_Obj_create_buffer(dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:544
FLA_Error FLA_Set(FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Set.c:13

References FLA_Obj_create_buffer(), FLA_Set(), and FLA_ZERO.

Referenced by FLASH_Queue_exec_task().

◆ FLA_Obj_create_complex_constant()

FLA_Error FLA_Obj_create_complex_constant ( double  const_real,
double  const_imag,
FLA_Obj obj 
)
486 {
487  int* temp_i;
488  float* temp_s;
489  double* temp_d;
490  scomplex* temp_c;
491  dcomplex* temp_z;
492 
493  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
494  FLA_Obj_create_complex_constant_check( const_real, const_imag, obj );
495 
496  FLA_Obj_create( FLA_CONSTANT, 1, 1, 0, 0, obj );
497 
498 #ifdef FLA_ENABLE_SCC
499  if ( !FLA_is_owner() )
500  return FLA_SUCCESS;
501 #endif
502 
503  temp_i = FLA_INT_PTR( *obj );
504  temp_s = FLA_FLOAT_PTR( *obj );
505  temp_d = FLA_DOUBLE_PTR( *obj );
506  temp_c = FLA_COMPLEX_PTR( *obj );
507  temp_z = FLA_DOUBLE_COMPLEX_PTR( *obj );
508 
509  *temp_i = ( int ) const_real;
510  *temp_s = ( float ) const_real;
511  *temp_d = const_real;
512  temp_c->real = ( float ) const_real;
513  temp_c->imag = ( float ) const_imag;
514  temp_z->real = const_real;
515  temp_z->imag = const_imag;
516 
517  return FLA_SUCCESS;
518 }
FLA_Error FLA_Obj_create(FLA_Datatype datatype, dim_t m, dim_t n, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj.c:55
FLA_Bool FLA_is_owner(void)
Definition: FLA_Obj.c:33
FLA_Error FLA_Obj_create_complex_constant_check(double const_real, double const_imag, FLA_Obj *obj)
Definition: FLA_Obj_create_complex_constant_check.c:13
Definition: blis_type_defs.h:138
double real
Definition: blis_type_defs.h:139
double imag
Definition: blis_type_defs.h:139
Definition: blis_type_defs.h:133
float imag
Definition: blis_type_defs.h:134
float real
Definition: blis_type_defs.h:134

References FLA_Check_error_level(), FLA_is_owner(), FLA_Obj_create(), FLA_Obj_create_complex_constant_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

◆ FLA_Obj_create_complex_constant_check()

FLA_Error FLA_Obj_create_complex_constant_check ( double  const_real,
double  const_imag,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Check_null_pointer().

Referenced by FLA_Obj_create_complex_constant().

◆ FLA_Obj_create_conf_to()

FLA_Error FLA_Obj_create_conf_to ( FLA_Trans  trans,
FLA_Obj  old,
FLA_Obj obj 
)
287 {
288  FLA_Datatype datatype;
289  FLA_Elemtype elemtype;
290  dim_t m, n;
291  dim_t rs, cs;
292 
293  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
294  FLA_Obj_create_conf_to_check( trans, obj_cur, obj_new );
295 
296  datatype = FLA_Obj_datatype( obj_cur );
297  elemtype = FLA_Obj_elemtype( obj_cur );
298 
299  // Query the dimensions of the existing object.
300  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
301  {
302  m = FLA_Obj_length( obj_cur );
303  n = FLA_Obj_width( obj_cur );
304  }
305  else // if ( trans == FLA_TRANSPOSE || trans == FLA_CONJ_TRANSPOSE )
306  {
307  m = FLA_Obj_width( obj_cur );
308  n = FLA_Obj_length( obj_cur );
309  }
310 
311  // Query the row and column strides of the existing object. We don't care
312  // about the actual leading dimension of the existing object, only whether
313  // it is in row- or column-major format.
314  rs = FLA_Obj_row_stride( obj_cur );
315  cs = FLA_Obj_col_stride( obj_cur );
316 
317  if ( ( rs == 1 && cs == 1 ) )
318  {
319  // Do nothing. This special case will be handled by FLA_adjust_strides().
320  ;
321  }
322  else if ( rs == 1 )
323  {
324  // For column-major storage, use the m dimension as the column stride.
325  // Row stride is already set to 1.
326  cs = m;
327  }
328  else if ( cs == 1 )
329  {
330  // For row-major storage, use the n dimension as the row stride.
331  // Column stride is already set to 1.
332  rs = n;
333  }
334 
335  // Handle empty views.
336  if ( m == 0 ) cs = 1;
337  if ( n == 0 ) rs = 1;
338 
339  FLA_Obj_create_ext( datatype, elemtype, m, n, m, n, rs, cs, obj_new );
340 
341  return FLA_SUCCESS;
342 }
FLA_Error FLA_Obj_create_conf_to_check(FLA_Trans trans, FLA_Obj obj_old, FLA_Obj *obj)
Definition: FLA_Obj_create_conf_to_check.c:13

References FLA_Check_error_level(), FLA_Obj_col_stride(), FLA_Obj_create_conf_to_check(), FLA_Obj_create_ext(), FLA_Obj_datatype(), FLA_Obj_elemtype(), FLA_Obj_length(), FLA_Obj_row_stride(), and FLA_Obj_width().

Referenced by FLA_Apply_H2_UT_l_unb_var1(), FLA_Apply_H2_UT_r_unb_var1(), FLA_Eig_gest(), FLA_Hess_UT_ofu_var4(), FLA_Hess_UT_opt_var4(), FLA_Hess_UT_opt_var5(), FLA_Hess_UT_unb_var4(), FLA_Hess_UT_unb_var5(), FLA_Lyap_h_opt_var1(), FLA_Lyap_h_opt_var2(), FLA_Lyap_h_opt_var3(), FLA_Lyap_h_opt_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_opt_var1(), FLA_Lyap_n_opt_var2(), FLA_Lyap_n_opt_var3(), FLA_Lyap_n_opt_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_Obj_create_copy_of(), FLA_Random_spd_matrix(), FLA_Random_unitary_matrix(), FLA_Svd_ext_u_unb_var1(), FLA_Tridiag_UT_l_ofu_var3(), FLA_Tridiag_UT_l_opt_var3(), FLA_Tridiag_UT_l_unb_var3(), FLA_Trmvsx_external(), and FLA_Trsvsx_external().

◆ FLA_Obj_create_conf_to_check()

FLA_Error FLA_Obj_create_conf_to_check ( FLA_Trans  trans,
FLA_Obj  obj_old,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_trans( trans );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_valid_object_datatype( obj_old );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_null_pointer( obj );
24  FLA_Check_error_code( e_val );
25 
26  return FLA_SUCCESS;
27 }
FLA_Error FLA_Check_valid_trans(FLA_Trans trans)
Definition: FLA_Check.c:87

References FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_trans().

Referenced by FLA_Obj_create_conf_to().

◆ FLA_Obj_create_constant()

FLA_Error FLA_Obj_create_constant ( double  const_real,
FLA_Obj obj 
)
412 {
413  int* temp_i;
414  float* temp_s;
415  double* temp_d;
416  scomplex* temp_c;
417  dcomplex* temp_z;
418 
419  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
420  FLA_Obj_create_constant_check( const_real, obj );
421 
422  FLA_Obj_create( FLA_CONSTANT, 1, 1, 0, 0, obj );
423 
424 #ifdef FLA_ENABLE_SCC
425  if ( !FLA_is_owner() )
426  return FLA_SUCCESS;
427 #endif
428 
429  temp_i = FLA_INT_PTR( *obj );
430  temp_s = FLA_FLOAT_PTR( *obj );
431  temp_d = FLA_DOUBLE_PTR( *obj );
432  temp_c = FLA_COMPLEX_PTR( *obj );
433  temp_z = FLA_DOUBLE_COMPLEX_PTR( *obj );
434 
435  *temp_i = ( int ) const_real;
436  *temp_s = ( float ) const_real;
437  *temp_d = const_real;
438  temp_c->real = ( float ) const_real;
439  temp_c->imag = ( float ) 0.0;
440  temp_z->real = const_real;
441  temp_z->imag = 0.0;
442 
443  return FLA_SUCCESS;
444 }
FLA_Error FLA_Obj_create_constant_check(double const_real, FLA_Obj *obj)
Definition: FLA_Obj_create_constant_check.c:13

References FLA_Check_error_level(), FLA_is_owner(), FLA_Obj_create(), FLA_Obj_create_constant_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_Init_constants().

◆ FLA_Obj_create_constant_check()

FLA_Error FLA_Obj_create_constant_check ( double  const_real,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Check_null_pointer().

Referenced by FLA_Obj_create_constant().

◆ FLA_Obj_create_constant_ext()

FLA_Error FLA_Obj_create_constant_ext ( float  const_s,
double  const_d,
FLA_Obj obj 
)
449 {
450  int* temp_i;
451  float* temp_s;
452  double* temp_d;
453  scomplex* temp_c;
454  dcomplex* temp_z;
455 
456  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
457  FLA_Obj_create_constant_ext_check( const_s, const_d, obj );
458 
459  FLA_Obj_create( FLA_CONSTANT, 1, 1, 0, 0, obj );
460 
461 #ifdef FLA_ENABLE_SCC
462  if ( !FLA_is_owner() )
463  return FLA_SUCCESS;
464 #endif
465 
466  temp_i = FLA_INT_PTR( *obj );
467  temp_s = FLA_FLOAT_PTR( *obj );
468  temp_d = FLA_DOUBLE_PTR( *obj );
469  temp_c = FLA_COMPLEX_PTR( *obj );
470  temp_z = FLA_DOUBLE_COMPLEX_PTR( *obj );
471 
472  *temp_i = ( int ) const_s;
473  *temp_s = const_s;
474  *temp_d = const_d;
475  temp_c->real = const_s;
476  temp_c->imag = 0.0F;
477  temp_z->real = const_d;
478  temp_z->imag = 0.0;
479 
480  return FLA_SUCCESS;
481 }
FLA_Error FLA_Obj_create_constant_ext_check(float const_s, double const_d, FLA_Obj *obj)
Definition: FLA_Obj_create_constant_ext_check.c:13

References FLA_Check_error_level(), FLA_is_owner(), FLA_Obj_create(), FLA_Obj_create_constant_ext_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_Init_constants().

◆ FLA_Obj_create_constant_ext_check()

FLA_Error FLA_Obj_create_constant_ext_check ( float  const_s,
double  const_d,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Check_null_pointer().

Referenced by FLA_Obj_create_constant_ext().

◆ FLA_Obj_create_copy_of()

FLA_Error FLA_Obj_create_copy_of ( FLA_Trans  trans,
FLA_Obj  old,
FLA_Obj obj 
)
346 {
347  // Create a new object conformal to the current object.
348  FLA_Obj_create_conf_to( trans, obj_cur, obj_new );
349 
350 #ifdef FLA_ENABLE_SCC
351  if ( !FLA_is_owner() )
352  return FLA_SUCCESS;
353 #endif
354 
355  // Copy the contents of the current object to the new object.
356  FLA_Copyt_external( trans, obj_cur, *obj_new );
357 
358  return FLA_SUCCESS;
359 }
FLA_Error FLA_Obj_create_conf_to(FLA_Trans trans, FLA_Obj obj_cur, FLA_Obj *obj_new)
Definition: FLA_Obj.c:286

References FLA_Copyt_external(), FLA_is_owner(), and FLA_Obj_create_conf_to().

Referenced by FLA_QR_UT_solve(), FLA_Sort(), FLA_UDdate_UT_update_rhs(), and FLASH_Obj_create_copy_of().

◆ FLA_Obj_create_ext()

FLA_Error FLA_Obj_create_ext ( FLA_Datatype  datatype,
FLA_Elemtype  elemtype,
dim_t  m,
dim_t  n,
dim_t  m_inner,
dim_t  n_inner,
dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
65 {
66  size_t buffer_size;
67  size_t n_elem;
68 
69  // Adjust the strides, if necessary.
70  FLA_adjust_strides( m, n, &rs, &cs );
71 
72  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
73  FLA_Obj_create_ext_check( datatype, elemtype, m, n, m_inner, n_inner, rs, cs, obj );
74 
75  // Populate the fields in the view object.
76  obj->m = m;
77  obj->n = n;
78  obj->offm = 0;
79  obj->offn = 0;
80  obj->m_inner = m_inner;
81  obj->n_inner = n_inner;
82 
83  // Allocate the base object field.
84  obj->base = ( FLA_Base_obj * ) FLA_malloc( sizeof( FLA_Base_obj ) );
85 
86  // Populate the fields in the base object.
87  obj->base->datatype = datatype;
88  obj->base->elemtype = elemtype;
89  obj->base->m = m;
90  obj->base->n = n;
91  obj->base->m_inner = m_inner;
92  obj->base->n_inner = n_inner;
93  obj->base->id = ( unsigned long ) obj->base;
94  obj->base->m_index = 0;
95  obj->base->n_index = 0;
96 
97  // Compute the number of elements needed for the buffer, adjusting
98  // the strides for alignment if needed.
99  n_elem = FLA_compute_num_elem( FLA_Obj_elem_size( *obj ),
100  m, n, &rs, &cs );
101 
102  // Compute the buffer size in bytes.
103  buffer_size = ( size_t ) n_elem *
104  ( size_t ) FLA_Obj_elem_size( *obj );
105 
106  // Allocate the base object's element buffer.
107 #ifdef FLA_ENABLE_SCC
108  obj->base->buffer = ( FLA_Obj_elemtype( *obj ) == FLA_MATRIX ? FLA_malloc( buffer_size ) : FLA_shmalloc( buffer_size ) );
109 #else
110  obj->base->buffer = FLA_malloc( buffer_size );
111 #endif
112  obj->base->buffer_info = 0;
113 
114  // Just in case this is a FLASH object, save the number of elements
115  // allocated so that we can more easily free the elements later on.
116  obj->base->n_elem_alloc = n_elem;
117 
118  // Save the row and column strides used in the memory allocation.
119  obj->base->rs = rs;
120  obj->base->cs = cs;
121 
122 #ifdef FLA_ENABLE_SUPERMATRIX
123  // Initialize SuperMatrix fields.
124  obj->base->n_read_tasks = 0;
125  obj->base->read_task_head = NULL;
126  obj->base->read_task_tail = NULL;
127  obj->base->write_task = NULL;
128 #endif
129 
130  return FLA_SUCCESS;
131 }
FLA_Error FLA_Obj_create_ext_check(FLA_Datatype datatype, FLA_Elemtype elemtype, dim_t m, dim_t n, dim_t m_inner, dim_t n_inner, dim_t rs, dim_t cs, FLA_Obj *obj)
Definition: FLA_Obj_create_ext_check.c:13
Definition: FLA_type_defs.h:123
FLASH_Dep * read_task_tail
Definition: FLA_type_defs.h:151
FLASH_Dep * read_task_head
Definition: FLA_type_defs.h:150
dim_t n
Definition: FLA_type_defs.h:128
dim_t m
Definition: FLA_type_defs.h:127
FLASH_Task * write_task
Definition: FLA_type_defs.h:154
dim_t m_index
Definition: FLA_type_defs.h:134
unsigned long id
Definition: FLA_type_defs.h:133
dim_t n_inner
Definition: FLA_type_defs.h:132
int n_read_tasks
Definition: FLA_type_defs.h:149
dim_t n_index
Definition: FLA_type_defs.h:135
FLA_Datatype datatype
Definition: FLA_type_defs.h:125
dim_t m_inner
Definition: FLA_type_defs.h:131
FLA_Elemtype elemtype
Definition: FLA_type_defs.h:126

References FLA_Obj_view::base, FLA_Obj_struct::buffer, FLA_Obj_struct::buffer_info, FLA_Obj_struct::cs, FLA_Obj_struct::datatype, FLA_Obj_struct::elemtype, FLA_adjust_strides(), FLA_Check_error_level(), FLA_compute_num_elem(), FLA_malloc(), FLA_Obj_create_ext_check(), FLA_Obj_elem_size(), FLA_Obj_elemtype(), FLA_shmalloc(), FLA_Obj_struct::id, FLA_Obj_struct::m, FLA_Obj_view::m, FLA_Obj_struct::m_index, FLA_Obj_struct::m_inner, FLA_Obj_view::m_inner, FLA_Obj_struct::n, FLA_Obj_view::n, FLA_Obj_struct::n_elem_alloc, FLA_Obj_struct::n_index, FLA_Obj_struct::n_inner, FLA_Obj_view::n_inner, FLA_Obj_struct::n_read_tasks, FLA_Obj_view::offm, FLA_Obj_view::offn, FLA_Obj_struct::read_task_head, FLA_Obj_struct::read_task_tail, FLA_Obj_struct::rs, and FLA_Obj_struct::write_task.

Referenced by FLA_Obj_create(), FLA_Obj_create_conf_to(), and FLASH_Obj_create_hierarchy().

◆ FLA_Obj_create_ext_check()

FLA_Error FLA_Obj_create_ext_check ( FLA_Datatype  datatype,
FLA_Elemtype  elemtype,
dim_t  m,
dim_t  n,
dim_t  m_inner,
dim_t  n_inner,
dim_t  rs,
dim_t  cs,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_elemtype( elemtype );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_valid_datatype( datatype );
21  FLA_Check_error_code( e_val );
22 
23  // If both m and n are zero, we do not need to check cs/rs.
24  if ( m > 0 && n > 0 )
25  {
26  e_val = FLA_Check_matrix_strides( m, n, rs, cs );
27  FLA_Check_error_code( e_val );
28  }
29 
30  e_val = FLA_Check_null_pointer( obj );
31  FLA_Check_error_code( e_val );
32 
33  return FLA_SUCCESS;
34 }
FLA_Error FLA_Check_valid_datatype(FLA_Datatype datatype)
Definition: FLA_Check.c:156
FLA_Error FLA_Check_valid_elemtype(FLA_Elemtype elemtype)
Definition: FLA_Check.c:813

References FLA_Check_matrix_strides(), FLA_Check_null_pointer(), FLA_Check_valid_datatype(), and FLA_Check_valid_elemtype().

Referenced by FLA_Obj_create_ext().

◆ FLA_Obj_create_without_buffer()

FLA_Error FLA_Obj_create_without_buffer ( FLA_Datatype  datatype,
dim_t  m,
dim_t  n,
FLA_Obj obj 
)
363 {
364  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
365  FLA_Obj_create_without_buffer_check( datatype, m, n, obj );
366 
367  // Populate the fields in the view object.
368  obj->m = m;
369  obj->n = n;
370  obj->offm = 0;
371  obj->offn = 0;
372  obj->m_inner = m;
373  obj->n_inner = n;
374 
375  // Allocate the base object field.
376  obj->base = ( FLA_Base_obj * ) FLA_malloc( sizeof( FLA_Base_obj ) );
377 
378  // Populate the fields in the base object.
379  obj->base->datatype = datatype;
380  obj->base->elemtype = FLA_SCALAR;
381  obj->base->m = m;
382  obj->base->n = n;
383  obj->base->m_inner = m;
384  obj->base->n_inner = n;
385  obj->base->id = ( unsigned long ) obj->base;
386  obj->base->m_index = 0;
387  obj->base->n_index = 0;
388 
389  // Set the row and column strides to invalid values.
390  obj->base->rs = 0;
391  obj->base->cs = 0;
392 
393  // Initialize the base object's element buffer to NULL.
394  obj->base->buffer = NULL;
395  obj->base->buffer_info = 0;
396  obj->base->n_elem_alloc = 0;
397 
398 #ifdef FLA_ENABLE_SUPERMATRIX
399  // Initialize SuperMatrix fields.
400  obj->base->n_read_tasks = 0;
401  obj->base->read_task_head = NULL;
402  obj->base->read_task_tail = NULL;
403  obj->base->write_task = NULL;
404 #endif
405 
406  return FLA_SUCCESS;
407 }
FLA_Error FLA_Obj_create_without_buffer_check(FLA_Datatype datatype, dim_t m, dim_t n, FLA_Obj *obj)
Definition: FLA_Obj_create_without_buffer_check.c:13

References FLA_Obj_view::base, FLA_Obj_struct::buffer, FLA_Obj_struct::buffer_info, FLA_Obj_struct::cs, FLA_Obj_struct::datatype, FLA_Obj_struct::elemtype, FLA_Check_error_level(), FLA_malloc(), FLA_Obj_create_without_buffer_check(), FLA_Obj_struct::id, FLA_Obj_struct::m, FLA_Obj_view::m, FLA_Obj_struct::m_index, FLA_Obj_struct::m_inner, FLA_Obj_view::m_inner, FLA_Obj_struct::n, FLA_Obj_view::n, FLA_Obj_struct::n_elem_alloc, FLA_Obj_struct::n_index, FLA_Obj_struct::n_inner, FLA_Obj_view::n_inner, FLA_Obj_struct::n_read_tasks, FLA_Obj_view::offm, FLA_Obj_view::offn, FLA_Obj_struct::read_task_head, FLA_Obj_struct::read_task_tail, FLA_Obj_struct::rs, and FLA_Obj_struct::write_task.

Referenced by FLA_Axpy_buffer_to_object(), FLA_Axpy_object_to_buffer(), FLA_Copy_buffer_to_object(), FLA_Copy_object_to_buffer(), FLASH_Axpy_buffer_to_hier(), FLASH_Axpy_hier_to_buffer(), FLASH_Copy_buffer_to_hier(), FLASH_Copy_hier_to_buffer(), FLASH_Obj_attach_buffer(), FLASH_Obj_create_helper(), and FLASH_Obj_create_hierarchy().

◆ FLA_Obj_create_without_buffer_check()

FLA_Error FLA_Obj_create_without_buffer_check ( FLA_Datatype  datatype,
dim_t  m,
dim_t  n,
FLA_Obj obj 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_datatype( datatype );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_null_pointer( obj );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Check_null_pointer(), and FLA_Check_valid_datatype().

Referenced by FLA_Obj_create_without_buffer().

◆ FLA_Obj_datatype()

FLA_Datatype FLA_Obj_datatype ( FLA_Obj  obj)
14 {
15  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
17 
18  return obj.base->datatype;
19 }
FLA_Error FLA_Obj_datatype_check(FLA_Obj obj)
Definition: FLA_Obj_datatype_check.c:13

References FLA_Obj_view::base, FLA_Obj_struct::datatype, FLA_Check_error_level(), and FLA_Obj_datatype_check().

Referenced by FLA_Absolute_square(), FLA_Absolute_value(), FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Add_to_diag(), FLA_Amax_external(), FLA_Apply_diag_matrix(), FLA_Apply_G_lf_blk_var3(), FLA_Apply_G_lf_opt_var1(), FLA_Apply_G_rf_asm_var1(), FLA_Apply_G_rf_asm_var2(), FLA_Apply_G_rf_asm_var3(), FLA_Apply_G_rf_asm_var3b(), FLA_Apply_G_rf_asm_var6(), FLA_Apply_G_rf_asm_var6b(), FLA_Apply_G_rf_asm_var9(), FLA_Apply_G_rf_asm_var9b(), FLA_Apply_G_rf_blk_var1(), FLA_Apply_G_rf_blk_var2(), FLA_Apply_G_rf_blk_var3(), FLA_Apply_G_rf_blk_var3b(), FLA_Apply_G_rf_blk_var6(), FLA_Apply_G_rf_blk_var6b(), FLA_Apply_G_rf_blk_var9(), FLA_Apply_G_rf_blk_var9b(), FLA_Apply_G_rf_opt_var1(), FLA_Apply_G_rf_opt_var2(), FLA_Apply_G_rf_opt_var3(), FLA_Apply_G_rf_opt_var6(), FLA_Apply_G_rf_opt_var9(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_pivots_ln_opt_var1(), FLA_Apply_pivots_lt_opt_var1(), FLA_Apply_pivots_macro_external(), FLA_Apply_pivots_rn_opt_var1(), FLA_Apply_pivots_rt_opt_var1(), FLA_Apply_pivots_unb_external(), FLA_Apply_Q_blk_external(), FLA_Apply_Q_UT_create_workspace(), FLA_Apply_Q_UT_create_workspace_side(), FLA_Apply_QUD_UT_create_workspace(), FLA_Asum_external(), FLA_Axpy_buffer_to_object(), FLA_Axpy_external(), FLA_Axpy_external_gpu(), FLA_Axpy_object_to_buffer(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_create_T(), FLA_Bidiag_UT_l_extract_diagonals(), FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_l_scale_diagonals(), FLA_Bidiag_UT_realify_diagonals_opt(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_extract_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Bidiag_UT_u_ofu_var4(), FLA_Bidiag_UT_u_opt_var4(), FLA_Bidiag_UT_u_opt_var5(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_scale_diagonals(), FLA_Bidiag_UT_u_step_ofu_var2(), FLA_Bidiag_UT_u_step_ofu_var3(), FLA_Bidiag_UT_u_step_ofu_var4(), FLA_Bidiag_UT_u_step_opt_var1(), FLA_Bidiag_UT_u_step_opt_var2(), FLA_Bidiag_UT_u_step_opt_var3(), FLA_Bidiag_UT_u_step_opt_var4(), FLA_Bidiag_UT_u_step_opt_var5(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_Bidiag_UT_u_unb_var4(), FLA_Bidiag_UT_u_unb_var5(), FLA_Bsvd_compute_shift(), FLA_Bsvd_compute_tol_thresh(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_external(), FLA_Bsvd_find_converged(), FLA_Bsvd_find_max(), FLA_Bsvd_francis_v_opt_var1(), FLA_Bsvd_sinval_v_opt_var1(), FLA_Bsvd_v_opt_var1(), FLA_Bsvd_v_opt_var2(), FLA_Bsvdd_external(), FLA_CAQR2_UT_opt_var1(), FLA_Check_comparable_object(), FLA_Check_complex_object(), FLA_Check_consistent_datatype(), FLA_Check_consistent_object_datatype(), FLA_Check_floating_object(), FLA_Check_householder_panel_dims(), FLA_Check_identical_object_datatype(), FLA_Check_identical_object_precision(), FLA_Check_int_object(), FLA_Check_nonconstant_object(), FLA_Check_real_object(), FLA_Check_valid_object_datatype(), FLA_Chol_blk_external(), FLA_Chol_l_opt_var1(), FLA_Chol_l_opt_var2(), FLA_Chol_l_opt_var3(), FLA_Chol_u_opt_var1(), FLA_Chol_u_opt_var2(), FLA_Chol_u_opt_var3(), FLA_Chol_unb_external(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Copy_buffer_to_object(), FLA_Copy_external(), FLA_Copy_external_gpu(), FLA_Copy_object_to_buffer(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Copyt_external(), FLA_Determine_blocksize(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Eig_gest_blk_external(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_opt_var3(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var3(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Eig_gest_unb_external(), FLA_Fused_Ahx_Ax_opt_var1(), FLA_Fused_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_opt_var1(), FLA_Fused_Her2_Ax_l_opt_var1(), FLA_Fused_Uhu_Yhu_Zhu_opt_var1(), FLA_Fused_UYx_ZVx_opt_var1(), FLA_Fused_UZhu_ZUhu_opt_var1(), FLA_Gemm_external(), FLA_Gemm_external_gpu(), FLA_Gemv_external(), FLA_Gemv_external_gpu(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Givens2(), FLA_Hemm_external(), FLA_Hemm_external_gpu(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k_external(), FLA_Her2k_external_gpu(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk_external(), FLA_Herk_external_gpu(), FLA_Hermitianize(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_create_T(), FLA_Hess_UT_step_ofu_var2(), FLA_Hess_UT_step_ofu_var3(), FLA_Hess_UT_step_ofu_var4(), FLA_Hess_UT_step_opt_var1(), FLA_Hess_UT_step_opt_var2(), FLA_Hess_UT_step_opt_var3(), FLA_Hess_UT_step_opt_var4(), FLA_Hess_UT_step_opt_var5(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_Hev_2x2(), FLA_Hevd_external(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Hevv_2x2(), FLA_Househ2_UT(), FLA_Househ2s_UT(), FLA_Househ3UD_UT(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Invert(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT_create_T(), FLA_LQ_UT_opt_var1(), FLA_LQ_UT_opt_var2(), FLA_LU_nopiv_opt_var1(), FLA_LU_nopiv_opt_var2(), FLA_LU_nopiv_opt_var3(), FLA_LU_nopiv_opt_var4(), FLA_LU_nopiv_opt_var5(), FLA_LU_piv_blk_external(), FLA_LU_piv_opt_var3(), FLA_LU_piv_opt_var4(), FLA_LU_piv_opt_var5(), FLA_LU_piv_unb_external(), FLA_Lyap_h_opt_var1(), FLA_Lyap_h_opt_var2(), FLA_Lyap_h_opt_var3(), FLA_Lyap_h_opt_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_opt_var1(), FLA_Lyap_n_opt_var2(), FLA_Lyap_n_opt_var3(), FLA_Lyap_n_opt_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_Mach_params(), FLA_Max_abs_value(), FLA_Max_abs_value_herm(), FLA_Max_elemwise_diff(), FLA_Mult_add(), FLA_Norm1(), FLA_Norm1_tridiag(), FLA_Norm_frob(), FLA_Norm_inf(), FLA_Nrm2_external(), FLA_Obj_create_conf_to(), FLA_Obj_elem_size(), FLA_Obj_elem_size_check(), FLA_Obj_equals(), FLA_Obj_extract_imag_part(), FLA_Obj_extract_real_part(), FLA_Obj_fshow(), FLA_Obj_ge(), FLA_Obj_gt(), FLA_Obj_has_nan(), FLA_Obj_is_complex(), FLA_Obj_is_constant(), FLA_Obj_is_double_precision(), FLA_Obj_is_floating_point(), FLA_Obj_is_int(), FLA_Obj_is_real(), FLA_Obj_is_single_precision(), FLA_Obj_le(), FLA_Obj_lt(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_Pow(), FLA_Pythag2(), FLA_Pythag3(), FLA_QR2_UT_opt_var1(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT_create_T(), FLA_QR_UT_form_Q_opt_var1(), FLA_QR_UT_opt_var1(), FLA_QR_UT_opt_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var2(), FLA_Random_matrix(), FLA_Random_tri_matrix(), FLA_SA_Apply_pivots(), FLA_SA_LU_unb(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scal_external_gpu(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Scalr_external(), FLA_Scalr_external_gpu(), FLA_Set(), FLA_Set_diag(), FLA_Set_diagonal_matrix(), FLA_Set_diagonal_vector(), FLA_Set_offdiag(), FLA_Setr(), FLA_Shift_diag(), FLA_Sort(), FLA_Sort_evd(), FLA_Sort_svd(), FLA_Sqrt(), FLA_Sv_2x2(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_external(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Svdd_external(), FLA_Svv_2x2(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Sylv_hh_opt_var1(), FLA_Sylv_hn_opt_var1(), FLA_Sylv_nh_opt_var1(), FLA_Sylv_nn_opt_var1(), FLA_Sylv_unb_external(), FLA_Symm_external(), FLA_Symm_external_gpu(), FLA_Symmetrize(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr2k_external_gpu(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Syrk_external_gpu(), FLA_Tevd_eigval_n_opt_var1(), FLA_Tevd_eigval_v_opt_var1(), FLA_Tevd_external(), FLA_Tevd_francis_n_opt_var1(), FLA_Tevd_francis_v_opt_var1(), FLA_Tevd_n_opt_var1(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Tevdd_external(), FLA_Tevdr_external(), FLA_Triangularize(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Tridiag_UT_create_T(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_ofu_var2(), FLA_Tridiag_UT_l_step_ofu_var3(), FLA_Tridiag_UT_l_step_opt_var1(), FLA_Tridiag_UT_l_step_opt_var2(), FLA_Tridiag_UT_l_step_opt_var3(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_realify_subdiagonal_opt(), FLA_Tridiag_UT_shift_U(), FLA_Tridiag_UT_u_realify_opt(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trinv(), FLA_Trinv_blk_external(), FLA_Trinv_ln_opt_var1(), FLA_Trinv_ln_opt_var2(), FLA_Trinv_ln_opt_var3(), FLA_Trinv_ln_opt_var4(), FLA_Trinv_lu_opt_var1(), FLA_Trinv_lu_opt_var2(), FLA_Trinv_lu_opt_var3(), FLA_Trinv_lu_opt_var4(), FLA_Trinv_un_opt_var1(), FLA_Trinv_un_opt_var2(), FLA_Trinv_un_opt_var3(), FLA_Trinv_un_opt_var4(), FLA_Trinv_unb_external(), FLA_Trinv_uu_opt_var1(), FLA_Trinv_uu_opt_var2(), FLA_Trinv_uu_opt_var3(), FLA_Trinv_uu_opt_var4(), FLA_Trmm_external(), FLA_Trmm_external_gpu(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsm_external_gpu(), FLA_Trsmsx_external(), FLA_Trsv_external(), FLA_Trsv_external_gpu(), FLA_Ttmm(), FLA_Ttmm_blk_external(), FLA_Ttmm_l_opt_var1(), FLA_Ttmm_l_opt_var2(), FLA_Ttmm_l_opt_var3(), FLA_Ttmm_u_opt_var1(), FLA_Ttmm_u_opt_var2(), FLA_Ttmm_u_opt_var3(), FLA_Ttmm_unb_external(), FLA_UDdate_UT_create_T(), FLA_UDdate_UT_opt_var1(), FLA_Wilkshift_tridiag(), FLASH_Apply_CAQ_UT_inc_create_workspace(), FLASH_Apply_Q_UT_create_workspace(), FLASH_Apply_Q_UT_inc_create_workspace(), FLASH_Apply_QUD_UT_inc_create_workspace(), FLASH_CAQR_UT_inc_create_hier_matrices(), FLASH_LQ_UT_create_hier_matrices(), FLASH_LU_incpiv_create_hier_matrices(), FLASH_Obj_create_diag_panel(), FLASH_Obj_create_hier_conf_to_flat(), FLASH_Obj_create_hier_conf_to_flat_ext(), FLASH_Obj_datatype(), FLASH_Obj_show_hierarchy(), FLASH_print_struct_helper(), FLASH_QR_UT_create_hier_matrices(), FLASH_QR_UT_inc_create_hier_matrices(), FLASH_Queue_init_tasks(), FLASH_Queue_prefetch_block(), FLASH_Queue_read_gpu(), FLASH_Queue_write_gpu(), and FLASH_UDdate_UT_inc_create_hier_matrices().

◆ FLA_Obj_datatype_check()

FLA_Error FLA_Obj_datatype_check ( FLA_Obj  obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj.base );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Obj_view::base, and FLA_Check_null_pointer().

Referenced by FLA_Obj_datatype().

◆ FLA_Obj_datatype_proj_to_complex()

FLA_Datatype FLA_Obj_datatype_proj_to_complex ( FLA_Obj  A)
38 {
39  FLA_Datatype datatype;
40 
41  if ( FLA_Obj_is_single_precision( A ) )
42  datatype = FLA_COMPLEX;
43  else
44  datatype = FLA_DOUBLE_COMPLEX;
45 
46  return datatype;
47 }
FLA_Bool FLA_Obj_is_single_precision(FLA_Obj A)
Definition: FLA_Query.c:341

References FLA_Obj_is_single_precision().

Referenced by FLA_Bsvd_create_workspace(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_uv_unb_var1(), and FLA_Svd_uv_unb_var2().

◆ FLA_Obj_datatype_proj_to_real()

FLA_Datatype FLA_Obj_datatype_proj_to_real ( FLA_Obj  A)

◆ FLA_Obj_datatype_proj_to_real_check()

FLA_Error FLA_Obj_datatype_proj_to_real_check ( FLA_Obj  obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj.base );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( obj );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( obj );
24  FLA_Check_error_code( e_val );
25 
26  return FLA_SUCCESS;
27 }

References FLA_Obj_view::base, FLA_Check_floating_object(), FLA_Check_nonconstant_object(), and FLA_Check_null_pointer().

◆ FLA_Obj_datatype_size()

dim_t FLA_Obj_datatype_size ( FLA_Datatype  datatype)
62 {
63  dim_t datatype_size = 0;
64 
65  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
66  FLA_Obj_datatype_size_check( datatype );
67 
68  switch( datatype )
69  {
70  case FLA_INT:
71  datatype_size = sizeof( int );
72  break;
73  case FLA_FLOAT:
74  datatype_size = sizeof( float );
75  break;
76  case FLA_DOUBLE:
77  datatype_size = sizeof( double );
78  break;
79  case FLA_COMPLEX:
80  datatype_size = sizeof( scomplex );
81  break;
82  case FLA_DOUBLE_COMPLEX:
83  datatype_size = sizeof( dcomplex );
84  break;
85  case FLA_CONSTANT:
86  datatype_size = FLA_CONSTANT_SIZE;
87  break;
88  }
89 
90  return datatype_size;
91 }
FLA_Error FLA_Obj_datatype_size_check(FLA_Datatype datatype)
Definition: FLA_Obj_datatype_size_check.c:13
struct scomplex scomplex
struct dcomplex dcomplex

References FLA_Check_error_level(), and FLA_Obj_datatype_size_check().

Referenced by FLA_Check_identical_object_precision(), FLA_Obj_elem_size(), FLASH_Obj_create_hierarchy(), FLASH_Queue_alloc_gpu(), FLASH_Queue_init_tasks(), FLASH_Queue_read_gpu(), and FLASH_Queue_write_gpu().

◆ FLA_Obj_datatype_size_check()

FLA_Error FLA_Obj_datatype_size_check ( FLA_Datatype  datatype)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_datatype( datatype );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Check_valid_datatype().

Referenced by FLA_Obj_datatype_size().

◆ FLA_Obj_elem_size()

dim_t FLA_Obj_elem_size ( FLA_Obj  obj)
96 {
97  dim_t elem_size = 0;
98 
99  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
101 
102  if ( FLA_Obj_elemtype( obj ) == FLA_MATRIX )
103  {
104  elem_size = sizeof( FLA_Obj );
105  }
106  else // if ( FLA_Obj_elemtype( obj ) == FLA_SCALAR )
107  {
108  elem_size = FLA_Obj_datatype_size( FLA_Obj_datatype( obj ) );
109  }
110 
111  return elem_size;
112 }
FLA_Error FLA_Obj_elem_size_check(FLA_Obj obj)
Definition: FLA_Obj_elem_size_check.c:13
dim_t FLA_Obj_datatype_size(FLA_Datatype datatype)
Definition: FLA_Query.c:61
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
struct FLA_Obj_view FLA_Obj

References FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_datatype_size(), FLA_Obj_elem_size_check(), and FLA_Obj_elemtype().

Referenced by FLA_Obj_buffer_at_view(), FLA_Obj_create_buffer(), FLA_Obj_create_ext(), and FLASH_Queue_prefetch_block().

◆ FLA_Obj_elem_size_check()

FLA_Error FLA_Obj_elem_size_check ( FLA_Obj  obj)
14 {
15  FLA_Error e_val;
16 
18  FLA_Check_error_code( e_val );
19 
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Check_valid_datatype(), FLA_Check_valid_elemtype(), FLA_Obj_datatype(), and FLA_Obj_elemtype().

Referenced by FLA_Obj_elem_size().

◆ FLA_Obj_elemtype()

FLA_Elemtype FLA_Obj_elemtype ( FLA_Obj  obj)
52 {
53  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
55 
56  return obj.base->elemtype;
57 }
FLA_Error FLA_Obj_elemtype_check(FLA_Obj obj)
Definition: FLA_Obj_elemtype_check.c:13

References FLA_Obj_view::base, FLA_Obj_struct::elemtype, FLA_Check_error_level(), and FLA_Obj_elemtype_check().

Referenced by FLA_Apply_CAQ2_UT_internal(), FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_Q2_UT_internal(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q_UT_internal(), FLA_Apply_QUD_UT_internal(), FLA_Apply_QUD_UT_internal_check(), FLA_Axpy_internal(), FLA_Axpyt_internal(), FLA_CAQR2_UT_internal(), FLA_Check_identical_object_elemtype(), FLA_Check_object_matrix_elemtype(), FLA_Check_object_scalar_elemtype(), FLA_Check_submatrix_dims_and_offset(), FLA_Chol_internal(), FLA_Copy_internal(), FLA_Copyr_internal(), FLA_Copyt_internal(), FLA_Eig_gest_internal(), FLA_Gemm_internal(), FLA_Gemv_internal(), FLA_Hemm_internal(), FLA_Her2k_internal(), FLA_Herk_internal(), FLA_LU_nopiv_internal(), FLA_Lyap_internal(), FLA_Obj_create_buffer(), FLA_Obj_create_conf_to(), FLA_Obj_create_ext(), FLA_Obj_elem_size(), FLA_Obj_elem_size_check(), FLA_Obj_free(), FLA_Obj_free_buffer(), FLA_QR2_UT_internal(), FLA_Scal_internal(), FLA_Scalr_internal(), FLA_Sylv_internal(), FLA_Symm_internal(), FLA_Syr2k_internal(), FLA_Syrk_internal(), FLA_Trinv_internal(), FLA_Trmm_internal(), FLA_Trsm_internal(), FLA_Trsv_internal(), FLA_Ttmm_internal(), FLA_UDdate_UT_internal(), FLA_UDdate_UT_internal_check(), FLASH_Axpy_hierarchy(), FLASH_Copy_hierarchy(), FLASH_LU_find_zero_on_diagonal(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_base_scalar_length(), FLASH_Obj_base_scalar_width(), FLASH_Obj_blocksizes(), FLASH_Obj_depth(), FLASH_Obj_extract_buffer(), FLASH_Obj_free(), FLASH_Obj_free_hierarchy(), FLASH_Obj_free_without_buffer(), FLASH_Obj_scalar_col_offset(), FLASH_Obj_scalar_length(), FLASH_Obj_scalar_length_tl(), FLASH_Obj_scalar_row_offset(), FLASH_Obj_scalar_width(), FLASH_Obj_scalar_width_tl(), FLASH_Obj_show(), FLASH_Obj_show_hierarchy(), FLASH_print_struct(), FLASH_print_struct_helper(), FLASH_Queue_check_gpu(), FLASH_Queue_exec_gpu(), FLASH_Queue_init_tasks(), FLASH_Queue_push(), FLASH_Queue_update_cache(), FLASH_Queue_wait_dequeue_block(), FLASH_Task_free(), and FLASH_Task_free_parallel().

◆ FLA_Obj_elemtype_check()

FLA_Error FLA_Obj_elemtype_check ( FLA_Obj  obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj.base );
18  FLA_Check_error_code( e_val );
19 
20  return FLA_SUCCESS;
21 }

References FLA_Obj_view::base, and FLA_Check_null_pointer().

Referenced by FLA_Obj_elemtype().

◆ FLA_Obj_equals()

FLA_Bool FLA_Obj_equals ( FLA_Obj  A,
FLA_Obj  B 
)
508 {
509  FLA_Datatype datatype_A;
510  FLA_Datatype datatype_B;
511  FLA_Datatype datatype;
512  dim_t m, n;
513  dim_t rs_A, cs_A;
514  dim_t rs_B, cs_B;
515  dim_t i, j;
516 
517  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
518  FLA_Obj_equals_check( A, B );
519 
520  m = FLA_Obj_length( A );
521  n = FLA_Obj_width( A );
522  rs_A = FLA_Obj_row_stride( A );
523  cs_A = FLA_Obj_col_stride( A );
524  rs_B = FLA_Obj_row_stride( B );
525  cs_B = FLA_Obj_col_stride( B );
526 
527  datatype_A = FLA_Obj_datatype( A );
528  datatype_B = FLA_Obj_datatype( B );
529 
530  // If A is a non-FLA_CONSTANT object, then we should proceed based on the
531  // value of datatype_A. In such a situation, either datatype_B is an exact
532  // match and we're fine, or datatype_B is FLA_CONSTANT, in which case we're
533  // also covered since FLA_CONSTANT encompassas all numerical types.
534  // If A is an FLA_CONSTANT object, then we should proceed based on the value
535  // of datatype_B. In this case, datatype_B is either a non-FLA_CONSTANT type,
536  // which mirrors the second sub-case above, or datatype_B is FLA_CONSTANT,
537  // in which case both types are FLA_CONSTANT and therefore we have to handle
538  // that case. Only if both are FLA_CONSTANTs does the FLA_CONSTANT case
539  // statement below execute.
540  if ( datatype_A != FLA_CONSTANT )
541  datatype = datatype_A;
542  else
543  datatype = datatype_B;
544 
545  switch ( datatype )
546  {
547  case FLA_CONSTANT:
548  {
549  // We require ALL floating-point fields to be the same.
550  float* buffs_A = ( float * ) FLA_FLOAT_PTR( A );
551  float* buffs_B = ( float * ) FLA_FLOAT_PTR( B );
552  double* buffd_A = ( double * ) FLA_DOUBLE_PTR( A );
553  double* buffd_B = ( double * ) FLA_DOUBLE_PTR( B );
554  scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
555  scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
556  dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
557  dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
558 
559  if ( *buffs_A != *buffs_B ||
560  *buffd_A != *buffd_B ||
561  buffc_A->real != buffc_B->real ||
562  buffc_A->imag != buffc_B->imag ||
563  buffz_A->real != buffz_B->real ||
564  buffz_A->imag != buffz_B->imag )
565  {
566  return FALSE;
567  }
568 
569  break;
570  }
571 
572  case FLA_INT:
573  {
574  int *buff_A = ( int * ) FLA_INT_PTR( A );
575  int *buff_B = ( int * ) FLA_INT_PTR( B );
576 
577  for ( j = 0; j < n; j++ )
578  for ( i = 0; i < m; i++ )
579  if ( buff_A[ j * cs_A + i * rs_A ] !=
580  buff_B[ j * cs_B + i * rs_B ] )
581  {
582  return FALSE;
583  }
584 
585  break;
586  }
587 
588  case FLA_FLOAT:
589  {
590  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
591  float *buff_B = ( float * ) FLA_FLOAT_PTR( B );
592 
593  for ( j = 0; j < n; j++ )
594  for ( i = 0; i < m; i++ )
595  if ( buff_A[ j * cs_A + i * rs_A ] !=
596  buff_B[ j * cs_B + i * rs_B ] )
597  {
598  return FALSE;
599  }
600 
601  break;
602  }
603 
604  case FLA_DOUBLE:
605  {
606  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
607  double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );
608 
609  for ( j = 0; j < n; j++ )
610  for ( i = 0; i < m; i++ )
611  if ( buff_A[ j * cs_A + i * rs_A ] !=
612  buff_B[ j * cs_B + i * rs_B ] )
613  {
614  return FALSE;
615  }
616 
617  break;
618  }
619 
620  case FLA_COMPLEX:
621  {
622  scomplex *buff_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
623  scomplex *buff_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
624 
625  for ( j = 0; j < n; j++ )
626  for ( i = 0; i < m; i++ )
627  if ( buff_A[ j * cs_A + i * rs_A ].real != buff_B[ j * cs_B + i * rs_B ].real ||
628  buff_A[ j * cs_A + i * rs_A ].imag != buff_B[ j * cs_B + i * rs_B ].imag )
629  {
630  return FALSE;
631  }
632 
633  break;
634  }
635 
636  case FLA_DOUBLE_COMPLEX:
637  {
638  dcomplex *buff_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
639  dcomplex *buff_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
640 
641  for ( j = 0; j < n; j++ )
642  for ( i = 0; i < m; i++ )
643  if ( buff_A[ j * cs_A + i * rs_A ].real != buff_B[ j * cs_B + i * rs_B ].real ||
644  buff_A[ j * cs_A + i * rs_A ].imag != buff_B[ j * cs_B + i * rs_B ].imag )
645  {
646  return FALSE;
647  }
648 
649  break;
650  }
651  }
652 
653  return TRUE;
654 }
FLA_Error FLA_Obj_equals_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Obj_equals_check.c:13
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
float real
Definition: FLA_f2c.h:30
rho_c imag
Definition: bl1_axpyv2bdotaxpy.c:483

References FLA_Check_error_level(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_equals_check(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_width(), i, imag, scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_l_unb_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_H2_UT_r_unb_var1(), FLA_Axpy_internal(), FLA_Axpyt_internal(), FLA_Check_divide_by_zero(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_LU_find_zero_on_diagonal(), FLA_Scal_external(), FLA_Scal_external_gpu(), FLA_Scal_internal(), FLA_Scalc_external(), FLA_Scalr_external_gpu(), FLA_Scalr_internal(), FLA_Svd_uv_unb_var1(), and FLA_Svd_uv_unb_var2().

◆ FLA_Obj_equals_check()

FLA_Error FLA_Obj_equals_check ( FLA_Obj  A,
FLA_Obj  B 
)
14 {
15  FLA_Error e_val;
16 
18  FLA_Check_error_code( e_val );
19 
21  FLA_Check_error_code( e_val );
22 
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_conformal_dims( FLA_NO_TRANSPOSE, A, B );
27  FLA_Check_error_code( e_val );
28 
29  return FLA_SUCCESS;
30 }
FLA_Error FLA_Check_conformal_dims(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:393

References FLA_Check_conformal_dims(), FLA_Check_consistent_object_datatype(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Obj_equals().

◆ FLA_Obj_extract_complex_scalar()

void FLA_Obj_extract_complex_scalar ( FLA_Obj  alpha,
dcomplex alpha_value 
)
49 {
50  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
51  FLA_Obj_extract_complex_scalar_check( alpha, alpha_value );
52 
53  if ( FLA_Obj_is_single_precision( alpha ) )
54  {
55  scomplex temp = *FLA_COMPLEX_PTR( alpha );
56  alpha_value->real = ( double ) temp.real;
57  alpha_value->imag = ( double ) temp.imag;
58  }
59  else
60  *alpha_value = *FLA_DOUBLE_COMPLEX_PTR( alpha );
61 }
FLA_Error FLA_Obj_extract_complex_scalar_check(FLA_Obj alpha, dcomplex *alpha_value)
Definition: FLA_Obj_extract_complex_scalar_check.c:13
FLA_Bool FLA_Obj_is_single_precision(FLA_Obj A)
Definition: FLA_Query.c:341
dcomplex temp
Definition: bl1_axpyv2b.c:301

References FLA_Check_error_level(), FLA_Obj_extract_complex_scalar_check(), FLA_Obj_is_single_precision(), dcomplex::imag, dcomplex::real, and temp.

◆ FLA_Obj_extract_complex_scalar_check()

FLA_Error FLA_Obj_extract_complex_scalar_check ( FLA_Obj  alpha,
dcomplex alpha_value 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_complex_object( alpha );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_if_scalar( alpha );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_null_pointer( alpha_value );
24  FLA_Check_error_code( e_val );
25 
26  return FLA_SUCCESS;
27 }
FLA_Error FLA_Check_complex_object(FLA_Obj A)
Definition: FLA_Check.c:285

References FLA_Check_complex_object(), FLA_Check_if_scalar(), and FLA_Check_null_pointer().

Referenced by FLA_Obj_extract_complex_scalar().

◆ FLA_Obj_extract_imag_part()

void FLA_Obj_extract_imag_part ( FLA_Obj  alpha,
FLA_Obj  beta 
)
121 {
122  FLA_Datatype datatype;
123  int m, inc_a, inc_b;
124 
125  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
127 
128  datatype = FLA_Obj_datatype( a );
129 
130  m = FLA_Obj_vector_dim( a );
131  inc_a = FLA_Obj_vector_inc( a );
132  inc_b = FLA_Obj_vector_inc( b );
133 
134  switch ( datatype )
135  {
136  case FLA_FLOAT:
137  {
138  float* buff_b = FLA_FLOAT_PTR( b );
139  float* buff_0 = FLA_FLOAT_PTR( FLA_ZERO );
140  bl1_ssetv( m,
141  buff_0,
142  buff_b, inc_b );
143  break;
144  }
145  case FLA_DOUBLE:
146  {
147  double* buff_b = FLA_DOUBLE_PTR( b );
148  double* buff_0 = FLA_DOUBLE_PTR( FLA_ZERO );
149  bl1_dsetv( m,
150  buff_0,
151  buff_b, inc_b );
152  break;
153  }
154  case FLA_COMPLEX:
155  {
156  float* buff_a = FLA_FLOAT_PTR( a );
157  float* buff_b = FLA_FLOAT_PTR( b );
158  bl1_scopy( m,
159  ++buff_a, inc_a*2,
160  buff_b, inc_b );
161  break;
162  }
163  case FLA_DOUBLE_COMPLEX:
164  {
165  double* buff_a = FLA_DOUBLE_PTR( a );
166  double* buff_b = FLA_DOUBLE_PTR( b );
167  bl1_dcopy( m,
168  ++buff_a, inc_a*2,
169  buff_b, inc_b );
170  break;
171  }
172  }
173 }
FLA_Error FLA_Obj_extract_imag_part_check(FLA_Obj a, FLA_Obj b)
Definition: FLA_Obj_extract_imag_part_check.c:13
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
void bl1_dcopy(int m, double *x, int incx, double *y, int incy)
Definition: bl1_copy.c:26
void bl1_scopy(int m, float *x, int incx, float *y, int incy)
Definition: bl1_copy.c:13
void bl1_dsetv(int m, double *sigma, double *x, int incx)
Definition: bl1_setv.c:39
void bl1_ssetv(int m, float *sigma, float *x, int incx)
Definition: bl1_setv.c:26

References bl1_dcopy(), bl1_dsetv(), bl1_scopy(), bl1_ssetv(), FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_extract_imag_part_check(), FLA_Obj_vector_dim(), FLA_Obj_vector_inc(), and FLA_ZERO.

◆ FLA_Obj_extract_imag_part_check()

FLA_Error FLA_Obj_extract_imag_part_check ( FLA_Obj  alpha,
FLA_Obj  beta 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_floating_object( a );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_real_object( b );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( b );
24  FLA_Check_error_code( e_val );
25 
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_vector_dim( a, FLA_Obj_vector_dim( b ) );
30  FLA_Check_error_code( e_val );
31 
32  return FLA_SUCCESS;
33 }
FLA_Error FLA_Check_real_object(FLA_Obj A)
Definition: FLA_Check.c:258
FLA_Error FLA_Check_identical_object_precision(FLA_Obj A, FLA_Obj B)
Definition: FLA_Check.c:298
FLA_Error FLA_Check_vector_dim(FLA_Obj x, dim_t expected_length)
Definition: FLA_Check.c:1213

References FLA_Check_floating_object(), FLA_Check_identical_object_precision(), FLA_Check_nonconstant_object(), FLA_Check_real_object(), FLA_Check_vector_dim(), and FLA_Obj_vector_dim().

Referenced by FLA_Obj_extract_imag_part().

◆ FLA_Obj_extract_real_part()

void FLA_Obj_extract_real_part ( FLA_Obj  alpha,
FLA_Obj  beta 
)
66 {
67  FLA_Datatype datatype;
68  int m, inc_a, inc_b;
69 
70  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
72 
73  datatype = FLA_Obj_datatype( a );
74 
75  m = FLA_Obj_vector_dim( a );
76  inc_a = FLA_Obj_vector_inc( a );
77  inc_b = FLA_Obj_vector_inc( b );
78 
79  switch ( datatype )
80  {
81  case FLA_FLOAT:
82  {
83  float* buff_a = FLA_FLOAT_PTR( a );
84  float* buff_b = FLA_FLOAT_PTR( b );
85  bl1_scopy( m,
86  buff_a, inc_a,
87  buff_b, inc_b );
88  break;
89  }
90  case FLA_DOUBLE:
91  {
92  double* buff_a = FLA_DOUBLE_PTR( a );
93  double* buff_b = FLA_DOUBLE_PTR( b );
94  bl1_dcopy( m,
95  buff_a, inc_a,
96  buff_b, inc_b );
97  break;
98  }
99  case FLA_COMPLEX:
100  {
101  float* buff_a = FLA_FLOAT_PTR( a );
102  float* buff_b = FLA_FLOAT_PTR( b );
103  bl1_scopy( m,
104  buff_a, inc_a*2,
105  buff_b, inc_b );
106  break;
107  }
108  case FLA_DOUBLE_COMPLEX:
109  {
110  double* buff_a = FLA_DOUBLE_PTR( a );
111  double* buff_b = FLA_DOUBLE_PTR( b );
112  bl1_dcopy( m,
113  buff_a, inc_a*2,
114  buff_b, inc_b );
115  break;
116  }
117  }
118 }
FLA_Error FLA_Obj_extract_real_part_check(FLA_Obj a, FLA_Obj b)
Definition: FLA_Obj_extract_real_part_check.c:13

References bl1_dcopy(), bl1_scopy(), FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_extract_real_part_check(), FLA_Obj_vector_dim(), and FLA_Obj_vector_inc().

Referenced by FLA_QR_UT_piv_colnorm().

◆ FLA_Obj_extract_real_part_check()

FLA_Error FLA_Obj_extract_real_part_check ( FLA_Obj  alpha,
FLA_Obj  beta 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_floating_object( a );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_real_object( b );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( b );
24  FLA_Check_error_code( e_val );
25 
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_vector_dim( a, FLA_Obj_vector_dim( b ) );
30  FLA_Check_error_code( e_val );
31 
32  return FLA_SUCCESS;
33 }

References FLA_Check_floating_object(), FLA_Check_identical_object_precision(), FLA_Check_nonconstant_object(), FLA_Check_real_object(), FLA_Check_vector_dim(), and FLA_Obj_vector_dim().

Referenced by FLA_Obj_extract_real_part().

◆ FLA_Obj_extract_real_scalar()

void FLA_Obj_extract_real_scalar ( FLA_Obj  alpha,
double *  alpha_value 
)
36 {
37  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
38  FLA_Obj_extract_real_scalar_check( alpha, alpha_value );
39 
40  if ( FLA_Obj_is_single_precision( alpha ) )
41  *alpha_value = ( double ) *FLA_FLOAT_PTR( alpha );
42  else
43  *alpha_value = *FLA_DOUBLE_PTR( alpha );
44 }
FLA_Error FLA_Obj_extract_real_scalar_check(FLA_Obj alpha, double *alpha_value)
Definition: FLA_Obj_extract_real_scalar_check.c:13

References FLA_Check_error_level(), FLA_Obj_extract_real_scalar_check(), and FLA_Obj_is_single_precision().

◆ FLA_Obj_extract_real_scalar_check()

FLA_Error FLA_Obj_extract_real_scalar_check ( FLA_Obj  alpha,
double *  alpha_value 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_real_object( alpha );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_if_scalar( alpha );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_null_pointer( alpha_value );
24  FLA_Check_error_code( e_val );
25 
26  return FLA_SUCCESS;
27 }

References FLA_Check_if_scalar(), FLA_Check_null_pointer(), and FLA_Check_real_object().

Referenced by FLA_Obj_extract_real_scalar().

◆ FLA_Obj_flip_base()

FLA_Error FLA_Obj_flip_base ( FLA_Obj obj)
648 {
649  FLA_Error e_val;
650  dim_t temp;
651 
652  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
653  {
654  e_val = FLA_Check_null_pointer( obj );
655  FLA_Check_error_code( e_val );
656 
657  e_val = FLA_Check_null_pointer( obj->base );
658  FLA_Check_error_code( e_val );
659  }
660 
661  exchange( obj->base->m, obj->base->n, temp );
662  exchange( obj->base->cs, obj->base->rs, temp );
663  exchange( obj->base->m_inner, obj->base->n_inner, temp );
664  exchange( obj->base->m_index, obj->base->n_index, temp );
665 
666  return FLA_SUCCESS;
667 }

References FLA_Obj_view::base, FLA_Obj_struct::cs, FLA_Check_error_level(), FLA_Check_null_pointer(), FLA_Obj_struct::m, FLA_Obj_struct::m_index, FLA_Obj_struct::m_inner, FLA_Obj_struct::n, FLA_Obj_struct::n_index, FLA_Obj_struct::n_inner, FLA_Obj_struct::rs, and temp.

Referenced by FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_internal(), FLA_LQ_UT_form_Q(), FLA_Svd(), FLA_Svd_ext(), and FLA_Svd_ext_u_unb_var1().

◆ FLA_Obj_flip_view()

FLA_Error FLA_Obj_flip_view ( FLA_Obj obj)
670 {
671  FLA_Error e_val;
672  dim_t temp;
673 
674  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
675  {
676  e_val = FLA_Check_null_pointer( obj );
677  FLA_Check_error_code( e_val );
678  }
679 
680  exchange( obj->offm, obj->offn, temp );
681  exchange( obj->m, obj->n, temp );
682  exchange( obj->m_inner, obj->n_inner, temp );
683 
684  return FLA_SUCCESS;
685 }

References FLA_Check_error_level(), FLA_Check_null_pointer(), FLA_Obj_view::m, FLA_Obj_view::m_inner, FLA_Obj_view::n, FLA_Obj_view::n_inner, FLA_Obj_view::offm, FLA_Obj_view::offn, and temp.

Referenced by FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_internal(), FLA_LQ_UT_form_Q(), FLA_Svd(), FLA_Svd_ext(), and FLA_Svd_ext_u_unb_var1().

◆ FLA_Obj_free()

FLA_Error FLA_Obj_free ( FLA_Obj obj)
589 {
590  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
591  FLA_Obj_free_check( obj );
592 
593  if ( obj->base != NULL )
594  {
595 #ifdef FLA_ENABLE_SCC
596  ( FLA_Obj_elemtype( *obj ) == FLA_MATRIX ? FLA_free( obj->base->buffer ) : FLA_shfree( obj->base->buffer ) );
597 #else
598  //printf( "freeing buff %p\n", obj->base->buffer ); fflush( stdout );
599  FLA_free( obj->base->buffer );
600 #endif
601  //printf( "freeing base %p\n", obj->base ); fflush( stdout );
602  FLA_free( ( void * ) obj->base );
603  }
604 
605  obj->offm = 0;
606  obj->offn = 0;
607  obj->m = 0;
608  obj->n = 0;
609 
610  return FLA_SUCCESS;
611 }
void FLA_shfree(void *ptr)
Definition: FLA_Obj.c:27
FLA_Error FLA_Obj_free_check(FLA_Obj *obj)
Definition: FLA_Obj_free_check.c:13

References FLA_Obj_view::base, FLA_Obj_struct::buffer, FLA_Check_error_level(), FLA_free(), FLA_Obj_elemtype(), FLA_Obj_free_check(), FLA_shfree(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Apply_H2_UT_l_unb_var1(), FLA_Apply_H2_UT_r_unb_var1(), FLA_Apply_Q_blk_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_ofu_var4(), FLA_Bidiag_UT_u_opt_var4(), FLA_Bidiag_UT_u_opt_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_Bidiag_UT_u_unb_var4(), FLA_Bidiag_UT_u_unb_var5(), FLA_Bsvd_external(), FLA_Bsvdd_external(), FLA_Eig_gest(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Fill_with_random_dist(), FLA_Finalize_constants(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_ofu_var4(), FLA_Hess_UT_opt_var4(), FLA_Hess_UT_opt_var5(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_Hess_UT_unb_var4(), FLA_Hess_UT_unb_var5(), FLA_Hevd_compute_scaling(), FLA_Hevd_external(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT_macro_task(), FLA_LQ_UT_solve(), FLA_LU_piv_macro_task(), FLA_Lyap_h_opt_var1(), FLA_Lyap_h_opt_var2(), FLA_Lyap_h_opt_var3(), FLA_Lyap_h_opt_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_opt_var1(), FLA_Lyap_n_opt_var2(), FLA_Lyap_n_opt_var3(), FLA_Lyap_n_opt_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_Norm1(), FLA_Norm_inf(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT_form_Q(), FLA_QR_UT_macro_task(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_solve(), FLA_Random_spd_matrix(), FLA_Random_unitary_matrix(), FLA_Sort(), FLA_Svd_compute_scaling(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_external(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Svdd_external(), FLA_Tevd_external(), FLA_Tevdd_external(), FLA_Tevdr_external(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_ofu_var3(), FLA_Tridiag_UT_l_opt_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_l_unb_var3(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trmvsx_external(), FLA_Trsvsx_external(), FLA_UDdate_UT_update_rhs(), FLASH_Hermitianize(), FLASH_Max_elemwise_diff(), FLASH_Norm1(), FLASH_Obj_create_copy_of(), FLASH_Obj_free(), FLASH_Obj_free_hierarchy(), FLASH_Random_matrix(), FLASH_Set(), FLASH_Shift_diag(), and FLASH_Triangularize().

◆ FLA_Obj_free_buffer()

FLA_Error FLA_Obj_free_buffer ( FLA_Obj obj)
633 {
634  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
636 
637 #ifdef FLA_ENABLE_SCC
638  ( FLA_Obj_elemtype( *obj ) == FLA_MATRIX ? FLA_free( obj->base->buffer ) : FLA_shfree( obj->base->buffer ) );
639 #else
640  FLA_free( obj->base->buffer );
641 #endif
642  obj->base->buffer = NULL;
643 
644  return FLA_SUCCESS;
645 }
FLA_Error FLA_Obj_free_buffer_check(FLA_Obj *obj)
Definition: FLA_Obj_free_buffer_check.c:13

References FLA_Obj_view::base, FLA_Obj_struct::buffer, FLA_Check_error_level(), FLA_free(), FLA_Obj_elemtype(), FLA_Obj_free_buffer_check(), and FLA_shfree().

Referenced by FLA_Obj_free_buffer_task().

◆ FLA_Obj_free_buffer_check()

FLA_Error FLA_Obj_free_buffer_check ( FLA_Obj obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_null_pointer( obj->base );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Obj_view::base, and FLA_Check_null_pointer().

Referenced by FLA_Obj_free_buffer().

◆ FLA_Obj_free_buffer_task()

FLA_Error FLA_Obj_free_buffer_task ( FLA_Obj  obj,
void *  cntl 
)
14 {
15  return FLA_Obj_free_buffer( &obj );
16 }
FLA_Error FLA_Obj_free_buffer(FLA_Obj *obj)
Definition: FLA_Obj.c:632

References FLA_Obj_free_buffer().

Referenced by FLASH_Queue_exec_task(), and FLASH_Queue_init_tasks().

◆ FLA_Obj_free_check()

FLA_Error FLA_Obj_free_check ( FLA_Obj obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  // FLA_Free check base pointer; thus, this is not necessary.
21  //e_val = FLA_Check_null_pointer( obj->base );
22  //FLA_Check_error_code( e_val );
23 
24  return FLA_SUCCESS;
25 }

References FLA_Check_null_pointer().

Referenced by FLA_Obj_free().

◆ FLA_Obj_free_without_buffer()

FLA_Error FLA_Obj_free_without_buffer ( FLA_Obj obj)

◆ FLA_Obj_free_without_buffer_check()

FLA_Error FLA_Obj_free_without_buffer_check ( FLA_Obj obj)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( obj );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_null_pointer( obj->base );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Obj_view::base, and FLA_Check_null_pointer().

Referenced by FLA_Obj_free_without_buffer().

◆ FLA_Obj_fshow()

FLA_Error FLA_Obj_fshow ( FILE *  file,
char *  s1,
FLA_Obj  A,
char *  format,
char *  s2 
)
283 {
284  FLA_Datatype datatype;
285  dim_t i, j, m, n;
286  dim_t rs, cs;
287 
288  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
289  FLA_Obj_fshow_check( file, s1, A, format, s2 );
290 
291  datatype = FLA_Obj_datatype( A );
292  m = FLA_Obj_length( A );
293  n = FLA_Obj_width( A );
294  rs = FLA_Obj_row_stride( A );
295  cs = FLA_Obj_col_stride( A );
296 
297  fprintf( file, "%s\n", s1 );
298 
299  switch ( datatype ){
300 
301  case FLA_CONSTANT:
302  {
303  int* consti = FLA_INT_PTR( A );
304  float* consts = FLA_FLOAT_PTR( A );
305  double* constd = FLA_DOUBLE_PTR( A );
306  scomplex* constc = FLA_COMPLEX_PTR( A );
307  dcomplex* constz = FLA_DOUBLE_COMPLEX_PTR( A );
308 
309  fprintf( file, "int = %d\n", *consti );
310  fprintf( file, "float = %e\n", *consts );
311  fprintf( file, "double = %e\n", *constd );
312  fprintf( file, "scomplex = %e + %e\n", constc->real, constc->imag );
313  fprintf( file, "dcomplex = %e + %e\n", constz->real, constc->imag );
314 
315  break;
316  }
317 
318  case FLA_FLOAT:
319  {
320  float *buffer = ( float * ) FLA_FLOAT_PTR( A );
321 
322  for ( i = 0; i < m; i++ )
323  {
324  for ( j = 0; j < n; j++ )
325  {
326  fprintf( file, format, buffer[ j*cs + i*rs ] );
327  fprintf( file, " " );
328  }
329  fprintf( file, "\n" );
330  }
331 
332  break;
333  }
334 
335  case FLA_DOUBLE:
336  {
337  double *buffer = ( double * ) FLA_DOUBLE_PTR( A );
338 
339  for ( i = 0; i < m; i++ )
340  {
341  for ( j = 0; j < n; j++ )
342  {
343  fprintf( file, format, buffer[ j*cs + i*rs ] );
344  fprintf( file, " " );
345  }
346  fprintf( file, "\n" );
347  }
348 
349  break;
350  }
351 
352  case FLA_COMPLEX:
353  {
354  scomplex *buffer = ( scomplex * ) FLA_COMPLEX_PTR( A );
355 
356  for ( i = 0; i < m; i++ )
357  {
358  for ( j = 0; j < n; j++ )
359  {
360  //fprintf( file, format, buffer[ j*cs + i*rs ].real, buffer[ j*cs + i*rs ].imag );
361  //fprintf( file, " " );
362  fprintf( file, format, buffer[ j*cs + i*rs ].real );
363  fprintf( file, " + i * " );
364  fprintf( file, format, buffer[ j*cs + i*rs ].imag );
365  fprintf( file, " " );
366  }
367  fprintf( file, "\n" );
368  }
369 
370  break;
371  }
372 
373  case FLA_DOUBLE_COMPLEX:
374  {
375  dcomplex *buffer = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
376 
377  for ( i = 0; i < m; i++ )
378  {
379  for ( j = 0; j < n; j++ )
380  {
381  //fprintf( file, format, buffer[ j*cs + i*rs ].real, buffer[ j*cs + i*rs ].imag );
382  //fprintf( file, " " );
383  fprintf( file, format, buffer[ j*cs + i*rs ].real );
384  fprintf( file, " + i * " );
385  fprintf( file, format, buffer[ j*cs + i*rs ].imag );
386  fprintf( file, " " );
387  }
388  fprintf( file, "\n" );
389  }
390 
391  break;
392  }
393 
394  case FLA_INT:
395  {
396  int *buffer = ( int * ) FLA_INT_PTR( A );
397 
398  for ( i = 0; i < m; i++ )
399  {
400  for ( j = 0; j < n; j++ )
401  {
402  fprintf( file, format, buffer[ j*cs + i*rs ] );
403  fprintf( file, " " );
404  }
405  fprintf( file, "\n" );
406  }
407 
408  break;
409  }
410 
411  }
412 
413  fprintf( file, "%s\n", s2 );
414 
415  return FLA_SUCCESS;
416 }
FLA_Error FLA_Obj_fshow_check(FILE *file, char *s1, FLA_Obj obj, char *format, char *s2)
Definition: FLA_Obj_fshow_check.c:13

References FLA_Check_error_level(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_fshow_check(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_width(), i, imag, scomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_Obj_show().

◆ FLA_Obj_fshow_check()

FLA_Error FLA_Obj_fshow_check ( FILE *  file,
char *  s1,
FLA_Obj  obj,
char *  format,
char *  s2 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( file );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_null_pointer( s1 );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_object_scalar_elemtype( obj );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_valid_object_datatype( obj );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_null_pointer( format );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_null_pointer( s2 );
33  FLA_Check_error_code( e_val );
34 
35  return FLA_SUCCESS;
36 }
FLA_Error FLA_Check_object_scalar_elemtype(FLA_Obj A)
Definition: FLA_Check.c:858

References FLA_Check_null_pointer(), FLA_Check_object_scalar_elemtype(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Obj_fshow().

◆ FLA_Obj_ge()

FLA_Bool FLA_Obj_ge ( FLA_Obj  A,
FLA_Obj  B 
)
737 {
738  FLA_Datatype datatype_A;
739  FLA_Datatype datatype_B;
740  FLA_Datatype datatype;
741 
742  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
743  FLA_Obj_ge_check( A, B );
744 
745  datatype_A = FLA_Obj_datatype( A );
746  datatype_B = FLA_Obj_datatype( B );
747 
748  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
749  else datatype = datatype_B;
750 
751  switch ( datatype )
752  {
753  case FLA_CONSTANT:
754  {
755  // We require ALL floating-point fields to be the same.
756  float* buffs_A = ( float * ) FLA_FLOAT_PTR( A );
757  float* buffs_B = ( float * ) FLA_FLOAT_PTR( B );
758  double* buffd_A = ( double * ) FLA_DOUBLE_PTR( A );
759  double* buffd_B = ( double * ) FLA_DOUBLE_PTR( B );
760  scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
761  scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
762  dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
763  dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
764 
765  if ( !( *buffs_A >= *buffs_B &&
766  *buffd_A >= *buffd_B &&
767  buffc_A->real >= buffc_B->real &&
768  buffc_A->imag >= buffc_B->imag &&
769  buffz_A->real >= buffz_B->real &&
770  buffz_A->imag >= buffz_B->imag ) )
771  {
772  return FALSE;
773  }
774 
775  break;
776  }
777 
778  case FLA_INT:
779  {
780  int *buff_A = ( int * ) FLA_INT_PTR( A );
781  int *buff_B = ( int * ) FLA_INT_PTR( B );
782 
783  if ( !( *buff_A >= *buff_B ) ) return FALSE;
784 
785  break;
786  }
787 
788  case FLA_FLOAT:
789  {
790  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
791  float *buff_B = ( float * ) FLA_FLOAT_PTR( B );
792 
793  if ( !( *buff_A >= *buff_B ) ) return FALSE;
794 
795  break;
796  }
797 
798  case FLA_DOUBLE:
799  {
800  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
801  double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );
802 
803  if ( !( *buff_A >= *buff_B ) ) return FALSE;
804 
805  break;
806  }
807 
808  }
809 
810  return TRUE;
811 }
FLA_Error FLA_Obj_ge_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Obj_ge_check.c:13

References FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_ge_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

◆ FLA_Obj_ge_check()

FLA_Bool FLA_Obj_ge_check ( FLA_Obj  A,
FLA_Obj  B 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_comparable_object( A );
18  FLA_Check_error_code( e_val );
19 
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_if_scalar( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_if_scalar( B );
27  FLA_Check_error_code( e_val );
28 
29  return FLA_SUCCESS;
30 }
FLA_Error FLA_Check_comparable_object(FLA_Obj A)
Definition: FLA_Check.c:271

References FLA_Check_comparable_object(), FLA_Check_consistent_object_datatype(), and FLA_Check_if_scalar().

Referenced by FLA_Obj_ge().

◆ FLA_Obj_gt()

FLA_Bool FLA_Obj_gt ( FLA_Obj  A,
FLA_Obj  B 
)
659 {
660  FLA_Datatype datatype_A;
661  FLA_Datatype datatype_B;
662  FLA_Datatype datatype;
663 
664  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
665  FLA_Obj_gt_check( A, B );
666 
667  datatype_A = FLA_Obj_datatype( A );
668  datatype_B = FLA_Obj_datatype( B );
669 
670  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
671  else datatype = datatype_B;
672 
673  switch ( datatype )
674  {
675  case FLA_CONSTANT:
676  {
677  // We require ALL floating-point fields to be the same.
678  float* buffs_A = ( float * ) FLA_FLOAT_PTR( A );
679  float* buffs_B = ( float * ) FLA_FLOAT_PTR( B );
680  double* buffd_A = ( double * ) FLA_DOUBLE_PTR( A );
681  double* buffd_B = ( double * ) FLA_DOUBLE_PTR( B );
682  scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
683  scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
684  dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
685  dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
686 
687  if ( !( *buffs_A > *buffs_B &&
688  *buffd_A > *buffd_B &&
689  buffc_A->real > buffc_B->real &&
690  buffc_A->imag > buffc_B->imag &&
691  buffz_A->real > buffz_B->real &&
692  buffz_A->imag > buffz_B->imag ) )
693  {
694  return FALSE;
695  }
696 
697  break;
698  }
699 
700  case FLA_INT:
701  {
702  int *buff_A = ( int * ) FLA_INT_PTR( A );
703  int *buff_B = ( int * ) FLA_INT_PTR( B );
704 
705  if ( !( *buff_A > *buff_B ) ) return FALSE;
706 
707  break;
708  }
709 
710  case FLA_FLOAT:
711  {
712  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
713  float *buff_B = ( float * ) FLA_FLOAT_PTR( B );
714 
715  if ( !( *buff_A > *buff_B ) ) return FALSE;
716 
717  break;
718  }
719 
720  case FLA_DOUBLE:
721  {
722  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
723  double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );
724 
725  if ( !( *buff_A > *buff_B ) ) return FALSE;
726 
727  break;
728  }
729 
730  }
731 
732  return TRUE;
733 }
FLA_Error FLA_Obj_gt_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Obj_gt_check.c:13

References FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_gt_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_Hevd_compute_scaling(), FLA_Svd_compute_scaling(), and FLA_Svd_ext_u_unb_var1().

◆ FLA_Obj_gt_check()

FLA_Bool FLA_Obj_gt_check ( FLA_Obj  A,
FLA_Obj  B 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_comparable_object( A );
18  FLA_Check_error_code( e_val );
19 
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_if_scalar( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_if_scalar( B );
27  FLA_Check_error_code( e_val );
28 
29  return FLA_SUCCESS;
30 }

References FLA_Check_comparable_object(), FLA_Check_consistent_object_datatype(), and FLA_Check_if_scalar().

Referenced by FLA_Obj_gt().

◆ FLA_Obj_has_nan()

FLA_Bool FLA_Obj_has_nan ( FLA_Obj  A)
1003 {
1004  FLA_Datatype datatype;
1005  dim_t i, j, m, n, cs, rs;
1006 
1007  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
1008  FLA_Obj_has_nan_check( A );
1009 
1010  datatype = FLA_Obj_datatype( A );
1011  m = FLA_Obj_length( A );
1012  n = FLA_Obj_width( A );
1013  cs = FLA_Obj_col_stride( A );
1014  rs = FLA_Obj_row_stride( A );
1015 
1016  switch ( datatype )
1017  {
1018  case FLA_FLOAT:
1019  {
1020  float *buff = ( float * ) FLA_FLOAT_PTR( A );
1021 
1022  for ( j=0; j<n; ++j )
1023  for ( i=0; i<m; ++i )
1024  {
1025  float val = buff[i*cs + j*rs];
1026  if ( val != val ) return TRUE;
1027  }
1028  break;
1029  }
1030  case FLA_DOUBLE:
1031  {
1032  double *buff = ( double * ) FLA_DOUBLE_PTR( A );
1033 
1034  for ( j=0; j<n; ++j )
1035  for ( i=0; i<m; ++i )
1036  {
1037  double val = buff[i*cs + j*rs];
1038  if ( val != val ) return TRUE;
1039  }
1040  break;
1041  }
1042  case FLA_COMPLEX:
1043  {
1044  scomplex *buff = ( scomplex * ) FLA_COMPLEX_PTR( A );
1045 
1046  for ( j=0; j<n; ++j )
1047  for ( i=0; i<m; ++i )
1048  {
1049  scomplex val = buff[i*cs + j*rs];
1050  if ( val.real != val.real || val.imag != val.imag ) return TRUE;
1051  }
1052  break;
1053  }
1054  case FLA_DOUBLE_COMPLEX:
1055  {
1056  dcomplex *buff = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
1057 
1058  for ( j=0; j<n; ++j )
1059  for ( i=0; i<m; ++i )
1060  {
1061  dcomplex val = buff[i*cs + j*rs];
1062  if ( val.real != val.real || val.imag != val.imag ) return TRUE;
1063  }
1064  break;
1065  }
1066  }
1067 
1068  return FALSE;
1069 }
FLA_Error FLA_Obj_has_nan_check(FLA_Obj A)
Definition: FLA_Obj_has_nan_check.c:13

References FLA_Check_error_level(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_has_nan_check(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_width(), i, scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

◆ FLA_Obj_has_nan_check()

FLA_Error FLA_Obj_has_nan_check ( FLA_Obj  A)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_floating_object( A );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_nonconstant_object( A );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Check_floating_object(), and FLA_Check_nonconstant_object().

Referenced by FLA_Obj_has_nan().

◆ FLA_Obj_has_zero_dim()

FLA_Bool FLA_Obj_has_zero_dim ( FLA_Obj  A)
401 {
402  FLA_Bool r_val = FALSE;
403 
404  if ( FLA_Obj_length( A ) == 0 || FLA_Obj_width( A ) == 0 )
405  r_val = TRUE;
406 
407  return r_val;
408 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Amax_external(), FLA_Apply_G(), FLA_Apply_H2_UT(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_l_unb_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_H2_UT_r_unb_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_HUD_UT_lh_unb_var1(), FLA_Apply_pivots_unb_external(), FLA_Apply_Q_blk_external(), FLA_Asum_external(), FLA_Axpy_external(), FLA_Axpy_external_gpu(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bsvd_check(), FLA_Bsvd_external(), FLA_Bsvdd_external(), FLA_Check_pivot_index_range(), FLA_Chol_blk_external(), FLA_Chol_unb_external(), FLA_Conjugate(), FLA_Copy_external(), FLA_Copy_external_gpu(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Copyt_external(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Gemm_external(), FLA_Gemm_external_gpu(), FLA_Gemv_external(), FLA_Gemv_external_gpu(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemm_external(), FLA_Hemm_external_gpu(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k_external(), FLA_Her2k_external_gpu(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk_external(), FLA_Herk_external_gpu(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Invert(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LU_piv_blk_external(), FLA_LU_piv_unb_external(), FLA_Nrm2_external(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_SA_Apply_pivots(), FLA_SA_LU_unb(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scal_external_gpu(), FLA_Scalc_external(), FLA_Scalr_external(), FLA_Scalr_external_gpu(), FLA_Setr(), FLA_Svd_check(), FLA_Svd_ext_check(), FLA_Svd_external(), FLA_Svdd_external(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Sylv_unb_external(), FLA_Symm_external(), FLA_Symm_external_gpu(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr2k_external_gpu(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Syrk_external_gpu(), FLA_Tevd_external(), FLA_Tevdd_external(), FLA_Tevdr_external(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external(), FLA_Trmm_external_gpu(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trmvsx_external(), FLA_Trsm_external(), FLA_Trsm_external_gpu(), FLA_Trsmsx_external(), FLA_Trsv_external(), FLA_Trsv_external_gpu(), FLA_Trsvsx_external(), FLA_Ttmm_blk_external(), FLA_Ttmm_unb_external(), FLASH_Hermitianize(), FLASH_Max_elemwise_diff(), FLASH_Norm1(), FLASH_Random_matrix(), FLASH_Random_spd_matrix(), FLASH_Set(), FLASH_Shift_diag(), and FLASH_Triangularize().

◆ FLA_Obj_is()

FLA_Bool FLA_Obj_is ( FLA_Obj  A,
FLA_Obj  B 
)
461 {
462  FLA_Bool r_val = FALSE;
463 
464  if ( A.base == B.base )
465  r_val = TRUE;
466 
467  return r_val;
468 }

References FLA_Obj_view::base.

Referenced by FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Check_valid_isgn_value(), FLA_LQ_UT_form_Q(), and FLA_Tridiag_UT_form_Q().

◆ FLA_Obj_is_col_major()

FLA_Bool FLA_Obj_is_col_major ( FLA_Obj  A)
413 {
414  FLA_Bool r_val = FALSE;
415 
416  // A row stride of 1 indicates column-major storage.
417  if ( FLA_Obj_row_stride( A ) == 1 )
418  r_val = TRUE;
419 
420  return r_val;
421 }

References FLA_Obj_row_stride().

◆ FLA_Obj_is_complex()

FLA_Bool FLA_Obj_is_complex ( FLA_Obj  A)
325 {
326  FLA_Datatype datatype;
327  FLA_Bool r_val;
328 
329  datatype = FLA_Obj_datatype( A );
330 
331  if ( datatype == FLA_CONSTANT || datatype == FLA_COMPLEX || datatype == FLA_DOUBLE_COMPLEX )
332  r_val = TRUE;
333  else
334  r_val = FALSE;
335 
336  return r_val;
337 }

References FLA_Obj_datatype().

Referenced by FLA_Bidiag_UT_internal(), FLA_Check_conj1_trans_and_datatype(), FLA_Check_conj_and_datatype(), FLA_Check_identical_object_precision(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_LQ_UT_form_Q(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_Svd(), FLA_Svd_ext(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_external(), FLA_Svdd_external(), and FLA_Tevdd_external().

◆ FLA_Obj_is_conformal_to()

FLA_Bool FLA_Obj_is_conformal_to ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  B 
)
439 {
440  FLA_Bool r_val = TRUE;
441 
442  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
443  {
444  if ( FLA_Obj_length( A ) != FLA_Obj_length( B ) ||
445  FLA_Obj_width( A ) != FLA_Obj_width( B ) )
446  r_val = FALSE;
447  }
448  else
449  {
450  if ( FLA_Obj_width( A ) != FLA_Obj_length( B ) ||
451  FLA_Obj_length( A ) != FLA_Obj_width( B ) )
452  r_val = FALSE;
453  }
454 
455  return r_val;
456 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Axpy_external(), FLA_Copy_external(), and FLA_Swap_external().

◆ FLA_Obj_is_constant()

FLA_Bool FLA_Obj_is_constant ( FLA_Obj  A)
291 {
292  FLA_Datatype datatype;
293  FLA_Bool r_val;
294 
295  datatype = FLA_Obj_datatype( A );
296 
297  if ( datatype == FLA_CONSTANT )
298  r_val = TRUE;
299  else
300  r_val = FALSE;
301 
302  return r_val;
303 }

References FLA_Obj_datatype().

Referenced by FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Scal_external(), FLA_Scalc_external(), and FLA_Scalr_external().

◆ FLA_Obj_is_double_precision()

FLA_Bool FLA_Obj_is_double_precision ( FLA_Obj  A)
359 {
360  FLA_Datatype datatype;
361  FLA_Bool r_val;
362 
363  datatype = FLA_Obj_datatype( A );
364 
365  if ( datatype == FLA_CONSTANT || datatype == FLA_DOUBLE || datatype == FLA_DOUBLE_COMPLEX )
366  r_val = TRUE;
367  else
368  r_val = FALSE;
369 
370  return r_val;
371 }

References FLA_Obj_datatype().

Referenced by FLA_Bidiag_UT(), and FLA_Tridiag_UT().

◆ FLA_Obj_is_floating_point()

FLA_Bool FLA_Obj_is_floating_point ( FLA_Obj  A)
273 {
274  FLA_Datatype datatype;
275  FLA_Bool r_val;
276 
277  datatype = FLA_Obj_datatype( A );
278 
279  if ( datatype == FLA_FLOAT || datatype == FLA_COMPLEX ||
280  datatype == FLA_DOUBLE || datatype == FLA_DOUBLE_COMPLEX )
281  r_val = TRUE;
282  else
283  r_val = FALSE;
284 
285  return r_val;
286 }

References FLA_Obj_datatype().

◆ FLA_Obj_is_identical()

FLA_Bool FLA_Obj_is_identical ( FLA_Obj  A,
FLA_Obj  B 
)
471 {
472  FLA_Bool r_val = FALSE;
473 
474  // For LU_piv, if A and B are identical, we do not need copy.
475  // Elemtype should be checked as they can have the same buffer pointer
476  // but elemtype can be either scalar or matrix.
477  if ( A.base != NULL && A.base != NULL )
478  if ( ( A.base == B.base ) ||
479  ( A.base->elemtype == B.base->elemtype &&
480  A.base->datatype == B.base->datatype ) )
482  if ( A.m == B.m && A.n == B.n )
483  r_val = TRUE;
484 
485  return r_val;
486 }
void * FLA_Obj_buffer_at_view(FLA_Obj obj)
Definition: FLA_Query.c:215

References FLA_Obj_view::base, FLA_Obj_struct::datatype, FLA_Obj_struct::elemtype, FLA_Obj_buffer_at_view(), FLA_Obj_view::m, and FLA_Obj_view::n.

Referenced by FLA_Chol_solve(), FLA_LU_nopiv_solve(), and FLA_LU_piv_solve().

◆ FLA_Obj_is_int()

FLA_Bool FLA_Obj_is_int ( FLA_Obj  A)
256 {
257  FLA_Datatype datatype;
258  FLA_Bool r_val;
259 
260  datatype = FLA_Obj_datatype( A );
261 
262  if ( datatype == FLA_INT )
263  r_val = TRUE;
264  else
265  r_val = FALSE;
266 
267  return r_val;
268 }

References FLA_Obj_datatype().

◆ FLA_Obj_is_overlapped()

FLA_Bool FLA_Obj_is_overlapped ( FLA_Obj  A,
FLA_Obj  B 
)
489 {
490  FLA_Bool r_val = FALSE;
491 
492  // For form_Q, if A and B are not overlapped, we do not use in-place forming Q.
493  if ( A.base != NULL && A.base != NULL )
494  if ( ( A.base == B.base ) ||
495  ( A.base->elemtype == B.base->elemtype &&
496  A.base->datatype == B.base->datatype ) )
498  if ( ( ( A.offm <= B.offm && B.offm < ( A.offm + A.m ) ) &&
499  ( A.offn <= B.offn && B.offn < ( A.offn + A.n ) ) ) ||
500  ( ( B.offm <= A.offm && A.offm < ( B.offm + B.m ) ) &&
501  ( B.offn <= A.offn && A.offn < ( B.offn + B.n ) ) ) )
502  r_val = TRUE;
503 
504  return r_val;
505 }

References FLA_Obj_view::base, FLA_Obj_struct::datatype, FLA_Obj_struct::elemtype, FLA_Obj_buffer_at_view(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_QR_UT_form_Q().

◆ FLA_Obj_is_real()

FLA_Bool FLA_Obj_is_real ( FLA_Obj  A)
308 {
309  FLA_Datatype datatype;
310  FLA_Bool r_val;
311 
312  datatype = FLA_Obj_datatype( A );
313 
314  if ( datatype == FLA_CONSTANT || datatype == FLA_FLOAT || datatype == FLA_DOUBLE )
315  r_val = TRUE;
316  else
317  r_val = FALSE;
318 
319  return r_val;
320 }

References FLA_Obj_datatype().

Referenced by FLA_Apply_Q_check(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_UT_realify(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scale_diag_check(), FLA_Scalr_check(), FLA_Shift_diag_check(), FLA_Tridiag_apply_Q_check(), and FLA_Tridiag_UT_realify().

◆ FLA_Obj_is_row_major()

FLA_Bool FLA_Obj_is_row_major ( FLA_Obj  A)
426 {
427  FLA_Bool r_val = FALSE;
428 
429  // A column stride of 1 indicates row-major storage.
430  if ( FLA_Obj_col_stride( A ) == 1 )
431  r_val = TRUE;
432 
433  return r_val;
434 }

References FLA_Obj_col_stride().

◆ FLA_Obj_is_scalar()

FLA_Bool FLA_Obj_is_scalar ( FLA_Obj  A)
376 {
377  FLA_Bool r_val = FALSE;
378 
379  if ( FLA_Obj_length( A ) == 1 &&
380  FLA_Obj_width( A ) == 1 )
381  r_val = TRUE;
382 
383  return r_val;
384 }

References FLA_Obj_length(), and FLA_Obj_width().

◆ FLA_Obj_is_single_precision()

FLA_Bool FLA_Obj_is_single_precision ( FLA_Obj  A)
342 {
343  FLA_Datatype datatype;
344  FLA_Bool r_val;
345 
346  datatype = FLA_Obj_datatype( A );
347 
348  if ( datatype == FLA_CONSTANT || datatype == FLA_FLOAT || datatype == FLA_COMPLEX )
349  r_val = TRUE;
350  else
351  r_val = FALSE;
352 
353  return r_val;
354 }

References FLA_Obj_datatype().

Referenced by FLA_Obj_datatype_proj_to_complex(), FLA_Obj_datatype_proj_to_real(), FLA_Obj_extract_complex_scalar(), and FLA_Obj_extract_real_scalar().

◆ FLA_Obj_is_vector()

FLA_Bool FLA_Obj_is_vector ( FLA_Obj  A)
389 {
390  FLA_Bool r_val = FALSE;
391 
392  if ( FLA_Obj_length( A ) == 1 || FLA_Obj_width( A ) == 1 )
393  r_val = TRUE;
394 
395  return r_val;
396 }

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Axpy_check(), FLA_Copy_check(), and FLA_Swap_check().

◆ FLA_Obj_le()

FLA_Bool FLA_Obj_le ( FLA_Obj  A,
FLA_Obj  B 
)
891 {
892  FLA_Datatype datatype_A;
893  FLA_Datatype datatype_B;
894  FLA_Datatype datatype;
895 
896  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
897  FLA_Obj_le_check( A, B );
898 
899  datatype_A = FLA_Obj_datatype( A );
900  datatype_B = FLA_Obj_datatype( B );
901 
902  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
903  else datatype = datatype_B;
904 
905  switch ( datatype )
906  {
907  case FLA_CONSTANT:
908  {
909  // We require ALL floating-point fields to be the same.
910  float* buffs_A = ( float * ) FLA_FLOAT_PTR( A );
911  float* buffs_B = ( float * ) FLA_FLOAT_PTR( B );
912  double* buffd_A = ( double * ) FLA_DOUBLE_PTR( A );
913  double* buffd_B = ( double * ) FLA_DOUBLE_PTR( B );
914  scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
915  scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
916  dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
917  dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
918 
919  if ( !( *buffs_A <= *buffs_B &&
920  *buffd_A <= *buffd_B &&
921  buffc_A->real <= buffc_B->real &&
922  buffc_A->imag <= buffc_B->imag &&
923  buffz_A->real <= buffz_B->real &&
924  buffz_A->imag <= buffz_B->imag ) )
925  {
926  return FALSE;
927  }
928 
929  break;
930  }
931 
932  case FLA_INT:
933  {
934  int *buff_A = ( int * ) FLA_INT_PTR( A );
935  int *buff_B = ( int * ) FLA_INT_PTR( B );
936 
937  if ( !( *buff_A <= *buff_B ) ) return FALSE;
938 
939  break;
940  }
941 
942  case FLA_FLOAT:
943  {
944  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
945  float *buff_B = ( float * ) FLA_FLOAT_PTR( B );
946 
947  if ( !( *buff_A <= *buff_B ) ) return FALSE;
948 
949  break;
950  }
951 
952  case FLA_DOUBLE:
953  {
954  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
955  double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );
956 
957  if ( !( *buff_A <= *buff_B ) ) return FALSE;
958 
959  break;
960  }
961 
962  }
963 
964  return TRUE;
965 }
FLA_Error FLA_Obj_le_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Obj_le_check.c:13

References FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_le_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_QR_UT_piv_unb_var1().

◆ FLA_Obj_le_check()

FLA_Bool FLA_Obj_le_check ( FLA_Obj  A,
FLA_Obj  B 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_comparable_object( A );
18  FLA_Check_error_code( e_val );
19 
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_if_scalar( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_if_scalar( B );
27  FLA_Check_error_code( e_val );
28 
29  return FLA_SUCCESS;
30 }

References FLA_Check_comparable_object(), FLA_Check_consistent_object_datatype(), and FLA_Check_if_scalar().

Referenced by FLA_Obj_le().

◆ FLA_Obj_length()

dim_t FLA_Obj_length ( FLA_Obj  obj)
117 {
118  return obj.m;
119 }

References FLA_Obj_view::m.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var2(), FLA_Apply_CAQ_UT_inc_apply_panels(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_CAQ_UT_inc_internal_check(), FLA_Apply_diag_matrix(), FLA_Apply_G_check(), FLA_Apply_G_lf_blk_var3(), FLA_Apply_G_lf_opt_var1(), FLA_Apply_G_rf_asm_var1(), FLA_Apply_G_rf_asm_var2(), FLA_Apply_G_rf_asm_var3(), FLA_Apply_G_rf_asm_var3b(), FLA_Apply_G_rf_asm_var6(), FLA_Apply_G_rf_asm_var6b(), FLA_Apply_G_rf_asm_var9(), FLA_Apply_G_rf_asm_var9b(), FLA_Apply_G_rf_blk_var1(), FLA_Apply_G_rf_blk_var2(), FLA_Apply_G_rf_blk_var3(), FLA_Apply_G_rf_blk_var3b(), FLA_Apply_G_rf_blk_var6(), FLA_Apply_G_rf_blk_var6b(), FLA_Apply_G_rf_blk_var9(), FLA_Apply_G_rf_blk_var9b(), FLA_Apply_G_rf_opt_var1(), FLA_Apply_G_rf_opt_var2(), FLA_Apply_G_rf_opt_var3(), FLA_Apply_G_rf_opt_var6(), FLA_Apply_G_rf_opt_var9(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_pivots_ln_blk_var2(), FLA_Apply_pivots_macro_external(), FLA_Apply_pivots_macro_task(), FLA_Apply_pivots_rn_opt_var1(), FLA_Apply_pivots_rt_opt_var1(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var2(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var2(), FLA_Apply_Q_blk_external(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_create_workspace(), FLA_Apply_Q_UT_create_workspace_side(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_internal_check(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_create_workspace(), FLA_Apply_QUD_UT_inc_check(), FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_internal_check(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var3(), FLA_Axpy_blk_var1(), FLA_Axpy_blk_var2(), FLA_Axpy_external(), FLA_Axpy_external_gpu(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_external(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_check(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_check(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_check(), FLA_Bidiag_UT_extract_diagonals(), FLA_Bidiag_UT_extract_real_diagonals(), FLA_Bidiag_UT_form_U(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V(), FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_internal(), FLA_Bidiag_UT_l_extract_diagonals(), FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_l_scale_diagonals(), FLA_Bidiag_UT_realify(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_scale_diagonals(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_ofu_var4(), FLA_Bidiag_UT_u_opt_var4(), FLA_Bidiag_UT_u_opt_var5(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_ofu_var2(), FLA_Bidiag_UT_u_step_ofu_var3(), FLA_Bidiag_UT_u_step_ofu_var4(), FLA_Bidiag_UT_u_step_opt_var1(), FLA_Bidiag_UT_u_step_opt_var2(), FLA_Bidiag_UT_u_step_opt_var3(), FLA_Bidiag_UT_u_step_opt_var4(), FLA_Bidiag_UT_u_step_opt_var5(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_Bidiag_UT_u_unb_var4(), FLA_Bidiag_UT_u_unb_var5(), FLA_Bsvd_ext_check(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_external(), FLA_Bsvd_v_opt_var1(), FLA_Bsvd_v_opt_var2(), FLA_Bsvdd_external(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR2_UT_opt_var1(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_compute_blocks_per_part(), FLA_CAQR_UT_inc_copy_triangles(), FLA_CAQR_UT_inc_factorize_panels(), FLA_CAQR_UT_inc_init_structure(), FLA_Check_adjacent_objects_1x2(), FLA_Check_adjacent_objects_2x1(), FLA_Check_adjacent_objects_2x2(), FLA_Check_attempted_repart_2x1(), FLA_Check_attempted_repart_2x2(), FLA_Check_conformal_dims(), FLA_Check_householder_panel_dims(), FLA_Check_if_scalar(), FLA_Check_if_vector(), FLA_Check_matrix_matrix_dims(), FLA_Check_matrix_vector_dims(), FLA_Check_object_dims(), FLA_Check_object_length_equals(), FLA_Check_object_length_min(), FLA_Check_pivot_index_range(), FLA_Check_row_vector(), FLA_Check_square(), FLA_Check_submatrix_dims_and_offset(), FLA_Check_sylv_matrix_dims(), FLA_Chol_blk_external(), FLA_Chol_l_blk_var1(), FLA_Chol_l_blk_var2(), FLA_Chol_l_blk_var3(), FLA_Chol_l_opt_var1(), FLA_Chol_l_opt_var2(), FLA_Chol_l_opt_var3(), FLA_Chol_l_unb_var1(), FLA_Chol_l_unb_var2(), FLA_Chol_l_unb_var3(), FLA_Chol_u_blk_var1(), FLA_Chol_u_blk_var2(), FLA_Chol_u_blk_var3(), FLA_Chol_u_opt_var1(), FLA_Chol_u_opt_var2(), FLA_Chol_u_opt_var3(), FLA_Chol_u_unb_var1(), FLA_Chol_u_unb_var2(), FLA_Chol_u_unb_var3(), FLA_Chol_unb_external(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Copy_blk_var1(), FLA_Copy_blk_var2(), FLA_Copy_external(), FLA_Copy_external_gpu(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_external(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_determine_matrix_size(), FLA_Eig_gest_blk_external(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_opt_var3(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_il_unb_var3(), FLA_Eig_gest_il_unb_var4(), FLA_Eig_gest_il_unb_var5(), FLA_Eig_gest_internal_check(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var3(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_iu_unb_var3(), FLA_Eig_gest_iu_unb_var4(), FLA_Eig_gest_iu_unb_var5(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nl_unb_var4(), FLA_Eig_gest_nl_unb_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Eig_gest_nu_unb_var4(), FLA_Eig_gest_nu_unb_var5(), FLA_Eig_gest_unb_external(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_FS_incpiv_check(), FLA_Fused_Ahx_Ax_opt_var1(), FLA_Fused_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_opt_var1(), FLA_Fused_Her2_Ax_l_opt_var1(), FLA_Fused_Uhu_Yhu_Zhu_opt_var1(), FLA_Fused_UYx_ZVx_opt_var1(), FLA_Fused_UZhu_ZUhu_opt_var1(), FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_unb_var1(), FLA_Gemm_cc_unb_var2(), FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_unb_var1(), FLA_Gemm_ch_unb_var2(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_unb_var1(), FLA_Gemm_cn_unb_var2(), FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_unb_var1(), FLA_Gemm_ct_unb_var2(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_external(), FLA_Gemm_external_gpu(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hc_unb_var5(), FLA_Gemm_hc_unb_var6(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_hn_unb_var5(), FLA_Gemm_hn_unb_var6(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_unb_var1(), FLA_Gemm_nc_unb_var2(), FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_unb_var1(), FLA_Gemm_nh_unb_var2(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_unb_var1(), FLA_Gemm_nn_unb_var2(), FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_unb_var1(), FLA_Gemm_nt_unb_var2(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_tc_unb_var5(), FLA_Gemm_tc_unb_var6(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tn_unb_var5(), FLA_Gemm_tn_unb_var6(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_external(), FLA_Gemv_external_gpu(), FLA_Gemv_h_blk_var5(), FLA_Gemv_h_blk_var6(), FLA_Gemv_n_blk_var1(), FLA_Gemv_n_blk_var2(), FLA_Gemv_t_blk_var5(), FLA_Gemv_t_blk_var6(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemm_external(), FLA_Hemm_external_gpu(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var10(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_blk_var9(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var10(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_rl_unb_var9(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var10(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_blk_var9(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var10(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Hemm_ru_unb_var9(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k_external(), FLA_Her2k_external_gpu(), FLA_Her2k_lh_blk_var10(), FLA_Her2k_lh_blk_var9(), FLA_Her2k_lh_unb_var10(), FLA_Her2k_lh_unb_var9(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var10(), FLA_Her2k_uh_blk_var9(), FLA_Her2k_uh_unb_var10(), FLA_Her2k_uh_unb_var9(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk_external(), FLA_Herk_external_gpu(), FLA_Herk_lh_blk_var5(), FLA_Herk_lh_blk_var6(), FLA_Herk_lh_unb_var5(), FLA_Herk_lh_unb_var6(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var5(), FLA_Herk_uh_blk_var6(), FLA_Herk_uh_unb_var5(), FLA_Herk_uh_unb_var6(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_check(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_step_ofu_var2(), FLA_Hess_UT_step_ofu_var3(), FLA_Hess_UT_step_ofu_var4(), FLA_Hess_UT_step_opt_var1(), FLA_Hess_UT_step_opt_var2(), FLA_Hess_UT_step_opt_var3(), FLA_Hess_UT_step_opt_var4(), FLA_Hess_UT_step_opt_var5(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_Hevd_check(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_LQ_UT_check(), FLA_LQ_UT_create_T(), FLA_LQ_UT_opt_var1(), FLA_LQ_UT_opt_var2(), FLA_LQ_UT_solve(), FLA_LU_find_zero_on_diagonal(), FLA_LU_incpiv_check(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_nopiv_opt_var1(), FLA_LU_nopiv_opt_var2(), FLA_LU_nopiv_opt_var3(), FLA_LU_nopiv_opt_var4(), FLA_LU_nopiv_opt_var5(), FLA_LU_nopiv_unb_var1(), FLA_LU_nopiv_unb_var2(), FLA_LU_nopiv_unb_var3(), FLA_LU_nopiv_unb_var4(), FLA_LU_nopiv_unb_var5(), FLA_LU_piv_blk_external(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_macro_task(), FLA_LU_piv_opt_var3(), FLA_LU_piv_opt_var4(), FLA_LU_piv_opt_var5(), FLA_LU_piv_unb_external(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Lyap_h_blk_var1(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_h_blk_var4(), FLA_Lyap_h_opt_var1(), FLA_Lyap_h_opt_var2(), FLA_Lyap_h_opt_var3(), FLA_Lyap_h_opt_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_blk_var1(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_Lyap_n_blk_var4(), FLA_Lyap_n_opt_var1(), FLA_Lyap_n_opt_var2(), FLA_Lyap_n_opt_var3(), FLA_Lyap_n_opt_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_Max_abs_value(), FLA_Max_elemwise_diff(), FLA_Norm_frob(), FLA_Norm_inf(), FLA_Obj_attach_buffer(), FLA_Obj_attach_buffer_check(), FLA_Obj_create_buffer(), FLA_Obj_create_buffer_check(), FLA_Obj_create_conf_to(), FLA_Obj_equals(), FLA_Obj_fshow(), FLA_Obj_has_nan(), FLA_Obj_has_zero_dim(), FLA_Obj_is_conformal_to(), FLA_Obj_is_scalar(), FLA_Obj_is_vector(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_blk_var2(), FLA_QR2_UT_opt_var1(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT_blk_var1(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_form_Q_check(), FLA_QR_UT_form_Q_opt_var1(), FLA_QR_UT_macro_task(), FLA_QR_UT_opt_var1(), FLA_QR_UT_opt_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_recover_tau(), FLA_Random_matrix(), FLA_Random_tri_matrix(), FLA_SA_Apply_pivots(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_SA_LU_unb(), FLA_Scal_blk_var1(), FLA_Scal_blk_var2(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scal_external_gpu(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Scalr_external(), FLA_Scalr_external_gpu(), FLA_Set(), FLA_Set_diag(), FLA_Set_offdiag(), FLA_Setr(), FLA_Shift_diag(), FLA_Shift_pivots_to(), FLA_Sort_bsvd_ext(), FLA_Sort_evd(), FLA_Sort_svd(), FLA_Sort_svd_check(), FLA_Svd(), FLA_Svd_check(), FLA_Svd_ext(), FLA_Svd_ext_check(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_external(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Svdd_check(), FLA_Svdd_external(), FLA_Swap_external(), FLA_Swap_t_blk_var2(), FLA_Swapt_external(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hh_opt_var1(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_hn_opt_var1(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nh_opt_var1(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Sylv_nn_opt_var1(), FLA_Sylv_unb_external(), FLA_Symm_external(), FLA_Symm_external_gpu(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var10(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_blk_var9(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var10(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_rl_unb_var9(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var10(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_blk_var9(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var10(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Symm_ru_unb_var9(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr2k_external_gpu(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var10(), FLA_Syr2k_lt_blk_var9(), FLA_Syr2k_lt_unb_var10(), FLA_Syr2k_lt_unb_var9(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var10(), FLA_Syr2k_ut_blk_var9(), FLA_Syr2k_ut_unb_var10(), FLA_Syr2k_ut_unb_var9(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Syrk_external_gpu(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var5(), FLA_Syrk_lt_blk_var6(), FLA_Syrk_lt_unb_var5(), FLA_Syrk_lt_unb_var6(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var5(), FLA_Syrk_ut_blk_var6(), FLA_Syrk_ut_unb_var5(), FLA_Syrk_ut_unb_var6(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Transpose_blk_var1(), FLA_Transpose_blk_var2(), FLA_Transpose_unb_var1(), FLA_Transpose_unb_var2(), FLA_Triangularize(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_check(), FLA_Tridiag_form_Q_check(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_l_step_ofu_var2(), FLA_Tridiag_UT_l_step_ofu_var3(), FLA_Tridiag_UT_l_step_opt_var1(), FLA_Tridiag_UT_l_step_opt_var2(), FLA_Tridiag_UT_l_step_opt_var3(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Tridiag_UT_shift_U(), FLA_Tridiag_UT_u_realify_opt(), FLA_Trinv(), FLA_Trinv_blk_external(), FLA_Trinv_ln_blk_var1(), FLA_Trinv_ln_blk_var2(), FLA_Trinv_ln_blk_var3(), FLA_Trinv_ln_blk_var4(), FLA_Trinv_ln_opt_var1(), FLA_Trinv_ln_opt_var2(), FLA_Trinv_ln_opt_var3(), FLA_Trinv_ln_opt_var4(), FLA_Trinv_ln_unb_var1(), FLA_Trinv_ln_unb_var2(), FLA_Trinv_ln_unb_var3(), FLA_Trinv_ln_unb_var4(), FLA_Trinv_lu_blk_var1(), FLA_Trinv_lu_blk_var2(), FLA_Trinv_lu_blk_var3(), FLA_Trinv_lu_blk_var4(), FLA_Trinv_lu_opt_var1(), FLA_Trinv_lu_opt_var2(), FLA_Trinv_lu_opt_var3(), FLA_Trinv_lu_opt_var4(), FLA_Trinv_lu_unb_var1(), FLA_Trinv_lu_unb_var2(), FLA_Trinv_lu_unb_var3(), FLA_Trinv_lu_unb_var4(), FLA_Trinv_un_blk_var1(), FLA_Trinv_un_blk_var2(), FLA_Trinv_un_blk_var3(), FLA_Trinv_un_blk_var4(), FLA_Trinv_un_opt_var1(), FLA_Trinv_un_opt_var2(), FLA_Trinv_un_opt_var3(), FLA_Trinv_un_opt_var4(), FLA_Trinv_un_unb_var1(), FLA_Trinv_un_unb_var2(), FLA_Trinv_un_unb_var3(), FLA_Trinv_un_unb_var4(), FLA_Trinv_unb_external(), FLA_Trinv_uu_blk_var1(), FLA_Trinv_uu_blk_var2(), FLA_Trinv_uu_blk_var3(), FLA_Trinv_uu_blk_var4(), FLA_Trinv_uu_opt_var1(), FLA_Trinv_uu_opt_var2(), FLA_Trinv_uu_opt_var3(), FLA_Trinv_uu_opt_var4(), FLA_Trinv_uu_unb_var1(), FLA_Trinv_uu_unb_var2(), FLA_Trinv_uu_unb_var3(), FLA_Trinv_uu_unb_var4(), FLA_Trmm_external(), FLA_Trmm_external_gpu(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_blk_var3(), FLA_Trmm_rlc_blk_var4(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlc_unb_var3(), FLA_Trmm_rlc_unb_var4(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_blk_var3(), FLA_Trmm_rlh_blk_var4(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rlh_unb_var3(), FLA_Trmm_rlh_unb_var4(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_blk_var3(), FLA_Trmm_rln_blk_var4(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rln_unb_var3(), FLA_Trmm_rln_unb_var4(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_blk_var3(), FLA_Trmm_rlt_blk_var4(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_rlt_unb_var3(), FLA_Trmm_rlt_unb_var4(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_blk_var3(), FLA_Trmm_ruc_blk_var4(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruc_unb_var3(), FLA_Trmm_ruc_unb_var4(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_blk_var3(), FLA_Trmm_ruh_blk_var4(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_ruh_unb_var3(), FLA_Trmm_ruh_unb_var4(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_blk_var3(), FLA_Trmm_run_blk_var4(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_run_unb_var3(), FLA_Trmm_run_unb_var4(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_blk_var3(), FLA_Trmm_rut_blk_var4(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trmm_rut_unb_var3(), FLA_Trmm_rut_unb_var4(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsm_external_gpu(), FLA_Trsm_internal_check(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_blk_var3(), FLA_Trsm_rlc_blk_var4(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlc_unb_var3(), FLA_Trsm_rlc_unb_var4(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_blk_var3(), FLA_Trsm_rlh_blk_var4(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rlh_unb_var3(), FLA_Trsm_rlh_unb_var4(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_blk_var3(), FLA_Trsm_rln_blk_var4(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rln_unb_var3(), FLA_Trsm_rln_unb_var4(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_blk_var3(), FLA_Trsm_rlt_blk_var4(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_rlt_unb_var3(), FLA_Trsm_rlt_unb_var4(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_blk_var3(), FLA_Trsm_ruc_blk_var4(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruc_unb_var3(), FLA_Trsm_ruc_unb_var4(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_blk_var3(), FLA_Trsm_ruh_blk_var4(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_ruh_unb_var3(), FLA_Trsm_ruh_unb_var4(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_blk_var3(), FLA_Trsm_run_blk_var4(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_run_unb_var3(), FLA_Trsm_run_unb_var4(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_blk_var3(), FLA_Trsm_rut_blk_var4(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_Trsm_rut_unb_var3(), FLA_Trsm_rut_unb_var4(), FLA_Trsmsx_external(), FLA_Trsv_external(), FLA_Trsv_external_gpu(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_Ttmm(), FLA_Ttmm_blk_external(), FLA_Ttmm_l_blk_var1(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_l_blk_var3(), FLA_Ttmm_l_opt_var1(), FLA_Ttmm_l_opt_var2(), FLA_Ttmm_l_opt_var3(), FLA_Ttmm_l_unb_var1(), FLA_Ttmm_l_unb_var2(), FLA_Ttmm_l_unb_var3(), FLA_Ttmm_u_blk_var1(), FLA_Ttmm_u_blk_var2(), FLA_Ttmm_u_blk_var3(), FLA_Ttmm_u_opt_var1(), FLA_Ttmm_u_opt_var2(), FLA_Ttmm_u_opt_var3(), FLA_Ttmm_u_unb_var1(), FLA_Ttmm_u_unb_var2(), FLA_Ttmm_u_unb_var3(), FLA_Ttmm_unb_external(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_blk_var2(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_internal_check(), FLA_UDdate_UT_opt_var1(), FLASH_Apply_QUD_UT_inc_create_workspace(), FLASH_Axpy_flat_to_hier(), FLASH_Axpy_hier_to_flat(), FLASH_Axpy_hierarchy(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_CAQR_UT_inc_create_hier_matrices(), FLASH_CAQR_UT_inc_determine_alg_blocksize(), FLASH_Copy_flat_to_hier(), FLASH_Copy_hier_to_flat(), FLASH_Copy_hierarchy(), FLASH_FS_incpiv_aux1(), FLASH_FS_incpiv_aux2(), FLASH_LQ_UT_solve(), FLASH_LU_find_zero_on_diagonal(), FLASH_LU_incpiv_create_hier_matrices(), FLASH_LU_incpiv_determine_alg_blocksize(), FLASH_LU_incpiv_var1(), FLASH_LU_incpiv_var2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_create_hier_conf_to_flat(), FLASH_Obj_create_hier_conf_to_flat_ext(), FLASH_Obj_scalar_length(), FLASH_print_struct(), FLASH_print_struct_helper(), FLASH_QR_UT_inc_create_hier_matrices(), FLASH_QR_UT_inc_determine_alg_blocksize(), FLASH_Queue_check_gpu(), FLASH_Queue_exec_gpu(), FLASH_Queue_init_tasks(), FLASH_Queue_prefetch_block(), FLASH_Queue_push(), FLASH_Queue_read_gpu(), FLASH_Queue_update_cache(), FLASH_Queue_write_gpu(), FLASH_SA_LU(), FLASH_Task_free(), FLASH_Task_free_parallel(), FLASH_UDdate_UT_inc_create_hier_matrices(), and FLASH_UDdate_UT_inc_determine_alg_blocksize().

◆ FLA_Obj_lt()

FLA_Bool FLA_Obj_lt ( FLA_Obj  A,
FLA_Obj  B 
)
814 {
815  FLA_Datatype datatype_A;
816  FLA_Datatype datatype_B;
817  FLA_Datatype datatype;
818 
819  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
820  FLA_Obj_lt_check( A, B );
821 
822  datatype_A = FLA_Obj_datatype( A );
823  datatype_B = FLA_Obj_datatype( B );
824 
825  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
826  else datatype = datatype_B;
827 
828  switch ( datatype )
829  {
830  case FLA_CONSTANT:
831  {
832  // We require ALL floating-point fields to be the same.
833  float* buffs_A = ( float * ) FLA_FLOAT_PTR( A );
834  float* buffs_B = ( float * ) FLA_FLOAT_PTR( B );
835  double* buffd_A = ( double * ) FLA_DOUBLE_PTR( A );
836  double* buffd_B = ( double * ) FLA_DOUBLE_PTR( B );
837  scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
838  scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
839  dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
840  dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
841 
842  if ( !( *buffs_A < *buffs_B &&
843  *buffd_A < *buffd_B &&
844  buffc_A->real < buffc_B->real &&
845  buffc_A->imag < buffc_B->imag &&
846  buffz_A->real < buffz_B->real &&
847  buffz_A->imag < buffz_B->imag ) )
848  {
849  return FALSE;
850  }
851 
852  break;
853  }
854 
855  case FLA_INT:
856  {
857  int *buff_A = ( int * ) FLA_INT_PTR( A );
858  int *buff_B = ( int * ) FLA_INT_PTR( B );
859 
860  if ( !( *buff_A < *buff_B ) ) return FALSE;
861 
862  break;
863  }
864 
865  case FLA_FLOAT:
866  {
867  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
868  float *buff_B = ( float * ) FLA_FLOAT_PTR( B );
869 
870  if ( !( *buff_A < *buff_B ) ) return FALSE;
871 
872  break;
873  }
874 
875  case FLA_DOUBLE:
876  {
877  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
878  double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );
879 
880  if ( !( *buff_A < *buff_B ) ) return FALSE;
881 
882  break;
883  }
884 
885  }
886 
887  return TRUE;
888 }
FLA_Error FLA_Obj_lt_check(FLA_Obj A, FLA_Obj B)
Definition: FLA_Obj_lt_check.c:13

References FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_lt_check(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

Referenced by FLA_Hevd_compute_scaling(), FLA_QR_UT_piv_unb_var2(), FLA_Svd_compute_scaling(), and FLA_Svd_ext_u_unb_var1().

◆ FLA_Obj_lt_check()

FLA_Bool FLA_Obj_lt_check ( FLA_Obj  A,
FLA_Obj  B 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_comparable_object( A );
18  FLA_Check_error_code( e_val );
19 
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_if_scalar( A );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_if_scalar( B );
27  FLA_Check_error_code( e_val );
28 
29  return FLA_SUCCESS;
30 }

References FLA_Check_comparable_object(), FLA_Check_consistent_object_datatype(), and FLA_Check_if_scalar().

Referenced by FLA_Obj_lt().

◆ FLA_Obj_max_dim()

dim_t FLA_Obj_max_dim ( FLA_Obj  obj)

◆ FLA_Obj_min_dim()

dim_t FLA_Obj_min_dim ( FLA_Obj  obj)
154 {
155  return min( obj.m, obj.n );
156 }

References FLA_Obj_view::m, and FLA_Obj_view::n.

Referenced by FLA_Accum_T_UT_check(), FLA_Add_to_diag(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_H2_UT_piv_row(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Bidiag_blk_external(), FLA_Bidiag_check(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_check(), FLA_Bidiag_UT_create_T(), FLA_Bidiag_UT_extract_diagonals_check(), FLA_Bidiag_UT_extract_real_diagonals_check(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_realify_check(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_realify_unb(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_blk_var1(), FLA_Check_householder_panel_dims(), FLA_Check_valid_diag_offset(), FLA_Copyr_l_blk_var1(), FLA_Copyr_l_blk_var2(), FLA_Copyr_l_blk_var3(), FLA_Copyr_l_blk_var4(), FLA_Copyr_u_blk_var1(), FLA_Copyr_u_blk_var2(), FLA_Copyr_u_blk_var3(), FLA_Copyr_u_blk_var4(), FLA_determine_matrix_size(), FLA_Hess_UT_create_T(), FLA_Hess_UT_recover_tau_submatrix(), FLA_LQ_check(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_LQ_UT_create_T(), FLA_LQ_UT_internal_check(), FLA_LQ_UT_solve_check(), FLA_LQ_UT_unb_var1(), FLA_LQ_UT_unb_var2(), FLA_LU_find_zero_on_diagonal(), FLA_LU_piv_check(), FLA_LU_piv_solve_check(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_check(), FLA_QR_UT_blk_var1(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_copy_task(), FLA_QR_UT_create_T(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_internal_check(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau_submatrix(), FLA_QR_UT_solve_check(), FLA_QR_UT_unb_var1(), FLA_QR_UT_unb_var2(), FLA_Scalr_l_blk_var1(), FLA_Scalr_l_blk_var2(), FLA_Scalr_l_blk_var3(), FLA_Scalr_l_blk_var4(), FLA_Scalr_u_blk_var1(), FLA_Scalr_u_blk_var2(), FLA_Scalr_u_blk_var3(), FLA_Scalr_u_blk_var4(), FLA_Set_diagonal_matrix(), FLA_Set_diagonal_vector(), FLA_Svd(), FLA_Svd_check(), FLA_Svd_ext(), FLA_Svd_ext_check(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Svdd_check(), FLA_Tridiag_UT_create_T(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_LQ_UT_create_hier_matrices(), FLASH_LU_find_zero_on_diagonal(), FLASH_Obj_create_diag_panel(), and FLASH_QR_UT_create_hier_matrices().

◆ FLA_Obj_nullify()

FLA_Error FLA_Obj_nullify ( FLA_Obj obj)
42 {
43  // Nullify the fields in the view object.
44  obj->m = 0;
45  obj->n = 0;
46  obj->offm = 0;
47  obj->offn = 0;
48  obj->m_inner = 0;
49  obj->n_inner = 0;
50  obj->base = NULL;
51 
52  return FLA_SUCCESS;
53 }

References FLA_Obj_view::base, FLA_Obj_view::m, FLA_Obj_view::m_inner, FLA_Obj_view::n, FLA_Obj_view::n_inner, FLA_Obj_view::offm, and FLA_Obj_view::offn.

◆ FLA_Obj_num_elem_alloc()

dim_t FLA_Obj_num_elem_alloc ( FLA_Obj  obj)
205 {
206  return (obj.base)->n_elem_alloc;
207 }

References FLA_Obj_view::base.

Referenced by FLASH_Obj_free_hierarchy().

◆ FLA_Obj_row_offset()

dim_t FLA_Obj_row_offset ( FLA_Obj  obj)

◆ FLA_Obj_row_stride()

dim_t FLA_Obj_row_stride ( FLA_Obj  obj)
168 {
169  return (obj.base)->rs;
170 }

References FLA_Obj_view::base.

Referenced by FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Add_to_diag(), FLA_Apply_diag_matrix(), FLA_Apply_G_lf_blk_var3(), FLA_Apply_G_lf_opt_var1(), FLA_Apply_G_rf_asm_var1(), FLA_Apply_G_rf_asm_var2(), FLA_Apply_G_rf_asm_var3(), FLA_Apply_G_rf_asm_var3b(), FLA_Apply_G_rf_asm_var6(), FLA_Apply_G_rf_asm_var6b(), FLA_Apply_G_rf_asm_var9(), FLA_Apply_G_rf_asm_var9b(), FLA_Apply_G_rf_blk_var1(), FLA_Apply_G_rf_blk_var2(), FLA_Apply_G_rf_blk_var3(), FLA_Apply_G_rf_blk_var3b(), FLA_Apply_G_rf_blk_var6(), FLA_Apply_G_rf_blk_var6b(), FLA_Apply_G_rf_blk_var9(), FLA_Apply_G_rf_blk_var9b(), FLA_Apply_G_rf_opt_var1(), FLA_Apply_G_rf_opt_var2(), FLA_Apply_G_rf_opt_var3(), FLA_Apply_G_rf_opt_var6(), FLA_Apply_G_rf_opt_var9(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_pivots_ln_opt_var1(), FLA_Apply_pivots_lt_opt_var1(), FLA_Apply_pivots_rn_opt_var1(), FLA_Apply_pivots_rt_opt_var1(), FLA_Axpy_external(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Bidiag_UT(), FLA_Bidiag_UT_create_T(), FLA_Bidiag_UT_l_extract_diagonals(), FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_l_scale_diagonals(), FLA_Bidiag_UT_u_extract_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_scale_diagonals(), FLA_Bidiag_UT_u_step_ofu_var2(), FLA_Bidiag_UT_u_step_ofu_var3(), FLA_Bidiag_UT_u_step_ofu_var4(), FLA_Bidiag_UT_u_step_opt_var1(), FLA_Bidiag_UT_u_step_opt_var2(), FLA_Bidiag_UT_u_step_opt_var3(), FLA_Bidiag_UT_u_step_opt_var4(), FLA_Bidiag_UT_u_step_opt_var5(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_sinval_v_opt_var1(), FLA_Bsvd_v_opt_var1(), FLA_Bsvd_v_opt_var2(), FLA_CAQR2_UT_opt_var1(), FLA_CAQR_UT_inc_init_structure(), FLA_Check_col_storage(), FLA_Chol_l_opt_var1(), FLA_Chol_l_opt_var2(), FLA_Chol_l_opt_var3(), FLA_Chol_u_opt_var1(), FLA_Chol_u_opt_var2(), FLA_Chol_u_opt_var3(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Copy_external(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Copyt_external(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_opt_var3(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var3(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Fused_Ahx_Ax_opt_var1(), FLA_Fused_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_opt_var1(), FLA_Fused_Her2_Ax_l_opt_var1(), FLA_Fused_Uhu_Yhu_Zhu_opt_var1(), FLA_Fused_UYx_ZVx_opt_var1(), FLA_Fused_UZhu_ZUhu_opt_var1(), FLA_Gemm_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemm_external(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k_external(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk_external(), FLA_Hermitianize(), FLA_Hess_UT_create_T(), FLA_Hess_UT_step_ofu_var2(), FLA_Hess_UT_step_ofu_var3(), FLA_Hess_UT_step_ofu_var4(), FLA_Hess_UT_step_opt_var1(), FLA_Hess_UT_step_opt_var2(), FLA_Hess_UT_step_opt_var3(), FLA_Hess_UT_step_opt_var4(), FLA_Hess_UT_step_opt_var5(), FLA_Hevd_lv_unb_var1(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_LQ_UT_create_T(), FLA_LQ_UT_opt_var1(), FLA_LQ_UT_opt_var2(), FLA_LU_nopiv_opt_var1(), FLA_LU_nopiv_opt_var2(), FLA_LU_nopiv_opt_var3(), FLA_LU_nopiv_opt_var4(), FLA_LU_nopiv_opt_var5(), FLA_LU_piv_opt_var3(), FLA_LU_piv_opt_var4(), FLA_LU_piv_opt_var5(), FLA_Lyap_h_opt_var1(), FLA_Lyap_h_opt_var2(), FLA_Lyap_h_opt_var3(), FLA_Lyap_h_opt_var4(), FLA_Lyap_n_opt_var1(), FLA_Lyap_n_opt_var2(), FLA_Lyap_n_opt_var3(), FLA_Lyap_n_opt_var4(), FLA_Max_abs_value(), FLA_Max_abs_value_herm(), FLA_Max_elemwise_diff(), FLA_Norm_frob(), FLA_Obj_buffer_at_view(), FLA_Obj_create_conf_to(), FLA_Obj_equals(), FLA_Obj_fshow(), FLA_Obj_has_nan(), FLA_Obj_is_col_major(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_QR2_UT_opt_var1(), FLA_QR_UT_create_T(), FLA_QR_UT_form_Q_opt_var1(), FLA_QR_UT_opt_var1(), FLA_QR_UT_opt_var2(), FLA_Random_matrix(), FLA_Random_tri_matrix(), FLA_SA_LU_unb(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Scalr_external(), FLA_Set(), FLA_Set_diag(), FLA_Set_diagonal_matrix(), FLA_Set_diagonal_vector(), FLA_Set_offdiag(), FLA_Setr(), FLA_Shift_diag(), FLA_Sort_evd(), FLA_Sort_svd(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Sylv_hh_opt_var1(), FLA_Sylv_hn_opt_var1(), FLA_Sylv_nh_opt_var1(), FLA_Sylv_nn_opt_var1(), FLA_Symm_external(), FLA_Symmetrize(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k_external(), FLA_Syr_external(), FLA_Syrk_external(), FLA_Tevd_eigval_v_opt_var1(), FLA_Tevd_n_opt_var1(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Triangularize(), FLA_Tridiag_UT(), FLA_Tridiag_UT_create_T(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_l_step_ofu_var2(), FLA_Tridiag_UT_l_step_ofu_var3(), FLA_Tridiag_UT_l_step_opt_var1(), FLA_Tridiag_UT_l_step_opt_var2(), FLA_Tridiag_UT_l_step_opt_var3(), FLA_Tridiag_UT_shift_U(), FLA_Tridiag_UT_u_realify_opt(), FLA_Trinv_ln_opt_var1(), FLA_Trinv_ln_opt_var2(), FLA_Trinv_ln_opt_var3(), FLA_Trinv_ln_opt_var4(), FLA_Trinv_lu_opt_var1(), FLA_Trinv_lu_opt_var2(), FLA_Trinv_lu_opt_var3(), FLA_Trinv_lu_opt_var4(), FLA_Trinv_un_opt_var1(), FLA_Trinv_un_opt_var2(), FLA_Trinv_un_opt_var3(), FLA_Trinv_un_opt_var4(), FLA_Trinv_uu_opt_var1(), FLA_Trinv_uu_opt_var2(), FLA_Trinv_uu_opt_var3(), FLA_Trinv_uu_opt_var4(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), FLA_Trsv_external(), FLA_Ttmm_l_opt_var1(), FLA_Ttmm_l_opt_var2(), FLA_Ttmm_l_opt_var3(), FLA_Ttmm_u_opt_var1(), FLA_Ttmm_u_opt_var2(), FLA_Ttmm_u_opt_var3(), FLA_UDdate_UT_create_T(), FLA_UDdate_UT_opt_var1(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_base_scalar_length(), FLASH_Obj_base_scalar_width(), FLASH_Obj_show_hierarchy(), FLASH_print_struct(), and FLASH_print_struct_helper().

◆ FLA_Obj_set_imag_part()

void FLA_Obj_set_imag_part ( FLA_Obj  alpha,
FLA_Obj  beta 
)
230 {
231  dim_t m_B;
232  dim_t n_B;
233  dim_t rs_B;
234  dim_t cs_B;
235  dim_t i, j;
236 
237  m_B = FLA_Obj_length( B );
238  n_B = FLA_Obj_width( B );
239  rs_B = FLA_Obj_row_stride( B );
240  cs_B = FLA_Obj_col_stride( B );
241 
242  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
243  FLA_Obj_set_imag_part_check( alpha, B );
244 
245  if ( FLA_Obj_is_complex( B ) )
246  {
247  if ( FLA_Obj_datatype( B ) == FLA_COMPLEX )
248  {
249  float* buff_alpha = FLA_FLOAT_PTR( alpha );
250  scomplex* buff_B = FLA_COMPLEX_PTR( B );
251 
252  for ( j = 0; j < n_B; ++j )
253  {
254  for ( i = 0; i < m_B; ++i )
255  {
256  scomplex* beta11 = buff_B + rs_B * i + cs_B * j;
257 
258  beta11->imag = *buff_alpha;
259  }
260  }
261  }
262  else if ( FLA_Obj_datatype( B ) == FLA_DOUBLE_COMPLEX )
263  {
264  double* buff_alpha = FLA_DOUBLE_PTR( alpha );
265  dcomplex* buff_B = FLA_DOUBLE_COMPLEX_PTR( B );
266 
267  for ( j = 0; j < n_B; ++j )
268  {
269  for ( i = 0; i < m_B; ++i )
270  {
271  dcomplex* beta11 = buff_B + rs_B * i + cs_B * j;
272 
273  beta11->imag = *buff_alpha;
274  }
275  }
276  }
277  }
278 }
FLA_Error FLA_Obj_set_imag_part_check(FLA_Obj alpha, FLA_Obj beta)
Definition: FLA_Obj_set_imag_part_check.c:13

References FLA_Check_error_level(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_is_complex(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_set_imag_part_check(), FLA_Obj_width(), i, scomplex::imag, and dcomplex::imag.

Referenced by FLA_Bidiag_UT_l_realify_unb(), and FLA_Bidiag_UT_u_realify_unb().

◆ FLA_Obj_set_imag_part_check()

FLA_Error FLA_Obj_set_imag_part_check ( FLA_Obj  alpha,
FLA_Obj  beta 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_real_object( alpha );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( beta );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( beta );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_identical_object_precision( alpha, beta );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_if_scalar( alpha );
30  FLA_Check_error_code( e_val );
31 
32  return FLA_SUCCESS;
33 }

References FLA_Check_floating_object(), FLA_Check_identical_object_precision(), FLA_Check_if_scalar(), FLA_Check_nonconstant_object(), and FLA_Check_real_object().

Referenced by FLA_Obj_set_imag_part().

◆ FLA_Obj_set_real_part()

void FLA_Obj_set_real_part ( FLA_Obj  alpha,
FLA_Obj  beta 
)
177 {
178  dim_t m_B;
179  dim_t n_B;
180  dim_t rs_B;
181  dim_t cs_B;
182  dim_t i, j;
183 
184  m_B = FLA_Obj_length( B );
185  n_B = FLA_Obj_width( B );
186  rs_B = FLA_Obj_row_stride( B );
187  cs_B = FLA_Obj_col_stride( B );
188 
189  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
190  FLA_Obj_set_real_part_check( alpha, B );
191 
192  if ( FLA_Obj_is_complex( B ) )
193  {
194  if ( FLA_Obj_datatype( B ) == FLA_COMPLEX )
195  {
196  float* buff_alpha = FLA_FLOAT_PTR( alpha );
197  scomplex* buff_B = FLA_COMPLEX_PTR( B );
198 
199  for ( j = 0; j < n_B; ++j )
200  {
201  for ( i = 0; i < m_B; ++i )
202  {
203  scomplex* beta11 = buff_B + rs_B * i + cs_B * j;
204 
205  beta11->real = *buff_alpha;
206  }
207  }
208  }
209  else if ( FLA_Obj_datatype( B ) == FLA_DOUBLE_COMPLEX )
210  {
211  double* buff_alpha = FLA_DOUBLE_PTR( alpha );
212  dcomplex* buff_B = FLA_DOUBLE_COMPLEX_PTR( B );
213 
214  for ( j = 0; j < n_B; ++j )
215  {
216  for ( i = 0; i < m_B; ++i )
217  {
218  dcomplex* beta11 = buff_B + rs_B * i + cs_B * j;
219 
220  beta11->real = *buff_alpha;
221  }
222  }
223  }
224  }
225 }
FLA_Error FLA_Obj_set_real_part_check(FLA_Obj alpha, FLA_Obj beta)
Definition: FLA_Obj_set_real_part_check.c:13

References FLA_Check_error_level(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_is_complex(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_set_real_part_check(), FLA_Obj_width(), i, scomplex::real, and dcomplex::real.

◆ FLA_Obj_set_real_part_check()

FLA_Error FLA_Obj_set_real_part_check ( FLA_Obj  alpha,
FLA_Obj  beta 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_real_object( alpha );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_floating_object( beta );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_nonconstant_object( beta );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_identical_object_precision( alpha, beta );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_if_scalar( alpha );
30  FLA_Check_error_code( e_val );
31 
32  return FLA_SUCCESS;
33 }

References FLA_Check_floating_object(), FLA_Check_identical_object_precision(), FLA_Check_if_scalar(), FLA_Check_nonconstant_object(), and FLA_Check_real_object().

Referenced by FLA_Obj_set_real_part().

◆ FLA_Obj_show()

FLA_Error FLA_Obj_show ( char *  s1,
FLA_Obj  A,
char *  format,
char *  s2 
)
421 {
422  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
423  FLA_Obj_show_check( s1, A, format, s2 );
424 
425  return FLA_Obj_fshow( stdout, s1, A, format, s2 );
426 }
FLA_Error FLA_Obj_fshow(FILE *file, char *s1, FLA_Obj A, char *format, char *s2)
Definition: FLA_Misc.c:282
FLA_Error FLA_Obj_show_check(char *s1, FLA_Obj obj, char *format, char *s2)
Definition: FLA_Obj_show_check.c:13

References FLA_Check_error_level(), FLA_Obj_fshow(), and FLA_Obj_show_check().

Referenced by FLASH_Obj_show().

◆ FLA_Obj_show_check()

FLA_Error FLA_Obj_show_check ( char *  s1,
FLA_Obj  obj,
char *  format,
char *  s2 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_null_pointer( s1 );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_object_scalar_elemtype( obj );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_valid_object_datatype( obj );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_null_pointer( format );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_null_pointer( s2 );
30  FLA_Check_error_code( e_val );
31 
32  return FLA_SUCCESS;
33 }

References FLA_Check_null_pointer(), FLA_Check_object_scalar_elemtype(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Obj_show().

◆ FLA_Obj_structure()

FLA_Uplo FLA_Obj_structure ( FLA_Obj  obj)
131 {
132  return obj.base->uplo;
133 }
FLA_Uplo uplo
Definition: FLA_type_defs.h:141

References FLA_Obj_view::base, and FLA_Obj_struct::uplo.

Referenced by FLA_Apply_CAQ2_UT_internal(), and FLA_CAQR2_UT_internal().

◆ FLA_Obj_vector_dim()

dim_t FLA_Obj_vector_dim ( FLA_Obj  obj)
138 {
139  return ( obj.m == 1 ? obj.n
140  : obj.m );
141 }

References FLA_Obj_view::m, and FLA_Obj_view::n.

Referenced by FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Amax_external(), FLA_Apply_diag_matrix_check(), FLA_Apply_H2_UT_check(), FLA_Apply_pivots_ln_opt_var1(), FLA_Apply_pivots_lt_opt_var1(), FLA_Apply_pivots_rn_opt_var1(), FLA_Apply_pivots_rt_opt_var1(), FLA_Apply_pivots_unb_external(), FLA_Apply_Q_blk_external(), FLA_Asum_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_UT_realify_diagonals_check(), FLA_Bidiag_UT_realify_diagonals_opt(), FLA_Bidiag_UT_recover_tau_check(), FLA_Bsvd(), FLA_Bsvd_check(), FLA_Bsvd_compute_shift(), FLA_Bsvd_compute_tol_thresh(), FLA_Bsvd_create_workspace(), FLA_Bsvd_ext(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_external(), FLA_Bsvd_find_converged(), FLA_Bsvd_find_max(), FLA_Bsvd_francis_v_opt_var1(), FLA_Bsvd_sinval_v_opt_var1(), FLA_Bsvdd_external(), FLA_Check_equal_vector_dims(), FLA_Check_matrix_vector_dims(), FLA_Check_vector_dim(), FLA_Check_vector_dim_min(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Fill_with_random_dist(), FLA_Hess_UT_recover_tau_check(), FLA_Househ2_UT(), FLA_Househ2s_UT(), FLA_Househ3UD_UT(), FLA_Invert(), FLA_Norm1_tridiag(), FLA_Nrm2_external(), FLA_Obj_extract_imag_part(), FLA_Obj_extract_imag_part_check(), FLA_Obj_extract_real_part(), FLA_Obj_extract_real_part_check(), FLA_QR_form_Q_external(), FLA_Sort(), FLA_Sort_bsvd_ext(), FLA_Sort_evd_check(), FLA_Tevd_eigval_n_opt_var1(), FLA_Tevd_eigval_v_opt_var1(), FLA_Tevd_external(), FLA_Tevd_francis_n_opt_var1(), FLA_Tevd_francis_v_opt_var1(), FLA_Tevd_n_opt_var1(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_realify_subdiagonal_check(), FLA_Tridiag_UT_realify_subdiagonal_opt(), and FLA_Tridiag_UT_recover_tau_check().

◆ FLA_Obj_vector_inc()

dim_t FLA_Obj_vector_inc ( FLA_Obj  obj)
146 {
147  return ( obj.m == 1 ? (obj.base)->cs
148  : (obj.base)->rs );
149 }

References FLA_Obj_view::base, and FLA_Obj_view::m.

Referenced by FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Amax_external(), FLA_Apply_diag_matrix(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_pivots_ln_opt_var1(), FLA_Apply_pivots_lt_opt_var1(), FLA_Apply_pivots_rn_opt_var1(), FLA_Apply_pivots_rt_opt_var1(), FLA_Apply_pivots_unb_external(), FLA_Asum_external(), FLA_Bidiag_UT_l_extract_diagonals(), FLA_Bidiag_UT_l_extract_real_diagonals(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_realify_diagonals_opt(), FLA_Bidiag_UT_u_extract_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bsvd_compute_shift(), FLA_Bsvd_compute_tol_thresh(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_external(), FLA_Bsvd_find_converged(), FLA_Bsvd_find_max(), FLA_Bsvd_francis_v_opt_var1(), FLA_Bsvd_sinval_v_opt_var1(), FLA_Bsvd_v_opt_var1(), FLA_Bsvd_v_opt_var2(), FLA_Bsvdd_external(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Fused_Ahx_Ax_opt_var1(), FLA_Fused_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_opt_var1(), FLA_Fused_Her2_Ax_l_opt_var1(), FLA_Fused_Uhu_Yhu_Zhu_opt_var1(), FLA_Fused_UYx_ZVx_opt_var1(), FLA_Fused_UZhu_ZUhu_opt_var1(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her_external(), FLA_Herc_external(), FLA_Househ2_UT(), FLA_Househ2s_UT(), FLA_Househ3UD_UT(), FLA_Invert(), FLA_LQ_UT_opt_var1(), FLA_LU_piv_opt_var3(), FLA_LU_piv_opt_var4(), FLA_LU_piv_opt_var5(), FLA_Norm1_tridiag(), FLA_Nrm2_external(), FLA_Obj_extract_imag_part(), FLA_Obj_extract_real_part(), FLA_QR_UT_opt_var1(), FLA_Set_diagonal_matrix(), FLA_Set_diagonal_vector(), FLA_Sort(), FLA_Sort_bsvd_ext(), FLA_Sort_evd(), FLA_Sort_svd(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr_external(), FLA_Tevd_eigval_n_opt_var1(), FLA_Tevd_eigval_v_opt_var1(), FLA_Tevd_external(), FLA_Tevd_francis_n_opt_var1(), FLA_Tevd_francis_v_opt_var1(), FLA_Tevd_n_opt_var1(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Tridiag_UT_l_realify_opt(), FLA_Tridiag_UT_realify_subdiagonal_opt(), FLA_Tridiag_UT_u_realify_opt(), FLA_Trmv_external(), and FLA_Trsv_external().

◆ FLA_Obj_width()

dim_t FLA_Obj_width ( FLA_Obj  obj)
124 {
125  return obj.n;
126 }

References FLA_Obj_view::n.

Referenced by FLA_Accum_T_UT_fc_opt_var1(), FLA_Accum_T_UT_fr_opt_var1(), FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var3(), FLA_Apply_CAQ_UT_inc_internal_check(), FLA_Apply_diag_matrix(), FLA_Apply_G_check(), FLA_Apply_G_lf_blk_var3(), FLA_Apply_G_lf_opt_var1(), FLA_Apply_G_rf_asm_var1(), FLA_Apply_G_rf_asm_var2(), FLA_Apply_G_rf_asm_var3(), FLA_Apply_G_rf_asm_var3b(), FLA_Apply_G_rf_asm_var6(), FLA_Apply_G_rf_asm_var6b(), FLA_Apply_G_rf_asm_var9(), FLA_Apply_G_rf_asm_var9b(), FLA_Apply_G_rf_blk_var1(), FLA_Apply_G_rf_blk_var2(), FLA_Apply_G_rf_blk_var3(), FLA_Apply_G_rf_blk_var3b(), FLA_Apply_G_rf_blk_var6(), FLA_Apply_G_rf_blk_var6b(), FLA_Apply_G_rf_blk_var9(), FLA_Apply_G_rf_blk_var9b(), FLA_Apply_G_rf_opt_var1(), FLA_Apply_G_rf_opt_var2(), FLA_Apply_G_rf_opt_var3(), FLA_Apply_G_rf_opt_var6(), FLA_Apply_G_rf_opt_var9(), FLA_Apply_H2_UT_l_opt_var1(), FLA_Apply_H2_UT_piv_row(), FLA_Apply_H2_UT_r_opt_var1(), FLA_Apply_HUD_UT_l_opt_var1(), FLA_Apply_pivots_ln_blk_var1(), FLA_Apply_pivots_ln_opt_var1(), FLA_Apply_pivots_lt_opt_var1(), FLA_Apply_pivots_macro_external(), FLA_Apply_pivots_unb_external(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var3(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var3(), FLA_Apply_Q_blk_external(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_create_workspace_side(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_internal_check(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var2(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var2(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var2(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var2(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var2(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var2(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var2(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_QUD_UT_check(), FLA_Apply_QUD_UT_create_workspace(), FLA_Apply_QUD_UT_inc_check(), FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_internal_check(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var2(), FLA_Axpy_blk_var3(), FLA_Axpy_blk_var4(), FLA_Axpy_external(), FLA_Axpy_external_gpu(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), FLA_Axpyt_external(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_form_U_external(), FLA_Bidiag_form_V_external(), FLA_Bidiag_unb_external(), FLA_Bidiag_UT_extract_diagonals(), FLA_Bidiag_UT_extract_real_diagonals(), FLA_Bidiag_UT_form_U(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_V(), FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_internal(), FLA_Bidiag_UT_l_realify_opt(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_realify(), FLA_Bidiag_UT_recover_tau_check(), FLA_Bidiag_UT_scale_diagonals(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_extract_diagonals(), FLA_Bidiag_UT_u_extract_real_diagonals(), FLA_Bidiag_UT_u_ofu_var4(), FLA_Bidiag_UT_u_opt_var4(), FLA_Bidiag_UT_u_opt_var5(), FLA_Bidiag_UT_u_realify_opt(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_scale_diagonals(), FLA_Bidiag_UT_u_step_ofu_var2(), FLA_Bidiag_UT_u_step_ofu_var3(), FLA_Bidiag_UT_u_step_ofu_var4(), FLA_Bidiag_UT_u_step_opt_var1(), FLA_Bidiag_UT_u_step_opt_var2(), FLA_Bidiag_UT_u_step_opt_var3(), FLA_Bidiag_UT_u_step_opt_var4(), FLA_Bidiag_UT_u_step_opt_var5(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_Bidiag_UT_u_unb_var4(), FLA_Bidiag_UT_u_unb_var5(), FLA_Bsvd_ext_opt_var1(), FLA_Bsvd_sinval_v_opt_var1(), FLA_Bsvd_v_opt_var1(), FLA_Bsvd_v_opt_var2(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_internal_check(), FLA_CAQR2_UT_opt_var1(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_blk_var1(), FLA_CAQR_UT_inc_check(), FLA_CAQR_UT_inc_init_structure(), FLA_CAQR_UT_inc_solve_check(), FLA_Check_adjacent_objects_1x2(), FLA_Check_adjacent_objects_2x1(), FLA_Check_adjacent_objects_2x2(), FLA_Check_attempted_repart_1x2(), FLA_Check_attempted_repart_2x2(), FLA_Check_col_vector(), FLA_Check_conformal_dims(), FLA_Check_hess_indices(), FLA_Check_householder_panel_dims(), FLA_Check_if_scalar(), FLA_Check_if_vector(), FLA_Check_matrix_matrix_dims(), FLA_Check_matrix_vector_dims(), FLA_Check_object_dims(), FLA_Check_object_width_equals(), FLA_Check_object_width_min(), FLA_Check_square(), FLA_Check_submatrix_dims_and_offset(), FLA_Check_sylv_matrix_dims(), FLA_Conjugate(), FLA_Conjugate_r(), FLA_Copy_blk_var3(), FLA_Copy_blk_var4(), FLA_Copy_external(), FLA_Copy_external_gpu(), FLA_Copyr_external(), FLA_Copyrt_external(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), FLA_Copyt_external(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_determine_matrix_size(), FLA_Eig_gest_internal_check(), FLA_Fused_Ahx_Ax_opt_var1(), FLA_Fused_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Ax_opt_var1(), FLA_Fused_Gerc2_Ahx_Axpy_Ax_opt_var1(), FLA_Fused_Gerc2_opt_var1(), FLA_Fused_Uhu_Yhu_Zhu_opt_var1(), FLA_Fused_UYx_ZVx_opt_var1(), FLA_Fused_UZhu_ZUhu_opt_var1(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var3(), FLA_Gemm_cc_unb_var4(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_ch_unb_var5(), FLA_Gemm_ch_unb_var6(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var3(), FLA_Gemm_cn_unb_var4(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_ct_unb_var5(), FLA_Gemm_ct_unb_var6(), FLA_Gemm_external(), FLA_Gemm_external_gpu(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var3(), FLA_Gemm_hc_unb_var4(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var3(), FLA_Gemm_hn_unb_var4(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var3(), FLA_Gemm_nc_unb_var4(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nh_unb_var5(), FLA_Gemm_nh_unb_var6(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var3(), FLA_Gemm_nn_unb_var4(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_nt_unb_var5(), FLA_Gemm_nt_unb_var6(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var3(), FLA_Gemm_tc_unb_var4(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var3(), FLA_Gemm_tn_unb_var4(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemv_external(), FLA_Gemv_external_gpu(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemm_external(), FLA_Hemm_external_gpu(), FLA_Hemm_ll_blk_var10(), FLA_Hemm_ll_blk_var9(), FLA_Hemm_ll_unb_var10(), FLA_Hemm_ll_unb_var9(), FLA_Hemm_lu_blk_var10(), FLA_Hemm_lu_blk_var9(), FLA_Hemm_lu_unb_var10(), FLA_Hemm_lu_unb_var9(), FLA_Her2k_external(), FLA_Her2k_external_gpu(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var10(), FLA_Her2k_ln_blk_var9(), FLA_Her2k_ln_unb_var10(), FLA_Her2k_ln_unb_var9(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var10(), FLA_Her2k_un_blk_var9(), FLA_Her2k_un_unb_var10(), FLA_Her2k_un_unb_var9(), FLA_Herk_external(), FLA_Herk_external_gpu(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var5(), FLA_Herk_ln_blk_var6(), FLA_Herk_ln_unb_var5(), FLA_Herk_ln_unb_var6(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var5(), FLA_Herk_un_blk_var6(), FLA_Herk_un_unb_var5(), FLA_Herk_un_unb_var6(), FLA_Hermitianize(), FLA_Hess_blk_external(), FLA_Hess_unb_external(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_check(), FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Inv_scal_elemwise(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT_form_Q_check(), FLA_LQ_UT_macro_task(), FLA_LQ_UT_opt_var1(), FLA_LQ_UT_opt_var2(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_nopiv_opt_var1(), FLA_LU_nopiv_opt_var2(), FLA_LU_nopiv_opt_var3(), FLA_LU_nopiv_opt_var4(), FLA_LU_nopiv_opt_var5(), FLA_LU_nopiv_unb_var1(), FLA_LU_nopiv_unb_var2(), FLA_LU_nopiv_unb_var3(), FLA_LU_nopiv_unb_var4(), FLA_LU_nopiv_unb_var5(), FLA_LU_piv_blk_external(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_opt_var3(), FLA_LU_piv_opt_var4(), FLA_LU_piv_opt_var5(), FLA_LU_piv_unb_external(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Max_abs_value(), FLA_Max_abs_value_herm(), FLA_Max_elemwise_diff(), FLA_Norm1(), FLA_Norm_frob(), FLA_Obj_attach_buffer(), FLA_Obj_attach_buffer_check(), FLA_Obj_create_buffer(), FLA_Obj_create_buffer_check(), FLA_Obj_create_conf_to(), FLA_Obj_equals(), FLA_Obj_fshow(), FLA_Obj_has_nan(), FLA_Obj_has_zero_dim(), FLA_Obj_is_conformal_to(), FLA_Obj_is_scalar(), FLA_Obj_is_vector(), FLA_Obj_set_imag_part(), FLA_Obj_set_real_part(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_internal_check(), FLA_QR_blk_external(), FLA_QR_form_Q_external(), FLA_QR_unb_external(), FLA_QR_UT_blk_var1(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_create_T(), FLA_QR_UT_form_Q(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_form_Q_opt_var1(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_solve_check(), FLA_QR_UT_opt_var1(), FLA_QR_UT_opt_var2(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_check(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_colnorm_check(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_solve(), FLA_QR_UT_solve_check(), FLA_Random_matrix(), FLA_Random_tri_matrix(), FLA_SA_Apply_pivots(), FLA_Scal_blk_var3(), FLA_Scal_blk_var4(), FLA_Scal_elemwise(), FLA_Scal_external(), FLA_Scal_external_gpu(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Scalr_external(), FLA_Scalr_external_gpu(), FLA_Set(), FLA_Set_diag(), FLA_Set_offdiag(), FLA_Setr(), FLA_Shift_diag(), FLA_Shift_pivots_to(), FLA_Sort_bsvd_ext(), FLA_Svd(), FLA_Svd_check(), FLA_Svd_ext(), FLA_Svd_ext_check(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_external(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Svdd_check(), FLA_Svdd_external(), FLA_Swap_external(), FLA_Swap_t_blk_var1(), FLA_Swapt_external(), FLA_Sylv_hh_opt_var1(), FLA_Sylv_hn_opt_var1(), FLA_Sylv_nh_opt_var1(), FLA_Sylv_nn_opt_var1(), FLA_Sylv_unb_external(), FLA_Symm_external(), FLA_Symm_external_gpu(), FLA_Symm_ll_blk_var10(), FLA_Symm_ll_blk_var9(), FLA_Symm_ll_unb_var10(), FLA_Symm_ll_unb_var9(), FLA_Symm_lu_blk_var10(), FLA_Symm_lu_blk_var9(), FLA_Symm_lu_unb_var10(), FLA_Symm_lu_unb_var9(), FLA_Symmetrize(), FLA_Syr2k_external(), FLA_Syr2k_external_gpu(), FLA_Syr2k_ln_blk_var10(), FLA_Syr2k_ln_blk_var9(), FLA_Syr2k_ln_unb_var10(), FLA_Syr2k_ln_unb_var9(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var10(), FLA_Syr2k_un_blk_var9(), FLA_Syr2k_un_unb_var10(), FLA_Syr2k_un_unb_var9(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_external(), FLA_Syrk_external_gpu(), FLA_Syrk_ln_blk_var5(), FLA_Syrk_ln_blk_var6(), FLA_Syrk_ln_unb_var5(), FLA_Syrk_ln_unb_var6(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var5(), FLA_Syrk_un_blk_var6(), FLA_Syrk_un_unb_var5(), FLA_Syrk_un_unb_var6(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Tevd_eigval_n_opt_var1(), FLA_Tevd_eigval_v_opt_var1(), FLA_Tevd_n_opt_var1(), FLA_Tevd_v_opt_var1(), FLA_Tevd_v_opt_var2(), FLA_Tevdd_external(), FLA_Tevdr_external(), FLA_Triangularize(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_unb_external(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_shift_U(), FLA_Trmm_external(), FLA_Trmm_external_gpu(), FLA_Trmm_llc_blk_var3(), FLA_Trmm_llc_blk_var4(), FLA_Trmm_llc_unb_var3(), FLA_Trmm_llc_unb_var4(), FLA_Trmm_llh_blk_var3(), FLA_Trmm_llh_blk_var4(), FLA_Trmm_llh_unb_var3(), FLA_Trmm_llh_unb_var4(), FLA_Trmm_lln_blk_var3(), FLA_Trmm_lln_blk_var4(), FLA_Trmm_lln_unb_var3(), FLA_Trmm_lln_unb_var4(), FLA_Trmm_llt_blk_var3(), FLA_Trmm_llt_blk_var4(), FLA_Trmm_llt_unb_var3(), FLA_Trmm_llt_unb_var4(), FLA_Trmm_luc_blk_var3(), FLA_Trmm_luc_blk_var4(), FLA_Trmm_luc_unb_var3(), FLA_Trmm_luc_unb_var4(), FLA_Trmm_luh_blk_var3(), FLA_Trmm_luh_blk_var4(), FLA_Trmm_luh_unb_var3(), FLA_Trmm_luh_unb_var4(), FLA_Trmm_lun_blk_var3(), FLA_Trmm_lun_blk_var4(), FLA_Trmm_lun_unb_var3(), FLA_Trmm_lun_unb_var4(), FLA_Trmm_lut_blk_var3(), FLA_Trmm_lut_blk_var4(), FLA_Trmm_lut_unb_var3(), FLA_Trmm_lut_unb_var4(), FLA_Trmmsx_external(), FLA_Trsm_external(), FLA_Trsm_external_gpu(), FLA_Trsm_llc_blk_var3(), FLA_Trsm_llc_blk_var4(), FLA_Trsm_llc_unb_var3(), FLA_Trsm_llc_unb_var4(), FLA_Trsm_llh_blk_var3(), FLA_Trsm_llh_blk_var4(), FLA_Trsm_llh_unb_var3(), FLA_Trsm_llh_unb_var4(), FLA_Trsm_lln_blk_var3(), FLA_Trsm_lln_blk_var4(), FLA_Trsm_lln_unb_var3(), FLA_Trsm_lln_unb_var4(), FLA_Trsm_llt_blk_var3(), FLA_Trsm_llt_blk_var4(), FLA_Trsm_llt_unb_var3(), FLA_Trsm_llt_unb_var4(), FLA_Trsm_luc_blk_var3(), FLA_Trsm_luc_blk_var4(), FLA_Trsm_luc_unb_var3(), FLA_Trsm_luc_unb_var4(), FLA_Trsm_luh_blk_var3(), FLA_Trsm_luh_blk_var4(), FLA_Trsm_luh_unb_var3(), FLA_Trsm_luh_unb_var4(), FLA_Trsm_lun_blk_var3(), FLA_Trsm_lun_blk_var4(), FLA_Trsm_lun_unb_var3(), FLA_Trsm_lun_unb_var4(), FLA_Trsm_lut_blk_var3(), FLA_Trsm_lut_blk_var4(), FLA_Trsm_lut_unb_var3(), FLA_Trsm_lut_unb_var4(), FLA_Trsmsx_external(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_check(), FLA_UDdate_UT_create_T(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_internal_check(), FLA_UDdate_UT_update_rhs_check(), FLASH_Apply_CAQ_UT_inc_create_workspace(), FLASH_Apply_Q_UT_inc_create_workspace(), FLASH_Apply_QUD_UT_inc_create_workspace(), FLASH_Axpy_flat_to_hier(), FLASH_Axpy_hier_to_flat(), FLASH_Axpy_hierarchy(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_CAQR_UT_inc_create_hier_matrices(), FLASH_Copy_flat_to_hier(), FLASH_Copy_hier_to_flat(), FLASH_Copy_hierarchy(), FLASH_FS_incpiv_aux1(), FLASH_LU_incpiv_create_hier_matrices(), FLASH_LU_incpiv_var1(), FLASH_LU_incpiv_var2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_create_hier_conf_to_flat(), FLASH_Obj_create_hier_conf_to_flat_ext(), FLASH_Obj_create_hierarchy(), FLASH_Obj_scalar_width(), FLASH_Obj_show_hierarchy(), FLASH_print_struct(), FLASH_print_struct_helper(), FLASH_QR_UT_inc_create_hier_matrices(), FLASH_QR_UT_solve(), FLASH_Queue_check_gpu(), FLASH_Queue_exec_gpu(), FLASH_Queue_init_tasks(), FLASH_Queue_prefetch_block(), FLASH_Queue_push(), FLASH_Queue_read_gpu(), FLASH_Queue_update_cache(), FLASH_Queue_write_gpu(), FLASH_SA_FS(), FLASH_Task_free(), FLASH_Task_free_parallel(), FLASH_Trsm_piv(), and FLASH_UDdate_UT_inc_create_hier_matrices().

◆ FLA_Param_map_blis_to_flame_diag()

void FLA_Param_map_blis_to_flame_diag ( diag1_t  diag,
FLA_Diag flame_diag 
)
439 {
440  if ( bl1_is_nonunit_diag( diag ) )
441  *flame_diag = FLA_NONUNIT_DIAG;
442  else if ( bl1_is_unit_diag( diag ) )
443  *flame_diag = FLA_UNIT_DIAG;
444  else if ( bl1_is_zero_diag( diag ) )
445  *flame_diag = FLA_ZERO_DIAG;
446  else
447  FLA_Check_error_code( FLA_INVALID_DIAG );
448 }
int bl1_is_unit_diag(diag1_t diag)
Definition: bl1_is.c:78
int bl1_is_zero_diag(diag1_t diag)
Definition: bl1_is.c:83
int bl1_is_nonunit_diag(diag1_t diag)
Definition: bl1_is.c:73

References bl1_is_nonunit_diag(), bl1_is_unit_diag(), and bl1_is_zero_diag().

◆ FLA_Param_map_blis_to_flame_side()

void FLA_Param_map_blis_to_flame_side ( side1_t  side,
FLA_Side flame_side 
)
429 {
430  if ( bl1_is_left( side ) )
431  *flame_side = FLA_LEFT;
432  else if ( bl1_is_right( side ) )
433  *flame_side = FLA_RIGHT;
434  else
435  FLA_Check_error_code( FLA_INVALID_SIDE );
436 }
int bl1_is_right(side1_t side)
Definition: bl1_is.c:66
int bl1_is_left(side1_t side)
Definition: bl1_is.c:61

References bl1_is_left(), and bl1_is_right().

◆ FLA_Param_map_blis_to_flame_trans()

void FLA_Param_map_blis_to_flame_trans ( trans1_t  trans,
FLA_Trans flame_trans 
)
405 {
406  if ( bl1_is_notrans( trans ) )
407  *flame_trans = FLA_NO_TRANSPOSE;
408  else if ( bl1_is_trans( trans ) )
409  *flame_trans = FLA_TRANSPOSE;
410  else if ( bl1_is_conjnotrans( trans ) )
411  *flame_trans = FLA_CONJ_NO_TRANSPOSE;
412  else if ( bl1_is_conjtrans( trans ) )
413  *flame_trans = FLA_CONJ_TRANSPOSE;
414  else
415  FLA_Check_error_code( FLA_INVALID_TRANS );
416 }
int bl1_is_notrans(trans1_t trans)
Definition: bl1_is.c:15
int bl1_is_trans(trans1_t trans)
Definition: bl1_is.c:20
int bl1_is_conjtrans(trans1_t trans)
Definition: bl1_is.c:30
int bl1_is_conjnotrans(trans1_t trans)
Definition: bl1_is.c:25

References bl1_is_conjnotrans(), bl1_is_conjtrans(), bl1_is_notrans(), and bl1_is_trans().

◆ FLA_Param_map_blis_to_flame_uplo()

void FLA_Param_map_blis_to_flame_uplo ( uplo1_t  uplo,
FLA_Uplo flame_uplo 
)
419 {
420  if ( bl1_is_lower( uplo ) )
421  *flame_uplo = FLA_LOWER_TRIANGULAR;
422  else if ( bl1_is_upper( uplo ) )
423  *flame_uplo = FLA_UPPER_TRIANGULAR;
424  else
425  FLA_Check_error_code( FLA_INVALID_UPLO );
426 }
int bl1_is_upper(uplo1_t uplo)
Definition: bl1_is.c:54
int bl1_is_lower(uplo1_t uplo)
Definition: bl1_is.c:49

References bl1_is_lower(), and bl1_is_upper().

◆ FLA_Param_map_char_to_flame_diag()

void FLA_Param_map_char_to_flame_diag ( char *  diag,
FLA_Diag flame_diag 
)
487 {
488  if ( *diag == 'n' || *diag == 'N' )
489  *flame_diag = FLA_NONUNIT_DIAG;
490  else if ( *diag == 'u' || *diag == 'U' )
491  *flame_diag = FLA_UNIT_DIAG;
492  else
493  FLA_Check_error_code( FLA_INVALID_DIAG );
494 }

◆ FLA_Param_map_char_to_flame_direct()

void FLA_Param_map_char_to_flame_direct ( char *  direct,
FLA_Direct flame_direct 
)
497 {
498  if ( *direct == 'b' || *direct == 'B' )
499  *flame_direct = FLA_BACKWARD;
500  else if ( *direct == 'f' || *direct == 'F' )
501  *flame_direct = FLA_FORWARD;
502  else
503  FLA_Check_error_code( FLA_INVALID_DIRECT );
504 }

◆ FLA_Param_map_char_to_flame_inv()

void FLA_Param_map_char_to_flame_inv ( char *  inv,
FLA_Inv flame_inv 
)
517 {
518  if ( *inv == 'i' || *inv == 'I' )
519  *flame_inv = FLA_INVERSE;
520  else if ( *inv == 'n' || *inv == 'N' )
521  *flame_inv = FLA_NO_INVERSE;
522  else
523  FLA_Check_error_code( FLA_INVALID_INVERSE );
524 }

◆ FLA_Param_map_char_to_flame_side()

void FLA_Param_map_char_to_flame_side ( char *  side,
FLA_Side flame_side 
)
477 {
478  if ( *side == 'l' || *side == 'L' )
479  *flame_side = FLA_LEFT;
480  else if ( *side == 'r' || *side == 'R' )
481  *flame_side = FLA_RIGHT;
482  else
483  FLA_Check_error_code( FLA_INVALID_SIDE );
484 }

◆ FLA_Param_map_char_to_flame_storev()

void FLA_Param_map_char_to_flame_storev ( char *  storev,
FLA_Direct flame_storev 
)
507 {
508  if ( *storev == 'c' || *storev == 'C' )
509  *flame_storev = FLA_COLUMNWISE;
510  else if ( *storev == 'r' || *storev == 'R' )
511  *flame_storev = FLA_ROWWISE;
512  else
513  FLA_Check_error_code( FLA_INVALID_STOREV );
514 }

◆ FLA_Param_map_char_to_flame_trans()

void FLA_Param_map_char_to_flame_trans ( char *  trans,
FLA_Trans flame_trans 
)
453 {
454  if ( *trans == 'n' || *trans == 'N' )
455  *flame_trans = FLA_NO_TRANSPOSE;
456  else if ( *trans == 't' || *trans == 'T' )
457  *flame_trans = FLA_TRANSPOSE;
458  else if ( *trans == 'c' || *trans == 'C' )
459  *flame_trans = FLA_CONJ_NO_TRANSPOSE;
460  else if ( *trans == 'h' || *trans == 'H' )
461  *flame_trans = FLA_CONJ_TRANSPOSE;
462  else
463  FLA_Check_error_code( FLA_INVALID_TRANS );
464 }

◆ FLA_Param_map_char_to_flame_uplo()

void FLA_Param_map_char_to_flame_uplo ( char *  uplo,
FLA_Uplo flame_uplo 
)
467 {
468  if ( *uplo == 'l' || *uplo == 'L' )
469  *flame_uplo = FLA_LOWER_TRIANGULAR;
470  else if ( *uplo == 'u' || *uplo == 'U' )
471  *flame_uplo = FLA_UPPER_TRIANGULAR;
472  else
473  FLA_Check_error_code( FLA_INVALID_UPLO );
474 }

◆ FLA_Param_map_flame_to_blis_conj()

void FLA_Param_map_flame_to_blis_conj ( FLA_Conj  conj,
conj1_t blis_conj 
)
270 {
271  if ( conj == FLA_NO_CONJUGATE )
272  {
273  *blis_conj = BLIS1_NO_CONJUGATE;
274  }
275  else if ( conj == FLA_CONJUGATE )
276  {
277  *blis_conj = BLIS1_CONJUGATE;
278  }
279  else
280  {
281  FLA_Check_error_code( FLA_INVALID_CONJ );
282  }
283 }
@ BLIS1_CONJUGATE
Definition: blis_type_defs.h:82
@ BLIS1_NO_CONJUGATE
Definition: blis_type_defs.h:81

References BLIS1_CONJUGATE, and BLIS1_NO_CONJUGATE.

Referenced by FLA_Apply_diag_matrix(), FLA_Dot2cs_external(), FLA_Dot2s_external(), FLA_Dot_external(), FLA_Dotc_external(), FLA_Dotcs_external(), FLA_Dots_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her_external(), FLA_Herc_external(), FLA_Hermitianize(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Invert(), FLA_Scal_external(), FLA_Scalc_external(), FLA_Scale_diag(), FLA_Shift_diag(), and FLA_Symmetrize().

◆ FLA_Param_map_flame_to_blis_diag()

void FLA_Param_map_flame_to_blis_diag ( FLA_Diag  diag,
diag1_t blis_diag 
)
318 {
319  if ( diag == FLA_NONUNIT_DIAG )
320  {
321  *blis_diag = BLIS1_NONUNIT_DIAG;
322  }
323  else if ( diag == FLA_UNIT_DIAG )
324  {
325  *blis_diag = BLIS1_UNIT_DIAG;
326  }
327  else
328  {
329  FLA_Check_error_code( FLA_INVALID_DIAG );
330  }
331 }
@ BLIS1_UNIT_DIAG
Definition: blis_type_defs.h:75
@ BLIS1_NONUNIT_DIAG
Definition: blis_type_defs.h:74

References BLIS1_NONUNIT_DIAG, and BLIS1_UNIT_DIAG.

Referenced by FLA_Random_tri_matrix(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), and FLA_Trsv_external().

◆ FLA_Param_map_flame_to_blis_side()

void FLA_Param_map_flame_to_blis_side ( FLA_Uplo  side,
side1_t blis_side 
)
302 {
303  if ( side == FLA_LEFT )
304  {
305  *blis_side = BLIS1_LEFT;
306  }
307  else if ( side == FLA_RIGHT )
308  {
309  *blis_side = BLIS1_RIGHT;
310  }
311  else
312  {
313  FLA_Check_error_code( FLA_INVALID_SIDE );
314  }
315 }
@ BLIS1_RIGHT
Definition: blis_type_defs.h:69
@ BLIS1_LEFT
Definition: blis_type_defs.h:68

References BLIS1_LEFT, and BLIS1_RIGHT.

Referenced by FLA_Apply_diag_matrix(), FLA_Hemm_external(), FLA_Symm_external(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trsm_external(), and FLA_Trsmsx_external().

◆ FLA_Param_map_flame_to_blis_trans()

void FLA_Param_map_flame_to_blis_trans ( FLA_Trans  trans,
trans1_t blis_trans 
)
246 {
247  if ( trans == FLA_NO_TRANSPOSE )
248  {
249  *blis_trans = BLIS1_NO_TRANSPOSE;
250  }
251  else if ( trans == FLA_TRANSPOSE )
252  {
253  *blis_trans = BLIS1_TRANSPOSE;
254  }
255  else if ( trans == FLA_CONJ_NO_TRANSPOSE )
256  {
257  *blis_trans = BLIS1_CONJ_NO_TRANSPOSE;
258  }
259  else if ( trans == FLA_CONJ_TRANSPOSE )
260  {
261  *blis_trans = BLIS1_CONJ_TRANSPOSE;
262  }
263  else
264  {
265  FLA_Check_error_code( FLA_INVALID_TRANS );
266  }
267 }
@ BLIS1_NO_TRANSPOSE
Definition: blis_type_defs.h:54
@ BLIS1_CONJ_TRANSPOSE
Definition: blis_type_defs.h:57
@ BLIS1_TRANSPOSE
Definition: blis_type_defs.h:55
@ BLIS1_CONJ_NO_TRANSPOSE
Definition: blis_type_defs.h:56

References BLIS1_CONJ_NO_TRANSPOSE, BLIS1_CONJ_TRANSPOSE, BLIS1_NO_TRANSPOSE, and BLIS1_TRANSPOSE.

Referenced by FLA_Axpy_external(), FLA_Axpyrt_external(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Copy_external(), FLA_Copyrt_external(), FLA_Copyt_external(), FLA_Gemm_external(), FLA_Gemv_external(), FLA_Gemvc_external(), FLA_Her2k_external(), FLA_Herk_external(), FLA_Inv_scal_elemwise(), FLA_Scal_elemwise(), FLA_Swap_external(), FLA_Swapt_external(), FLA_Syr2k_external(), FLA_Syrk_external(), FLA_Trmm_external(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trsm_external(), FLA_Trsmsx_external(), and FLA_Trsv_external().

◆ FLA_Param_map_flame_to_blis_uplo()

void FLA_Param_map_flame_to_blis_uplo ( FLA_Uplo  uplo,
uplo1_t blis_uplo 
)

◆ FLA_Param_map_flame_to_netlib_diag()

void FLA_Param_map_flame_to_netlib_diag ( FLA_Diag  diag,
void *  blas_diag 
)
96 {
97  if ( diag == FLA_NONUNIT_DIAG )
98  {
99 #ifdef FLA_ENABLE_CBLAS_INTERFACES
100  *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasNonUnit;
101 #else
102  *( ( char* ) blas_diag ) = 'N';
103 #endif
104  }
105  else if ( diag == FLA_UNIT_DIAG )
106  {
107 #ifdef FLA_ENABLE_CBLAS_INTERFACES
108  *( ( enum CBLAS_DIAG* ) blas_diag ) = CblasUnit;
109 #else
110  *( ( char* ) blas_diag ) = 'U';
111 #endif
112  }
113  else
114  {
115  FLA_Check_error_code( FLA_INVALID_DIAG );
116  }
117 }
CBLAS_DIAG
Definition: blis_prototypes_cblas.h:20
@ CblasUnit
Definition: blis_prototypes_cblas.h:20
@ CblasNonUnit
Definition: blis_prototypes_cblas.h:20

References CblasNonUnit, and CblasUnit.

Referenced by FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external_gpu(), FLA_Trsm_external_gpu(), and FLA_Trsv_external_gpu().

◆ FLA_Param_map_flame_to_netlib_direct()

void FLA_Param_map_flame_to_netlib_direct ( FLA_Direct  direct,
void *  lapack_direct 
)
120 {
121  if ( direct == FLA_FORWARD )
122  {
123  *( ( char* ) lapack_direct ) = 'F';
124  }
125  else if ( direct == FLA_BACKWARD )
126  {
127  *( ( char* ) lapack_direct ) = 'B';
128  }
129  else
130  {
131  FLA_Check_error_code( FLA_INVALID_DIRECT );
132  }
133 }

◆ FLA_Param_map_flame_to_netlib_evd_type()

void FLA_Param_map_flame_to_netlib_evd_type ( FLA_Evd_type  evd_type,
void *  lapack_evd_type 
)
152 {
153  if ( evd_type == FLA_EVD_WITHOUT_VECTORS )
154  {
155  *( ( char* ) lapack_evd_type ) = 'N';
156  }
157  else if ( evd_type == FLA_EVD_WITH_VECTORS )
158  {
159  *( ( char* ) lapack_evd_type ) = 'V';
160  }
161  else if ( evd_type == FLA_EVD_OF_TRIDIAG_WITH_VECTORS )
162  {
163  *( ( char* ) lapack_evd_type ) = 'I';
164  }
165  else
166  {
167  FLA_Check_error_code( FLA_INVALID_EVD_TYPE );
168  }
169 }

Referenced by FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Tevd_external(), FLA_Tevdd_external(), and FLA_Tevdr_external().

◆ FLA_Param_map_flame_to_netlib_machval()

void FLA_Param_map_flame_to_netlib_machval ( FLA_Machval  machval,
void *  blas_machval 
)
196 {
197  if ( machval == FLA_MACH_EPS )
198  {
199  *( ( char* ) blas_machval ) = 'E';
200  }
201  else if ( machval == FLA_MACH_SFMIN )
202  {
203  *( ( char* ) blas_machval ) = 'S';
204  }
205  else if ( machval == FLA_MACH_BASE )
206  {
207  *( ( char* ) blas_machval ) = 'B';
208  }
209  else if ( machval == FLA_MACH_PREC )
210  {
211  *( ( char* ) blas_machval ) = 'P';
212  }
213  else if ( machval == FLA_MACH_NDIGMANT )
214  {
215  *( ( char* ) blas_machval ) = 'N';
216  }
217  else if ( machval == FLA_MACH_RND )
218  {
219  *( ( char* ) blas_machval ) = 'R';
220  }
221  else if ( machval == FLA_MACH_EMIN )
222  {
223  *( ( char* ) blas_machval ) = 'M';
224  }
225  else if ( machval == FLA_MACH_RMIN )
226  {
227  *( ( char* ) blas_machval ) = 'U';
228  }
229  else if ( machval == FLA_MACH_EMAX )
230  {
231  *( ( char* ) blas_machval ) = 'L';
232  }
233  else if ( machval == FLA_MACH_RMAX )
234  {
235  *( ( char* ) blas_machval ) = 'O';
236  }
237  else
238  {
239  FLA_Check_error_code( FLA_INVALID_MACHVAL );
240  }
241 }

◆ FLA_Param_map_flame_to_netlib_side()

void FLA_Param_map_flame_to_netlib_side ( FLA_Uplo  side,
void *  blas_side 
)
72 {
73  if ( side == FLA_LEFT )
74  {
75 #ifdef FLA_ENABLE_CBLAS_INTERFACES
76  *( ( enum CBLAS_SIDE* ) blas_side ) = CblasLeft;
77 #else
78  *( ( char* ) blas_side ) = 'L';
79 #endif
80  }
81  else if ( side == FLA_RIGHT )
82  {
83 #ifdef FLA_ENABLE_CBLAS_INTERFACES
84  *( ( enum CBLAS_SIDE* ) blas_side ) = CblasRight;
85 #else
86  *( ( char* ) blas_side ) = 'R';
87 #endif
88  }
89  else
90  {
91  FLA_Check_error_code( FLA_INVALID_SIDE );
92  }
93 }
CBLAS_SIDE
Definition: blis_prototypes_cblas.h:21
@ CblasRight
Definition: blis_prototypes_cblas.h:21
@ CblasLeft
Definition: blis_prototypes_cblas.h:21

References CblasLeft, and CblasRight.

Referenced by FLA_Apply_Q_blk_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Hemm_external_gpu(), FLA_Symm_external_gpu(), FLA_Tridiag_apply_Q_external(), FLA_Trmm_external_gpu(), and FLA_Trsm_external_gpu().

◆ FLA_Param_map_flame_to_netlib_storev()

void FLA_Param_map_flame_to_netlib_storev ( FLA_Store  storev,
void *  lapack_storev 
)
136 {
137  if ( storev == FLA_COLUMNWISE )
138  {
139  *( ( char* ) lapack_storev ) = 'C';
140  }
141  else if ( storev == FLA_ROWWISE )
142  {
143  *( ( char* ) lapack_storev ) = 'R';
144  }
145  else
146  {
147  FLA_Check_error_code( FLA_INVALID_STOREV );
148  }
149 }

◆ FLA_Param_map_flame_to_netlib_svd_type()

void FLA_Param_map_flame_to_netlib_svd_type ( FLA_Svd_type  svd_type,
void *  lapack_svd_type 
)
172 {
173  if ( svd_type == FLA_SVD_VECTORS_ALL )
174  {
175  *( ( char* ) lapack_svd_type ) = 'A';
176  }
177  else if ( svd_type == FLA_SVD_VECTORS_MIN_COPY )
178  {
179  *( ( char* ) lapack_svd_type ) = 'S';
180  }
181  else if ( svd_type == FLA_SVD_VECTORS_MIN_OVERWRITE )
182  {
183  *( ( char* ) lapack_svd_type ) = 'O';
184  }
185  else if ( svd_type == FLA_SVD_VECTORS_NONE )
186  {
187  *( ( char* ) lapack_svd_type ) = 'N';
188  }
189  else
190  {
191  FLA_Check_error_code( FLA_INVALID_SVD_TYPE );
192  }
193 }

Referenced by FLA_Svd_external(), and FLA_Svdd_external().

◆ FLA_Param_map_flame_to_netlib_trans()

void FLA_Param_map_flame_to_netlib_trans ( FLA_Trans  trans,
void *  blas_trans 
)
16 {
17  if ( trans == FLA_NO_TRANSPOSE )
18  {
19 #ifdef FLA_ENABLE_CBLAS_INTERFACES
20  *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasNoTrans;
21 #else
22  *( ( char* ) blas_trans ) = 'N';
23 #endif
24  }
25  else if ( trans == FLA_TRANSPOSE )
26  {
27 #ifdef FLA_ENABLE_CBLAS_INTERFACES
28  *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasTrans;
29 #else
30  *( ( char* ) blas_trans ) = 'T';
31 #endif
32  }
33  else if ( trans == FLA_CONJ_TRANSPOSE )
34  {
35 #ifdef FLA_ENABLE_CBLAS_INTERFACES
36  *( ( enum CBLAS_TRANSPOSE* ) blas_trans ) = CblasConjTrans;
37 #else
38  *( ( char* ) blas_trans ) = 'C';
39 #endif
40  }
41  else
42  {
43  FLA_Check_error_code( FLA_INVALID_TRANS );
44  }
45 }
CBLAS_TRANSPOSE
Definition: blis_prototypes_cblas.h:18
@ CblasNoTrans
Definition: blis_prototypes_cblas.h:18
@ CblasTrans
Definition: blis_prototypes_cblas.h:18
@ CblasConjTrans
Definition: blis_prototypes_cblas.h:18

References CblasConjTrans, CblasNoTrans, and CblasTrans.

Referenced by FLA_Apply_Q_blk_external(), FLA_Bidiag_apply_U_external(), FLA_Bidiag_apply_V_external(), FLA_Gemm_external_gpu(), FLA_Gemv_external_gpu(), FLA_Her2k_external_gpu(), FLA_Herk_external_gpu(), FLA_Sylv_unb_external(), FLA_Syr2k_external_gpu(), FLA_Syrk_external_gpu(), FLA_Tridiag_apply_Q_external(), FLA_Trmm_external_gpu(), FLA_Trsm_external_gpu(), and FLA_Trsv_external_gpu().

◆ FLA_Param_map_flame_to_netlib_uplo()

void FLA_Param_map_flame_to_netlib_uplo ( FLA_Uplo  uplo,
void *  blas_uplo 
)
48 {
49  if ( uplo == FLA_LOWER_TRIANGULAR )
50  {
51 #ifdef FLA_ENABLE_CBLAS_INTERFACES
52  *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasLower;
53 #else
54  *( ( char* ) blas_uplo ) = 'L';
55 #endif
56  }
57  else if ( uplo == FLA_UPPER_TRIANGULAR )
58  {
59 #ifdef FLA_ENABLE_CBLAS_INTERFACES
60  *( ( enum CBLAS_UPLO* ) blas_uplo ) = CblasUpper;
61 #else
62  *( ( char* ) blas_uplo ) = 'U';
63 #endif
64  }
65  else
66  {
67  FLA_Check_error_code( FLA_INVALID_UPLO );
68  }
69 }
CBLAS_UPLO
Definition: blis_prototypes_cblas.h:19
@ CblasLower
Definition: blis_prototypes_cblas.h:19
@ CblasUpper
Definition: blis_prototypes_cblas.h:19

References CblasLower, and CblasUpper.

Referenced by FLA_Bsvd_external(), FLA_Bsvdd_external(), FLA_Chol_blk_external(), FLA_Chol_unb_external(), FLA_Eig_gest_blk_external(), FLA_Eig_gest_unb_external(), FLA_Hemm_external_gpu(), FLA_Her2k_external_gpu(), FLA_Herk_external_gpu(), FLA_Hevd_external(), FLA_Hevdd_external(), FLA_Hevdr_external(), FLA_Symm_external_gpu(), FLA_Syr2k_external_gpu(), FLA_Syrk_external_gpu(), FLA_Tridiag_apply_Q_external(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_unb_external(), FLA_Trinv_blk_external(), FLA_Trinv_unb_external(), FLA_Trmm_external_gpu(), FLA_Trsm_external_gpu(), FLA_Trsv_external_gpu(), FLA_Ttmm_blk_external(), and FLA_Ttmm_unb_external().

◆ FLA_Param_map_netlib_to_flame_diag()

void FLA_Param_map_netlib_to_flame_diag ( char *  diag,
FLA_Diag flame_diag 
)
368 {
369  if ( *diag == 'n' || *diag == 'N' )
370  *flame_diag = FLA_NONUNIT_DIAG;
371  else if ( *diag == 'u' || *diag == 'U' )
372  *flame_diag = FLA_UNIT_DIAG;
373  else
374  FLA_Check_error_code( FLA_INVALID_DIAG );
375 }

◆ FLA_Param_map_netlib_to_flame_inv()

void FLA_Param_map_netlib_to_flame_inv ( int *  itype,
FLA_Inv flame_inv 
)
378 {
379  if ( *itype == 1 )
380  *flame_inv = FLA_INVERSE;
381  else if ( *itype == 2 || *itype == 3 )
382  *flame_inv = FLA_NO_INVERSE;
383  else
384  FLA_Check_error_code( FLA_INVALID_INVERSE );
385 }

◆ FLA_Param_map_netlib_to_flame_side()

void FLA_Param_map_netlib_to_flame_side ( char *  side,
FLA_Side flame_side 
)
358 {
359  if ( *side == 'l' || *side == 'L' )
360  *flame_side = FLA_LEFT;
361  else if ( *side == 'r' || *side == 'R' )
362  *flame_side = FLA_RIGHT;
363  else
364  FLA_Check_error_code( FLA_INVALID_SIDE );
365 }

◆ FLA_Param_map_netlib_to_flame_svd_type()

void FLA_Param_map_netlib_to_flame_svd_type ( char *  svd,
FLA_Svd_type flame_svd 
)
388 {
389  if ( *svd == 'A' || *svd == 'a' )
390  *flame_svd = FLA_SVD_VECTORS_ALL;
391  else if ( *svd == 'S' || *svd == 's' )
392  *flame_svd = FLA_SVD_VECTORS_MIN_COPY;
393  else if ( *svd == 'O' || *svd == 'o' )
394  *flame_svd = FLA_SVD_VECTORS_MIN_OVERWRITE;
395  else if ( *svd == 'N' || *svd == 'n' )
396  *flame_svd = FLA_SVD_VECTORS_NONE;
397  else
398  FLA_Check_error_code( FLA_INVALID_SVD_TYPE );
399 }

◆ FLA_Param_map_netlib_to_flame_trans()

void FLA_Param_map_netlib_to_flame_trans ( char *  trans,
FLA_Trans flame_trans 
)
336 {
337  if ( *trans == 'n' || *trans == 'N' )
338  *flame_trans = FLA_NO_TRANSPOSE;
339  else if ( *trans == 't' || *trans == 'T' )
340  *flame_trans = FLA_TRANSPOSE;
341  else if ( *trans == 'c' || *trans == 'C' )
342  *flame_trans = FLA_CONJ_TRANSPOSE;
343  else
344  FLA_Check_error_code( FLA_INVALID_TRANS );
345 }

◆ FLA_Param_map_netlib_to_flame_uplo()

void FLA_Param_map_netlib_to_flame_uplo ( char *  uplo,
FLA_Uplo flame_uplo 
)
348 {
349  if ( *uplo == 'l' || *uplo == 'L' )
350  *flame_uplo = FLA_LOWER_TRIANGULAR;
351  else if ( *uplo == 'u' || *uplo == 'U' )
352  *flame_uplo = FLA_UPPER_TRIANGULAR;
353  else
354  FLA_Check_error_code( FLA_INVALID_UPLO );
355 }

◆ FLA_Part_1x2()

FLA_Error FLA_Part_1x2 ( FLA_Obj  A,
FLA_Obj A1,
FLA_Obj A2,
dim_t  nb,
FLA_Side  side 
)
112 {
113  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
114  FLA_Part_1x2_check( A, A1, A2, nb, side );
115 
116  // Safeguard: if nb > n, reduce nb to n.
117  if ( nb > A.n ) nb = A.n;
118 
119  // Set nb to be the dimension of A1.
120  if ( side == FLA_RIGHT ) nb = A.n - nb;
121 
122  A1->m = A.m;
123  A1->n = nb;
124  A1->offm = A.offm;
125  A1->offn = A.offn;
126  A1->base = A.base;
127 
128  A2->m = A.m;
129  A2->n = A.n - nb;
130  A2->offm = A.offm;
131  A2->offn = A.offn + nb;
132  A2->base = A.base;
133 
134  return FLA_SUCCESS;
135 }
FLA_Error FLA_Part_1x2_check(FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
Definition: FLA_Part_1x2_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Part_1x2_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var3(), FLA_Apply_H2_UT_piv_row(), FLA_Apply_pivots_ln_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var3(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var2(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var2(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var2(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var2(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var2(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var2(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var2(), FLA_Axpy_blk_var3(), FLA_Axpy_blk_var4(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_internal(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_Bsvd(), FLA_Bsvd_ext(), FLA_CAQR2_UT_blk_var1(), FLA_Copy_blk_var3(), FLA_Copy_blk_var4(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_opt_var4(), FLA_Eig_gest_il_opt_var5(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_opt_var1(), FLA_Eig_gest_iu_opt_var2(), FLA_Eig_gest_iu_opt_var4(), FLA_Eig_gest_iu_opt_var5(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_opt_var1(), FLA_Eig_gest_nl_opt_var2(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_opt_var4(), FLA_Eig_gest_nu_opt_var5(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var3(), FLA_Gemm_cc_unb_var4(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_ch_unb_var5(), FLA_Gemm_ch_unb_var6(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var3(), FLA_Gemm_cn_unb_var4(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_ct_unb_var5(), FLA_Gemm_ct_unb_var6(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var3(), FLA_Gemm_hc_unb_var4(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var3(), FLA_Gemm_hn_unb_var4(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var3(), FLA_Gemm_nc_unb_var4(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nh_unb_var5(), FLA_Gemm_nh_unb_var6(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var3(), FLA_Gemm_nn_unb_var4(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_nt_unb_var5(), FLA_Gemm_nt_unb_var6(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var3(), FLA_Gemm_tc_unb_var4(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var3(), FLA_Gemm_tn_unb_var4(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Hemm_ll_blk_var10(), FLA_Hemm_ll_blk_var9(), FLA_Hemm_ll_unb_var10(), FLA_Hemm_ll_unb_var9(), FLA_Hemm_lu_blk_var10(), FLA_Hemm_lu_blk_var9(), FLA_Hemm_lu_unb_var10(), FLA_Hemm_lu_unb_var9(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var10(), FLA_Her2k_ln_blk_var9(), FLA_Her2k_ln_unb_var10(), FLA_Her2k_ln_unb_var9(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var10(), FLA_Her2k_un_blk_var9(), FLA_Her2k_un_unb_var10(), FLA_Her2k_un_unb_var9(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var5(), FLA_Herk_ln_blk_var6(), FLA_Herk_ln_unb_var5(), FLA_Herk_ln_unb_var6(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var5(), FLA_Herk_un_blk_var6(), FLA_Herk_un_unb_var5(), FLA_Herk_un_unb_var6(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var4(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_solve(), FLA_LQ_UT_unb_var1(), FLA_LU_piv_blk_var3(), FLA_LU_piv_unb_var3(), FLA_Norm1(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_UT_blk_var1(), FLA_QR_UT_form_Q(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_recover_tau(), FLA_QR_UT_unb_var1(), FLA_Repart_1x2_to_1x3(), FLA_Repart_2x2_to_3x3(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_Scal_blk_var3(), FLA_Scal_blk_var4(), FLA_Svd(), FLA_Svd_ext(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Symm_ll_blk_var10(), FLA_Symm_ll_blk_var9(), FLA_Symm_ll_unb_var10(), FLA_Symm_ll_unb_var9(), FLA_Symm_lu_blk_var10(), FLA_Symm_lu_blk_var9(), FLA_Symm_lu_unb_var10(), FLA_Symm_lu_unb_var9(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Syr2k_ln_blk_var10(), FLA_Syr2k_ln_blk_var9(), FLA_Syr2k_ln_unb_var10(), FLA_Syr2k_ln_unb_var9(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var10(), FLA_Syr2k_un_blk_var9(), FLA_Syr2k_un_unb_var10(), FLA_Syr2k_un_unb_var9(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_ln_blk_var5(), FLA_Syrk_ln_blk_var6(), FLA_Syrk_ln_unb_var5(), FLA_Syrk_ln_unb_var6(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var5(), FLA_Syrk_un_blk_var6(), FLA_Syrk_un_unb_var5(), FLA_Syrk_un_unb_var6(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Tridiag_UT_form_Q(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trmm_llc_blk_var3(), FLA_Trmm_llc_blk_var4(), FLA_Trmm_llc_unb_var3(), FLA_Trmm_llc_unb_var4(), FLA_Trmm_llh_blk_var3(), FLA_Trmm_llh_blk_var4(), FLA_Trmm_llh_unb_var3(), FLA_Trmm_llh_unb_var4(), FLA_Trmm_lln_blk_var3(), FLA_Trmm_lln_blk_var4(), FLA_Trmm_lln_unb_var3(), FLA_Trmm_lln_unb_var4(), FLA_Trmm_llt_blk_var3(), FLA_Trmm_llt_blk_var4(), FLA_Trmm_llt_unb_var3(), FLA_Trmm_llt_unb_var4(), FLA_Trmm_luc_blk_var3(), FLA_Trmm_luc_blk_var4(), FLA_Trmm_luc_unb_var3(), FLA_Trmm_luc_unb_var4(), FLA_Trmm_luh_blk_var3(), FLA_Trmm_luh_blk_var4(), FLA_Trmm_luh_unb_var3(), FLA_Trmm_luh_unb_var4(), FLA_Trmm_lun_blk_var3(), FLA_Trmm_lun_blk_var4(), FLA_Trmm_lun_unb_var3(), FLA_Trmm_lun_unb_var4(), FLA_Trmm_lut_blk_var3(), FLA_Trmm_lut_blk_var4(), FLA_Trmm_lut_unb_var3(), FLA_Trmm_lut_unb_var4(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trsm_llc_blk_var3(), FLA_Trsm_llc_blk_var4(), FLA_Trsm_llc_unb_var3(), FLA_Trsm_llc_unb_var4(), FLA_Trsm_llh_blk_var3(), FLA_Trsm_llh_blk_var4(), FLA_Trsm_llh_unb_var3(), FLA_Trsm_llh_unb_var4(), FLA_Trsm_lln_blk_var3(), FLA_Trsm_lln_blk_var4(), FLA_Trsm_lln_unb_var3(), FLA_Trsm_lln_unb_var4(), FLA_Trsm_llt_blk_var3(), FLA_Trsm_llt_blk_var4(), FLA_Trsm_llt_unb_var3(), FLA_Trsm_llt_unb_var4(), FLA_Trsm_luc_blk_var3(), FLA_Trsm_luc_blk_var4(), FLA_Trsm_luc_unb_var3(), FLA_Trsm_luc_unb_var4(), FLA_Trsm_luh_blk_var3(), FLA_Trsm_luh_blk_var4(), FLA_Trsm_luh_unb_var3(), FLA_Trsm_luh_unb_var4(), FLA_Trsm_lun_blk_var3(), FLA_Trsm_lun_blk_var4(), FLA_Trsm_lun_unb_var3(), FLA_Trsm_lun_unb_var4(), FLA_Trsm_lut_blk_var3(), FLA_Trsm_lut_blk_var4(), FLA_Trsm_lut_unb_var3(), FLA_Trsm_lut_unb_var4(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_Axpy_hierarchy(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_Copy_hierarchy(), FLASH_LQ_UT_solve(), FLASH_LU_incpiv_var2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_create_diag_panel(), FLASH_Obj_create_hierarchy(), FLASH_Obj_scalar_width(), FLASH_Obj_show_hierarchy(), FLASH_QR_UT_inc_create_hier_matrices(), FLASH_SA_FS(), and FLASH_Trsm_piv().

◆ FLA_Part_1x2_check()

FLA_Error FLA_Part_1x2_check ( FLA_Obj  A,
FLA_Obj A1,
FLA_Obj A2,
dim_t  nb,
FLA_Side  side 
)
15 {
16  FLA_Error e_val;
17 
19  FLA_Check_error_code( e_val );
20 
21  e_val = FLA_Check_null_pointer( A1 );
22  FLA_Check_error_code( e_val );
23 
24  e_val = FLA_Check_null_pointer( A2 );
25  FLA_Check_error_code( e_val );
26 
27  e_val = FLA_Check_valid_leftright_side( side );
28  FLA_Check_error_code( e_val );
29 
30  return FLA_SUCCESS;
31 }

References FLA_Check_null_pointer(), FLA_Check_valid_leftright_side(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Part_1x2(), and FLASH_Part_create_1x2().

◆ FLA_Part_2x1()

FLA_Error FLA_Part_2x1 ( FLA_Obj  A,
FLA_Obj A1,
FLA_Obj A2,
dim_t  mb,
FLA_Side  side 
)
79 {
80  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
81  FLA_Part_2x1_check( A, A1,
82  A2, mb, side );
83 
84  // Safeguard: if mb > m, reduce mb to m.
85  if ( mb > A.m ) mb = A.m;
86 
87  // Set mb to be the dimension of A1.
88  if ( side == FLA_BOTTOM ) mb = A.m - mb;
89 
90  A1->m = mb;
91  A1->n = A.n;
92  A1->offm = A.offm;
93  A1->offn = A.offn;
94  A1->base = A.base;
95 
96  A2->m = A.m - mb;
97  A2->n = A.n;
98  A2->offm = A.offm + mb;
99  A2->offn = A.offn;
100  A2->base = A.base;
101 
102  return FLA_SUCCESS;
103 }
FLA_Error FLA_Part_2x1_check(FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t mb, FLA_Side side)
Definition: FLA_Part_2x1_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Part_2x1_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var2(), FLA_Apply_CAQ_UT_inc_apply_panels(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_pivots_ln_blk_var2(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var2(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var3(), FLA_Axpy_blk_var1(), FLA_Axpy_blk_var2(), FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_copy_triangles(), FLA_CAQR_UT_inc_factorize_panels(), FLA_Copy_blk_var1(), FLA_Copy_blk_var2(), FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_opt_var1(), FLA_Eig_gest_il_opt_var2(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_opt_var4(), FLA_Eig_gest_nl_opt_var5(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_opt_var1(), FLA_Eig_gest_nu_opt_var2(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var1(), FLA_Gemm_cc_unb_var2(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_unb_var1(), FLA_Gemm_ch_unb_var2(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var1(), FLA_Gemm_cn_unb_var2(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_unb_var1(), FLA_Gemm_ct_unb_var2(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var5(), FLA_Gemm_hc_unb_var6(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var5(), FLA_Gemm_hn_unb_var6(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var1(), FLA_Gemm_nc_unb_var2(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_unb_var1(), FLA_Gemm_nh_unb_var2(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var1(), FLA_Gemm_nn_unb_var2(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_unb_var1(), FLA_Gemm_nt_unb_var2(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var5(), FLA_Gemm_tc_unb_var6(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var5(), FLA_Gemm_tn_unb_var6(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_h_blk_var5(), FLA_Gemv_h_blk_var6(), FLA_Gemv_n_blk_var1(), FLA_Gemv_n_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Gemv_t_blk_var5(), FLA_Gemv_t_blk_var6(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var10(), FLA_Hemm_rl_blk_var9(), FLA_Hemm_rl_unb_var10(), FLA_Hemm_rl_unb_var9(), FLA_Hemm_ru_blk_var10(), FLA_Hemm_ru_blk_var9(), FLA_Hemm_ru_unb_var10(), FLA_Hemm_ru_unb_var9(), FLA_Her2k_lh_blk_var10(), FLA_Her2k_lh_blk_var9(), FLA_Her2k_lh_unb_var10(), FLA_Her2k_lh_unb_var9(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var10(), FLA_Her2k_uh_blk_var9(), FLA_Her2k_uh_unb_var10(), FLA_Her2k_uh_unb_var9(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Herk_lh_blk_var5(), FLA_Herk_lh_blk_var6(), FLA_Herk_lh_unb_var5(), FLA_Herk_lh_unb_var6(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var5(), FLA_Herk_uh_blk_var6(), FLA_Herk_uh_unb_var5(), FLA_Herk_uh_unb_var6(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_recover_tau_submatrix(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_solve(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Norm_inf(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_blk_var2(), FLA_QR_UT_blk_var1(), FLA_QR_UT_copy_task(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau(), FLA_QR_UT_recover_tau_submatrix(), FLA_QR_UT_solve(), FLA_Repart_2x1_to_3x1(), FLA_Repart_2x2_to_3x3(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_Scal_blk_var1(), FLA_Scal_blk_var2(), FLA_Svd_ext_u_unb_var1(), FLA_Svd_uv_unb_var1(), FLA_Svd_uv_unb_var2(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var10(), FLA_Symm_rl_blk_var9(), FLA_Symm_rl_unb_var10(), FLA_Symm_rl_unb_var9(), FLA_Symm_ru_blk_var10(), FLA_Symm_ru_blk_var9(), FLA_Symm_ru_unb_var10(), FLA_Symm_ru_unb_var9(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var10(), FLA_Syr2k_lt_blk_var9(), FLA_Syr2k_lt_unb_var10(), FLA_Syr2k_lt_unb_var9(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var10(), FLA_Syr2k_ut_blk_var9(), FLA_Syr2k_ut_unb_var10(), FLA_Syr2k_ut_unb_var9(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var5(), FLA_Syrk_lt_blk_var6(), FLA_Syrk_lt_unb_var5(), FLA_Syrk_lt_unb_var6(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var5(), FLA_Syrk_ut_blk_var6(), FLA_Syrk_ut_unb_var5(), FLA_Syrk_ut_unb_var6(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var3(), FLA_Trmm_rlc_blk_var4(), FLA_Trmm_rlc_unb_var3(), FLA_Trmm_rlc_unb_var4(), FLA_Trmm_rlh_blk_var3(), FLA_Trmm_rlh_blk_var4(), FLA_Trmm_rlh_unb_var3(), FLA_Trmm_rlh_unb_var4(), FLA_Trmm_rln_blk_var3(), FLA_Trmm_rln_blk_var4(), FLA_Trmm_rln_unb_var3(), FLA_Trmm_rln_unb_var4(), FLA_Trmm_rlt_blk_var3(), FLA_Trmm_rlt_blk_var4(), FLA_Trmm_rlt_unb_var3(), FLA_Trmm_rlt_unb_var4(), FLA_Trmm_ruc_blk_var3(), FLA_Trmm_ruc_blk_var4(), FLA_Trmm_ruc_unb_var3(), FLA_Trmm_ruc_unb_var4(), FLA_Trmm_ruh_blk_var3(), FLA_Trmm_ruh_blk_var4(), FLA_Trmm_ruh_unb_var3(), FLA_Trmm_ruh_unb_var4(), FLA_Trmm_run_blk_var3(), FLA_Trmm_run_blk_var4(), FLA_Trmm_run_unb_var3(), FLA_Trmm_run_unb_var4(), FLA_Trmm_rut_blk_var3(), FLA_Trmm_rut_blk_var4(), FLA_Trmm_rut_unb_var3(), FLA_Trmm_rut_unb_var4(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var3(), FLA_Trsm_rlc_blk_var4(), FLA_Trsm_rlc_unb_var3(), FLA_Trsm_rlc_unb_var4(), FLA_Trsm_rlh_blk_var3(), FLA_Trsm_rlh_blk_var4(), FLA_Trsm_rlh_unb_var3(), FLA_Trsm_rlh_unb_var4(), FLA_Trsm_rln_blk_var3(), FLA_Trsm_rln_blk_var4(), FLA_Trsm_rln_unb_var3(), FLA_Trsm_rln_unb_var4(), FLA_Trsm_rlt_blk_var3(), FLA_Trsm_rlt_blk_var4(), FLA_Trsm_rlt_unb_var3(), FLA_Trsm_rlt_unb_var4(), FLA_Trsm_ruc_blk_var3(), FLA_Trsm_ruc_blk_var4(), FLA_Trsm_ruc_unb_var3(), FLA_Trsm_ruc_unb_var4(), FLA_Trsm_ruh_blk_var3(), FLA_Trsm_ruh_blk_var4(), FLA_Trsm_ruh_unb_var3(), FLA_Trsm_ruh_unb_var4(), FLA_Trsm_run_blk_var3(), FLA_Trsm_run_blk_var4(), FLA_Trsm_run_unb_var3(), FLA_Trsm_run_unb_var4(), FLA_Trsm_rut_blk_var3(), FLA_Trsm_rut_blk_var4(), FLA_Trsm_rut_unb_var3(), FLA_Trsm_rut_unb_var4(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_blk_var2(), FLASH_Apply_CAQ_UT_inc(), FLASH_Axpy_hierarchy(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_Copy_hierarchy(), FLASH_FS_incpiv_aux1(), FLASH_FS_incpiv_aux2(), FLASH_LQ_UT_solve(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_scalar_length(), FLASH_Obj_show_hierarchy(), FLASH_QR_UT_inc_create_hier_matrices(), FLASH_QR_UT_solve(), and FLASH_SA_LU().

◆ FLA_Part_2x1_check()

FLA_Error FLA_Part_2x1_check ( FLA_Obj  A,
FLA_Obj A1,
FLA_Obj A2,
dim_t  mb,
FLA_Side  side 
)
16 {
17  FLA_Error e_val;
18 
20  FLA_Check_error_code( e_val );
21 
22  e_val = FLA_Check_null_pointer( A1 );
23  FLA_Check_error_code( e_val );
24 
25  e_val = FLA_Check_null_pointer( A2 );
26  FLA_Check_error_code( e_val );
27 
28  e_val = FLA_Check_valid_topbottom_side( side );
29  FLA_Check_error_code( e_val );
30 
31  return FLA_SUCCESS;
32 }

References FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_topbottom_side().

Referenced by FLA_Part_2x1(), and FLASH_Part_create_2x1().

◆ FLA_Part_2x2()

FLA_Error FLA_Part_2x2 ( FLA_Obj  A,
FLA_Obj A11,
FLA_Obj A12,
FLA_Obj A21,
FLA_Obj A22,
dim_t  mb,
dim_t  nb,
FLA_Quadrant  quadrant 
)
20 {
21  FLA_Base_obj *base;
22  dim_t m, n, offm, offn;
23 
24  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
25  FLA_Part_2x2_check( A, A11, A12,
26  A21, A22, mb, nb, quadrant );
27 
28  // Safeguard: if mb > m, reduce mb to m.
29  if ( mb > A.m ) mb = A.m;
30 
31  // Safeguard: if nb > n, reduce nb to n.
32  if ( nb > A.n ) nb = A.n;
33 
34  m = A.m;
35  n = A.n;
36  offm = A.offm;
37  offn = A.offn;
38  base = A.base;
39 
40  // Set mb and nb to be the dimensions of A11.
41  if ( quadrant == FLA_BL || quadrant == FLA_BR ) mb = m - mb;
42  if ( quadrant == FLA_TR || quadrant == FLA_BR ) nb = n - nb;
43 
44  A11->m = mb;
45  A11->n = nb;
46  A11->offm = offm;
47  A11->offn = offn;
48  A11->base = base;
49 
50  A21->m = m-mb;
51  A21->n = nb;
52  A21->offm = offm + mb;
53  A21->offn = offn;
54  A21->base = base;
55 
56  A12->m = mb;
57  A12->n = n-nb;
58  A12->offm = offm;
59  A12->offn = offn + nb;
60  A12->base = base;
61 
62  A22->m = m-mb;
63  A22->n = n-nb;
64  A22->offm = offm + mb;
65  A22->offn = offn + nb;
66  A22->base = base;
67 
68  return FLA_SUCCESS;
69 }
FLA_Error FLA_Part_2x2_check(FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
Definition: FLA_Part_2x2_check.c:13

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Part_2x2_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Axpy_buffer_to_object(), FLA_Axpy_object_to_buffer(), FLA_Bidiag_UT_form_U_ext(), FLA_Bidiag_UT_form_V_ext(), FLA_Bidiag_UT_internal(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_blk_var1(), FLA_Chol_l_blk_var1(), FLA_Chol_l_blk_var2(), FLA_Chol_l_blk_var3(), FLA_Chol_l_unb_var1(), FLA_Chol_l_unb_var2(), FLA_Chol_l_unb_var3(), FLA_Chol_u_blk_var1(), FLA_Chol_u_blk_var2(), FLA_Chol_u_blk_var3(), FLA_Chol_u_unb_var1(), FLA_Chol_u_unb_var2(), FLA_Chol_u_unb_var3(), FLA_Copy_buffer_to_object(), FLA_Copy_object_to_buffer(), FLA_Copyr_l_blk_var1(), FLA_Copyr_l_blk_var2(), FLA_Copyr_l_blk_var3(), FLA_Copyr_l_blk_var4(), FLA_Copyr_u_blk_var1(), FLA_Copyr_u_blk_var2(), FLA_Copyr_u_blk_var3(), FLA_Copyr_u_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_il_unb_var3(), FLA_Eig_gest_il_unb_var4(), FLA_Eig_gest_il_unb_var5(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_iu_unb_var3(), FLA_Eig_gest_iu_unb_var4(), FLA_Eig_gest_iu_unb_var5(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nl_unb_var4(), FLA_Eig_gest_nl_unb_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Eig_gest_nu_unb_var4(), FLA_Eig_gest_nu_unb_var5(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau_submatrix(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_LQ_UT_unb_var1(), FLA_LQ_UT_unb_var2(), FLA_LU_find_zero_on_diagonal(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_nopiv_unb_var1(), FLA_LU_nopiv_unb_var2(), FLA_LU_nopiv_unb_var3(), FLA_LU_nopiv_unb_var4(), FLA_LU_nopiv_unb_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Lyap_h_blk_var1(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_h_blk_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_blk_var1(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_Lyap_n_blk_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_UT_blk_var1(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_form_Q(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau_submatrix(), FLA_QR_UT_unb_var1(), FLA_QR_UT_unb_var2(), FLA_Repart_2x2_to_3x3(), FLA_SA_LU_blk(), FLA_Scalr_l_blk_var1(), FLA_Scalr_l_blk_var2(), FLA_Scalr_l_blk_var3(), FLA_Scalr_l_blk_var4(), FLA_Scalr_u_blk_var1(), FLA_Scalr_u_blk_var2(), FLA_Scalr_u_blk_var3(), FLA_Scalr_u_blk_var4(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Transpose_blk_var1(), FLA_Transpose_blk_var2(), FLA_Transpose_unb_var1(), FLA_Transpose_unb_var2(), FLA_Tridiag_UT_form_Q(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trinv_ln_blk_var1(), FLA_Trinv_ln_blk_var2(), FLA_Trinv_ln_blk_var3(), FLA_Trinv_ln_blk_var4(), FLA_Trinv_ln_unb_var1(), FLA_Trinv_ln_unb_var2(), FLA_Trinv_ln_unb_var3(), FLA_Trinv_ln_unb_var4(), FLA_Trinv_lu_blk_var1(), FLA_Trinv_lu_blk_var2(), FLA_Trinv_lu_blk_var3(), FLA_Trinv_lu_blk_var4(), FLA_Trinv_lu_unb_var1(), FLA_Trinv_lu_unb_var2(), FLA_Trinv_lu_unb_var3(), FLA_Trinv_lu_unb_var4(), FLA_Trinv_un_blk_var1(), FLA_Trinv_un_blk_var2(), FLA_Trinv_un_blk_var3(), FLA_Trinv_un_blk_var4(), FLA_Trinv_un_unb_var1(), FLA_Trinv_un_unb_var2(), FLA_Trinv_un_unb_var3(), FLA_Trinv_un_unb_var4(), FLA_Trinv_uu_blk_var1(), FLA_Trinv_uu_blk_var2(), FLA_Trinv_uu_blk_var3(), FLA_Trinv_uu_blk_var4(), FLA_Trinv_uu_unb_var1(), FLA_Trinv_uu_unb_var2(), FLA_Trinv_uu_unb_var3(), FLA_Trinv_uu_unb_var4(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_Ttmm_l_blk_var1(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_l_blk_var3(), FLA_Ttmm_l_unb_var1(), FLA_Ttmm_l_unb_var2(), FLA_Ttmm_l_unb_var3(), FLA_Ttmm_u_blk_var1(), FLA_Ttmm_u_blk_var2(), FLA_Ttmm_u_blk_var3(), FLA_Ttmm_u_unb_var1(), FLA_Ttmm_u_unb_var2(), FLA_Ttmm_u_unb_var3(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_FS_incpiv_aux1(), FLASH_LU_find_zero_on_diagonal(), FLASH_LU_incpiv_var1(), FLASH_LU_incpiv_var2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_create_diag_panel(), and FLASH_QR_UT_inc_create_hier_matrices().

◆ FLA_Part_2x2_check()

FLA_Error FLA_Part_2x2_check ( FLA_Obj  A,
FLA_Obj A11,
FLA_Obj A12,
FLA_Obj A21,
FLA_Obj A22,
dim_t  mb,
dim_t  nb,
FLA_Quadrant  quadrant 
)
16 {
17  FLA_Error e_val;
18 
20  FLA_Check_error_code( e_val );
21 
22  e_val = FLA_Check_null_pointer( A11 );
23  FLA_Check_error_code( e_val );
24 
25  e_val = FLA_Check_null_pointer( A12 );
26  FLA_Check_error_code( e_val );
27 
28  e_val = FLA_Check_null_pointer( A21 );
29  FLA_Check_error_code( e_val );
30 
31  e_val = FLA_Check_null_pointer( A22 );
32  FLA_Check_error_code( e_val );
33 
34  e_val = FLA_Check_valid_quadrant( quadrant );
35  FLA_Check_error_code( e_val );
36 
37  return FLA_SUCCESS;
38 }

References FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_quadrant().

Referenced by FLA_Part_2x2(), and FLASH_Part_create_2x2().

◆ FLA_Print_message()

void FLA_Print_message ( char *  str,
char *  file,
int  line 
)

◆ FLA_Query_blocksize()

dim_t FLA_Query_blocksize ( FLA_Datatype  dt,
FLA_Dimension  dim 
)
162 {
163  dim_t b_val = 0;
164 
165 #ifdef FLA_ENABLE_GOTO_INTERFACES
166 
167  int dt_index;
168  int dim_index;
169 
170  if ( first_time )
171  {
172  long sgemm_min, dgemm_min, cgemm_min, zgemm_min;
173 
174  // Find the blocksizes associated with FLA_DIMENSION_MIN.
175  sgemm_min = min( sgemm_p, sgemm_q );
176  dgemm_min = min( dgemm_p, dgemm_q );
177  cgemm_min = min( cgemm_p, cgemm_q );
178  zgemm_min = min( zgemm_p, zgemm_q );
179 
180  // Set the values for each datatype and dimension constant.
181  fla_goto_gemm_blocksize[FLA_S_INDEX][FLA_DIM_M_INDEX] = sgemm_p;
182  fla_goto_gemm_blocksize[FLA_S_INDEX][FLA_DIM_K_INDEX] = sgemm_q;
183  fla_goto_gemm_blocksize[FLA_S_INDEX][FLA_DIM_N_INDEX] = sgemm_r;
184  fla_goto_gemm_blocksize[FLA_S_INDEX][FLA_DIM_MIN_INDEX] = sgemm_min;
185 
186  fla_goto_gemm_blocksize[FLA_D_INDEX][FLA_DIM_M_INDEX] = dgemm_p;
187  fla_goto_gemm_blocksize[FLA_D_INDEX][FLA_DIM_K_INDEX] = dgemm_q;
188  fla_goto_gemm_blocksize[FLA_D_INDEX][FLA_DIM_N_INDEX] = dgemm_r;
189  fla_goto_gemm_blocksize[FLA_D_INDEX][FLA_DIM_MIN_INDEX] = dgemm_min;
190 
191  fla_goto_gemm_blocksize[FLA_C_INDEX][FLA_DIM_M_INDEX] = cgemm_p;
192  fla_goto_gemm_blocksize[FLA_C_INDEX][FLA_DIM_K_INDEX] = cgemm_q;
193  fla_goto_gemm_blocksize[FLA_C_INDEX][FLA_DIM_N_INDEX] = cgemm_r;
194  fla_goto_gemm_blocksize[FLA_C_INDEX][FLA_DIM_MIN_INDEX] = cgemm_min;
195 
196  fla_goto_gemm_blocksize[FLA_Z_INDEX][FLA_DIM_M_INDEX] = zgemm_p;
197  fla_goto_gemm_blocksize[FLA_Z_INDEX][FLA_DIM_K_INDEX] = zgemm_q;
198  fla_goto_gemm_blocksize[FLA_Z_INDEX][FLA_DIM_N_INDEX] = zgemm_r;
199  fla_goto_gemm_blocksize[FLA_Z_INDEX][FLA_DIM_MIN_INDEX] = zgemm_min;
200 
201  first_time = FALSE;
202  }
203 
204  // Compute the index of the requested datatype.
205  dt_index = dt & FLA_DTYPE_INDEX_MASK;
206  dim_index = dim & FLA_DIM_INDEX_MASK;
207 
208  // Index into the array and choose the appropriate blocksize.
209  b_val = ( dim_t ) fla_goto_gemm_blocksize[dt_index][dim_index];
210 
211 #else
212 
213  // Assign the return value to a default sane blocksize in case
214  // we cannot access the libgoto symbols.
215  if ( dim == FLA_DIMENSION_M )
216  b_val = FLA_DEFAULT_M_BLOCKSIZE;
217  else if ( dim == FLA_DIMENSION_K )
218  b_val = FLA_DEFAULT_K_BLOCKSIZE;
219  else if ( dim == FLA_DIMENSION_N )
220  b_val = FLA_DEFAULT_N_BLOCKSIZE;
221  else if ( dim == FLA_DIMENSION_MIN )
222  {
223  b_val = min( FLA_DEFAULT_M_BLOCKSIZE, FLA_DEFAULT_K_BLOCKSIZE );
224  b_val = min( b_val, FLA_DEFAULT_N_BLOCKSIZE );
225  }
226 
227 #endif
228 
229  // Return the blocksize.
230  return b_val;
231 }
long zgemm_q
Definition: FLA_Blocksize.c:28
long dgemm_q
Definition: FLA_Blocksize.c:26
long cgemm_q
Definition: FLA_Blocksize.c:27
long cgemm_r
Definition: FLA_Blocksize.c:27
long sgemm_r
Definition: FLA_Blocksize.c:25
long zgemm_p
long sgemm_p
long dgemm_p
long dgemm_r
Definition: FLA_Blocksize.c:26
long cgemm_p
long sgemm_q
Definition: FLA_Blocksize.c:25
long zgemm_r
Definition: FLA_Blocksize.c:28
long fla_goto_gemm_blocksize[4][4]
Definition: FLA_Blocksize.c:30

Referenced by FLA_Apply_Q_blk_external(), FLA_Bidiag_blk_external(), FLA_Bidiag_UT_create_T(), FLA_Check_householder_panel_dims(), FLA_Hess_blk_external(), FLA_Hess_UT_create_T(), FLA_LQ_blk_external(), FLA_LQ_UT_create_T(), FLA_QR_blk_external(), FLA_QR_UT_create_T(), FLA_Query_blocksizes(), FLA_Tridiag_blk_external(), FLA_Tridiag_form_Q_external(), FLA_Tridiag_UT_create_T(), and FLA_UDdate_UT_create_T().

◆ FLA_Query_blocksizes()

fla_blocksize_t* FLA_Query_blocksizes ( FLA_Dimension  dim)
143 {
144  fla_blocksize_t* bp;
145 
146  // Create an FLA_Blocksize_t object.
147  bp = FLA_Blocksize_create( 0, 0, 0, 0 );
148 
149  // Query the requested blocksize (m, k, or n dimension) for all of the
150  // datatypes and package the results in an FLA_Blocksize_t structure.
151  bp->s = FLA_Query_blocksize( FLA_FLOAT, dim );
152  bp->d = FLA_Query_blocksize( FLA_DOUBLE, dim );
153  bp->c = FLA_Query_blocksize( FLA_COMPLEX, dim );
154  bp->z = FLA_Query_blocksize( FLA_DOUBLE_COMPLEX, dim );
155 
156  // Return a pointer to the structure.
157  return bp;
158 }
fla_blocksize_t * FLA_Blocksize_create(dim_t b_s, dim_t b_d, dim_t b_c, dim_t b_z)
Definition: FLA_Blocksize.c:36
dim_t FLA_Query_blocksize(FLA_Datatype dt, FLA_Dimension dim)
Definition: FLA_Blocksize.c:161

References FLA_Blocksize_s::c, FLA_Blocksize_s::d, FLA_Blocksize_create(), FLA_Query_blocksize(), FLA_Blocksize_s::s, and FLA_Blocksize_s::z.

Referenced by FLA_Apply_CAQ2_UT_cntl_init(), FLA_Apply_Q2_UT_cntl_init(), FLA_Apply_Q_UT_cntl_init(), FLA_Apply_QUD_UT_cntl_init(), FLA_Bidiag_UT_cntl_init(), FLA_CAQR2_UT_cntl_init(), FLA_Chol_cntl_init(), FLA_Eig_gest_cntl_init(), FLA_Gemm_cntl_init(), FLA_Hemm_cntl_init(), FLA_Her2k_cntl_init(), FLA_Herk_cntl_init(), FLA_Hess_UT_cntl_init(), FLA_LQ_UT_cntl_init(), FLA_LU_nopiv_cntl_init(), FLA_LU_piv_cntl_init(), FLA_Lyap_cntl_init(), FLA_QR2_UT_cntl_init(), FLA_QR_UT_cntl_init(), FLA_SPDinv_cntl_init(), FLA_Sylv_cntl_init(), FLA_Symm_cntl_init(), FLA_Syr2k_cntl_init(), FLA_Syrk_cntl_init(), FLA_Transpose_cntl_init(), FLA_Tridiag_UT_cntl_init(), FLA_Trinv_cntl_init(), FLA_Trmm_cntl_init(), FLA_Trsm_cntl_init(), FLA_Ttmm_cntl_init(), FLA_UDdate_UT_cntl_init(), and FLASH_SPDinv_cntl_init().

◆ FLA_realloc()

void* FLA_realloc ( void *  old_ptr,
size_t  size 
)
193 {
194  FLA_Error e_val;
195  void* new_ptr;
196 
197  // We can't do much if size is zero. To emulate realloc(), we must
198  // return a NULL pointer, regardless of the value of old_ptr.
199  if ( size == 0 )
200  {
201  // If the pointer is valid, free() it.
202  if ( old_ptr != NULL )
203  FLA_free( old_ptr );
204 
205  // If size is zero, we should return a NULL pointer.
206  new_ptr = NULL;
207  }
208  else
209  {
210  // If old_ptr is NULL, allocate size bytes as if it were a first-time
211  // FLA_malloc() request. Otherwise, proceed to realloc() the memory.
212  if ( old_ptr == NULL )
213  {
214  new_ptr = FLA_malloc( size );
215  }
216  else
217  {
218  // At this point, we know that size is non-zero and old_ptr is valid.
219 
220  // Since we may need aligned addresses, we don't really want to call
221  // realloc(), since it does not guarantee arbitrary aligned pointers.
222  // But we can't implement it ourselves either, because we don't know
223  // how large the original buffer is, therefor we don't know how much
224  // to copy over after the new buffer is allocated. So we're stuck with
225  // the system implementation.
226  new_ptr = realloc( old_ptr, size );
227 
228  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
229  {
230  e_val = FLA_Check_malloc_pointer( new_ptr );
231  FLA_Check_error_code( e_val );
232  }
233  }
234  }
235 
236  // Return the pointer (either NULL, or the return value from FLA_malloc()
237  // or realloc()).
238  return new_ptr;
239 }
void FLA_free(void *ptr)
Definition: FLA_Memory.c:247
void * FLA_malloc(size_t size)
Definition: FLA_Memory.c:111

References FLA_Check_error_level(), FLA_Check_malloc_pointer(), FLA_free(), and FLA_malloc().

◆ FLA_Repart_1x2_to_1x3()

FLA_Error FLA_Repart_1x2_to_1x3 ( FLA_Obj  AL,
FLA_Obj  AR,
FLA_Obj A0,
FLA_Obj A1,
FLA_Obj A2,
dim_t  nb,
FLA_Side  side 
)
270 {
271  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
272  FLA_Repart_1x2_to_1x3_check( AL, AR, A0, A1, A2,
273  nb, side );
274 
275  if ( side == FLA_LEFT )
276  {
277  FLA_Part_1x2( AL, A0, A1, nb, FLA_RIGHT );
278 
279  A2->m = AR.m;
280  A2->n = AR.n;
281  A2->offm = AR.offm;
282  A2->offn = AR.offn;
283  A2->base = AR.base;
284  }
285  else
286  {
287  A0->m = AL.m;
288  A0->n = AL.n;
289  A0->offm = AL.offm;
290  A0->offn = AL.offn;
291  A0->base = AL.base;
292 
293  FLA_Part_1x2( AR, A1, A2, nb, FLA_LEFT );
294  }
295 
296  return FLA_SUCCESS;
297 }
FLA_Error FLA_Repart_1x2_to_1x3_check(FLA_Obj AL, FLA_Obj AR, FLA_Obj *A0, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
Definition: FLA_Repart_1x2_to_1x3_check.c:13
FLA_Error FLA_Part_1x2(FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t nb, FLA_Side side)
Definition: FLA_View.c:110

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Part_1x2(), FLA_Repart_1x2_to_1x3_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var3(), FLA_Apply_pivots_ln_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var3(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var2(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var2(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var2(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var2(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var2(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var2(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var2(), FLA_Axpy_blk_var3(), FLA_Axpy_blk_var4(), FLA_Axpyt_c_blk_var3(), FLA_Axpyt_c_blk_var4(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var3(), FLA_Axpyt_n_blk_var4(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_CAQR2_UT_blk_var1(), FLA_Copy_blk_var3(), FLA_Copy_blk_var4(), FLA_Copyt_c_blk_var3(), FLA_Copyt_c_blk_var4(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var3(), FLA_Copyt_n_blk_var4(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Gemm_cc_blk_var3(), FLA_Gemm_cc_blk_var4(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var3(), FLA_Gemm_cc_unb_var4(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_blk_var5(), FLA_Gemm_ch_blk_var6(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_ch_unb_var5(), FLA_Gemm_ch_unb_var6(), FLA_Gemm_cn_blk_var3(), FLA_Gemm_cn_blk_var4(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var3(), FLA_Gemm_cn_unb_var4(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_blk_var5(), FLA_Gemm_ct_blk_var6(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_ct_unb_var5(), FLA_Gemm_ct_unb_var6(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var3(), FLA_Gemm_hc_blk_var4(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var3(), FLA_Gemm_hc_unb_var4(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var3(), FLA_Gemm_hn_blk_var4(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var3(), FLA_Gemm_hn_unb_var4(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var3(), FLA_Gemm_nc_blk_var4(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var3(), FLA_Gemm_nc_unb_var4(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_blk_var5(), FLA_Gemm_nh_blk_var6(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nh_unb_var5(), FLA_Gemm_nh_unb_var6(), FLA_Gemm_nn_blk_var3(), FLA_Gemm_nn_blk_var4(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var3(), FLA_Gemm_nn_unb_var4(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_blk_var5(), FLA_Gemm_nt_blk_var6(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_nt_unb_var5(), FLA_Gemm_nt_unb_var6(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var3(), FLA_Gemm_tc_blk_var4(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var3(), FLA_Gemm_tc_unb_var4(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var3(), FLA_Gemm_tn_blk_var4(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var3(), FLA_Gemm_tn_unb_var4(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Hemm_ll_blk_var10(), FLA_Hemm_ll_blk_var9(), FLA_Hemm_ll_unb_var10(), FLA_Hemm_ll_unb_var9(), FLA_Hemm_lu_blk_var10(), FLA_Hemm_lu_blk_var9(), FLA_Hemm_lu_unb_var10(), FLA_Hemm_lu_unb_var9(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var10(), FLA_Her2k_ln_blk_var9(), FLA_Her2k_ln_unb_var10(), FLA_Her2k_ln_unb_var9(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var10(), FLA_Her2k_un_blk_var9(), FLA_Her2k_un_unb_var10(), FLA_Her2k_un_unb_var9(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var5(), FLA_Herk_ln_blk_var6(), FLA_Herk_ln_unb_var5(), FLA_Herk_ln_unb_var6(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var5(), FLA_Herk_un_blk_var6(), FLA_Herk_un_unb_var5(), FLA_Herk_un_unb_var6(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_step_unb_var1(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_unb_var1(), FLA_LU_piv_blk_var3(), FLA_LU_piv_unb_var3(), FLA_Norm1(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_UT_blk_var1(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_recover_tau(), FLA_QR_UT_unb_var1(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_Scal_blk_var3(), FLA_Scal_blk_var4(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Symm_ll_blk_var10(), FLA_Symm_ll_blk_var9(), FLA_Symm_ll_unb_var10(), FLA_Symm_ll_unb_var9(), FLA_Symm_lu_blk_var10(), FLA_Symm_lu_blk_var9(), FLA_Symm_lu_unb_var10(), FLA_Symm_lu_unb_var9(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Syr2k_ln_blk_var10(), FLA_Syr2k_ln_blk_var9(), FLA_Syr2k_ln_unb_var10(), FLA_Syr2k_ln_unb_var9(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var10(), FLA_Syr2k_un_blk_var9(), FLA_Syr2k_un_unb_var10(), FLA_Syr2k_un_unb_var9(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_ln_blk_var5(), FLA_Syrk_ln_blk_var6(), FLA_Syrk_ln_unb_var5(), FLA_Syrk_ln_unb_var6(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var5(), FLA_Syrk_un_blk_var6(), FLA_Syrk_un_unb_var5(), FLA_Syrk_un_unb_var6(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Trmm_llc_blk_var3(), FLA_Trmm_llc_blk_var4(), FLA_Trmm_llc_unb_var3(), FLA_Trmm_llc_unb_var4(), FLA_Trmm_llh_blk_var3(), FLA_Trmm_llh_blk_var4(), FLA_Trmm_llh_unb_var3(), FLA_Trmm_llh_unb_var4(), FLA_Trmm_lln_blk_var3(), FLA_Trmm_lln_blk_var4(), FLA_Trmm_lln_unb_var3(), FLA_Trmm_lln_unb_var4(), FLA_Trmm_llt_blk_var3(), FLA_Trmm_llt_blk_var4(), FLA_Trmm_llt_unb_var3(), FLA_Trmm_llt_unb_var4(), FLA_Trmm_luc_blk_var3(), FLA_Trmm_luc_blk_var4(), FLA_Trmm_luc_unb_var3(), FLA_Trmm_luc_unb_var4(), FLA_Trmm_luh_blk_var3(), FLA_Trmm_luh_blk_var4(), FLA_Trmm_luh_unb_var3(), FLA_Trmm_luh_unb_var4(), FLA_Trmm_lun_blk_var3(), FLA_Trmm_lun_blk_var4(), FLA_Trmm_lun_unb_var3(), FLA_Trmm_lun_unb_var4(), FLA_Trmm_lut_blk_var3(), FLA_Trmm_lut_blk_var4(), FLA_Trmm_lut_unb_var3(), FLA_Trmm_lut_unb_var4(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trsm_llc_blk_var3(), FLA_Trsm_llc_blk_var4(), FLA_Trsm_llc_unb_var3(), FLA_Trsm_llc_unb_var4(), FLA_Trsm_llh_blk_var3(), FLA_Trsm_llh_blk_var4(), FLA_Trsm_llh_unb_var3(), FLA_Trsm_llh_unb_var4(), FLA_Trsm_lln_blk_var3(), FLA_Trsm_lln_blk_var4(), FLA_Trsm_lln_unb_var3(), FLA_Trsm_lln_unb_var4(), FLA_Trsm_llt_blk_var3(), FLA_Trsm_llt_blk_var4(), FLA_Trsm_llt_unb_var3(), FLA_Trsm_llt_unb_var4(), FLA_Trsm_luc_blk_var3(), FLA_Trsm_luc_blk_var4(), FLA_Trsm_luc_unb_var3(), FLA_Trsm_luc_unb_var4(), FLA_Trsm_luh_blk_var3(), FLA_Trsm_luh_blk_var4(), FLA_Trsm_luh_unb_var3(), FLA_Trsm_luh_unb_var4(), FLA_Trsm_lun_blk_var3(), FLA_Trsm_lun_blk_var4(), FLA_Trsm_lun_unb_var3(), FLA_Trsm_lun_unb_var4(), FLA_Trsm_lut_blk_var3(), FLA_Trsm_lut_blk_var4(), FLA_Trsm_lut_unb_var3(), FLA_Trsm_lut_unb_var4(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_Axpy_hierarchy(), FLASH_Copy_hierarchy(), FLASH_LU_incpiv_var2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_create_hierarchy(), FLASH_Obj_scalar_width(), FLASH_Obj_show_hierarchy(), FLASH_SA_FS(), and FLASH_Trsm_piv().

◆ FLA_Repart_1x2_to_1x3_check()

FLA_Error FLA_Repart_1x2_to_1x3_check ( FLA_Obj  AL,
FLA_Obj  AR,
FLA_Obj A0,
FLA_Obj A1,
FLA_Obj A2,
dim_t  nb,
FLA_Side  side 
)
16 {
17  FLA_Error e_val;
18 
19  e_val = FLA_Check_valid_object_datatype( AL );
20  FLA_Check_error_code( e_val );
21 
22  e_val = FLA_Check_valid_object_datatype( AR );
23  FLA_Check_error_code( e_val );
24 
25  e_val = FLA_Check_null_pointer( A0 );
26  FLA_Check_error_code( e_val );
27 
28  e_val = FLA_Check_null_pointer( A1 );
29  FLA_Check_error_code( e_val );
30 
31  e_val = FLA_Check_null_pointer( A2 );
32  FLA_Check_error_code( e_val );
33 
34  e_val = FLA_Check_valid_leftright_side( side );
35  FLA_Check_error_code( e_val );
36 
37  if ( side == FLA_LEFT )
38  {
39  e_val = FLA_Check_attempted_repart_1x2( AL, nb );
40  FLA_Check_error_code( e_val );
41  }
42  else if ( side == FLA_RIGHT )
43  {
44  e_val = FLA_Check_attempted_repart_1x2( AR, nb );
45  FLA_Check_error_code( e_val );
46  }
47 
48  // Needed: check for adjacency, similar to those in FLA_Merge_*().
49 
50  return FLA_SUCCESS;
51 }
FLA_Error FLA_Check_attempted_repart_1x2(FLA_Obj A_side, dim_t b_n)
Definition: FLA_Check.c:1114

References FLA_Check_attempted_repart_1x2(), FLA_Check_null_pointer(), FLA_Check_valid_leftright_side(), and FLA_Check_valid_object_datatype().

Referenced by FLA_Repart_1x2_to_1x3().

◆ FLA_Repart_2x1_to_3x1()

FLA_Error FLA_Repart_2x1_to_3x1 ( FLA_Obj  AT,
FLA_Obj A0,
FLA_Obj A1,
FLA_Obj  AB,
FLA_Obj A2,
dim_t  mb,
FLA_Side  side 
)
230 {
231  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
233  A1,
234  AB, A2, mb, side );
235 
236  if ( side == FLA_TOP )
237  {
238  FLA_Part_2x1 ( AT, A0,
239  A1, mb, FLA_BOTTOM );
240 
241  A2->m = AB.m;
242  A2->n = AB.n;
243  A2->offm = AB.offm;
244  A2->offn = AB.offn;
245  A2->base = AB.base;
246  }
247  else
248  {
249  A0->m = AT.m;
250  A0->n = AT.n;
251  A0->offm = AT.offm;
252  A0->offn = AT.offn;
253  A0->base = AT.base;
254 
255  FLA_Part_2x1 ( AB, A1,
256  A2, mb, FLA_TOP );
257  }
258 
259  return FLA_SUCCESS;
260 }
FLA_Error FLA_Repart_2x1_to_3x1_check(FLA_Obj AT, FLA_Obj *A0, FLA_Obj *A1, FLA_Obj AB, FLA_Obj *A2, dim_t mb, FLA_Side side)
Definition: FLA_Repart_2x1_to_3x1_check.c:13
FLA_Error FLA_Part_2x1(FLA_Obj A, FLA_Obj *A1, FLA_Obj *A2, dim_t mb, FLA_Side side)
Definition: FLA_View.c:76

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Part_2x1(), FLA_Repart_2x1_to_3x1_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var2(), FLA_Apply_CAQ_UT_inc_apply_panels(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_pivots_ln_blk_var2(), FLA_Apply_Q2_UT_lhfc_blk_var1(), FLA_Apply_Q2_UT_lhfc_blk_var2(), FLA_Apply_Q2_UT_lnfc_blk_var1(), FLA_Apply_Q2_UT_lnfc_blk_var2(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var2(), FLA_Apply_Q_UT_rhbr_blk_var2(), FLA_Apply_Q_UT_rhfc_blk_var2(), FLA_Apply_Q_UT_rhfr_blk_var2(), FLA_Apply_Q_UT_rnbc_blk_var2(), FLA_Apply_Q_UT_rnbr_blk_var2(), FLA_Apply_Q_UT_rnfc_blk_var2(), FLA_Apply_Q_UT_rnfr_blk_var2(), FLA_Apply_QUD_UT_inc_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var1(), FLA_Apply_QUD_UT_lhfc_blk_var3(), FLA_Axpy_blk_var1(), FLA_Axpy_blk_var2(), FLA_Axpyt_c_blk_var1(), FLA_Axpyt_c_blk_var2(), FLA_Axpyt_h_blk_var1(), FLA_Axpyt_h_blk_var2(), FLA_Axpyt_h_blk_var3(), FLA_Axpyt_h_blk_var4(), FLA_Axpyt_n_blk_var1(), FLA_Axpyt_n_blk_var2(), FLA_Axpyt_t_blk_var1(), FLA_Axpyt_t_blk_var2(), FLA_Axpyt_t_blk_var3(), FLA_Axpyt_t_blk_var4(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_panel(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_CAQR2_UT_blk_var2(), FLA_CAQR_UT_inc_copy_triangles(), FLA_CAQR_UT_inc_factorize_panels(), FLA_Copy_blk_var1(), FLA_Copy_blk_var2(), FLA_Copyt_c_blk_var1(), FLA_Copyt_c_blk_var2(), FLA_Copyt_h_blk_var1(), FLA_Copyt_h_blk_var2(), FLA_Copyt_h_blk_var3(), FLA_Copyt_h_blk_var4(), FLA_Copyt_n_blk_var1(), FLA_Copyt_n_blk_var2(), FLA_Copyt_t_blk_var1(), FLA_Copyt_t_blk_var2(), FLA_Copyt_t_blk_var3(), FLA_Copyt_t_blk_var4(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Fill_with_cluster_dist(), FLA_Fill_with_geometric_dist(), FLA_Fill_with_inverse_dist(), FLA_Fill_with_linear_dist(), FLA_Fill_with_logarithmic_dist(), FLA_Gemm_cc_blk_var1(), FLA_Gemm_cc_blk_var2(), FLA_Gemm_cc_blk_var5(), FLA_Gemm_cc_blk_var6(), FLA_Gemm_cc_unb_var1(), FLA_Gemm_cc_unb_var2(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_blk_var1(), FLA_Gemm_ch_blk_var2(), FLA_Gemm_ch_blk_var3(), FLA_Gemm_ch_blk_var4(), FLA_Gemm_ch_unb_var1(), FLA_Gemm_ch_unb_var2(), FLA_Gemm_ch_unb_var3(), FLA_Gemm_ch_unb_var4(), FLA_Gemm_cn_blk_var1(), FLA_Gemm_cn_blk_var2(), FLA_Gemm_cn_blk_var5(), FLA_Gemm_cn_blk_var6(), FLA_Gemm_cn_unb_var1(), FLA_Gemm_cn_unb_var2(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_blk_var1(), FLA_Gemm_ct_blk_var2(), FLA_Gemm_ct_blk_var3(), FLA_Gemm_ct_blk_var4(), FLA_Gemm_ct_unb_var1(), FLA_Gemm_ct_unb_var2(), FLA_Gemm_ct_unb_var3(), FLA_Gemm_ct_unb_var4(), FLA_Gemm_hc_blk_var1(), FLA_Gemm_hc_blk_var2(), FLA_Gemm_hc_blk_var5(), FLA_Gemm_hc_blk_var6(), FLA_Gemm_hc_unb_var1(), FLA_Gemm_hc_unb_var2(), FLA_Gemm_hc_unb_var5(), FLA_Gemm_hc_unb_var6(), FLA_Gemm_hh_blk_var1(), FLA_Gemm_hh_blk_var2(), FLA_Gemm_hh_blk_var3(), FLA_Gemm_hh_blk_var4(), FLA_Gemm_hh_blk_var5(), FLA_Gemm_hh_blk_var6(), FLA_Gemm_hh_unb_var1(), FLA_Gemm_hh_unb_var2(), FLA_Gemm_hh_unb_var3(), FLA_Gemm_hh_unb_var4(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_blk_var1(), FLA_Gemm_hn_blk_var2(), FLA_Gemm_hn_blk_var5(), FLA_Gemm_hn_blk_var6(), FLA_Gemm_hn_unb_var1(), FLA_Gemm_hn_unb_var2(), FLA_Gemm_hn_unb_var5(), FLA_Gemm_hn_unb_var6(), FLA_Gemm_ht_blk_var1(), FLA_Gemm_ht_blk_var2(), FLA_Gemm_ht_blk_var3(), FLA_Gemm_ht_blk_var4(), FLA_Gemm_ht_blk_var5(), FLA_Gemm_ht_blk_var6(), FLA_Gemm_ht_unb_var1(), FLA_Gemm_ht_unb_var2(), FLA_Gemm_ht_unb_var3(), FLA_Gemm_ht_unb_var4(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_blk_var1(), FLA_Gemm_nc_blk_var2(), FLA_Gemm_nc_blk_var5(), FLA_Gemm_nc_blk_var6(), FLA_Gemm_nc_unb_var1(), FLA_Gemm_nc_unb_var2(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_blk_var1(), FLA_Gemm_nh_blk_var2(), FLA_Gemm_nh_blk_var3(), FLA_Gemm_nh_blk_var4(), FLA_Gemm_nh_unb_var1(), FLA_Gemm_nh_unb_var2(), FLA_Gemm_nh_unb_var3(), FLA_Gemm_nh_unb_var4(), FLA_Gemm_nn_blk_var1(), FLA_Gemm_nn_blk_var2(), FLA_Gemm_nn_blk_var5(), FLA_Gemm_nn_blk_var6(), FLA_Gemm_nn_unb_var1(), FLA_Gemm_nn_unb_var2(), FLA_Gemm_nn_unb_var5(), FLA_Gemm_nn_unb_var6(), FLA_Gemm_nt_blk_var1(), FLA_Gemm_nt_blk_var2(), FLA_Gemm_nt_blk_var3(), FLA_Gemm_nt_blk_var4(), FLA_Gemm_nt_unb_var1(), FLA_Gemm_nt_unb_var2(), FLA_Gemm_nt_unb_var3(), FLA_Gemm_nt_unb_var4(), FLA_Gemm_tc_blk_var1(), FLA_Gemm_tc_blk_var2(), FLA_Gemm_tc_blk_var5(), FLA_Gemm_tc_blk_var6(), FLA_Gemm_tc_unb_var1(), FLA_Gemm_tc_unb_var2(), FLA_Gemm_tc_unb_var5(), FLA_Gemm_tc_unb_var6(), FLA_Gemm_th_blk_var1(), FLA_Gemm_th_blk_var2(), FLA_Gemm_th_blk_var3(), FLA_Gemm_th_blk_var4(), FLA_Gemm_th_blk_var5(), FLA_Gemm_th_blk_var6(), FLA_Gemm_th_unb_var1(), FLA_Gemm_th_unb_var2(), FLA_Gemm_th_unb_var3(), FLA_Gemm_th_unb_var4(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gemm_tn_blk_var1(), FLA_Gemm_tn_blk_var2(), FLA_Gemm_tn_blk_var5(), FLA_Gemm_tn_blk_var6(), FLA_Gemm_tn_unb_var1(), FLA_Gemm_tn_unb_var2(), FLA_Gemm_tn_unb_var5(), FLA_Gemm_tn_unb_var6(), FLA_Gemm_tt_blk_var1(), FLA_Gemm_tt_blk_var2(), FLA_Gemm_tt_blk_var3(), FLA_Gemm_tt_blk_var4(), FLA_Gemm_tt_blk_var5(), FLA_Gemm_tt_blk_var6(), FLA_Gemm_tt_unb_var1(), FLA_Gemm_tt_unb_var2(), FLA_Gemm_tt_unb_var3(), FLA_Gemm_tt_unb_var4(), FLA_Gemm_tt_unb_var5(), FLA_Gemm_tt_unb_var6(), FLA_Gemv_h_blk_var1(), FLA_Gemv_h_blk_var2(), FLA_Gemv_h_blk_var5(), FLA_Gemv_h_blk_var6(), FLA_Gemv_n_blk_var1(), FLA_Gemv_n_blk_var2(), FLA_Gemv_n_blk_var5(), FLA_Gemv_n_blk_var6(), FLA_Gemv_t_blk_var1(), FLA_Gemv_t_blk_var2(), FLA_Gemv_t_blk_var5(), FLA_Gemv_t_blk_var6(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var10(), FLA_Hemm_rl_blk_var9(), FLA_Hemm_rl_unb_var10(), FLA_Hemm_rl_unb_var9(), FLA_Hemm_ru_blk_var10(), FLA_Hemm_ru_blk_var9(), FLA_Hemm_ru_unb_var10(), FLA_Hemm_ru_unb_var9(), FLA_Her2k_lh_blk_var10(), FLA_Her2k_lh_blk_var9(), FLA_Her2k_lh_unb_var10(), FLA_Her2k_lh_unb_var9(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var10(), FLA_Her2k_uh_blk_var9(), FLA_Her2k_uh_unb_var10(), FLA_Her2k_uh_unb_var9(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Herk_lh_blk_var5(), FLA_Herk_lh_blk_var6(), FLA_Herk_lh_unb_var5(), FLA_Herk_lh_unb_var6(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var5(), FLA_Herk_uh_blk_var6(), FLA_Herk_uh_unb_var5(), FLA_Herk_uh_unb_var6(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau(), FLA_Hess_UT_recover_tau_submatrix(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Norm_inf(), FLA_QR2_UT_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_colnorm(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau(), FLA_QR_UT_recover_tau_submatrix(), FLA_SA_FS_blk(), FLA_SA_LU_blk(), FLA_Scal_blk_var1(), FLA_Scal_blk_var2(), FLA_Swap_t_blk_var1(), FLA_Swap_t_blk_var2(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var10(), FLA_Symm_rl_blk_var9(), FLA_Symm_rl_unb_var10(), FLA_Symm_rl_unb_var9(), FLA_Symm_ru_blk_var10(), FLA_Symm_ru_blk_var9(), FLA_Symm_ru_unb_var10(), FLA_Symm_ru_unb_var9(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var10(), FLA_Syr2k_lt_blk_var9(), FLA_Syr2k_lt_unb_var10(), FLA_Syr2k_lt_unb_var9(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var10(), FLA_Syr2k_ut_blk_var9(), FLA_Syr2k_ut_unb_var10(), FLA_Syr2k_ut_unb_var9(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var5(), FLA_Syrk_lt_blk_var6(), FLA_Syrk_lt_unb_var5(), FLA_Syrk_lt_unb_var6(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var5(), FLA_Syrk_ut_blk_var6(), FLA_Syrk_ut_unb_var5(), FLA_Syrk_ut_unb_var6(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var3(), FLA_Trmm_rlc_blk_var4(), FLA_Trmm_rlc_unb_var3(), FLA_Trmm_rlc_unb_var4(), FLA_Trmm_rlh_blk_var3(), FLA_Trmm_rlh_blk_var4(), FLA_Trmm_rlh_unb_var3(), FLA_Trmm_rlh_unb_var4(), FLA_Trmm_rln_blk_var3(), FLA_Trmm_rln_blk_var4(), FLA_Trmm_rln_unb_var3(), FLA_Trmm_rln_unb_var4(), FLA_Trmm_rlt_blk_var3(), FLA_Trmm_rlt_blk_var4(), FLA_Trmm_rlt_unb_var3(), FLA_Trmm_rlt_unb_var4(), FLA_Trmm_ruc_blk_var3(), FLA_Trmm_ruc_blk_var4(), FLA_Trmm_ruc_unb_var3(), FLA_Trmm_ruc_unb_var4(), FLA_Trmm_ruh_blk_var3(), FLA_Trmm_ruh_blk_var4(), FLA_Trmm_ruh_unb_var3(), FLA_Trmm_ruh_unb_var4(), FLA_Trmm_run_blk_var3(), FLA_Trmm_run_blk_var4(), FLA_Trmm_run_unb_var3(), FLA_Trmm_run_unb_var4(), FLA_Trmm_rut_blk_var3(), FLA_Trmm_rut_blk_var4(), FLA_Trmm_rut_unb_var3(), FLA_Trmm_rut_unb_var4(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var3(), FLA_Trsm_rlc_blk_var4(), FLA_Trsm_rlc_unb_var3(), FLA_Trsm_rlc_unb_var4(), FLA_Trsm_rlh_blk_var3(), FLA_Trsm_rlh_blk_var4(), FLA_Trsm_rlh_unb_var3(), FLA_Trsm_rlh_unb_var4(), FLA_Trsm_rln_blk_var3(), FLA_Trsm_rln_blk_var4(), FLA_Trsm_rln_unb_var3(), FLA_Trsm_rln_unb_var4(), FLA_Trsm_rlt_blk_var3(), FLA_Trsm_rlt_blk_var4(), FLA_Trsm_rlt_unb_var3(), FLA_Trsm_rlt_unb_var4(), FLA_Trsm_ruc_blk_var3(), FLA_Trsm_ruc_blk_var4(), FLA_Trsm_ruc_unb_var3(), FLA_Trsm_ruc_unb_var4(), FLA_Trsm_ruh_blk_var3(), FLA_Trsm_ruh_blk_var4(), FLA_Trsm_ruh_unb_var3(), FLA_Trsm_ruh_unb_var4(), FLA_Trsm_run_blk_var3(), FLA_Trsm_run_blk_var4(), FLA_Trsm_run_unb_var3(), FLA_Trsm_run_unb_var4(), FLA_Trsm_rut_blk_var3(), FLA_Trsm_rut_blk_var4(), FLA_Trsm_rut_unb_var3(), FLA_Trsm_rut_unb_var4(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_UDdate_UT_blk_var2(), FLASH_Axpy_hierarchy(), FLASH_CAQR_UT_inc_adjust_views(), FLASH_Copy_hierarchy(), FLASH_FS_incpiv_aux1(), FLASH_FS_incpiv_aux2(), FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_attach_buffer_hierarchy(), FLASH_Obj_scalar_length(), FLASH_QR_UT_inc_create_hier_matrices(), and FLASH_SA_LU().

◆ FLA_Repart_2x1_to_3x1_check()

FLA_Error FLA_Repart_2x1_to_3x1_check ( FLA_Obj  AT,
FLA_Obj A0,
FLA_Obj A1,
FLA_Obj  AB,
FLA_Obj A2,
dim_t  mb,
FLA_Side  side 
)
17 {
18  FLA_Error e_val;
19 
20  e_val = FLA_Check_valid_object_datatype( AT );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_valid_object_datatype( AB );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_null_pointer( A0 );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_null_pointer( A1 );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_null_pointer( A2 );
33  FLA_Check_error_code( e_val );
34 
35  e_val = FLA_Check_valid_topbottom_side( side );
36  FLA_Check_error_code( e_val );
37 
38  if ( side == FLA_TOP )
39  {
40  e_val = FLA_Check_attempted_repart_2x1( AT, mb );
41  FLA_Check_error_code( e_val );
42  }
43  else if ( side == FLA_BOTTOM )
44  {
45  e_val = FLA_Check_attempted_repart_2x1( AB, mb );
46  FLA_Check_error_code( e_val );
47  }
48 
49  // Needed: check for adjacency, similar to those in FLA_Merge_*().
50 
51  return FLA_SUCCESS;
52 }
FLA_Error FLA_Check_attempted_repart_2x1(FLA_Obj A_side, dim_t b_m)
Definition: FLA_Check.c:1104

References FLA_Check_attempted_repart_2x1(), FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_topbottom_side().

Referenced by FLA_Repart_2x1_to_3x1().

◆ FLA_Repart_2x2_to_3x3()

FLA_Error FLA_Repart_2x2_to_3x3 ( FLA_Obj  ATL,
FLA_Obj  ATR,
FLA_Obj A00,
FLA_Obj A01,
FLA_Obj A02,
FLA_Obj A10,
FLA_Obj A11,
FLA_Obj A12,
FLA_Obj  ABL,
FLA_Obj  ABR,
FLA_Obj A20,
FLA_Obj A21,
FLA_Obj A22,
dim_t  mb,
dim_t  nb,
FLA_Quadrant  quadrant 
)
146 {
147  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
148  FLA_Repart_2x2_to_3x3_check( ATL, ATR, A00, A01, A02,
149  A10, A11, A12,
150  ABL, ABR, A20, A21, A22,
151  mb, nb, quadrant );
152 
153  if ( quadrant == FLA_BR )
154  {
155  FLA_Part_2x2( ABR, A11, A12,
156  A21, A22, mb, nb, FLA_TL );
157 
158  FLA_Part_1x2( ATR, A01, A02, nb, FLA_LEFT );
159 
160  FLA_Part_2x1( ABL, A10,
161  A20, mb, FLA_TOP );
162 
163  A00->m = ATL.m;
164  A00->n = ATL.n;
165  A00->offm = ATL.offm;
166  A00->offn = ATL.offn;
167  A00->base = ATL.base;
168  }
169  else if ( quadrant == FLA_BL )
170  {
171  FLA_Part_2x2( ABL, A10, A11,
172  A20, A21, mb, nb, FLA_TR );
173 
174  FLA_Part_1x2( ATL, A00, A01, nb, FLA_RIGHT );
175 
176  FLA_Part_2x1( ABR, A12,
177  A22, mb, FLA_TOP );
178 
179  A02->m = ATR.m;
180  A02->n = ATR.n;
181  A02->offm = ATR.offm;
182  A02->offn = ATR.offn;
183  A02->base = ATR.base;
184  }
185  else if ( quadrant == FLA_TL )
186  {
187  FLA_Part_2x2( ATL, A00, A01,
188  A10, A11, mb, nb, FLA_BR );
189 
190  FLA_Part_1x2( ABL, A20, A21, nb, FLA_RIGHT );
191 
192  FLA_Part_2x1( ATR, A02,
193  A12, mb, FLA_BOTTOM );
194 
195  A22->m = ABR.m;
196  A22->n = ABR.n;
197  A22->offm = ABR.offm;
198  A22->offn = ABR.offn;
199  A22->base = ABR.base;
200  }
201  else if ( quadrant == FLA_TR )
202  {
203  FLA_Part_2x2( ATR, A01, A02,
204  A11, A12, mb, nb, FLA_BL );
205 
206  FLA_Part_1x2( ABR, A21, A22, nb, FLA_LEFT );
207 
208  FLA_Part_2x1( ATL, A00,
209  A10, mb, FLA_BOTTOM );
210 
211  A20->m = ABL.m;
212  A20->n = ABL.n;
213  A20->offm = ABL.offm;
214  A20->offn = ABL.offn;
215  A20->base = ABL.base;
216  }
217 
218  return FLA_SUCCESS;
219 }
FLA_Error FLA_Repart_2x2_to_3x3_check(FLA_Obj ATL, FLA_Obj ATR, FLA_Obj *A00, FLA_Obj *A01, FLA_Obj *A02, FLA_Obj *A10, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj ABL, FLA_Obj ABR, FLA_Obj *A20, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
Definition: FLA_Repart_2x2_to_3x3_check.c:13
FLA_Error FLA_Part_2x2(FLA_Obj A, FLA_Obj *A11, FLA_Obj *A12, FLA_Obj *A21, FLA_Obj *A22, dim_t mb, dim_t nb, FLA_Quadrant quadrant)
Definition: FLA_View.c:17

References FLA_Obj_view::base, FLA_Check_error_level(), FLA_Part_1x2(), FLA_Part_2x1(), FLA_Part_2x2(), FLA_Repart_2x2_to_3x3_check(), FLA_Obj_view::m, FLA_Obj_view::n, FLA_Obj_view::offm, and FLA_Obj_view::offn.

Referenced by FLA_Accum_T_UT_fc_blk_var2(), FLA_Accum_T_UT_fc_unb_var1(), FLA_Accum_T_UT_fr_blk_var2(), FLA_Accum_T_UT_fr_unb_var1(), FLA_Apply_CAQ2_UT_lhfc_blk_var1(), FLA_Apply_CAQ_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lhfc_blk_var1(), FLA_Apply_Q_UT_inc_lnfc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var1(), FLA_Apply_Q_UT_lhbc_blk_var3(), FLA_Apply_Q_UT_lhbr_blk_var1(), FLA_Apply_Q_UT_lhbr_blk_var3(), FLA_Apply_Q_UT_lhfc_blk_var1(), FLA_Apply_Q_UT_lhfc_blk_var3(), FLA_Apply_Q_UT_lhfr_blk_var1(), FLA_Apply_Q_UT_lhfr_blk_var3(), FLA_Apply_Q_UT_lnbc_blk_var1(), FLA_Apply_Q_UT_lnbc_blk_var3(), FLA_Apply_Q_UT_lnbr_blk_var1(), FLA_Apply_Q_UT_lnbr_blk_var3(), FLA_Apply_Q_UT_lnfc_blk_var1(), FLA_Apply_Q_UT_lnfc_blk_var3(), FLA_Apply_Q_UT_lnfr_blk_var1(), FLA_Apply_Q_UT_lnfr_blk_var3(), FLA_Apply_Q_UT_rhbc_blk_var1(), FLA_Apply_Q_UT_rhbc_blk_var3(), FLA_Apply_Q_UT_rhbr_blk_var1(), FLA_Apply_Q_UT_rhbr_blk_var3(), FLA_Apply_Q_UT_rhfc_blk_var1(), FLA_Apply_Q_UT_rhfc_blk_var3(), FLA_Apply_Q_UT_rhfr_blk_var1(), FLA_Apply_Q_UT_rhfr_blk_var3(), FLA_Apply_Q_UT_rnbc_blk_var1(), FLA_Apply_Q_UT_rnbc_blk_var3(), FLA_Apply_Q_UT_rnbr_blk_var1(), FLA_Apply_Q_UT_rnbr_blk_var3(), FLA_Apply_Q_UT_rnfc_blk_var1(), FLA_Apply_Q_UT_rnfc_blk_var3(), FLA_Apply_Q_UT_rnfr_blk_var1(), FLA_Apply_Q_UT_rnfr_blk_var3(), FLA_Bidiag_UT_l_realify_unb(), FLA_Bidiag_UT_recover_tau_submatrix(), FLA_Bidiag_UT_u_blf_var2(), FLA_Bidiag_UT_u_blf_var3(), FLA_Bidiag_UT_u_blf_var4(), FLA_Bidiag_UT_u_blk_var1(), FLA_Bidiag_UT_u_blk_var2(), FLA_Bidiag_UT_u_blk_var3(), FLA_Bidiag_UT_u_blk_var4(), FLA_Bidiag_UT_u_blk_var5(), FLA_Bidiag_UT_u_realify_unb(), FLA_Bidiag_UT_u_step_unb_var1(), FLA_Bidiag_UT_u_step_unb_var2(), FLA_Bidiag_UT_u_step_unb_var3(), FLA_Bidiag_UT_u_step_unb_var4(), FLA_Bidiag_UT_u_step_unb_var5(), FLA_CAQR2_UT_blk_var1(), FLA_CAQR2_UT_unb_var1(), FLA_CAQR_UT_inc_blk_var1(), FLA_Chol_l_blk_var1(), FLA_Chol_l_blk_var2(), FLA_Chol_l_blk_var3(), FLA_Chol_l_unb_var1(), FLA_Chol_l_unb_var2(), FLA_Chol_l_unb_var3(), FLA_Chol_u_blk_var1(), FLA_Chol_u_blk_var2(), FLA_Chol_u_blk_var3(), FLA_Chol_u_unb_var1(), FLA_Chol_u_unb_var2(), FLA_Chol_u_unb_var3(), FLA_Copyr_l_blk_var1(), FLA_Copyr_l_blk_var2(), FLA_Copyr_l_blk_var3(), FLA_Copyr_l_blk_var4(), FLA_Copyr_u_blk_var1(), FLA_Copyr_u_blk_var2(), FLA_Copyr_u_blk_var3(), FLA_Copyr_u_blk_var4(), FLA_Eig_gest_il_blk_var1(), FLA_Eig_gest_il_blk_var2(), FLA_Eig_gest_il_blk_var3(), FLA_Eig_gest_il_blk_var4(), FLA_Eig_gest_il_blk_var5(), FLA_Eig_gest_il_unb_var1(), FLA_Eig_gest_il_unb_var2(), FLA_Eig_gest_il_unb_var3(), FLA_Eig_gest_il_unb_var4(), FLA_Eig_gest_il_unb_var5(), FLA_Eig_gest_iu_blk_var1(), FLA_Eig_gest_iu_blk_var2(), FLA_Eig_gest_iu_blk_var3(), FLA_Eig_gest_iu_blk_var4(), FLA_Eig_gest_iu_blk_var5(), FLA_Eig_gest_iu_unb_var1(), FLA_Eig_gest_iu_unb_var2(), FLA_Eig_gest_iu_unb_var3(), FLA_Eig_gest_iu_unb_var4(), FLA_Eig_gest_iu_unb_var5(), FLA_Eig_gest_nl_blk_var1(), FLA_Eig_gest_nl_blk_var2(), FLA_Eig_gest_nl_blk_var4(), FLA_Eig_gest_nl_blk_var5(), FLA_Eig_gest_nl_unb_var1(), FLA_Eig_gest_nl_unb_var2(), FLA_Eig_gest_nl_unb_var4(), FLA_Eig_gest_nl_unb_var5(), FLA_Eig_gest_nu_blk_var1(), FLA_Eig_gest_nu_blk_var2(), FLA_Eig_gest_nu_blk_var4(), FLA_Eig_gest_nu_blk_var5(), FLA_Eig_gest_nu_unb_var1(), FLA_Eig_gest_nu_unb_var2(), FLA_Eig_gest_nu_unb_var4(), FLA_Eig_gest_nu_unb_var5(), FLA_Hemm_ll_blk_var1(), FLA_Hemm_ll_blk_var2(), FLA_Hemm_ll_blk_var3(), FLA_Hemm_ll_blk_var4(), FLA_Hemm_ll_blk_var5(), FLA_Hemm_ll_blk_var6(), FLA_Hemm_ll_blk_var7(), FLA_Hemm_ll_blk_var8(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var2(), FLA_Hemm_ll_unb_var3(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var5(), FLA_Hemm_ll_unb_var6(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_blk_var1(), FLA_Hemm_lu_blk_var2(), FLA_Hemm_lu_blk_var3(), FLA_Hemm_lu_blk_var4(), FLA_Hemm_lu_blk_var5(), FLA_Hemm_lu_blk_var6(), FLA_Hemm_lu_blk_var7(), FLA_Hemm_lu_blk_var8(), FLA_Hemm_lu_unb_var1(), FLA_Hemm_lu_unb_var2(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var6(), FLA_Hemm_lu_unb_var7(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_blk_var1(), FLA_Hemm_rl_blk_var2(), FLA_Hemm_rl_blk_var3(), FLA_Hemm_rl_blk_var4(), FLA_Hemm_rl_blk_var5(), FLA_Hemm_rl_blk_var6(), FLA_Hemm_rl_blk_var7(), FLA_Hemm_rl_blk_var8(), FLA_Hemm_rl_unb_var1(), FLA_Hemm_rl_unb_var2(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var6(), FLA_Hemm_rl_unb_var7(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_blk_var1(), FLA_Hemm_ru_blk_var2(), FLA_Hemm_ru_blk_var3(), FLA_Hemm_ru_blk_var4(), FLA_Hemm_ru_blk_var5(), FLA_Hemm_ru_blk_var6(), FLA_Hemm_ru_blk_var7(), FLA_Hemm_ru_blk_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var2(), FLA_Hemm_ru_unb_var3(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var5(), FLA_Hemm_ru_unb_var6(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Her2k_lh_blk_var1(), FLA_Her2k_lh_blk_var2(), FLA_Her2k_lh_blk_var3(), FLA_Her2k_lh_blk_var4(), FLA_Her2k_lh_blk_var5(), FLA_Her2k_lh_blk_var6(), FLA_Her2k_lh_blk_var7(), FLA_Her2k_lh_blk_var8(), FLA_Her2k_lh_unb_var1(), FLA_Her2k_lh_unb_var2(), FLA_Her2k_lh_unb_var3(), FLA_Her2k_lh_unb_var4(), FLA_Her2k_lh_unb_var5(), FLA_Her2k_lh_unb_var6(), FLA_Her2k_lh_unb_var7(), FLA_Her2k_lh_unb_var8(), FLA_Her2k_ln_blk_var1(), FLA_Her2k_ln_blk_var2(), FLA_Her2k_ln_blk_var3(), FLA_Her2k_ln_blk_var4(), FLA_Her2k_ln_blk_var5(), FLA_Her2k_ln_blk_var6(), FLA_Her2k_ln_blk_var7(), FLA_Her2k_ln_blk_var8(), FLA_Her2k_ln_unb_var1(), FLA_Her2k_ln_unb_var2(), FLA_Her2k_ln_unb_var3(), FLA_Her2k_ln_unb_var4(), FLA_Her2k_ln_unb_var5(), FLA_Her2k_ln_unb_var6(), FLA_Her2k_ln_unb_var7(), FLA_Her2k_ln_unb_var8(), FLA_Her2k_uh_blk_var1(), FLA_Her2k_uh_blk_var2(), FLA_Her2k_uh_blk_var3(), FLA_Her2k_uh_blk_var4(), FLA_Her2k_uh_blk_var5(), FLA_Her2k_uh_blk_var6(), FLA_Her2k_uh_blk_var7(), FLA_Her2k_uh_blk_var8(), FLA_Her2k_uh_unb_var1(), FLA_Her2k_uh_unb_var2(), FLA_Her2k_uh_unb_var3(), FLA_Her2k_uh_unb_var4(), FLA_Her2k_uh_unb_var5(), FLA_Her2k_uh_unb_var6(), FLA_Her2k_uh_unb_var7(), FLA_Her2k_uh_unb_var8(), FLA_Her2k_un_blk_var1(), FLA_Her2k_un_blk_var2(), FLA_Her2k_un_blk_var3(), FLA_Her2k_un_blk_var4(), FLA_Her2k_un_blk_var5(), FLA_Her2k_un_blk_var6(), FLA_Her2k_un_blk_var7(), FLA_Her2k_un_blk_var8(), FLA_Her2k_un_unb_var1(), FLA_Her2k_un_unb_var2(), FLA_Her2k_un_unb_var3(), FLA_Her2k_un_unb_var4(), FLA_Her2k_un_unb_var5(), FLA_Her2k_un_unb_var6(), FLA_Her2k_un_unb_var7(), FLA_Her2k_un_unb_var8(), FLA_Herk_lh_blk_var1(), FLA_Herk_lh_blk_var2(), FLA_Herk_lh_blk_var3(), FLA_Herk_lh_blk_var4(), FLA_Herk_lh_unb_var1(), FLA_Herk_lh_unb_var2(), FLA_Herk_lh_unb_var3(), FLA_Herk_lh_unb_var4(), FLA_Herk_ln_blk_var1(), FLA_Herk_ln_blk_var2(), FLA_Herk_ln_blk_var3(), FLA_Herk_ln_blk_var4(), FLA_Herk_ln_unb_var1(), FLA_Herk_ln_unb_var2(), FLA_Herk_ln_unb_var3(), FLA_Herk_ln_unb_var4(), FLA_Herk_uh_blk_var1(), FLA_Herk_uh_blk_var2(), FLA_Herk_uh_blk_var3(), FLA_Herk_uh_blk_var4(), FLA_Herk_uh_unb_var1(), FLA_Herk_uh_unb_var2(), FLA_Herk_uh_unb_var3(), FLA_Herk_uh_unb_var4(), FLA_Herk_un_blk_var1(), FLA_Herk_un_blk_var2(), FLA_Herk_un_blk_var3(), FLA_Herk_un_blk_var4(), FLA_Herk_un_unb_var1(), FLA_Herk_un_unb_var2(), FLA_Herk_un_unb_var3(), FLA_Herk_un_unb_var4(), FLA_Hess_UT_blf_var2(), FLA_Hess_UT_blf_var3(), FLA_Hess_UT_blf_var4(), FLA_Hess_UT_blk_var1(), FLA_Hess_UT_blk_var2(), FLA_Hess_UT_blk_var3(), FLA_Hess_UT_blk_var4(), FLA_Hess_UT_blk_var5(), FLA_Hess_UT_recover_tau_submatrix(), FLA_Hess_UT_step_unb_var1(), FLA_Hess_UT_step_unb_var2(), FLA_Hess_UT_step_unb_var3(), FLA_Hess_UT_step_unb_var4(), FLA_Hess_UT_step_unb_var5(), FLA_LQ_UT_blk_var1(), FLA_LQ_UT_blk_var2(), FLA_LQ_UT_blk_var3(), FLA_LQ_UT_unb_var1(), FLA_LQ_UT_unb_var2(), FLA_LU_find_zero_on_diagonal(), FLA_LU_nopiv_blk_var1(), FLA_LU_nopiv_blk_var2(), FLA_LU_nopiv_blk_var3(), FLA_LU_nopiv_blk_var4(), FLA_LU_nopiv_blk_var5(), FLA_LU_nopiv_unb_var1(), FLA_LU_nopiv_unb_var2(), FLA_LU_nopiv_unb_var3(), FLA_LU_nopiv_unb_var4(), FLA_LU_nopiv_unb_var5(), FLA_LU_piv_blk_var3(), FLA_LU_piv_blk_var4(), FLA_LU_piv_blk_var5(), FLA_LU_piv_unb_var3(), FLA_LU_piv_unb_var3b(), FLA_LU_piv_unb_var4(), FLA_LU_piv_unb_var5(), FLA_Lyap_h_blk_var1(), FLA_Lyap_h_blk_var2(), FLA_Lyap_h_blk_var3(), FLA_Lyap_h_blk_var4(), FLA_Lyap_h_unb_var1(), FLA_Lyap_h_unb_var2(), FLA_Lyap_h_unb_var3(), FLA_Lyap_h_unb_var4(), FLA_Lyap_n_blk_var1(), FLA_Lyap_n_blk_var2(), FLA_Lyap_n_blk_var3(), FLA_Lyap_n_blk_var4(), FLA_Lyap_n_unb_var1(), FLA_Lyap_n_unb_var2(), FLA_Lyap_n_unb_var3(), FLA_Lyap_n_unb_var4(), FLA_QR2_UT_blk_var1(), FLA_QR2_UT_unb_var1(), FLA_QR_UT_blk_var1(), FLA_QR_UT_blk_var2(), FLA_QR_UT_blk_var3(), FLA_QR_UT_form_Q_blk_var1(), FLA_QR_UT_inc_blk_var1(), FLA_QR_UT_inc_blk_var2(), FLA_QR_UT_piv_blk_var1(), FLA_QR_UT_piv_blk_var2(), FLA_QR_UT_piv_unb_var1(), FLA_QR_UT_piv_unb_var2(), FLA_QR_UT_recover_tau_submatrix(), FLA_QR_UT_unb_var1(), FLA_QR_UT_unb_var2(), FLA_SA_LU_blk(), FLA_Scalr_l_blk_var1(), FLA_Scalr_l_blk_var2(), FLA_Scalr_l_blk_var3(), FLA_Scalr_l_blk_var4(), FLA_Scalr_u_blk_var1(), FLA_Scalr_u_blk_var2(), FLA_Scalr_u_blk_var3(), FLA_Scalr_u_blk_var4(), FLA_Sylv_hh_blk_var1(), FLA_Sylv_hh_blk_var10(), FLA_Sylv_hh_blk_var11(), FLA_Sylv_hh_blk_var12(), FLA_Sylv_hh_blk_var13(), FLA_Sylv_hh_blk_var14(), FLA_Sylv_hh_blk_var15(), FLA_Sylv_hh_blk_var16(), FLA_Sylv_hh_blk_var17(), FLA_Sylv_hh_blk_var18(), FLA_Sylv_hh_blk_var2(), FLA_Sylv_hh_blk_var3(), FLA_Sylv_hh_blk_var4(), FLA_Sylv_hh_blk_var5(), FLA_Sylv_hh_blk_var6(), FLA_Sylv_hh_blk_var7(), FLA_Sylv_hh_blk_var8(), FLA_Sylv_hh_blk_var9(), FLA_Sylv_hn_blk_var1(), FLA_Sylv_hn_blk_var10(), FLA_Sylv_hn_blk_var11(), FLA_Sylv_hn_blk_var12(), FLA_Sylv_hn_blk_var13(), FLA_Sylv_hn_blk_var14(), FLA_Sylv_hn_blk_var15(), FLA_Sylv_hn_blk_var16(), FLA_Sylv_hn_blk_var17(), FLA_Sylv_hn_blk_var18(), FLA_Sylv_hn_blk_var2(), FLA_Sylv_hn_blk_var3(), FLA_Sylv_hn_blk_var4(), FLA_Sylv_hn_blk_var5(), FLA_Sylv_hn_blk_var6(), FLA_Sylv_hn_blk_var7(), FLA_Sylv_hn_blk_var8(), FLA_Sylv_hn_blk_var9(), FLA_Sylv_nh_blk_var1(), FLA_Sylv_nh_blk_var10(), FLA_Sylv_nh_blk_var11(), FLA_Sylv_nh_blk_var12(), FLA_Sylv_nh_blk_var13(), FLA_Sylv_nh_blk_var14(), FLA_Sylv_nh_blk_var15(), FLA_Sylv_nh_blk_var16(), FLA_Sylv_nh_blk_var17(), FLA_Sylv_nh_blk_var18(), FLA_Sylv_nh_blk_var2(), FLA_Sylv_nh_blk_var3(), FLA_Sylv_nh_blk_var4(), FLA_Sylv_nh_blk_var5(), FLA_Sylv_nh_blk_var6(), FLA_Sylv_nh_blk_var7(), FLA_Sylv_nh_blk_var8(), FLA_Sylv_nh_blk_var9(), FLA_Sylv_nn_blk_var1(), FLA_Sylv_nn_blk_var10(), FLA_Sylv_nn_blk_var11(), FLA_Sylv_nn_blk_var12(), FLA_Sylv_nn_blk_var13(), FLA_Sylv_nn_blk_var14(), FLA_Sylv_nn_blk_var15(), FLA_Sylv_nn_blk_var16(), FLA_Sylv_nn_blk_var17(), FLA_Sylv_nn_blk_var18(), FLA_Sylv_nn_blk_var2(), FLA_Sylv_nn_blk_var3(), FLA_Sylv_nn_blk_var4(), FLA_Sylv_nn_blk_var5(), FLA_Sylv_nn_blk_var6(), FLA_Sylv_nn_blk_var7(), FLA_Sylv_nn_blk_var8(), FLA_Sylv_nn_blk_var9(), FLA_Symm_ll_blk_var1(), FLA_Symm_ll_blk_var2(), FLA_Symm_ll_blk_var3(), FLA_Symm_ll_blk_var4(), FLA_Symm_ll_blk_var5(), FLA_Symm_ll_blk_var6(), FLA_Symm_ll_blk_var7(), FLA_Symm_ll_blk_var8(), FLA_Symm_ll_unb_var1(), FLA_Symm_ll_unb_var2(), FLA_Symm_ll_unb_var3(), FLA_Symm_ll_unb_var4(), FLA_Symm_ll_unb_var5(), FLA_Symm_ll_unb_var6(), FLA_Symm_ll_unb_var7(), FLA_Symm_ll_unb_var8(), FLA_Symm_lu_blk_var1(), FLA_Symm_lu_blk_var2(), FLA_Symm_lu_blk_var3(), FLA_Symm_lu_blk_var4(), FLA_Symm_lu_blk_var5(), FLA_Symm_lu_blk_var6(), FLA_Symm_lu_blk_var7(), FLA_Symm_lu_blk_var8(), FLA_Symm_lu_unb_var1(), FLA_Symm_lu_unb_var2(), FLA_Symm_lu_unb_var3(), FLA_Symm_lu_unb_var4(), FLA_Symm_lu_unb_var5(), FLA_Symm_lu_unb_var6(), FLA_Symm_lu_unb_var7(), FLA_Symm_lu_unb_var8(), FLA_Symm_rl_blk_var1(), FLA_Symm_rl_blk_var2(), FLA_Symm_rl_blk_var3(), FLA_Symm_rl_blk_var4(), FLA_Symm_rl_blk_var5(), FLA_Symm_rl_blk_var6(), FLA_Symm_rl_blk_var7(), FLA_Symm_rl_blk_var8(), FLA_Symm_rl_unb_var1(), FLA_Symm_rl_unb_var2(), FLA_Symm_rl_unb_var3(), FLA_Symm_rl_unb_var4(), FLA_Symm_rl_unb_var5(), FLA_Symm_rl_unb_var6(), FLA_Symm_rl_unb_var7(), FLA_Symm_rl_unb_var8(), FLA_Symm_ru_blk_var1(), FLA_Symm_ru_blk_var2(), FLA_Symm_ru_blk_var3(), FLA_Symm_ru_blk_var4(), FLA_Symm_ru_blk_var5(), FLA_Symm_ru_blk_var6(), FLA_Symm_ru_blk_var7(), FLA_Symm_ru_blk_var8(), FLA_Symm_ru_unb_var1(), FLA_Symm_ru_unb_var2(), FLA_Symm_ru_unb_var3(), FLA_Symm_ru_unb_var4(), FLA_Symm_ru_unb_var5(), FLA_Symm_ru_unb_var6(), FLA_Symm_ru_unb_var7(), FLA_Symm_ru_unb_var8(), FLA_Syr2k_ln_blk_var1(), FLA_Syr2k_ln_blk_var2(), FLA_Syr2k_ln_blk_var3(), FLA_Syr2k_ln_blk_var4(), FLA_Syr2k_ln_blk_var5(), FLA_Syr2k_ln_blk_var6(), FLA_Syr2k_ln_blk_var7(), FLA_Syr2k_ln_blk_var8(), FLA_Syr2k_ln_unb_var1(), FLA_Syr2k_ln_unb_var2(), FLA_Syr2k_ln_unb_var3(), FLA_Syr2k_ln_unb_var4(), FLA_Syr2k_ln_unb_var5(), FLA_Syr2k_ln_unb_var6(), FLA_Syr2k_ln_unb_var7(), FLA_Syr2k_ln_unb_var8(), FLA_Syr2k_lt_blk_var1(), FLA_Syr2k_lt_blk_var2(), FLA_Syr2k_lt_blk_var3(), FLA_Syr2k_lt_blk_var4(), FLA_Syr2k_lt_blk_var5(), FLA_Syr2k_lt_blk_var6(), FLA_Syr2k_lt_blk_var7(), FLA_Syr2k_lt_blk_var8(), FLA_Syr2k_lt_unb_var1(), FLA_Syr2k_lt_unb_var2(), FLA_Syr2k_lt_unb_var3(), FLA_Syr2k_lt_unb_var4(), FLA_Syr2k_lt_unb_var5(), FLA_Syr2k_lt_unb_var6(), FLA_Syr2k_lt_unb_var7(), FLA_Syr2k_lt_unb_var8(), FLA_Syr2k_un_blk_var1(), FLA_Syr2k_un_blk_var2(), FLA_Syr2k_un_blk_var3(), FLA_Syr2k_un_blk_var4(), FLA_Syr2k_un_blk_var5(), FLA_Syr2k_un_blk_var6(), FLA_Syr2k_un_blk_var7(), FLA_Syr2k_un_blk_var8(), FLA_Syr2k_un_unb_var1(), FLA_Syr2k_un_unb_var2(), FLA_Syr2k_un_unb_var3(), FLA_Syr2k_un_unb_var4(), FLA_Syr2k_un_unb_var5(), FLA_Syr2k_un_unb_var6(), FLA_Syr2k_un_unb_var7(), FLA_Syr2k_un_unb_var8(), FLA_Syr2k_ut_blk_var1(), FLA_Syr2k_ut_blk_var2(), FLA_Syr2k_ut_blk_var3(), FLA_Syr2k_ut_blk_var4(), FLA_Syr2k_ut_blk_var5(), FLA_Syr2k_ut_blk_var6(), FLA_Syr2k_ut_blk_var7(), FLA_Syr2k_ut_blk_var8(), FLA_Syr2k_ut_unb_var1(), FLA_Syr2k_ut_unb_var2(), FLA_Syr2k_ut_unb_var3(), FLA_Syr2k_ut_unb_var4(), FLA_Syr2k_ut_unb_var5(), FLA_Syr2k_ut_unb_var6(), FLA_Syr2k_ut_unb_var7(), FLA_Syr2k_ut_unb_var8(), FLA_Syrk_ln_blk_var1(), FLA_Syrk_ln_blk_var2(), FLA_Syrk_ln_blk_var3(), FLA_Syrk_ln_blk_var4(), FLA_Syrk_ln_unb_var1(), FLA_Syrk_ln_unb_var2(), FLA_Syrk_ln_unb_var3(), FLA_Syrk_ln_unb_var4(), FLA_Syrk_lt_blk_var1(), FLA_Syrk_lt_blk_var2(), FLA_Syrk_lt_blk_var3(), FLA_Syrk_lt_blk_var4(), FLA_Syrk_lt_unb_var1(), FLA_Syrk_lt_unb_var2(), FLA_Syrk_lt_unb_var3(), FLA_Syrk_lt_unb_var4(), FLA_Syrk_un_blk_var1(), FLA_Syrk_un_blk_var2(), FLA_Syrk_un_blk_var3(), FLA_Syrk_un_blk_var4(), FLA_Syrk_un_unb_var1(), FLA_Syrk_un_unb_var2(), FLA_Syrk_un_unb_var3(), FLA_Syrk_un_unb_var4(), FLA_Syrk_ut_blk_var1(), FLA_Syrk_ut_blk_var2(), FLA_Syrk_ut_blk_var3(), FLA_Syrk_ut_blk_var4(), FLA_Syrk_ut_unb_var1(), FLA_Syrk_ut_unb_var2(), FLA_Syrk_ut_unb_var3(), FLA_Syrk_ut_unb_var4(), FLA_Transpose_blk_var1(), FLA_Transpose_blk_var2(), FLA_Transpose_unb_var1(), FLA_Transpose_unb_var2(), FLA_Tridiag_UT_l_blf_var2(), FLA_Tridiag_UT_l_blf_var3(), FLA_Tridiag_UT_l_blk_var1(), FLA_Tridiag_UT_l_blk_var2(), FLA_Tridiag_UT_l_blk_var3(), FLA_Tridiag_UT_l_realify_unb(), FLA_Tridiag_UT_l_step_unb_var1(), FLA_Tridiag_UT_l_step_unb_var2(), FLA_Tridiag_UT_l_step_unb_var3(), FLA_Tridiag_UT_recover_tau_submatrix(), FLA_Tridiag_UT_u_realify_unb(), FLA_Trinv_ln_blk_var1(), FLA_Trinv_ln_blk_var2(), FLA_Trinv_ln_blk_var3(), FLA_Trinv_ln_blk_var4(), FLA_Trinv_ln_unb_var1(), FLA_Trinv_ln_unb_var2(), FLA_Trinv_ln_unb_var3(), FLA_Trinv_ln_unb_var4(), FLA_Trinv_lu_blk_var1(), FLA_Trinv_lu_blk_var2(), FLA_Trinv_lu_blk_var3(), FLA_Trinv_lu_blk_var4(), FLA_Trinv_lu_unb_var1(), FLA_Trinv_lu_unb_var2(), FLA_Trinv_lu_unb_var3(), FLA_Trinv_lu_unb_var4(), FLA_Trinv_un_blk_var1(), FLA_Trinv_un_blk_var2(), FLA_Trinv_un_blk_var3(), FLA_Trinv_un_blk_var4(), FLA_Trinv_un_unb_var1(), FLA_Trinv_un_unb_var2(), FLA_Trinv_un_unb_var3(), FLA_Trinv_un_unb_var4(), FLA_Trinv_uu_blk_var1(), FLA_Trinv_uu_blk_var2(), FLA_Trinv_uu_blk_var3(), FLA_Trinv_uu_blk_var4(), FLA_Trinv_uu_unb_var1(), FLA_Trinv_uu_unb_var2(), FLA_Trinv_uu_unb_var3(), FLA_Trinv_uu_unb_var4(), FLA_Trmm_llc_blk_var1(), FLA_Trmm_llc_blk_var2(), FLA_Trmm_llc_unb_var1(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_blk_var1(), FLA_Trmm_llh_blk_var2(), FLA_Trmm_llh_unb_var1(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_lln_blk_var1(), FLA_Trmm_lln_blk_var2(), FLA_Trmm_lln_unb_var1(), FLA_Trmm_lln_unb_var2(), FLA_Trmm_llt_blk_var1(), FLA_Trmm_llt_blk_var2(), FLA_Trmm_llt_unb_var1(), FLA_Trmm_llt_unb_var2(), FLA_Trmm_luc_blk_var1(), FLA_Trmm_luc_blk_var2(), FLA_Trmm_luc_unb_var1(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_blk_var1(), FLA_Trmm_luh_blk_var2(), FLA_Trmm_luh_unb_var1(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_lun_blk_var1(), FLA_Trmm_lun_blk_var2(), FLA_Trmm_lun_unb_var1(), FLA_Trmm_lun_unb_var2(), FLA_Trmm_lut_blk_var1(), FLA_Trmm_lut_blk_var2(), FLA_Trmm_lut_unb_var1(), FLA_Trmm_lut_unb_var2(), FLA_Trmm_rlc_blk_var1(), FLA_Trmm_rlc_blk_var2(), FLA_Trmm_rlc_unb_var1(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_blk_var1(), FLA_Trmm_rlh_blk_var2(), FLA_Trmm_rlh_unb_var1(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_rln_blk_var1(), FLA_Trmm_rln_blk_var2(), FLA_Trmm_rln_unb_var1(), FLA_Trmm_rln_unb_var2(), FLA_Trmm_rlt_blk_var1(), FLA_Trmm_rlt_blk_var2(), FLA_Trmm_rlt_unb_var1(), FLA_Trmm_rlt_unb_var2(), FLA_Trmm_ruc_blk_var1(), FLA_Trmm_ruc_blk_var2(), FLA_Trmm_ruc_unb_var1(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_blk_var1(), FLA_Trmm_ruh_blk_var2(), FLA_Trmm_ruh_unb_var1(), FLA_Trmm_ruh_unb_var2(), FLA_Trmm_run_blk_var1(), FLA_Trmm_run_blk_var2(), FLA_Trmm_run_unb_var1(), FLA_Trmm_run_unb_var2(), FLA_Trmm_rut_blk_var1(), FLA_Trmm_rut_blk_var2(), FLA_Trmm_rut_unb_var1(), FLA_Trmm_rut_unb_var2(), FLA_Trsm_llc_blk_var1(), FLA_Trsm_llc_blk_var2(), FLA_Trsm_llc_unb_var1(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_blk_var1(), FLA_Trsm_llh_blk_var2(), FLA_Trsm_llh_unb_var1(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_lln_blk_var1(), FLA_Trsm_lln_blk_var2(), FLA_Trsm_lln_unb_var1(), FLA_Trsm_lln_unb_var2(), FLA_Trsm_llt_blk_var1(), FLA_Trsm_llt_blk_var2(), FLA_Trsm_llt_unb_var1(), FLA_Trsm_llt_unb_var2(), FLA_Trsm_luc_blk_var1(), FLA_Trsm_luc_blk_var2(), FLA_Trsm_luc_unb_var1(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_blk_var1(), FLA_Trsm_luh_blk_var2(), FLA_Trsm_luh_unb_var1(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_lun_blk_var1(), FLA_Trsm_lun_blk_var2(), FLA_Trsm_lun_unb_var1(), FLA_Trsm_lun_unb_var2(), FLA_Trsm_lut_blk_var1(), FLA_Trsm_lut_blk_var2(), FLA_Trsm_lut_unb_var1(), FLA_Trsm_lut_unb_var2(), FLA_Trsm_rlc_blk_var1(), FLA_Trsm_rlc_blk_var2(), FLA_Trsm_rlc_unb_var1(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_blk_var1(), FLA_Trsm_rlh_blk_var2(), FLA_Trsm_rlh_unb_var1(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_rln_blk_var1(), FLA_Trsm_rln_blk_var2(), FLA_Trsm_rln_unb_var1(), FLA_Trsm_rln_unb_var2(), FLA_Trsm_rlt_blk_var1(), FLA_Trsm_rlt_blk_var2(), FLA_Trsm_rlt_unb_var1(), FLA_Trsm_rlt_unb_var2(), FLA_Trsm_ruc_blk_var1(), FLA_Trsm_ruc_blk_var2(), FLA_Trsm_ruc_unb_var1(), FLA_Trsm_ruc_unb_var2(), FLA_Trsm_ruh_blk_var1(), FLA_Trsm_ruh_blk_var2(), FLA_Trsm_ruh_unb_var1(), FLA_Trsm_ruh_unb_var2(), FLA_Trsm_run_blk_var1(), FLA_Trsm_run_blk_var2(), FLA_Trsm_run_unb_var1(), FLA_Trsm_run_unb_var2(), FLA_Trsm_rut_blk_var1(), FLA_Trsm_rut_blk_var2(), FLA_Trsm_rut_unb_var1(), FLA_Trsm_rut_unb_var2(), FLA_Trsv_lc_blk_var1(), FLA_Trsv_lc_blk_var2(), FLA_Trsv_ln_blk_var1(), FLA_Trsv_ln_blk_var2(), FLA_Trsv_lt_blk_var1(), FLA_Trsv_lt_blk_var2(), FLA_Trsv_uc_blk_var1(), FLA_Trsv_uc_blk_var2(), FLA_Trsv_un_blk_var1(), FLA_Trsv_un_blk_var2(), FLA_Trsv_ut_blk_var1(), FLA_Trsv_ut_blk_var2(), FLA_Ttmm_l_blk_var1(), FLA_Ttmm_l_blk_var2(), FLA_Ttmm_l_blk_var3(), FLA_Ttmm_l_unb_var1(), FLA_Ttmm_l_unb_var2(), FLA_Ttmm_l_unb_var3(), FLA_Ttmm_u_blk_var1(), FLA_Ttmm_u_blk_var2(), FLA_Ttmm_u_blk_var3(), FLA_Ttmm_u_unb_var1(), FLA_Ttmm_u_unb_var2(), FLA_Ttmm_u_unb_var3(), FLA_UDdate_UT_blk_var1(), FLA_UDdate_UT_inc_blk_var1(), FLA_UDdate_UT_unb_var1(), FLASH_FS_incpiv_aux1(), FLASH_LU_find_zero_on_diagonal(), FLASH_LU_incpiv_var1(), and FLASH_LU_incpiv_var2().

◆ FLA_Repart_2x2_to_3x3_check()

FLA_Error FLA_Repart_2x2_to_3x3_check ( FLA_Obj  ATL,
FLA_Obj  ATR,
FLA_Obj A00,
FLA_Obj A01,
FLA_Obj A02,
FLA_Obj A10,
FLA_Obj A11,
FLA_Obj A12,
FLA_Obj  ABL,
FLA_Obj  ABR,
FLA_Obj A20,
FLA_Obj A21,
FLA_Obj A22,
dim_t  mb,
dim_t  nb,
FLA_Quadrant  quadrant 
)
17 {
18  FLA_Error e_val;
19 
20  e_val = FLA_Check_valid_object_datatype( ATL );
21  FLA_Check_error_code( e_val );
22 
23  e_val = FLA_Check_valid_object_datatype( ABL );
24  FLA_Check_error_code( e_val );
25 
26  e_val = FLA_Check_valid_object_datatype( ATR );
27  FLA_Check_error_code( e_val );
28 
29  e_val = FLA_Check_valid_object_datatype( ABR );
30  FLA_Check_error_code( e_val );
31 
32  e_val = FLA_Check_null_pointer( A00 );
33  FLA_Check_error_code( e_val );
34 
35  e_val = FLA_Check_null_pointer( A10 );
36  FLA_Check_error_code( e_val );
37 
38  e_val = FLA_Check_null_pointer( A20 );
39  FLA_Check_error_code( e_val );
40 
41  e_val = FLA_Check_null_pointer( A01 );
42  FLA_Check_error_code( e_val );
43 
44  e_val = FLA_Check_null_pointer( A11 );
45  FLA_Check_error_code( e_val );
46 
47  e_val = FLA_Check_null_pointer( A21 );
48  FLA_Check_error_code( e_val );
49 
50  e_val = FLA_Check_null_pointer( A02 );
51  FLA_Check_error_code( e_val );
52 
53  e_val = FLA_Check_null_pointer( A12 );
54  FLA_Check_error_code( e_val );
55 
56  e_val = FLA_Check_null_pointer( A22 );
57  FLA_Check_error_code( e_val );
58 
59  e_val = FLA_Check_valid_quadrant( quadrant );
60  FLA_Check_error_code( e_val );
61 
62  if ( quadrant == FLA_TL )
63  {
64  e_val = FLA_Check_attempted_repart_2x2( ATL, mb, nb );
65  FLA_Check_error_code( e_val );
66  }
67  else if ( quadrant == FLA_TR )
68  {
69  e_val = FLA_Check_attempted_repart_2x2( ATR, mb, nb );
70  FLA_Check_error_code( e_val );
71  }
72  else if ( quadrant == FLA_BL )
73  {
74  e_val = FLA_Check_attempted_repart_2x2( ABL, mb, nb );
75  FLA_Check_error_code( e_val );
76  }
77  else if ( quadrant == FLA_BR )
78  {
79  e_val = FLA_Check_attempted_repart_2x2( ABR, mb, nb );
80  FLA_Check_error_code( e_val );
81  }
82 
83  // Needed: check for adjacency, similar to those in FLA_Merge_*().
84 
85  return FLA_SUCCESS;
86 }
FLA_Error FLA_Check_attempted_repart_2x2(FLA_Obj A_quad, dim_t b_m, dim_t b_n)
Definition: FLA_Check.c:1091

References FLA_Check_attempted_repart_2x2(), FLA_Check_null_pointer(), FLA_Check_valid_object_datatype(), and FLA_Check_valid_quadrant().

Referenced by FLA_Repart_2x2_to_3x3().

◆ FLA_Repart_3x3_to_5x5()

FLA_Error FLA_Repart_3x3_to_5x5 ( FLA_Obj  ATL,
FLA_Obj  ATM,
FLA_Obj  ATR,
FLA_Obj  AML,
FLA_Obj  AMM,
FLA_Obj  AMR,
FLA_Obj  ABL,
FLA_Obj  ABM,
FLA_Obj  ABR,
FLA_Obj A00,
FLA_Obj A01,
FLA_Obj A02,
FLA_Obj A03,
FLA_Obj A04,
FLA_Obj A10,
FLA_Obj A11,
FLA_Obj A12,
FLA_Obj A13,
FLA_Obj A14,
FLA_Obj A20,
FLA_Obj A21,
FLA_Obj A22,
FLA_Obj A23,
FLA_Obj A24,
FLA_Obj A30,
FLA_Obj A31,
FLA_Obj A32,
FLA_Obj A33,
FLA_Obj A34,
FLA_Obj A40,
FLA_Obj A41,
FLA_Obj A42,
FLA_Obj A43,
FLA_Obj A44,
dim_t  b,
FLA_Quadrant  quadrant 
)

◆ FLA_shfree()

void FLA_shfree ( void *  ptr)
28 {
29  RCCE_shfree( ( t_vcharp ) ptr );
30 }
void RCCE_shfree(t_vcharp)
volatile unsigned char * t_vcharp
Definition: FLA_Obj.c:15

References RCCE_shfree().

Referenced by FLA_Obj_free(), FLA_Obj_free_buffer(), FLASH_Obj_free(), and FLASH_Queue_exec().

◆ FLA_shmalloc()

void* FLA_shmalloc ( size_t  size)
22 {
23  return ( void * ) RCCE_shmalloc( size );
24 }
t_vcharp RCCE_shmalloc(size_t)

References RCCE_shmalloc().

Referenced by FLA_Obj_create_buffer(), FLA_Obj_create_ext(), and FLASH_Queue_exec().

◆ FLA_Submatrix_at()

void* FLA_Submatrix_at ( FLA_Datatype  datatype,
void *  buffer,
dim_t  i,
dim_t  j,
dim_t  rs,
dim_t  cs 
)
970 {
971  void* r_val = buffer;
972 
973  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
974  FLA_Submatrix_at_check( datatype, buffer, i, j, rs, cs );
975 
976  switch( datatype )
977  {
978  case FLA_INT:
979  r_val = ( void* ) ( ( ( int* ) buffer ) + i * rs + j * cs );
980  break;
981 
982  case FLA_FLOAT:
983  r_val = ( void* ) ( ( ( float* ) buffer ) + i * rs + j * cs );
984  break;
985 
986  case FLA_DOUBLE:
987  r_val = ( void* ) ( ( ( double* ) buffer ) + i * rs + j * cs );
988  break;
989 
990  case FLA_COMPLEX:
991  r_val = ( void* ) ( ( ( scomplex* ) buffer ) + i * rs + j * cs );
992  break;
993 
994  case FLA_DOUBLE_COMPLEX:
995  r_val = ( void* ) ( ( ( dcomplex* ) buffer ) + i * rs + j * cs );
996  break;
997  }
998 
999  return r_val;
1000 }
FLA_Error FLA_Submatrix_at_check(FLA_Datatype datatype, void *buffer, dim_t i, dim_t j, dim_t rs, dim_t cs)
Definition: FLA_Submatrix_at_check.c:13

References FLA_Check_error_level(), FLA_Submatrix_at_check(), and i.

◆ FLA_Submatrix_at_check()

FLA_Error FLA_Submatrix_at_check ( FLA_Datatype  datatype,
void *  buffer,
dim_t  i,
dim_t  j,
dim_t  rs,
dim_t  cs 
)
14 {
15  FLA_Error e_val;
16 
17  e_val = FLA_Check_valid_datatype( datatype );
18  FLA_Check_error_code( e_val );
19 
20  e_val = FLA_Check_null_pointer( buffer );
21  FLA_Check_error_code( e_val );
22 
23  return FLA_SUCCESS;
24 }

References FLA_Check_null_pointer(), and FLA_Check_valid_datatype().

Referenced by FLA_Submatrix_at().