libflame  12600
Functions
FLA_Check.c File Reference

(r12600)

Functions

unsigned int FLA_Check_error_level ()
unsigned int FLA_Check_error_level_set (unsigned int new_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_Direct direct)
FLA_Error FLA_Check_valid_storev (FLA_Store 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_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_identical_object_precision (FLA_Obj A, FLA_Obj B)
FLA_Error FLA_Check_consistent_object_datatype (FLA_Obj A, FLA_Obj B)
FLA_Error FLA_Check_consistent_datatype (FLA_Datatype datatype, FLA_Obj A)
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 ATL, FLA_Obj ATR, FLA_Obj ABL, FLA_Obj ABR)
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_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_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)

Function Documentation

FLA_Error FLA_Check_adjacent_objects_1x2 ( FLA_Obj  AL,
FLA_Obj  AR 
)

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

Referenced by FLA_Merge_1x2_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( AL ) != FLA_Obj_length( AR ) )
    e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;

  if ( AR.offn != AL.offn + FLA_Obj_width( AL ) )
    e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ADJ;

  if ( AL.offm != AR.offm )
    e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED;

  return e_val;
}
FLA_Error FLA_Check_adjacent_objects_2x1 ( FLA_Obj  AT,
FLA_Obj  AB 
)

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

Referenced by FLA_Merge_2x1_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_width( AT ) != FLA_Obj_width( AB ) )
    e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;

  if ( AB.offm != AT.offm + FLA_Obj_length( AT ) )
    e_val = FLA_OBJECTS_NOT_VERTICALLY_ADJ;

  if ( AB.offn != AT.offn )
    e_val = FLA_OBJECTS_NOT_VERTICALLY_ALIGNED;

  return e_val;
}
FLA_Error FLA_Check_adjacent_objects_2x2 ( FLA_Obj  ATL,
FLA_Obj  ATR,
FLA_Obj  ABL,
FLA_Obj  ABR 
)

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

Referenced by FLA_Merge_2x2_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( ATL ) != FLA_Obj_length( ATR ) || 
       FLA_Obj_length( ABL ) != FLA_Obj_length( ABR ) ||
       FLA_Obj_width( ATL )  != FLA_Obj_width( ABL )  ||
       FLA_Obj_width( ATR )  != FLA_Obj_width( ABR ) )
    e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;

  if ( ATL.offm != ABL.offm + FLA_Obj_length( ABL ) ||
       ATR.offm != ABR.offm + FLA_Obj_length( ABL ) )
    e_val = FLA_OBJECTS_NOT_VERTICALLY_ADJ;

  if ( ATL.offn != ABL.offn ||
       ATR.offn != ABR.offn )
    e_val = FLA_OBJECTS_NOT_VERTICALLY_ALIGNED;

  if ( ATL.offn != ATR.offn + FLA_Obj_width( ATR ) ||
       ABL.offn != ABR.offn + FLA_Obj_width( ATR ) )
    e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ADJ;

  if ( ATL.offm != ATR.offm ||
       ABL.offm != ABR.offm )
    e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED;

  return e_val;
}
FLA_Error FLA_Check_attempted_repart_1x2 ( FLA_Obj  A_side,
dim_t  b_n 
)

References FLA_Obj_width().

Referenced by FLA_Repart_1x2_to_1x3_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( b_n > FLA_Obj_width( A_side ) )
    e_val = FLA_ATTEMPTED_OVER_REPART_1X2;

  return e_val;
}
FLA_Error FLA_Check_attempted_repart_2x1 ( FLA_Obj  A_side,
dim_t  b_m 
)

References FLA_Obj_length().

Referenced by FLA_Repart_2x1_to_3x1_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( b_m > FLA_Obj_length( A_side ) )
    e_val = FLA_ATTEMPTED_OVER_REPART_2X1;

  return e_val;
}
FLA_Error FLA_Check_attempted_repart_2x2 ( FLA_Obj  A_quad,
dim_t  b_m,
dim_t  b_n 
)

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Repart_2x2_to_3x3_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( b_m > FLA_Obj_length( A_quad ) )
    e_val = FLA_ATTEMPTED_OVER_REPART_2X2;

  if ( b_n > FLA_Obj_width( A_quad ) )
    e_val = FLA_ATTEMPTED_OVER_REPART_2X2;

  return e_val;
}
FLA_Error FLA_Check_base_buffer_mismatch ( FLA_Obj  A,
FLA_Obj  B 
)

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_Error e_val = FLA_SUCCESS;

  if ( A.base->buffer != B.base->buffer )
    e_val = FLA_OBJECT_BASE_BUFFER_MISMATCH;

  return e_val;
}
FLA_Error FLA_Check_blocksize_object ( FLA_Datatype  datatype,
fla_blocksize_t *  bp 
)

References FLA_Blocksize_extract().

{
  FLA_Error e_val = FLA_SUCCESS;
  dim_t     b;

  b = FLA_Blocksize_extract( datatype, bp );
  if ( b <= 0 )
    e_val = FLA_INVALID_BLOCKSIZE_OBJ;

  return e_val;
}
FLA_Error FLA_Check_blocksize_value ( dim_t  b)

Referenced by FLA_Determine_blocksize().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( b <= 0 )
    e_val = FLA_INVALID_BLOCKSIZE_VALUE;

  return e_val;
}
FLA_Error FLA_Check_chol_failure ( FLA_Error  r_val)

