(r12600)

Functions
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_col_major (FLA_Obj A)
FLA_Bool	FLA_Obj_is_row_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)

Function Documentation

void* FLA_Obj_base_buffer ( FLA_Obj obj )

References FLA_Obj_view::base.

Referenced by FLASH_Obj_base_scalar_length(), FLASH_Obj_base_scalar_width(), FLASH_Obj_blocksizes(), FLASH_Obj_depth(), FLASH_Obj_extract_buffer(), FLASH_Obj_free_hierarchy(), FLASH_Obj_scalar_length_tl(), and FLASH_Obj_scalar_width_tl().

{
  return (obj.base)->buffer;
}

dim_t FLA_Obj_base_length ( FLA_Obj obj )

References FLA_Obj_view::base.

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

{
    return (obj.base)->m;
}

dim_t FLA_Obj_base_width ( FLA_Obj obj )

References FLA_Obj_view::base.

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

{
    return (obj.base)->n;
}

void* FLA_Obj_buffer_at_view ( FLA_Obj obj )

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().

{
  char*  buffer;
  size_t elem_size, offm, offn, rs, cs;
  size_t byte_offset;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_buffer_at_view_check( obj );

  elem_size   = ( size_t ) FLA_Obj_elem_size( obj );
  rs          = ( size_t ) FLA_Obj_row_stride( obj );
  cs          = ( size_t ) FLA_Obj_col_stride( obj );
  offm        = ( size_t ) obj.offm;
  offn        = ( size_t ) obj.offn;

  byte_offset = elem_size * ( offn * cs + offm * rs );

  buffer      = ( char * ) (obj.base)->buffer;

  return ( void* ) ( buffer + byte_offset );
}

FLA_Bool FLA_Obj_buffer_is_null ( FLA_Obj obj )

References FLA_Obj_view::base.

{
  FLA_Bool r_val;

  if      ( obj.base == NULL )
    r_val = TRUE;
  else if ( (obj.base)->buffer == NULL )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

dim_t FLA_Obj_col_offset ( FLA_Obj obj )

References FLA_Obj_view::offn.

Referenced by FLASH_Obj_adjust_views_hierarchy(), and FLASH_Obj_scalar_col_offset().

{
    return obj.offn;
}

dim_t FLA_Obj_col_stride ( FLA_Obj obj )

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().

{
  return (obj.base)->cs;
}

FLA_Datatype FLA_Obj_datatype ( FLA_Obj obj )

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().

{
  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_datatype_check( obj );

  return obj.base->datatype;
}

FLA_Datatype FLA_Obj_datatype_proj_to_complex ( FLA_Obj A )

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_Datatype datatype;

    if ( FLA_Obj_is_single_precision( A ) )
        datatype = FLA_COMPLEX;
    else
        datatype = FLA_DOUBLE_COMPLEX;

    return datatype;
}

FLA_Datatype FLA_Obj_datatype_proj_to_real ( FLA_Obj A )

References FLA_Obj_is_single_precision().

Referenced by FLA_Bidiag_blk_external(), FLA_Bidiag_unb_external(), 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_Hevd_compute_scaling(), FLA_Hevd_external(), FLA_Hevd_lv_unb_var1(), FLA_Hevd_lv_unb_var2(), FLA_Hevdd_external(), FLA_Hevdr_external(), 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_blk_external(), and FLA_Tridiag_unb_external().

{
    FLA_Datatype datatype;

    if ( FLA_Obj_is_single_precision( A ) )
        datatype = FLA_FLOAT;
    else
        datatype = FLA_DOUBLE;

    return datatype;
}

dim_t FLA_Obj_datatype_size ( FLA_Datatype datatype )

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().

{
  dim_t datatype_size = 0;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_datatype_size_check( datatype );

  switch( datatype )
  {
    case FLA_INT: 
      datatype_size = sizeof( int );
      break;
    case FLA_FLOAT: 
      datatype_size = sizeof( float );
      break;
    case FLA_DOUBLE: 
      datatype_size = sizeof( double );
      break;
    case FLA_COMPLEX: 
      datatype_size = sizeof( scomplex );
      break;
    case FLA_DOUBLE_COMPLEX: 
      datatype_size = sizeof( dcomplex );
      break;
    case FLA_CONSTANT: 
      datatype_size = FLA_CONSTANT_SIZE;
      break;
  }

  return datatype_size;
}