Referenced by FLA_SPDinv_internal().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( r_val > 0 )
    e_val = FLA_CHOL_FAILED_MATRIX_NOT_SPD;

  return e_val;
}
FLA_Error FLA_Check_close_result ( int  close_r_val) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( close_r_val == -1 )
    e_val = FLA_CLOSE_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_col_storage ( FLA_Obj  A)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_row_stride( A ) != 1 )
    e_val = FLA_EXPECTED_COL_STORAGE;

  return e_val;
}
FLA_Error FLA_Check_col_vector ( FLA_Obj  x)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_width( x ) != 1 )
    e_val = FLA_EXPECTED_COL_VECTOR;

  return e_val;
}
FLA_Error FLA_Check_comparable_object ( FLA_Obj  A)

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_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  if ( FLA_Check_int_datatype( datatype ) != FLA_SUCCESS &&
       FLA_Check_real_datatype( datatype ) != FLA_SUCCESS )
    e_val = FLA_OBJECT_NOT_COMPARABLE;
  
  return e_val;
}
FLA_Error FLA_Check_complex_datatype ( FLA_Datatype  datatype)

Referenced by FLA_Check_complex_object().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( datatype != FLA_CONSTANT &&
       datatype != FLA_COMPLEX &&
       datatype != FLA_DOUBLE_COMPLEX )
    e_val = FLA_INVALID_COMPLEX_DATATYPE;

  return e_val;
}
FLA_Error FLA_Check_complex_object ( FLA_Obj  A)

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_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  if ( FLA_Check_complex_datatype( datatype ) != FLA_SUCCESS )
    e_val = FLA_OBJECT_NOT_COMPLEX;

  return e_val;
}
FLA_Error FLA_Check_conformal_dims ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  B 
)

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_Error e_val = FLA_SUCCESS;

  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
  {
    if ( FLA_Obj_length( A ) != FLA_Obj_length( B ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;

    if ( FLA_Obj_width( A ) != FLA_Obj_width( B ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;
  }
  else
  {
    if ( FLA_Obj_width( A ) != FLA_Obj_length( B ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;

    if ( FLA_Obj_length( A ) != FLA_Obj_width( B ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;
  }

  return e_val;
}
FLA_Error FLA_Check_conj1_trans_and_datatype ( FLA_Trans  trans,
FLA_Obj  A 
)

References FLA_Obj_is_complex().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( trans == FLA_CONJ_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE ){
    if ( FLA_Obj_is_complex( A ) == FALSE )
      e_val = FLA_INVALID_TRANS_GIVEN_DATATYPE;
  }

  return e_val;
}
FLA_Error FLA_Check_conj_and_datatype ( FLA_Conj  conj,
FLA_Obj  A 
)

References FLA_Obj_is_complex().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( conj == FLA_CONJUGATE ){
    if ( FLA_Obj_is_complex( A ) == FALSE )
      e_val = FLA_INVALID_CONJ_GIVEN_DATATYPE;
  }

  return e_val;
}
FLA_Error FLA_Check_consistent_datatype ( FLA_Datatype  datatype,
FLA_Obj  A 
)

References FLA_Obj_datatype().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_datatype( A ) != FLA_CONSTANT &&
                    datatype != FLA_CONSTANT )
    if ( FLA_Obj_datatype( A ) != datatype )
      e_val = FLA_INCONSISTENT_DATATYPES;

  return e_val;
}
FLA_Error FLA_Check_consistent_object_datatype ( FLA_Obj  A,
FLA_Obj  B 
)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_datatype( A ) != FLA_CONSTANT &&
       FLA_Obj_datatype( B ) != FLA_CONSTANT )
    if ( FLA_Obj_datatype( A ) != FLA_Obj_datatype( B ) )
      e_val = FLA_INCONSISTENT_DATATYPES;

  return e_val;
}
FLA_Error FLA_Check_divide_by_zero ( FLA_Obj  alpha)

References FLA_Obj_equals(), and FLA_ZERO.

Referenced by FLA_Inv_scal_check(), and FLA_Inv_scalc_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_equals( alpha, FLA_ZERO ) )
    e_val = FLA_DIVIDE_BY_ZERO;

  return e_val;
}
FLA_Error FLA_Check_equal_vector_dims ( FLA_Obj  x,
FLA_Obj  y 
)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_vector_dim( x ) != FLA_Obj_vector_dim( y ) )
    e_val = FLA_UNEQUAL_VECTOR_DIMS;

  return e_val;
}
FLA_Error FLA_Check_error_code_helper ( int  code,
char *  file,
int  line 
)

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

{
  if ( code == FLA_SUCCESS )
    return code;

  //if ( /* fatal error checking enabled */ )
  if ( TRUE )
  {
    if ( FLA_ERROR_CODE_MAX <= code && code <= FLA_ERROR_CODE_MIN )
    {
      FLA_Print_message( FLA_Error_string_for_code( code ),
                         file, line );
      FLA_Abort();
    }
    else
    {
      FLA_Print_message( FLA_Error_string_for_code( FLA_UNDEFINED_ERROR_CODE ),
                         file, line );
      FLA_Abort();
    }
  }

  return code;
}
unsigned int FLA_Check_error_level ( void  )

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

{
  return fla_error_checking_level;
}
unsigned int FLA_Check_error_level_set ( unsigned int  new_level)

References FLA_Check_valid_error_level().

{
  FLA_Error    e_val;
  unsigned int old_level;

  e_val = FLA_Check_valid_error_level( new_level );
  FLA_Check_error_code( e_val );

  old_level = fla_error_checking_level;

  fla_error_checking_level = new_level;

  return old_level;
}
FLA_Error FLA_Check_file_descriptor ( int  fd) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( fd == -1 )
    e_val = FLA_OPEN_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_floating_datatype ( FLA_Datatype  datatype)

Referenced by FLA_Check_floating_object().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( datatype != FLA_CONSTANT &&
       datatype != FLA_FLOAT && 
       datatype != FLA_DOUBLE && 
       datatype != FLA_COMPLEX && 
       datatype != FLA_DOUBLE_COMPLEX )
    e_val = FLA_INVALID_FLOATING_DATATYPE;
  
  return e_val;
}
FLA_Error FLA_Check_floating_object ( FLA_Obj  A)

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_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  if ( FLA_Check_floating_datatype( datatype ) != FLA_SUCCESS )
    e_val = FLA_OBJECT_NOT_FLOATING_POINT;

  return e_val;
}
FLA_Error FLA_Check_hess_indices ( FLA_Obj  A,
int  ilo,
int  ihi 
)