dim_t FLA_Obj_elem_size ( FLA_Obj 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().

{
  dim_t elem_size = 0;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_elem_size_check( obj );

  if ( FLA_Obj_elemtype( obj ) == FLA_MATRIX )
  {
    elem_size = sizeof( FLA_Obj );
  }
  else // if ( FLA_Obj_elemtype( obj ) == FLA_SCALAR )
  {
    elem_size = FLA_Obj_datatype_size( FLA_Obj_datatype( obj ) );
  }

  return elem_size;
}

FLA_Elemtype FLA_Obj_elemtype ( FLA_Obj obj )

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().

{
  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_elemtype_check( obj );

  return obj.base->elemtype;
}

FLA_Bool FLA_Obj_equals	(	FLA_Obj	A,
		FLA_Obj	B
	)

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(), 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_Datatype datatype_A;
  FLA_Datatype datatype_B;
  FLA_Datatype datatype;
  dim_t        m, n;
  dim_t        rs_A, cs_A;
  dim_t        rs_B, cs_B;
  dim_t        i, j;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_equals_check( A, B );

  m      = FLA_Obj_length( A );
  n      = FLA_Obj_width( A );
  rs_A   = FLA_Obj_row_stride( A );
  cs_A   = FLA_Obj_col_stride( A );
  rs_B   = FLA_Obj_row_stride( B );
  cs_B   = FLA_Obj_col_stride( B );

  datatype_A = FLA_Obj_datatype( A );
  datatype_B = FLA_Obj_datatype( B );

  // If A is a non-FLA_CONSTANT object, then we should proceed based on the
  // value of datatype_A. In such a situation, either datatype_B is an exact
  // match and we're fine, or datatype_B is FLA_CONSTANT, in which case we're
  // also covered since FLA_CONSTANT encompassas all numerical types.
  // If A is an FLA_CONSTANT object, then we should proceed based on the value
  // of datatype_B. In this case, datatype_B is either a non-FLA_CONSTANT type,
  // which mirrors the second sub-case above, or datatype_B is FLA_CONSTANT,
  // in which case both types are FLA_CONSTANT and therefore we have to handle
  // that case. Only if both are FLA_CONSTANTs does the FLA_CONSTANT case
  // statement below execute.
  if ( datatype_A != FLA_CONSTANT )
    datatype = datatype_A;
  else
    datatype = datatype_B;

  switch ( datatype )
  {
    case FLA_CONSTANT:
    {
      // We require ALL floating-point fields to be the same.
      float*    buffs_A = ( float    * ) FLA_FLOAT_PTR( A );
      float*    buffs_B = ( float    * ) FLA_FLOAT_PTR( B );
      double*   buffd_A = ( double   * ) FLA_DOUBLE_PTR( A );
      double*   buffd_B = ( double   * ) FLA_DOUBLE_PTR( B );
      scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
      scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
      dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
      dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );

      if ( *buffs_A != *buffs_B ||
           *buffd_A != *buffd_B ||
           buffc_A->real != buffc_B->real ||
           buffc_A->imag != buffc_B->imag ||
           buffz_A->real != buffz_B->real ||
           buffz_A->imag != buffz_B->imag )
      {
        return FALSE;
      }

      break;
    }

    case FLA_INT:
    {
      int *buff_A = ( int * ) FLA_INT_PTR( A );
      int *buff_B = ( int * ) FLA_INT_PTR( B );

      for ( j = 0; j < n; j++ )
        for ( i = 0; i < m; i++ )
          if ( buff_A[ j * cs_A + i * rs_A ] != 
               buff_B[ j * cs_B + i * rs_B ] )
          {
            return FALSE;
          }

      break;
    }

    case FLA_FLOAT:
    {
      float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
      float *buff_B = ( float * ) FLA_FLOAT_PTR( B );

      for ( j = 0; j < n; j++ )
        for ( i = 0; i < m; i++ )
          if ( buff_A[ j * cs_A + i * rs_A ] != 
               buff_B[ j * cs_B + i * rs_B ] )
          {
            return FALSE;
          }

      break;
    }

    case FLA_DOUBLE:
    {
      double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
      double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );

      for ( j = 0; j < n; j++ )
        for ( i = 0; i < m; i++ )
          if ( buff_A[ j * cs_A + i * rs_A ] != 
               buff_B[ j * cs_B + i * rs_B ] )
          {
            return FALSE;
          }

      break;
    }

    case FLA_COMPLEX:
    {
      scomplex *buff_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
      scomplex *buff_B = ( scomplex * ) FLA_COMPLEX_PTR( B );

      for ( j = 0; j < n; j++ )
        for ( i = 0; i < m; i++ )
          if ( buff_A[ j * cs_A + i * rs_A ].real != buff_B[ j * cs_B + i * rs_B ].real ||
               buff_A[ j * cs_A + i * rs_A ].imag != buff_B[ j * cs_B + i * rs_B ].imag )
          {
            return FALSE;
          }

      break;
    }

    case FLA_DOUBLE_COMPLEX:
    {
      dcomplex *buff_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
      dcomplex *buff_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );

      for ( j = 0; j < n; j++ )
        for ( i = 0; i < m; i++ )
          if ( buff_A[ j * cs_A + i * rs_A ].real != buff_B[ j * cs_B + i * rs_B ].real ||
               buff_A[ j * cs_A + i * rs_A ].imag != buff_B[ j * cs_B + i * rs_B ].imag )
          {
            return FALSE;
          }

      break;
    }
  }

  return TRUE;
}

FLA_Bool FLA_Obj_ge	(	FLA_Obj	A,
		FLA_Obj	B
	)

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

{
  FLA_Datatype datatype_A;
  FLA_Datatype datatype_B;
  FLA_Datatype datatype;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_ge_check( A, B );

  datatype_A = FLA_Obj_datatype( A );
  datatype_B = FLA_Obj_datatype( B );

  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
  else                              datatype = datatype_B;

  switch ( datatype )
  {
    case FLA_CONSTANT:
    {
      // We require ALL floating-point fields to be the same.
      float*    buffs_A = ( float    * ) FLA_FLOAT_PTR( A );
      float*    buffs_B = ( float    * ) FLA_FLOAT_PTR( B );
      double*   buffd_A = ( double   * ) FLA_DOUBLE_PTR( A );
      double*   buffd_B = ( double   * ) FLA_DOUBLE_PTR( B );
      scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
      scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
      dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
      dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );

      if ( !( *buffs_A      >= *buffs_B      &&
              *buffd_A      >= *buffd_B      &&
              buffc_A->real >= buffc_B->real &&
              buffc_A->imag >= buffc_B->imag &&
              buffz_A->real >= buffz_B->real &&
              buffz_A->imag >= buffz_B->imag ) )
      {
        return FALSE;
      }

      break;
    }

    case FLA_INT:
    {
      int *buff_A = ( int * ) FLA_INT_PTR( A );
      int *buff_B = ( int * ) FLA_INT_PTR( B );

      if ( !( *buff_A >= *buff_B ) ) return FALSE;

      break;
    }

    case FLA_FLOAT:
    {
      float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
      float *buff_B = ( float * ) FLA_FLOAT_PTR( B );

      if ( !( *buff_A >= *buff_B ) ) return FALSE;

      break;
    }

    case FLA_DOUBLE:
    {
      double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
      double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );

      if ( !( *buff_A >= *buff_B ) ) return FALSE;

      break;
    }

  }

  return TRUE;
}