References FLA_Obj_width().

Referenced by FLA_Hess_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_width( A ) == 0 && ilo != 0 && ihi != -1 )
    e_val = FLA_INVALID_HESSENBERG_INDICES;

  if ( ilo < 0 || FLA_Obj_width( A ) - 1 < ilo )
    e_val = FLA_INVALID_HESSENBERG_INDICES;

  if ( ihi < 0 || FLA_Obj_width( A ) - 1 < ihi )
    e_val = FLA_INVALID_HESSENBERG_INDICES;

  if ( ihi < ilo )
    e_val = FLA_INVALID_HESSENBERG_INDICES;

  return e_val;
}
FLA_Error FLA_Check_householder_panel_dims ( FLA_Obj  A,
FLA_Obj  T 
)

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

{
  FLA_Error e_val = FLA_SUCCESS;
  dim_t     nb_alg;

  nb_alg = FLA_Query_blocksize( FLA_Obj_datatype( A ), FLA_DIMENSION_MIN );

  if ( FLA_Obj_length( T ) < nb_alg )
    e_val = FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL;

  if ( FLA_Obj_width( T ) < FLA_Obj_min_dim( A ) )
    e_val = FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL;

  return e_val;
}
FLA_Error FLA_Check_identical_object_datatype ( FLA_Obj  A,
FLA_Obj  B 
)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_datatype( A ) != FLA_Obj_datatype( B ) )
    e_val = FLA_OBJECT_DATATYPES_NOT_EQUAL;

  return e_val;
}
FLA_Error FLA_Check_identical_object_elemtype ( FLA_Obj  A,
FLA_Obj  B 
)

References FLA_Obj_elemtype().

Referenced by 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_internal_check(), FLA_Axpyt_internal_check(), FLA_Bidiag_UT_internal_check(), FLA_CAQR2_UT_internal_check(), FLA_Copy_internal_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_Lyap_internal_check(), FLA_QR2_UT_internal_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_internal_check(), FLA_QR_UT_piv_internal_check(), FLA_Sylv_internal_check(), FLA_Symm_internal_check(), FLA_Syr2k_internal_check(), FLA_Syrk_internal_check(), FLA_Tridiag_UT_internal_check(), FLA_Trmm_internal_check(), FLA_Trsm_internal_check(), FLA_Trsv_internal_check(), and FLA_UDdate_UT_internal_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_elemtype( A ) != FLA_Obj_elemtype( B ) )
    e_val = FLA_OBJECT_ELEMTYPES_NOT_EQUAL;

  return e_val;
}
FLA_Error FLA_Check_identical_object_precision ( FLA_Obj  A,
FLA_Obj  B 
)

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_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype_A;
  FLA_Datatype datatype_B;
  dim_t        precision_A;
  dim_t        precision_B;

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

  if ( datatype_A == FLA_CONSTANT ||
       datatype_B == FLA_CONSTANT )
  {
    return FLA_SUCCESS;
  }

  if ( FLA_Check_floating_object( A ) != FLA_SUCCESS ||
       FLA_Check_floating_object( B ) != FLA_SUCCESS )
  {
    return FLA_OBJECT_NOT_FLOATING_POINT;
  }

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

  precision_A = FLA_Obj_datatype_size( datatype_A );
  precision_B = FLA_Obj_datatype_size( datatype_B );

  if ( FLA_Obj_is_complex( A ) )
    precision_A = precision_A / 2;

  if ( FLA_Obj_is_complex( B ) )
    precision_B = precision_B / 2;

  if ( precision_A != precision_B )
    e_val = FLA_INCONSISTENT_OBJECT_PRECISION;

  return e_val;
}
FLA_Error FLA_Check_if_scalar ( FLA_Obj  A)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( A ) != 1 || FLA_Obj_width( A ) != 1 )
    e_val = FLA_OBJECT_NOT_SCALAR;

  return e_val;
}
FLA_Error FLA_Check_if_vector ( FLA_Obj  A)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( A ) != 1 && FLA_Obj_width( A ) != 1 )
    e_val = FLA_OBJECT_NOT_VECTOR;

  return e_val;
}
FLA_Error FLA_Check_int_datatype ( FLA_Datatype  datatype)

Referenced by FLA_Check_comparable_object(), and FLA_Check_int_object().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( datatype != FLA_CONSTANT &&
       datatype != FLA_INT )
    e_val = FLA_INVALID_INTEGER_DATATYPE;

  return e_val;
}
FLA_Error FLA_Check_int_object ( FLA_Obj  A)

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_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  if ( FLA_Check_int_datatype( datatype ) != FLA_SUCCESS )
    e_val = FLA_OBJECT_NOT_INTEGER;

  return e_val;
}
FLA_Error FLA_Check_lseek_result ( int  requested_offset,
int  lseek_r_val 
) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( lseek_r_val != requested_offset )
    e_val = FLA_LSEEK_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_malloc_pointer ( void *  ptr)