FLA_Bool FLA_Obj_gt	(	FLA_Obj	A,
		FLA_Obj	B
	)

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_Datatype datatype_A;
  FLA_Datatype datatype_B;
  FLA_Datatype datatype;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_gt_check( A, B );

  datatype_A = FLA_Obj_datatype( A );
  datatype_B = FLA_Obj_datatype( B );

  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
  else                              datatype = datatype_B;

  switch ( datatype )
  {
    case FLA_CONSTANT:
    {
      // We require ALL floating-point fields to be the same.
      float*    buffs_A = ( float    * ) FLA_FLOAT_PTR( A );
      float*    buffs_B = ( float    * ) FLA_FLOAT_PTR( B );
      double*   buffd_A = ( double   * ) FLA_DOUBLE_PTR( A );
      double*   buffd_B = ( double   * ) FLA_DOUBLE_PTR( B );
      scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
      scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
      dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
      dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );

      if ( !( *buffs_A      > *buffs_B      &&
              *buffd_A      > *buffd_B      &&
              buffc_A->real > buffc_B->real &&
              buffc_A->imag > buffc_B->imag &&
              buffz_A->real > buffz_B->real &&
              buffz_A->imag > buffz_B->imag ) )
      {
        return FALSE;
      }

      break;
    }

    case FLA_INT:
    {
      int *buff_A = ( int * ) FLA_INT_PTR( A );
      int *buff_B = ( int * ) FLA_INT_PTR( B );

      if ( !( *buff_A > *buff_B ) ) return FALSE;

      break;
    }

    case FLA_FLOAT:
    {
      float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
      float *buff_B = ( float * ) FLA_FLOAT_PTR( B );

      if ( !( *buff_A > *buff_B ) ) return FALSE;

      break;
    }

    case FLA_DOUBLE:
    {
      double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
      double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );

      if ( !( *buff_A > *buff_B ) ) return FALSE;

      break;
    }

  }

  return TRUE;
}

FLA_Bool FLA_Obj_has_nan ( FLA_Obj A )

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(), scomplex::imag, dcomplex::imag, scomplex::real, and dcomplex::real.

{
  FLA_Datatype datatype;
  dim_t        i, j, m, n, cs, rs;
  
  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_has_nan_check( A );

  datatype = FLA_Obj_datatype( A );
  m        = FLA_Obj_length( A );
  n        = FLA_Obj_width( A );
  cs       = FLA_Obj_col_stride( A );
  rs       = FLA_Obj_row_stride( A );

  switch ( datatype )
  {
    case FLA_FLOAT:
    {
      float *buff = ( float * ) FLA_FLOAT_PTR( A );

      for ( j=0; j<n; ++j )
        for ( i=0; i<m; ++i ) 
        {
          float val = buff[i*cs + j*rs];
          if ( val != val ) return TRUE;
        }
      break;
    }
    case FLA_DOUBLE:
    {
      double *buff = ( double * ) FLA_DOUBLE_PTR( A );

      for ( j=0; j<n; ++j )
        for ( i=0; i<m; ++i ) 
        {
          double val = buff[i*cs + j*rs];
          if ( val != val ) return TRUE;
        }
      break;
    }
    case FLA_COMPLEX:
    {
      scomplex *buff = ( scomplex * ) FLA_COMPLEX_PTR( A );

      for ( j=0; j<n; ++j )
        for ( i=0; i<m; ++i ) 
        {
          scomplex val = buff[i*cs + j*rs];
          if ( val.real != val.real || val.imag != val.imag ) return TRUE;
        }
      break;
    }
    case FLA_DOUBLE_COMPLEX:
    {
      dcomplex *buff = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );

      for ( j=0; j<n; ++j )
        for ( i=0; i<m; ++i ) 
        {
          dcomplex val = buff[i*cs + j*rs];
          if ( val.real != val.real || val.imag != val.imag ) return TRUE;
        }
      break;
    }
  }

  return FALSE;
}

FLA_Bool FLA_Obj_has_zero_dim ( FLA_Obj A )

References FLA_Obj_length(), and FLA_Obj_width().

{
  FLA_Bool r_val = FALSE;

  if ( FLA_Obj_length( A ) == 0 || FLA_Obj_width( A ) == 0 )
    r_val = TRUE;

  return r_val;
}

FLA_Bool FLA_Obj_is	(	FLA_Obj	A,
		FLA_Obj	B
	)

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_Bool r_val = FALSE;

  if ( A.base == B.base )
    r_val = TRUE;

  return r_val;
}

FLA_Bool FLA_Obj_is_col_major ( FLA_Obj A )

References FLA_Obj_row_stride().