Referenced by FLA_malloc(), and FLA_realloc().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( ptr == NULL )
    e_val = FLA_MALLOC_RETURNED_NULL_POINTER;

  return e_val;
}
FLA_Error FLA_Check_matrix_matrix_dims ( FLA_Trans  transa,
FLA_Trans  transb,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  C 
)

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_Error e_val = FLA_SUCCESS;
  dim_t     k_A, k_B;
  dim_t     m_A, m_C;
  dim_t     n_B, n_C;

  m_A = ( transa == FLA_NO_TRANSPOSE || 
          transa == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_length( A ) :
                                            FLA_Obj_width( A )  );
  k_A = ( transa == FLA_NO_TRANSPOSE ||
          transa == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_width( A )  :
                                            FLA_Obj_length( A ) );

  k_B = ( transb == FLA_NO_TRANSPOSE ||
          transb == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_length( B ) :
                                            FLA_Obj_width( B )  );
  n_B = ( transb == FLA_NO_TRANSPOSE ||
          transb == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_width( B )  :
                                            FLA_Obj_length( B ) );

  m_C = FLA_Obj_length( C );
  n_C = FLA_Obj_width( C );

  if ( m_A != m_C )
    e_val = FLA_NONCONFORMAL_DIMENSIONS;

  if ( k_A != k_B )
    e_val = FLA_NONCONFORMAL_DIMENSIONS;

  if ( n_B != n_C )
    e_val = FLA_NONCONFORMAL_DIMENSIONS;

  return e_val;
}
FLA_Error FLA_Check_matrix_strides ( dim_t  m,
dim_t  n,
dim_t  rs,
dim_t  cs 
)

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_Error e_val = FLA_SUCCESS;

  // Note: The default case (whereby we interpret rs == cs == 0 as a request
  // for column-major order) is handled prior to calling this function, so we
  // never see zero strides here.

  // Disallow either of the strides to be zero.
  if ( ( rs == 0 || cs == 0 ) )
    return FLA_INVALID_STRIDE_COMBINATION;

  // Check stride consistency in cases of general stride.
  if ( rs != 1 && cs != 1 )
  {
    // We apply different tests depending on which way the strides "tilt".
    if      ( rs == cs )
    {
      // If rs == cs, then we must be dealing with an m-by-1 or a 1-by-n matrix
      // and thus at least one of the dimensions, m or n, must be unit (even if
      // the other is zero).
      if ( m != 1 && n != 1 )
        return FLA_INVALID_STRIDE_COMBINATION;
    }
    else if ( rs < cs )
    {
      // For column-major tilt, cs must be equal or larger than m * rs.
      if ( m * rs > cs )
        return FLA_INVALID_STRIDE_COMBINATION;
    }
    else if ( cs < rs )
    {
      // For row-major tilt, rs must be equal or larger than n * cs.
      if ( n * cs > rs )
        return FLA_INVALID_STRIDE_COMBINATION;
    }
  }

  if ( rs == 1 && cs == 1 )
  {
    // Only allow rs == cs == 1 for scalars and "empty" objects.
    if ( !( m == 1 && n == 1 ) &&
         !( m == 0 )           && 
         !( n == 0 )           )
      return FLA_INVALID_STRIDE_COMBINATION;
  }
  else // perform additional stride/dimension checks on non-scalars.
  {
    if ( rs == 1 )
    {
      // For column-major storage, don't allow the column stride to be less than
      // the m dimension.
      if ( cs < m )
        e_val = FLA_INVALID_COL_STRIDE;
    }
    else if ( cs == 1 )
    {
      // For row-major storage, don't allow the row stride to be less than
      // the n dimension.
      if ( rs < n )
        e_val = FLA_INVALID_ROW_STRIDE;
    }
  }

  return e_val;
}
FLA_Error FLA_Check_matrix_vector_dims ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  x,
FLA_Obj  y 
)

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_Error e_val = FLA_SUCCESS;

  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
  {
    if ( FLA_Obj_width( A ) != FLA_Obj_vector_dim( x ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;

    if ( FLA_Obj_length( A ) != FLA_Obj_vector_dim( y ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;
  }
  else
  {
    if ( FLA_Obj_length( A ) != FLA_Obj_vector_dim( x ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;

    if ( FLA_Obj_width( A ) != FLA_Obj_vector_dim( y ) )
      e_val = FLA_NONCONFORMAL_DIMENSIONS;
  }

  return e_val;
}
FLA_Error FLA_Check_nonconstant_datatype ( FLA_Datatype  datatype)

Referenced by FLA_Check_nonconstant_object().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( datatype != FLA_INT &&
       datatype != FLA_FLOAT && 
       datatype != FLA_DOUBLE && 
       datatype != FLA_COMPLEX && 
       datatype != FLA_DOUBLE_COMPLEX )
    e_val = FLA_INVALID_NONCONSTANT_DATATYPE;
  
  return e_val;
}
FLA_Error FLA_Check_nonconstant_object ( FLA_Obj  A)

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_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  if ( FLA_Check_nonconstant_datatype( datatype ) != FLA_SUCCESS )
    e_val = FLA_OBJECT_NOT_NONCONSTANT;

  return e_val;
}
FLA_Error FLA_Check_null_pointer ( void *  ptr)

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_Error e_val = FLA_SUCCESS;

  if ( ptr == NULL )
    e_val = FLA_NULL_POINTER;

  return e_val;
}
FLA_Error FLA_Check_num_threads ( unsigned int  n_threads)

Referenced by FLASH_Queue_set_num_threads().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( n_threads < 1 )
    e_val = FLA_ENCOUNTERED_NON_POSITIVE_NTHREADS;

  return e_val;
}
FLA_Error FLA_Check_object_dims ( FLA_Trans  trans,
dim_t  m,
dim_t  n,
FLA_Obj  A 
)

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_Error e_val = FLA_SUCCESS;

  if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
  {
    if ( FLA_Obj_length( A ) != m )
      e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;

    if ( FLA_Obj_width( A ) != n )
      e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
  }
  else
  {
    if ( FLA_Obj_length( A ) != n )
      e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;

    if ( FLA_Obj_width( A ) != m )
      e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
  }

  return e_val;
}
FLA_Error FLA_Check_object_length_equals ( FLA_Obj  A,
dim_t  m 
)

References FLA_Obj_length().

Referenced by FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_CAQ_UT_inc_check(), FLA_Apply_CAQ_UT_inc_internal_check(), FLA_Apply_diag_matrix_check(), FLA_Apply_G_check(), FLA_Apply_H2_UT_check(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_internal_check(), FLA_Apply_QUD_UT_inc_check(), FLA_Apply_QUD_UT_inc_internal_check(), FLA_Apply_QUD_UT_internal_check(), FLA_Bidiag_UT_check(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_V_check(), FLA_Bsvd_check(), FLA_Bsvd_ext_check(), FLA_Eig_gest_internal_check(), FLA_FS_incpiv_check(), FLA_LU_incpiv_check(), FLA_QR_UT_form_Q_check(), FLA_QR_UT_piv_check(), FLA_QR_UT_piv_colnorm_check(), FLA_Sort_evd_check(), FLA_Svd_check(), FLA_Svd_ext_check(), FLA_Svdd_check(), FLA_Tridiag_apply_Q_check(), FLA_Trsm_internal_check(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_update_rhs_check(), and FLA_UDdate_UT_internal_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( A ) != m )
    e_val = FLA_INVALID_OBJECT_LENGTH;

  return e_val;
}
FLA_Error FLA_Check_object_length_min ( FLA_Obj  A,
dim_t  m 
)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( A ) < m )
    e_val = FLA_INVALID_OBJECT_LENGTH;

  return e_val;
}
FLA_Error FLA_Check_object_matrix_elemtype ( FLA_Obj  A)

References FLA_Obj_elemtype().

{
  FLA_Error     e_val = FLA_SUCCESS;
  FLA_Elemtype  elemtype;

  elemtype = FLA_Obj_elemtype( A );

  if ( elemtype != FLA_MATRIX )
    e_val = FLA_OBJECT_NOT_MATRIX_ELEMTYPE;

  return e_val;
}
FLA_Error FLA_Check_object_scalar_elemtype ( FLA_Obj  A)

References FLA_Obj_elemtype().

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

{
  FLA_Error     e_val = FLA_SUCCESS;
  FLA_Elemtype  elemtype;

  elemtype = FLA_Obj_elemtype( A );

  if ( elemtype != FLA_SCALAR )
    e_val = FLA_OBJECT_NOT_SCALAR_ELEMTYPE;

  return e_val;
}
FLA_Error FLA_Check_object_width_equals ( FLA_Obj  A,
dim_t  n 
)

References FLA_Obj_width().

Referenced by FLA_Apply_CAQ2_UT_internal_check(), FLA_Apply_CAQ_UT_inc_internal_check(), FLA_Apply_diag_matrix_check(), FLA_Apply_H2_UT_check(), FLA_Apply_Q2_UT_internal_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_internal_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_Bidiag_UT_check(), FLA_Bidiag_UT_form_U_check(), FLA_Bidiag_UT_form_V_check(), FLA_Bidiag_UT_recover_tau_check(), FLA_CAQR2_UT_internal_check(), FLA_Eig_gest_internal_check(), FLA_FS_incpiv_check(), FLA_Hess_UT_check(), FLA_Hess_UT_recover_tau_check(), FLA_LQ_UT_check(), FLA_LQ_UT_form_Q_check(), FLA_LQ_UT_solve_check(), FLA_QR2_UT_internal_check(), FLA_QR_UT_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_piv_check(), FLA_QR_UT_solve_check(), FLA_Svd_ext_check(), FLA_Tridiag_apply_Q_check(), FLA_Tridiag_UT_check(), FLA_Tridiag_UT_form_Q_check(), FLA_Tridiag_UT_realify_check(), FLA_Tridiag_UT_recover_tau_check(), FLA_UDdate_UT_check(), FLA_UDdate_UT_inc_check(), FLA_UDdate_UT_inc_update_rhs_check(), FLA_UDdate_UT_internal_check(), and FLA_UDdate_UT_update_rhs_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_width( A ) != n )
    e_val = FLA_INVALID_OBJECT_WIDTH;

  return e_val;
}
FLA_Error FLA_Check_object_width_min ( FLA_Obj  A,
dim_t  n 
)

References FLA_Obj_width().

Referenced by FLA_LQ_UT_internal_check(), and FLA_QR_UT_internal_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_width( A ) < n )
    e_val = FLA_INVALID_OBJECT_WIDTH;

  return e_val;
}
FLA_Error FLA_Check_pivot_index_range ( FLA_Obj  p,
dim_t  k1,
dim_t  k2 
)

References FLA_Obj_has_zero_dim(), and FLA_Obj_length().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_has_zero_dim( p ) )
    return e_val;

  // FGVZ: Note that we don't need to test if k1 < 0 since the type is an
  // unsigned integer. Same goes for k2 < 0. If we ever wanted to allow
  // the caller to specify the index range k1:k2 == -1:0, which would
  // result in no action. If this "no-op" behavior is needed, then k1 and
  // k2 should be type re-declared as ints.
  //if ( k1 < 0 || FLA_Obj_length( p ) - 1 < k1 )
  if ( FLA_Obj_length( p ) - 1 < k1 )
    e_val = FLA_INVALID_PIVOT_INDEX_RANGE;

  //if ( k2 < 0 || FLA_Obj_length( p ) - 1 < k2 )
  if ( FLA_Obj_length( p ) - 1 < k2 )
    e_val = FLA_INVALID_PIVOT_INDEX_RANGE;

  if ( k2 < k1 )
    e_val = FLA_INVALID_PIVOT_INDEX_RANGE;

  return e_val;
}
FLA_Error FLA_Check_posix_memalign_failure ( int  r_val)

Referenced by FLA_malloc().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( r_val != 0 )
    e_val = FLA_POSIX_MEMALIGN_FAILED;

  return e_val;
}
FLA_Error FLA_Check_pthread_create_result ( int  pthread_create_r_val)

Referenced by FLASH_Queue_exec_parallel().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( pthread_create_r_val != 0 )
    e_val = FLA_PTHREAD_CREATE_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_pthread_join_result ( int  pthread_join_r_val)