{
  FLA_Bool r_val = FALSE;

  // A row stride of 1 indicates column-major storage.
  if ( FLA_Obj_row_stride( A ) == 1 )
    r_val = TRUE;

  return r_val;
}

FLA_Bool FLA_Obj_is_complex ( FLA_Obj A )

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_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_CONSTANT || datatype == FLA_COMPLEX || datatype == FLA_DOUBLE_COMPLEX )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_conformal_to	(	FLA_Trans	trans,
		FLA_Obj	A,
		FLA_Obj	B
	)

References FLA_Obj_length(), and FLA_Obj_width().

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

{
  FLA_Bool r_val = TRUE;

  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
  {
    if ( FLA_Obj_length( A ) != FLA_Obj_length( B ) ||
         FLA_Obj_width( A )  != FLA_Obj_width( B ) )
      r_val = FALSE;
  }
  else
  {
    if ( FLA_Obj_width( A )  != FLA_Obj_length( B ) ||
         FLA_Obj_length( A ) != FLA_Obj_width( B ) )
      r_val = FALSE;
  }

  return r_val;
}

FLA_Bool FLA_Obj_is_constant ( FLA_Obj A )

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_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_CONSTANT )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_double_precision ( FLA_Obj A )

References FLA_Obj_datatype().

Referenced by FLA_Bidiag_UT(), and FLA_Tridiag_UT().

{
  FLA_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_CONSTANT || datatype == FLA_DOUBLE || datatype == FLA_DOUBLE_COMPLEX )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_floating_point ( FLA_Obj A )

References FLA_Obj_datatype().

{
  FLA_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_FLOAT || datatype == FLA_COMPLEX ||
       datatype == FLA_DOUBLE || datatype == FLA_DOUBLE_COMPLEX )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_identical	(	FLA_Obj	A,
		FLA_Obj	B
	)

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_Bool r_val = FALSE;

  // For LU_piv, if A and B are identical, we do not need copy.
  // Elemtype should be checked as they can have the same buffer pointer
  // but elemtype can be either scalar or matrix.
  if ( A.base != NULL && A.base != NULL )
    if ( ( A.base == B.base ) || 
         ( A.base->elemtype == B.base->elemtype  && 
           A.base->datatype == B.base->datatype ) )
      if ( FLA_Obj_buffer_at_view( A ) == FLA_Obj_buffer_at_view( B ) )
        if ( A.m == B.m && A.n == B.n )
          r_val = TRUE;
  
  return r_val;
}

FLA_Bool FLA_Obj_is_int ( FLA_Obj A )

References FLA_Obj_datatype().

{
  FLA_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_INT )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_overlapped	(	FLA_Obj	A,
		FLA_Obj	B
	)

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_Bool r_val = FALSE;

  // For form_Q, if A and B are not overlapped, we do not use in-place forming Q.
  if ( A.base != NULL && A.base != NULL )
    if ( ( A.base == B.base ) || 
         ( A.base->elemtype == B.base->elemtype && 
           A.base->datatype == B.base->datatype ) )
      if ( FLA_Obj_buffer_at_view( A ) == FLA_Obj_buffer_at_view( B ) )
        if ( ( ( A.offm <= B.offm && B.offm < ( A.offm + A.m ) ) &&
               ( A.offn <= B.offn && B.offn < ( A.offn + A.n ) ) ) ||
             ( ( B.offm <= A.offm && A.offm < ( B.offm + B.m ) ) &&
               ( B.offn <= A.offn && A.offn < ( B.offn + B.n ) ) ) )
          r_val = TRUE;
  
  return r_val;
}

FLA_Bool FLA_Obj_is_real ( FLA_Obj A )

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_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_CONSTANT || datatype == FLA_FLOAT || datatype == FLA_DOUBLE )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_row_major ( FLA_Obj A )

References FLA_Obj_col_stride().

{
  FLA_Bool r_val = FALSE;

  // A column stride of 1 indicates row-major storage.
  if ( FLA_Obj_col_stride( A ) == 1 )
    r_val = TRUE;

  return r_val;
}

FLA_Bool FLA_Obj_is_scalar ( FLA_Obj A )