Referenced by FLASH_Queue_exec_parallel().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( pthread_join_r_val != 0 )
    e_val = FLA_PTHREAD_JOIN_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_read_result ( int  requested_size,
int  read_r_val 
) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( read_r_val == -1 )
    e_val = FLA_READ_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_real_datatype ( FLA_Datatype  datatype)

Referenced by FLA_Check_comparable_object(), and FLA_Check_real_object().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( datatype != FLA_CONSTANT &&
       datatype != FLA_FLOAT &&
       datatype != FLA_DOUBLE )
    e_val = FLA_INVALID_REAL_DATATYPE;

  return e_val;
}
FLA_Error FLA_Check_real_object ( FLA_Obj  A)

References FLA_Check_real_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Apply_G_1x2_check(), FLA_Apply_G_mx2_check(), FLA_Apply_GTG_check(), FLA_Bidiag_UT_extract_real_diagonals_check(), FLA_Bidiag_UT_scale_diagonals_check(), FLA_Bsvd_check(), FLA_Bsvd_create_workspace(), 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_Givens1_check(), FLA_Givens2_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_Introduce_bulge_check(), FLA_Mach_params_check(), FLA_Max_abs_value_herm_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_extract_real_scalar_check(), FLA_Obj_set_imag_part_check(), FLA_Obj_set_real_part_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_Tridiag_UT_scale_diagonals_check(), and FLA_Wilkshift_tridiag_check().

{
  FLA_Error    e_val = FLA_SUCCESS;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  if ( FLA_Check_real_datatype( datatype ) != FLA_SUCCESS )
    e_val = FLA_OBJECT_NOT_REAL;

  return e_val;
}
FLA_Error FLA_Check_row_storage ( FLA_Obj  A)

References FLA_Obj_col_stride().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_col_stride( A ) != 1 )
    e_val = FLA_EXPECTED_ROW_STORAGE;

  return e_val;
}
FLA_Error FLA_Check_row_vector ( FLA_Obj  x)

References FLA_Obj_length().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( x ) != 1 )
    e_val = FLA_EXPECTED_ROW_VECTOR;

  return e_val;
}
FLA_Error FLA_Check_square ( FLA_Obj  A)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_length( A ) != FLA_Obj_width( A ) )
    e_val = FLA_OBJECT_NOT_SQUARE;

  return e_val;
}
FLA_Error FLA_Check_submatrix_dims_and_offset ( dim_t  m,
dim_t  n,
dim_t  i,
dim_t  j,
FLA_Obj  A 
)

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

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_Error e_val = FLA_SUCCESS;
  dim_t     m_A, n_A;

  if ( FLA_Obj_elemtype( A ) == FLA_MATRIX )
  {
    m_A = FLASH_Obj_scalar_length( A );
    n_A = FLASH_Obj_scalar_width( A );
  }
  else
  {
    m_A = FLA_Obj_length( A );
    n_A = FLA_Obj_width( A );
  }

  if      ( i     > m_A || j     > n_A )
    e_val = FLA_INVALID_SUBMATRIX_OFFSET;
  else if ( i + m > m_A || j + n > n_A )
    e_val = FLA_INVALID_SUBMATRIX_DIMS;

  return e_val;
}
FLA_Error FLA_Check_sylv_matrix_dims ( FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  C 
)

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Sylv_check(), and FLA_Sylv_internal_check().

{
  FLA_Error e_val = FLA_SUCCESS;
  dim_t     m_A, m_C;
  dim_t     n_B, n_C;

  m_A = FLA_Obj_length( A );

  n_B = FLA_Obj_width( B );

  m_C = FLA_Obj_length( C );
  n_C = FLA_Obj_width( C );

  if ( m_A != m_C )
    e_val = FLA_NONCONFORMAL_DIMENSIONS;

  if ( n_B != n_C )
    e_val = FLA_NONCONFORMAL_DIMENSIONS;

  return e_val;
}
FLA_Error FLA_Check_unlink_result ( int  unlink_r_val) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( unlink_r_val == -1 )
    e_val = FLA_UNLINK_RETURNED_ERROR;

  return e_val;
}
FLA_Error FLA_Check_valid_blas_trans ( FLA_Trans  trans)

Referenced by FLA_Lyap_check(), and FLA_Sylv_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( trans != FLA_NO_TRANSPOSE &&
       trans != FLA_TRANSPOSE &&
       trans != FLA_CONJ_TRANSPOSE )
    e_val = FLA_INVALID_BLAS_TRANS;

  return e_val;
}
FLA_Error FLA_Check_valid_complex_trans ( FLA_Trans  trans)

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

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( trans != FLA_NO_TRANSPOSE &&
       trans != FLA_CONJ_TRANSPOSE )
    e_val = FLA_INVALID_COMPLEX_TRANS;

  return e_val;
}
FLA_Error FLA_Check_valid_conj ( FLA_Conj  conj)

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_Error e_val = FLA_SUCCESS;

  if ( conj != FLA_NO_CONJUGATE &&
       conj != FLA_CONJUGATE )
    e_val = FLA_INVALID_CONJ;

  return e_val;
}
FLA_Error FLA_Check_valid_datatype ( FLA_Datatype  datatype)

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_Error e_val = FLA_SUCCESS;

  if ( datatype != FLA_INT &&
       datatype != FLA_FLOAT && 
       datatype != FLA_DOUBLE && 
       datatype != FLA_COMPLEX && 
       datatype != FLA_DOUBLE_COMPLEX && 
       datatype != FLA_CONSTANT )
    e_val = FLA_INVALID_DATATYPE;

  return e_val;
}
FLA_Error FLA_Check_valid_diag ( FLA_Diag  diag)

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_Error e_val = FLA_SUCCESS;

  if ( diag != FLA_NONUNIT_DIAG && 
       diag != FLA_UNIT_DIAG &&
       diag != FLA_ZERO_DIAG )
    e_val = FLA_INVALID_DIAG;

  return e_val;
}
FLA_Error FLA_Check_valid_diag_offset ( FLA_Obj  A,
FLA_Diag_off  offset 
)

References FLA_Obj_min_dim().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_min_dim( A ) <= abs( offset ) )
    e_val = FLA_INVALID_DIAG_OFFSET;

  return e_val;
}
FLA_Error FLA_Check_valid_direct ( FLA_Direct  direct)

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_Error e_val = FLA_SUCCESS;

  if ( direct != FLA_FORWARD &&
       direct != FLA_BACKWARD )
    e_val = FLA_INVALID_DIRECT;

  return e_val;
}
FLA_Error FLA_Check_valid_elemtype ( FLA_Elemtype  elemtype)

Referenced by FLA_Obj_create_ext_check(), and FLA_Obj_elem_size_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( elemtype != FLA_SCALAR &&
       elemtype != FLA_MATRIX )
    e_val = FLA_INVALID_ELEMTYPE;

  return e_val;
}
FLA_Error FLA_Check_valid_error_level ( unsigned int  level)

Referenced by FLA_Check_error_level_set().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( level != FLA_NO_ERROR_CHECKING &&
       level != FLA_MIN_ERROR_CHECKING &&
       level != FLA_FULL_ERROR_CHECKING )
    e_val = FLA_INVALID_ERROR_CHECKING_LEVEL;

  return e_val;
}
FLA_Error FLA_Check_valid_evd_type ( FLA_Evd_type  evd_type)

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

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( evd_type != FLA_EVD_WITHOUT_VECTORS && 
       evd_type != FLA_EVD_WITH_VECTORS )
    e_val = FLA_INVALID_EVD_TYPE;

  return e_val;
}
FLA_Error FLA_Check_valid_inverse ( FLA_Inv  inv)

Referenced by FLA_Eig_gest_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( inv != FLA_NO_INVERSE &&
       inv != FLA_INVERSE )
    e_val = FLA_INVALID_INVERSE;

  return e_val;
}
FLA_Error FLA_Check_valid_isgn_value ( FLA_Obj  isgn)

References FLA_MINUS_ONE, FLA_Obj_is(), and FLA_ONE.

Referenced by FLA_Lyap_check(), and FLA_Sylv_check().

{
  FLA_Error e_val = FLA_SUCCESS;
  
  if ( !FLA_Obj_is( isgn, FLA_ONE ) && 
       !FLA_Obj_is( isgn, FLA_MINUS_ONE ) )
    e_val = FLA_INVALID_ISGN_VALUE;

  return e_val;
}
FLA_Error FLA_Check_valid_leftright_side ( FLA_Side  side)

Referenced by 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_Cont_with_1x3_to_1x2_check(), FLA_Givens1_check(), FLA_Hemm_check(), FLA_Househ2_UT_check(), FLA_Househ2s_UT_check(), FLA_Part_1x2_check(), FLA_Repart_1x2_to_1x3_check(), FLA_Symm_check(), FLA_Tridiag_apply_Q_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trsm_check(), and FLA_Trsmsx_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( side != FLA_LEFT && 
       side != FLA_RIGHT )
    e_val = FLA_INVALID_SIDE;

  return e_val;
}
FLA_Error FLA_Check_valid_machval ( FLA_Machval  val)

Referenced by FLA_Mach_params_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( val != FLA_MACH_EPS      &&
       val != FLA_MACH_SFMIN    &&
       val != FLA_MACH_BASE     &&
       val != FLA_MACH_PREC     &&
       val != FLA_MACH_NDIGMANT &&
       val != FLA_MACH_RND      &&
       val != FLA_MACH_EMIN     &&
       val != FLA_MACH_RMIN     &&
       val != FLA_MACH_EMAX     &&
       val != FLA_MACH_RMAX     &&
       val != FLA_MACH_EPS2 )
    e_val = FLA_INVALID_MACHVAL;

  return e_val;
}
FLA_Error FLA_Check_valid_object_datatype ( FLA_Obj  A)

References FLA_Check_valid_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Cont_with_1x3_to_1x2_check(), FLA_Cont_with_3x1_to_2x1_check(), FLA_Cont_with_3x3_to_2x2_check(), FLA_Copy_check(), FLA_Copyr_check(), FLA_Copyrt_check(), FLA_Copyt_check(), FLA_Merge_1x2_check(), FLA_Merge_2x1_check(), FLA_Merge_2x2_check(), FLA_Obj_create_conf_to_check(), FLA_Obj_equals_check(), FLA_Obj_fshow_check(), FLA_Obj_show_check(), FLA_Part_1x2_check(), FLA_Part_2x1_check(), FLA_Part_2x2_check(), FLA_Repart_1x2_to_1x3_check(), FLA_Repart_2x1_to_3x1_check(), FLA_Repart_2x2_to_3x3_check(), FLA_Set_check(), FLA_Set_diag_check(), and FLA_Set_to_identity_check().

{
  FLA_Error    e_val;
  FLA_Datatype datatype;

  datatype = FLA_Obj_datatype( A );

  e_val = FLA_Check_valid_datatype( datatype );

  return e_val;
}
FLA_Error FLA_Check_valid_pivot_type ( FLA_Pivot_type  ptype)

Referenced by FLA_Shift_pivots_to_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( ptype != FLA_NATIVE_PIVOTS && ptype != FLA_LAPACK_PIVOTS )
    e_val = FLA_INVALID_PIVOT_TYPE;

  return e_val;
}
FLA_Error FLA_Check_valid_quadrant ( FLA_Quadrant  quad)

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

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( quad != FLA_TL && 
       quad != FLA_TR && 
       quad != FLA_BL &&
       quad != FLA_BR )
    e_val = FLA_INVALID_QUADRANT;

  return e_val;
}
FLA_Error FLA_Check_valid_real_trans ( FLA_Trans  trans)