References FLA_Obj_length(), and FLA_Obj_width().

{
  FLA_Bool r_val = FALSE;

  if ( FLA_Obj_length( A ) == 1 &&
       FLA_Obj_width( A ) == 1 )
    r_val = TRUE;

  return r_val;
}

FLA_Bool FLA_Obj_is_single_precision ( FLA_Obj A )

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_Datatype datatype;
  FLA_Bool     r_val;

  datatype = FLA_Obj_datatype( A );

  if ( datatype == FLA_CONSTANT || datatype == FLA_FLOAT || datatype == FLA_COMPLEX )
    r_val = TRUE;
  else
    r_val = FALSE;

  return r_val;
}

FLA_Bool FLA_Obj_is_vector ( FLA_Obj A )

References FLA_Obj_length(), and FLA_Obj_width().

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

{
  FLA_Bool r_val = FALSE;

  if ( FLA_Obj_length( A ) == 1 || FLA_Obj_width( A ) == 1 )
    r_val = TRUE;

  return r_val;
}

FLA_Bool FLA_Obj_le	(	FLA_Obj	A,
		FLA_Obj	B
	)

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_Datatype datatype_A;
  FLA_Datatype datatype_B;
  FLA_Datatype datatype;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_le_check( A, B );

  datatype_A = FLA_Obj_datatype( A );
  datatype_B = FLA_Obj_datatype( B );

  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
  else                              datatype = datatype_B;

  switch ( datatype )
  {
    case FLA_CONSTANT:
    {
      // We require ALL floating-point fields to be the same.
      float*    buffs_A = ( float    * ) FLA_FLOAT_PTR( A );
      float*    buffs_B = ( float    * ) FLA_FLOAT_PTR( B );
      double*   buffd_A = ( double   * ) FLA_DOUBLE_PTR( A );
      double*   buffd_B = ( double   * ) FLA_DOUBLE_PTR( B );
      scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
      scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
      dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
      dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );

      if ( !( *buffs_A      <= *buffs_B      &&
              *buffd_A      <= *buffd_B      &&
              buffc_A->real <= buffc_B->real &&
              buffc_A->imag <= buffc_B->imag &&
              buffz_A->real <= buffz_B->real &&
              buffz_A->imag <= buffz_B->imag ) )
      {
        return FALSE;
      }

      break;
    }

    case FLA_INT:
    {
      int *buff_A = ( int * ) FLA_INT_PTR( A );
      int *buff_B = ( int * ) FLA_INT_PTR( B );

      if ( !( *buff_A <= *buff_B ) ) return FALSE;

      break;
    }

    case FLA_FLOAT:
    {
      float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
      float *buff_B = ( float * ) FLA_FLOAT_PTR( B );

      if ( !( *buff_A <= *buff_B ) ) return FALSE;

      break;
    }

    case FLA_DOUBLE:
    {
      double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
      double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );

      if ( !( *buff_A <= *buff_B ) ) return FALSE;

      break;
    }

  }

  return TRUE;
}

dim_t FLA_Obj_length ( FLA_Obj obj )

References FLA_Obj_view::m.

{
  return obj.m;
}