Referenced by FLA_Apply_Q_check(), 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_Syr2k_check(), FLA_Syrk_check(), FLA_Tridiag_apply_Q_check(), FLASH_Obj_create_conf_to_check(), FLASH_Obj_create_flat_conf_to_hier_check(), FLASH_Obj_create_hier_conf_to_flat_check(), and FLASH_Obj_create_hier_conf_to_flat_ext_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( trans != FLA_NO_TRANSPOSE &&
       trans != FLA_TRANSPOSE )
    e_val = FLA_INVALID_REAL_TRANS;

  return e_val;
}
FLA_Error FLA_Check_valid_side ( FLA_Side  side) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( side != FLA_LEFT && 
       side != FLA_RIGHT && 
       side != FLA_TOP &&
       side != FLA_BOTTOM )
    e_val = FLA_INVALID_SIDE;

  return e_val;
}
FLA_Error FLA_Check_valid_storev ( FLA_Store  storev)

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_Error e_val = FLA_SUCCESS;

  if ( storev != FLA_COLUMNWISE &&
       storev != FLA_ROWWISE )
    e_val = FLA_INVALID_STOREV;

  return e_val;
}
FLA_Error FLA_Check_valid_svd_type ( FLA_Svd_type  svd_type)

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

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( svd_type != FLA_SVD_VECTORS_ALL && 
       svd_type != FLA_SVD_VECTORS_MIN_COPY &&
       svd_type != FLA_SVD_VECTORS_MIN_OVERWRITE &&
       svd_type != FLA_SVD_VECTORS_NONE )
    e_val = FLA_INVALID_SVD_TYPE;

  return e_val;
}
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 
)

Referenced by FLA_Svd_ext_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( svd_type_u == FLA_SVD_VECTORS_MIN_OVERWRITE )
    if ( transu == FLA_TRANSPOSE || 
         transu == FLA_CONJ_TRANSPOSE )
      e_val = FLA_INVALID_SVD_TYPE_AND_TRANS_COMBINATION;
  if ( svd_type_v == FLA_SVD_VECTORS_MIN_OVERWRITE )
    if ( transv == FLA_NO_TRANSPOSE || 
         transv == FLA_CONJ_NO_TRANSPOSE )
      e_val = FLA_INVALID_SVD_TYPE_AND_TRANS_COMBINATION;
  
  return e_val;
}
FLA_Error FLA_Check_valid_svd_type_combination ( FLA_Svd_type  svd_type_u,
FLA_Svd_type  svd_type_v 
)

Referenced by FLA_Svd_ext_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( svd_type_u == FLA_SVD_VECTORS_MIN_OVERWRITE &&
       svd_type_v == FLA_SVD_VECTORS_MIN_OVERWRITE )
    e_val = FLA_INVALID_SVD_TYPE_COMBINATION;
  
  return e_val;
}
FLA_Error FLA_Check_valid_topbottom_side ( FLA_Side  side)

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

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( side != FLA_TOP && 
       side != FLA_BOTTOM )
    e_val = FLA_INVALID_SIDE;

  return e_val;
}
FLA_Error FLA_Check_valid_trans ( FLA_Trans  trans)

Referenced by FLA_Apply_CAQ_UT_inc_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_Axpyrt_check(), FLA_Axpyt_check(), FLA_Copyrt_check(), FLA_Copyt_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Inv_scal_elemwise_check(), FLA_Obj_create_conf_to_check(), FLA_Scal_elemwise_check(), FLA_Svd_ext_check(), FLA_Swapt_check(), FLA_Tridiag_apply_Q_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_Error e_val = FLA_SUCCESS;

  if ( trans != FLA_NO_TRANSPOSE &&
       trans != FLA_TRANSPOSE &&
       trans != FLA_CONJ_TRANSPOSE &&
       trans != FLA_CONJ_NO_TRANSPOSE )
    e_val = FLA_INVALID_TRANS;

  return e_val;
}
FLA_Error FLA_Check_valid_uplo ( FLA_Uplo  uplo)

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_Error e_val = FLA_SUCCESS;

  if ( uplo != FLA_LOWER_TRIANGULAR && 
       uplo != FLA_UPPER_TRIANGULAR )
    e_val = FLA_INVALID_UPLO;

  return e_val;
}
FLA_Error FLA_Check_vector_dim ( FLA_Obj  x,
dim_t  expected_length 
)

References FLA_Obj_vector_dim().

Referenced by FLA_Accum_T_UT_check(), FLA_Bidiag_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_Bsvd_check(), FLA_Hevd_check(), FLA_Hevdd_check(), FLA_Hevdr_check(), FLA_LQ_check(), FLA_Obj_extract_imag_part_check(), FLA_Obj_extract_real_part_check(), FLA_QR_check(), FLA_Sort_svd_check(), FLA_Svd_check(), FLA_Svd_ext_check(), FLA_Svdd_check(), FLA_Tridiag_UT_extract_diagonals_check(), FLA_Tridiag_UT_extract_real_diagonals_check(), and FLA_Tridiag_UT_realify_subdiagonal_check().

{
  FLA_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_vector_dim( x ) != expected_length )
    e_val = FLA_INVALID_VECTOR_DIM;

  return e_val;
}
FLA_Error FLA_Check_vector_dim_min ( FLA_Obj  x,
dim_t  min_dim 
)

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_Error e_val = FLA_SUCCESS;

  if ( FLA_Obj_vector_dim( x ) < min_dim )
    e_val = FLA_VECTOR_DIM_BELOW_MIN;

  return e_val;
}
FLA_Error FLA_Check_write_result ( int  requested_size,
int  write_r_val 
) 
{
  FLA_Error e_val = FLA_SUCCESS;

  if ( write_r_val != requested_size )
    e_val = FLA_WRITE_RETURNED_ERROR;

  return e_val;
}
Generated on Tue Mar 18 2014 03:23:09 for libflame by   doxygen 1.7.6.1