FLA_Bool FLA_Obj_lt	(	FLA_Obj	A,
		FLA_Obj	B
	)

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_Datatype datatype_A;
  FLA_Datatype datatype_B;
  FLA_Datatype datatype;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Obj_lt_check( A, B );

  datatype_A = FLA_Obj_datatype( A );
  datatype_B = FLA_Obj_datatype( B );

  if ( datatype_A != FLA_CONSTANT ) datatype = datatype_A;
  else                              datatype = datatype_B;

  switch ( datatype )
  {
    case FLA_CONSTANT:
    {
      // We require ALL floating-point fields to be the same.
      float*    buffs_A = ( float    * ) FLA_FLOAT_PTR( A );
      float*    buffs_B = ( float    * ) FLA_FLOAT_PTR( B );
      double*   buffd_A = ( double   * ) FLA_DOUBLE_PTR( A );
      double*   buffd_B = ( double   * ) FLA_DOUBLE_PTR( B );
      scomplex* buffc_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
      scomplex* buffc_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
      dcomplex* buffz_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
      dcomplex* buffz_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );

      if ( !( *buffs_A      < *buffs_B      &&
              *buffd_A      < *buffd_B      &&
              buffc_A->real < buffc_B->real &&
              buffc_A->imag < buffc_B->imag &&
              buffz_A->real < buffz_B->real &&
              buffz_A->imag < buffz_B->imag ) )
      {
        return FALSE;
      }

      break;
    }

    case FLA_INT:
    {
      int *buff_A = ( int * ) FLA_INT_PTR( A );
      int *buff_B = ( int * ) FLA_INT_PTR( B );

      if ( !( *buff_A < *buff_B ) ) return FALSE;

      break;
    }

    case FLA_FLOAT:
    {
      float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
      float *buff_B = ( float * ) FLA_FLOAT_PTR( B );

      if ( !( *buff_A < *buff_B ) ) return FALSE;

      break;
    }

    case FLA_DOUBLE:
    {
      double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
      double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );

      if ( !( *buff_A < *buff_B ) ) return FALSE;

      break;
    }

  }

  return TRUE;
}

dim_t FLA_Obj_max_dim ( FLA_Obj obj )

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

Referenced by FLA_Apply_Q_UT_create_workspace(), FLA_Apply_Q_UT_create_workspace_side(), FLA_Bidiag_blk_external(), and FLA_Bidiag_unb_external().

{
  return max( obj.m, obj.n );
}

dim_t FLA_Obj_min_dim ( FLA_Obj obj )

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

{
  return min( obj.m, obj.n );
}

dim_t FLA_Obj_num_elem_alloc ( FLA_Obj obj )

References FLA_Obj_view::base.

Referenced by FLASH_Obj_free_hierarchy().

{
  return (obj.base)->n_elem_alloc;
}

dim_t FLA_Obj_row_offset ( FLA_Obj obj )

References FLA_Obj_view::offm.

Referenced by FLASH_Obj_adjust_views_hierarchy(), FLASH_Obj_scalar_row_offset(), and FLASH_Obj_show_hierarchy().

{
    return obj.offm;
}

dim_t FLA_Obj_row_stride ( FLA_Obj obj )

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().

{
  return (obj.base)->rs;
}

FLA_Uplo FLA_Obj_structure ( FLA_Obj obj )

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

Referenced by FLA_Apply_CAQ2_UT_internal(), and FLA_CAQR2_UT_internal().

{
  return obj.base->uplo;
}

dim_t FLA_Obj_vector_dim ( FLA_Obj obj )

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().

{
  return ( obj.m == 1 ? obj.n
                      : obj.m );
}

dim_t FLA_Obj_vector_inc ( FLA_Obj obj )

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

{
  return ( obj.m == 1 ? (obj.base)->cs
                      : (obj.base)->rs );
}

dim_t FLA_Obj_width ( FLA_Obj obj )

References FLA_Obj_view::n.

{
  return obj.n;
}

void* FLA_Submatrix_at	(	FLA_Datatype	datatype,
		void *	buffer,
		dim_t	i,
		dim_t	j,
		dim_t	rs,
		dim_t	cs
	)

References FLA_Check_error_level(), and FLA_Submatrix_at_check().

{
  void* r_val = buffer;

  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Submatrix_at_check( datatype, buffer, i, j, rs, cs );

  switch( datatype )
  {
    case FLA_INT:
      r_val = ( void* ) ( (      ( int* ) buffer ) + i * rs + j * cs );
      break;

    case FLA_FLOAT:
      r_val = ( void* ) ( (    ( float* ) buffer ) + i * rs + j * cs );
      break;

    case FLA_DOUBLE:
      r_val = ( void* ) ( (   ( double* ) buffer ) + i * rs + j * cs );
      break;

    case FLA_COMPLEX:
      r_val = ( void* ) ( ( ( scomplex* ) buffer ) + i * rs + j * cs );
      break;

    case FLA_DOUBLE_COMPLEX:
      r_val = ( void* ) ( ( ( dcomplex* ) buffer ) + i * rs + j * cs );
      break;
  }

  return r_val;
}

(r12600)

Functions

Function Documentation