FLA_Check.c File Reference

(r)


Functions

unsigned int FLA_Check_error_level ()
unsigned int FLA_Check_error_level_set (unsigned int new_level)
void 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_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_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_lengths (FLA_Obj x, FLA_Obj y)
FLA_Error FLA_Check_conj_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_vector_length (FLA_Obj x, dim_t expected_length)
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_length_min (FLA_Obj x, dim_t min_length)
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_m_against_ldim (dim_t m, dim_t ldim)
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_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)

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

00641 {
00642   FLA_Error e_val = FLA_SUCCESS;
00643 
00644   if ( FLA_Obj_length( AL ) != FLA_Obj_length( AR ) )
00645     e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;
00646 
00647   if ( AR.offn != AL.offn + FLA_Obj_width( AL ) )
00648     e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ADJ;
00649 
00650   if ( AL.offm != AR.offm )
00651     e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED;
00652 
00653   return e_val;
00654 }

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

00625 {
00626   FLA_Error e_val = FLA_SUCCESS;
00627 
00628   if ( FLA_Obj_width( AT ) != FLA_Obj_width( AB ) )
00629     e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;
00630 
00631   if ( AB.offm != AT.offm + FLA_Obj_length( AT ) )
00632     e_val = FLA_OBJECTS_NOT_VERTICALLY_ADJ;
00633 
00634   if ( AB.offn != AT.offn )
00635     e_val = FLA_OBJECTS_NOT_VERTICALLY_ALIGNED;
00636 
00637   return e_val;
00638 }

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

00595 {
00596   FLA_Error e_val = FLA_SUCCESS;
00597 
00598   if ( FLA_Obj_length( ATL ) != FLA_Obj_length( ATR ) || 
00599        FLA_Obj_length( ABL ) != FLA_Obj_length( ABR ) ||
00600        FLA_Obj_width( ATL )  != FLA_Obj_width( ABL )  ||
00601        FLA_Obj_width( ATR )  != FLA_Obj_width( ABR ) )
00602     e_val = FLA_ADJACENT_OBJECT_DIM_MISMATCH;
00603 
00604   if ( ATL.offm != ABL.offm + FLA_Obj_length( ABL ) ||
00605        ATR.offm != ABR.offm + FLA_Obj_length( ABL ) )
00606     e_val = FLA_OBJECTS_NOT_VERTICALLY_ADJ;
00607 
00608   if ( ATL.offn != ABL.offn ||
00609        ATR.offn != ABR.offn )
00610     e_val = FLA_OBJECTS_NOT_VERTICALLY_ALIGNED;
00611 
00612   if ( ATL.offn != ATR.offn + FLA_Obj_width( ATR ) ||
00613        ABL.offn != ABR.offn + FLA_Obj_width( ATR ) )
00614     e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ADJ;
00615 
00616   if ( ATL.offm != ATR.offm ||
00617        ABL.offm != ABR.offm )
00618     e_val = FLA_OBJECTS_NOT_HORIZONTALLY_ALIGNED;
00619 
00620   return e_val;
00621 }

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

01109 {
01110   FLA_Error e_val = FLA_SUCCESS;
01111 
01112   if ( b_n > FLA_Obj_width( A_side ) )
01113     e_val = FLA_ATTEMPTED_OVER_REPART_1X2;
01114 
01115   return e_val;
01116 }

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

01099 {
01100   FLA_Error e_val = FLA_SUCCESS;
01101 
01102   if ( b_m > FLA_Obj_length( A_side ) )
01103     e_val = FLA_ATTEMPTED_OVER_REPART_2X1;
01104 
01105   return e_val;
01106 }

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

01086 {
01087   FLA_Error e_val = FLA_SUCCESS;
01088 
01089   if ( b_m > FLA_Obj_length( A_quad ) )
01090     e_val = FLA_ATTEMPTED_OVER_REPART_2X2;
01091 
01092   if ( b_n > FLA_Obj_width( A_quad ) )
01093     e_val = FLA_ATTEMPTED_OVER_REPART_2X2;
01094 
01095   return e_val;
01096 }

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

00584 {
00585   FLA_Error e_val = FLA_SUCCESS;
00586 
00587   if ( A.base->buffer != B.base->buffer )
00588     e_val = FLA_OBJECT_BASE_BUFFER_MISMATCH;
00589 
00590   return e_val;
00591 }

FLA_Error FLA_Check_blocksize_object ( FLA_Datatype  datatype,
fla_blocksize_t bp 
)

References FLA_Blocksize_extract().

00667 {
00668   FLA_Error e_val = FLA_SUCCESS;
00669   dim_t     b;
00670 
00671   b = FLA_Blocksize_extract( datatype, bp );
00672   if ( b <= 0 )
00673     e_val = FLA_INVALID_BLOCKSIZE_OBJ;
00674 
00675   return e_val;
00676 }

FLA_Error FLA_Check_blocksize_value ( dim_t  b  ) 

Referenced by FLA_Determine_blocksize().

00657 {
00658   FLA_Error e_val = FLA_SUCCESS;
00659 
00660   if ( b <= 0 )
00661     e_val = FLA_INVALID_BLOCKSIZE_VALUE;
00662 
00663   return e_val;
00664 }

FLA_Error FLA_Check_chol_failure ( FLA_Error  r_val  ) 

Referenced by FLA_SPDinv_internal().

00815 {
00816   FLA_Error e_val = FLA_SUCCESS;
00817 
00818   if ( r_val > 0 )
00819     e_val = FLA_CHOL_FAILED_MATRIX_NOT_SPD;
00820 
00821   return e_val;
00822 }

FLA_Error FLA_Check_close_result ( int  close_r_val  ) 

00699 {
00700   FLA_Error e_val = FLA_SUCCESS;
00701 
00702   if ( close_r_val == -1 )
00703     e_val = FLA_CLOSE_RETURNED_ERROR;
00704 
00705   return e_val;
00706 }

FLA_Error FLA_Check_complex_datatype ( FLA_Datatype  datatype  ) 

Referenced by FLA_Check_complex_object().

00226 {
00227   FLA_Error e_val = FLA_SUCCESS;
00228 
00229   if ( datatype != FLA_CONSTANT &&
00230        datatype != FLA_COMPLEX &&
00231        datatype != FLA_DOUBLE_COMPLEX )
00232     e_val = FLA_INVALID_COMPLEX_DATATYPE;
00233 
00234   return e_val;
00235 }

FLA_Error FLA_Check_complex_object ( FLA_Obj  A  ) 

References FLA_Check_complex_datatype(), and FLA_Obj_datatype().

Referenced by 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(), and FLA_Random_herm_matrix_check().

00277 {
00278   FLA_Error    e_val = FLA_SUCCESS;
00279   FLA_Datatype datatype;
00280 
00281   datatype = FLA_Obj_datatype( A );
00282 
00283   if ( FLA_Check_complex_datatype( datatype ) != FLA_SUCCESS )
00284     e_val = FLA_OBJECT_NOT_COMPLEX;
00285 
00286   return e_val;
00287 }

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_Q_UT_inc_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_UD_check(), FLA_Apply_Q_UT_UD_internal_check(), FLA_Axpy_check(), FLA_Axpy_internal_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Copy_check(), FLA_Copy_internal_check(), FLA_Copyr_check(), FLA_Copyt_check(), FLA_Max_elemwise_diff_check(), FLA_Obj_equals_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_inc_check(), FLA_Swap_check(), and FLA_Swapt_check().

00385 {
00386   FLA_Error e_val = FLA_SUCCESS;
00387 
00388   if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
00389   {
00390     if ( FLA_Obj_length( A ) != FLA_Obj_length( B ) )
00391       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00392 
00393     if ( FLA_Obj_width( A ) != FLA_Obj_width( B ) )
00394       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00395   }
00396   else
00397   {
00398     if ( FLA_Obj_width( A ) != FLA_Obj_length( B ) )
00399       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00400 
00401     if ( FLA_Obj_length( A ) != FLA_Obj_width( B ) )
00402       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00403   }
00404 
00405   return e_val;
00406 }

FLA_Error FLA_Check_conj_and_datatype ( FLA_Conj  conj,
FLA_Obj  A 
)

References FLA_Obj_is_complex().

00906 {
00907   FLA_Error e_val = FLA_SUCCESS;
00908 
00909   if ( conj == FLA_CONJUGATE ){
00910     if ( FLA_Obj_is_complex( A ) == FALSE )
00911       e_val = FLA_INVALID_CONJ_GIVEN_DATATYPE;
00912   }
00913 
00914   return e_val;
00915 }

FLA_Error FLA_Check_conj_trans_and_datatype ( FLA_Trans  trans,
FLA_Obj  A 
)

References FLA_Obj_is_complex().

00489 {
00490   FLA_Error e_val = FLA_SUCCESS;
00491 
00492   if ( trans == FLA_CONJ_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE ){
00493     if ( FLA_Obj_is_complex( A ) == FALSE )
00494       e_val = FLA_INVALID_TRANS_GIVEN_DATATYPE;
00495   }
00496 
00497   return e_val;
00498 }

FLA_Error FLA_Check_consistent_datatype ( FLA_Datatype  datatype,
FLA_Obj  A 
)

References FLA_Obj_datatype().

00343 {
00344   FLA_Error e_val = FLA_SUCCESS;
00345 
00346   if ( FLA_Obj_datatype( A ) != FLA_CONSTANT &&
00347                     datatype != FLA_CONSTANT )
00348     if ( FLA_Obj_datatype( A ) != datatype )
00349       e_val = FLA_INCONSISTENT_DATATYPES;
00350 
00351   return e_val;
00352 }

FLA_Error FLA_Check_consistent_object_datatype ( FLA_Obj  A,
FLA_Obj  B 
)

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

00999 {
01000   FLA_Error e_val = FLA_SUCCESS;
01001 
01002   if ( FLA_Obj_equals( alpha, FLA_ZERO ) )
01003     e_val = FLA_DIVIDE_BY_ZERO;
01004 
01005   return e_val;
01006 }

FLA_Error FLA_Check_equal_vector_lengths ( FLA_Obj  x,
FLA_Obj  y 
)

References FLA_Obj_length(), and FLA_Obj_width().

Referenced by FLA_Axpy_check(), FLA_Axpyt_check(), FLA_Copy_check(), FLA_Copyt_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), and FLA_Dots_check().

00469 {
00470   FLA_Error e_val = FLA_SUCCESS;
00471 
00472   if ( FLA_Obj_length( x ) == 1 )
00473   {
00474     if ( FLA_Obj_width( x ) != FLA_Obj_length( y ) &&
00475          FLA_Obj_width( x ) != FLA_Obj_width( y ) )
00476       e_val = FLA_UNEQUAL_VECTOR_LENGTHS;
00477   }
00478   else if ( FLA_Obj_width( x ) == 1 )
00479   {
00480     if ( FLA_Obj_length( x ) != FLA_Obj_length( y ) &&
00481          FLA_Obj_length( x ) != FLA_Obj_width( y ) )
00482       e_val = FLA_UNEQUAL_VECTOR_LENGTHS;
00483   }
00484 
00485   return e_val;
00486 }

void FLA_Check_error_code_helper ( int  code,
char *  file,
int  line 
)

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

00061 {
00062   if ( code == FLA_SUCCESS )
00063     return;
00064 
00065   if ( FLA_ERROR_CODE_MAX <= code && code <= FLA_ERROR_CODE_MIN )
00066   {
00067     FLA_Print_message( FLA_Error_string_for_code( code ),
00068                        file, line );
00069     FLA_Abort();
00070   }
00071   else
00072   {
00073     FLA_Print_message( FLA_Error_string_for_code( FLA_UNDEFINED_ERROR_CODE ),
00074                        file, line );
00075     FLA_Abort();
00076   }
00077 }

unsigned int FLA_Check_error_level ( void   ) 

Referenced by FLA_Absolute_square(), FLA_Accum_T_UT(), FLA_Accum_T_UT_unb_external(), FLA_Apply_househ2_UT(), FLA_Apply_househ2_UT_opt(), FLA_Apply_Q_blk_external(), FLA_Apply_Q_unb_external(), FLA_Apply_Q_UT(), FLA_Apply_Q_UT_inc_internal(), FLA_Apply_Q_UT_internal(), FLA_Apply_Q_UT_UD_internal(), FLA_Asum_external(), FLA_Axpy(), FLA_Axpy_external(), FLA_Axpy_global_to_submatrix(), FLA_Axpy_internal(), FLA_Axpy_submatrix_to_global(), FLA_Axpys_external(), FLA_Axpyt_external(), FLA_Blocksize_create_copy(), FLA_Blocksize_extract(), FLA_Blocksize_scale(), FLA_Chol(), FLA_Chol_blk_external(), FLA_Chol_internal(), 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_external(), FLA_Copy_global_to_submatrix(), FLA_Copy_internal(), FLA_Copy_submatrix_to_global(), FLA_Copyr_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_Form_perm_matrix(), FLA_Gemm(), FLA_Gemm_external(), FLA_Gemm_internal(), FLA_Gemv(), FLA_Gemv_external(), FLA_Gemv_internal(), FLA_Gemvc_external(), FLA_Ger_external(), FLA_Gerc_external(), FLA_Hemm(), FLA_Hemm_external(), FLA_Hemm_internal(), FLA_Hemv_external(), FLA_Hemvc_external(), FLA_Her2_external(), FLA_Her2c_external(), FLA_Her2k(), FLA_Her2k_external(), FLA_Her2k_internal(), FLA_Her_external(), FLA_Herc_external(), FLA_Herk(), FLA_Herk_external(), FLA_Herk_internal(), FLA_Hermitianize(), FLA_Hess_blk_external(), FLA_Hess_internal(), FLA_Hess_unb_external(), FLA_Iamax_external(), FLA_Inv_scal_external(), FLA_Inv_scalc_external(), FLA_Invert(), FLA_LQ_blk_external(), FLA_LQ_unb_external(), FLA_LQ_UT(), FLA_LQ_UT_Accum_T_unb_external(), FLA_LQ_UT_blk_external(), FLA_LQ_UT_internal(), FLA_LQ_UT_recover_tau(), FLA_LQ_UT_unb_external(), FLA_LU_nopiv(), FLA_LU_nopiv_blk_external(), FLA_LU_nopiv_internal(), FLA_LU_nopiv_unb_external(), FLA_LU_piv(), FLA_LU_piv_blk_external(), FLA_LU_piv_internal(), FLA_LU_piv_unb_external(), FLA_malloc(), FLA_Max_abs_value(), FLA_Max_elemwise_diff(), FLA_Merge_1x2(), FLA_Merge_2x1(), FLA_Merge_2x2(), FLA_Mult_add(), FLA_Negate(), FLA_Norm1(), FLA_Norm_inf(), FLA_Nrm2_external(), FLA_Obj_add_to_diagonal(), FLA_Obj_attach_buffer(), FLA_Obj_buffer(), FLA_Obj_complex_constant_create(), FLA_Obj_constant_create(), FLA_Obj_create_conf_to(), FLA_Obj_create_ext(), FLA_Obj_create_without_buffer(), FLA_Obj_elem_size(), FLA_Obj_equals(), FLA_Obj_free(), FLA_Obj_free_without_buffer(), FLA_Obj_scale_diagonal(), FLA_Obj_set_diagonal_to_scalar(), FLA_Obj_set_to_identity(), FLA_Obj_set_to_scalar(), FLA_Obj_shift_diagonal(), FLA_Part_1x2(), FLA_Part_2x1(), FLA_Part_2x2(), FLA_QR_blk_external(), FLA_QR_unb_external(), FLA_QR_UT(), FLA_QR_UT_Accum_T_unb_external(), FLA_QR_UT_blk_external(), FLA_QR_UT_copy_internal(), FLA_QR_UT_internal(), FLA_QR_UT_recover_tau(), FLA_QR_UT_UD_internal(), FLA_QR_UT_unb_external(), FLA_Random_herm_matrix(), FLA_Random_matrix(), FLA_Random_spd_matrix(), FLA_Random_tri_matrix(), FLA_realloc(), FLA_Repart_1x2_to_1x3(), FLA_Repart_2x1_to_3x1(), FLA_Repart_2x2_to_3x3(), FLA_Scal_external(), FLA_Scalc_external(), FLA_Scalr_external(), FLA_Shift_pivots_to(), FLA_SPDinv(), FLA_SPDinv_blk_external(), FLA_SPDinv_internal(), FLA_Sqrt(), FLA_Swap_external(), FLA_Swap_rows(), FLA_Swapt_external(), FLA_Sylv(), FLA_Sylv_internal(), FLA_Sylv_unb_external(), FLA_Symm(), FLA_Symm_external(), FLA_Symm_internal(), FLA_Symmetrize(), FLA_Symv_external(), FLA_Syr2_external(), FLA_Syr2k(), FLA_Syr2k_external(), FLA_Syr2k_internal(), FLA_Syr_external(), FLA_Syrk(), FLA_Syrk_external(), FLA_Syrk_internal(), FLA_Transpose(), FLA_Triangularize(), FLA_Trinv(), FLA_Trinv_blk_external(), FLA_Trinv_internal(), FLA_Trinv_unb_external(), FLA_Trmm(), FLA_Trmm_external(), FLA_Trmm_internal(), FLA_Trmmsx_external(), FLA_Trmv_external(), FLA_Trmvsx_external(), FLA_Trsm(), FLA_Trsm_external(), FLA_Trsm_internal(), FLA_Trsmsx_external(), FLA_Trsv(), FLA_Trsv_external(), FLA_Trsv_internal(), FLA_Trsvsx_external(), FLA_Ttmm(), FLA_Ttmm_blk_external(), FLA_Ttmm_internal(), FLA_Ttmm_unb_external(), FLASH_Apply_Q_UT(), FLASH_Apply_Q_UT_inc(), FLASH_Apply_Q_UT_UD(), FLASH_Axpy(), FLASH_Axpy_global_to_submatrix(), FLASH_Axpy_submatrix_to_global(), FLASH_Chol(), FLASH_Copy(), FLASH_Copy_global_to_submatrix(), FLASH_Copy_submatrix_to_global(), FLASH_FS_incpiv(), FLASH_Gemm(), FLASH_Gemv(), FLASH_Hemm(), FLASH_Her2k(), FLASH_Herk(), FLASH_LU_incpiv(), FLASH_LU_nopiv(), 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_exec(), FLASH_Obj_free(), FLASH_Obj_free_hierarchy(), FLASH_Obj_free_without_buffer(), FLASH_QR_UT_inc_noopt(), FLASH_QR_UT_inc_opt1(), FLASH_QR_UT_UD(), FLASH_Queue_exec_parallel(), FLASH_Random_spd_matrix(), FLASH_SPDinv(), FLASH_Sylv(), FLASH_Symm(), FLASH_Syr2k(), FLASH_Syrk(), FLASH_Trinv(), FLASH_Trmm(), FLASH_Trsm(), FLASH_Trsv(), and FLASH_Ttmm().

00041 {
00042   return fla_error_checking_level;
00043 }

unsigned int FLA_Check_error_level_set ( unsigned int  new_level  ) 

References FLA_Check_valid_error_level().

00046 {
00047   FLA_Error    e_val;
00048   unsigned int old_level;
00049 
00050   e_val = FLA_Check_valid_error_level( new_level );
00051   FLA_Check_error_code( e_val );
00052 
00053   old_level = fla_error_checking_level;
00054 
00055   fla_error_checking_level = new_level;
00056 
00057   return old_level;
00058 }

FLA_Error FLA_Check_file_descriptor ( int  fd  ) 

00679 {
00680   FLA_Error e_val = FLA_SUCCESS;
00681 
00682   if ( fd == -1 )
00683     e_val = FLA_OPEN_RETURNED_ERROR;
00684 
00685   return e_val;
00686 }

FLA_Error FLA_Check_floating_datatype ( FLA_Datatype  datatype  ) 

Referenced by FLA_Check_floating_object().

00189 {
00190   FLA_Error e_val = FLA_SUCCESS;
00191 
00192   if ( datatype != FLA_CONSTANT &&
00193        datatype != FLA_FLOAT && 
00194        datatype != FLA_DOUBLE && 
00195        datatype != FLA_COMPLEX && 
00196        datatype != FLA_DOUBLE_COMPLEX )
00197     e_val = FLA_INVALID_FLOATING_DATATYPE;
00198   
00199   return e_val;
00200 }

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_Accum_T_UT_check(), FLA_Apply_househ2_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_UD_check(), FLA_Asum_check(), FLA_Axpy_check(), FLA_Axpy_global_to_submatrix_check(), FLA_Axpy_submatrix_to_global_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Check_identical_object_precision(), FLA_Chol_check(), FLA_Conjugate_check(), FLA_Conjugate_r_check(), FLA_Copy_global_to_submatrix_check(), FLA_Copy_submatrix_to_global_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_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_Hermitianize_check(), FLA_Hess_check(), FLA_Iamax_check(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_Invert_check(), FLA_LQ_check(), FLA_LQ_UT_check(), FLA_LQ_UT_recover_tau_check(), FLA_LU_incpiv_check(), FLA_LU_nopiv_check(), FLA_LU_piv_check(), FLA_Max_abs_value_check(), FLA_Max_elemwise_diff_check(), FLA_Mult_add_check(), FLA_Negate_check(), FLA_Norm1_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_add_to_diagonal_check(), FLA_Obj_scale_diagonal_check(), FLA_Obj_set_diagonal_to_scalar_check(), FLA_Obj_set_to_identity_check(), FLA_Obj_set_to_scalar_check(), FLA_Obj_shift_diagonal_check(), FLA_QR_check(), FLA_QR_UT_check(), FLA_QR_UT_inc_check(), FLA_QR_UT_recover_tau_check(), FLA_QR_UT_UD_check(), FLA_Random_matrix_check(), FLA_Random_spd_matrix_check(), FLA_Random_tri_matrix_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scalr_check(), FLA_SPDinv_check(), FLA_Sqrt_check(), FLA_Swap_check(), FLA_Swap_rows_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_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(), and FLA_Ttmm_check().

00238 {
00239   FLA_Error    e_val = FLA_SUCCESS;
00240   FLA_Datatype datatype;
00241 
00242   datatype = FLA_Obj_datatype( A );
00243 
00244   if ( FLA_Check_floating_datatype( datatype ) != FLA_SUCCESS )
00245     e_val = FLA_OBJECT_NOT_FLOATING_POINT;
00246 
00247   return e_val;
00248 }

FLA_Error FLA_Check_hess_indices ( FLA_Obj  A,
int  ilo,
int  ihi 
)

References FLA_Obj_width().

Referenced by FLA_Hess_check().

00501 {
00502   FLA_Error e_val = FLA_SUCCESS;
00503 
00504   if ( FLA_Obj_width( A ) == 0 && ilo != 0 && ihi != -1 )
00505     e_val = FLA_INVALID_HESSENBERG_INDICES;
00506 
00507   if ( ilo < 0 || FLA_Obj_width( A ) - 1 < ilo )
00508     e_val = FLA_INVALID_HESSENBERG_INDICES;
00509 
00510   if ( ihi < 0 || FLA_Obj_width( A ) - 1 < ihi )
00511     e_val = FLA_INVALID_HESSENBERG_INDICES;
00512 
00513   if ( ihi < ilo )
00514     e_val = FLA_INVALID_HESSENBERG_INDICES;
00515 
00516   return e_val;
00517 }

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

01038 {
01039   FLA_Error e_val = FLA_SUCCESS;
01040   dim_t     nb_alg;
01041 
01042   nb_alg = FLA_Query_blocksize( FLA_Obj_datatype( A ), FLA_DIMENSION_MIN );
01043 
01044   if ( FLA_Obj_length( T ) < nb_alg )
01045     e_val = FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL;
01046 
01047   if ( FLA_Obj_width( T ) < FLA_Obj_min_dim( A ) )
01048     e_val = FLA_HOUSEH_PANEL_MATRIX_TOO_SMALL;
01049 
01050   return e_val;
01051 }

FLA_Error FLA_Check_identical_object_datatype ( FLA_Obj  A,
FLA_Obj  B 
)

FLA_Error FLA_Check_identical_object_elemtype ( FLA_Obj  A,
FLA_Obj  B 
)

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_Asum_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_Max_abs_value_check(), FLA_Norm1_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_scale_diagonal_check(), FLA_Obj_shift_diagonal_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scalr_check(), and FLA_Sylv_check().

00290 {
00291   FLA_Error    e_val = FLA_SUCCESS;
00292   FLA_Datatype datatype_A;
00293   FLA_Datatype datatype_B;
00294   dim_t        precision_A;
00295   dim_t        precision_B;
00296 
00297   datatype_A = FLA_Obj_datatype( A );
00298   datatype_B = FLA_Obj_datatype( B );
00299 
00300   if ( datatype_A == FLA_CONSTANT ||
00301        datatype_B == FLA_CONSTANT )
00302   {
00303     return FLA_SUCCESS;
00304   }
00305 
00306   if ( FLA_Check_floating_object( A ) != FLA_SUCCESS ||
00307        FLA_Check_floating_object( B ) != FLA_SUCCESS )
00308   {
00309     return FLA_OBJECT_NOT_FLOATING_POINT;
00310   }
00311 
00312   datatype_A = FLA_Obj_datatype( A );
00313   datatype_B = FLA_Obj_datatype( B );
00314 
00315   precision_A = FLA_Obj_datatype_size( datatype_A );
00316   precision_B = FLA_Obj_datatype_size( datatype_B );
00317 
00318   if ( FLA_Obj_is_complex( A ) )
00319     precision_A = precision_A / 2;
00320 
00321   if ( FLA_Obj_is_complex( B ) )
00322     precision_B = precision_B / 2;
00323 
00324   if ( precision_A != precision_B )
00325     e_val = FLA_INCONSISTENT_OBJECT_PRECISION;
00326 
00327   return e_val;
00328 }

FLA_Error FLA_Check_if_scalar ( FLA_Obj  A  ) 

FLA_Error FLA_Check_if_vector ( FLA_Obj  A  ) 

FLA_Error FLA_Check_int_datatype ( FLA_Datatype  datatype  ) 

Referenced by FLA_Check_int_object().

00203 {
00204   FLA_Error e_val = FLA_SUCCESS;
00205 
00206   if ( datatype != FLA_CONSTANT &&
00207        datatype != FLA_INT )
00208     e_val = FLA_INVALID_INTEGER_DATATYPE;
00209 
00210   return e_val;
00211 }

FLA_Error FLA_Check_int_object ( FLA_Obj  A  ) 

References FLA_Check_int_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Form_perm_matrix_check(), FLA_FS_incpiv_check(), FLA_Iamax_check(), FLA_LU_incpiv_check(), FLA_LU_piv_check(), FLA_Shift_pivots_to_check(), FLA_Swap_rows_check(), and FLA_Sylv_check().

00251 {
00252   FLA_Error    e_val = FLA_SUCCESS;
00253   FLA_Datatype datatype;
00254 
00255   datatype = FLA_Obj_datatype( A );
00256 
00257   if ( FLA_Check_int_datatype( datatype ) != FLA_SUCCESS )
00258     e_val = FLA_OBJECT_NOT_INTEGER;
00259 
00260   return e_val;
00261 }

FLA_Error FLA_Check_lseek_result ( int  requested_offset,
int  lseek_r_val 
)

00689 {
00690   FLA_Error e_val = FLA_SUCCESS;
00691 
00692   if ( lseek_r_val != requested_offset )
00693     e_val = FLA_LSEEK_RETURNED_ERROR;
00694 
00695   return e_val;
00696 }

FLA_Error FLA_Check_m_against_ldim ( dim_t  m,
dim_t  ldim 
)

Referenced by FLA_Axpy_global_to_submatrix_check(), FLA_Axpy_submatrix_to_global_check(), FLA_Copy_global_to_submatrix_check(), and FLA_Copy_submatrix_to_global_check().

00979 {
00980   FLA_Error e_val = FLA_SUCCESS;
00981 
00982   if ( m > ldim )
00983     e_val = FLA_INVALID_M_GIVEN_LDIM;
00984 
00985   return e_val;
00986 }

FLA_Error FLA_Check_malloc_pointer ( void *  ptr  ) 

Referenced by FLA_malloc(), and FLA_realloc().

00574 {
00575   FLA_Error e_val = FLA_SUCCESS;
00576 
00577   if ( ptr == NULL )
00578     e_val = FLA_MALLOC_RETURNED_NULL_POINTER;
00579 
00580   return e_val;
00581 }

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_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_Q_UT_UD_check(), FLA_Apply_Q_UT_UD_internal_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_QR_UT_UD_check(), FLA_QR_UT_UD_internal_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(), and FLA_Trsmsx_check().

00409 {
00410   FLA_Error e_val = FLA_SUCCESS;
00411   dim_t     k_A, k_B;
00412   dim_t     m_A, m_C;
00413   dim_t     n_B, n_C;
00414 
00415   m_A = ( transa == FLA_NO_TRANSPOSE || 
00416           transa == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_length( A ) :
00417                                             FLA_Obj_width( A )  );
00418   k_A = ( transa == FLA_NO_TRANSPOSE ||
00419           transa == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_width( A )  :
00420                                             FLA_Obj_length( A ) );
00421 
00422   k_B = ( transb == FLA_NO_TRANSPOSE ||
00423           transb == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_length( B ) :
00424                                             FLA_Obj_width( B )  );
00425   n_B = ( transb == FLA_NO_TRANSPOSE ||
00426           transb == FLA_CONJ_NO_TRANSPOSE ? FLA_Obj_width( B )  :
00427                                             FLA_Obj_length( B ) );
00428 
00429   m_C = FLA_Obj_length( C );
00430   n_C = FLA_Obj_width( C );
00431 
00432   if ( m_A != m_C )
00433     e_val = FLA_NONCONFORMAL_DIMENSIONS;
00434 
00435   if ( k_A != k_B )
00436     e_val = FLA_NONCONFORMAL_DIMENSIONS;
00437 
00438   if ( n_B != n_C )
00439     e_val = FLA_NONCONFORMAL_DIMENSIONS;
00440 
00441   return e_val;
00442 }

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

00445 {
00446   FLA_Error e_val = FLA_SUCCESS;
00447 
00448   if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
00449   {
00450     if ( FLA_Obj_width( A ) != FLA_Obj_vector_dim( x ) )
00451       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00452 
00453     if ( FLA_Obj_length( A ) != FLA_Obj_vector_dim( y ) )
00454       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00455   }
00456   else
00457   {
00458     if ( FLA_Obj_length( A ) != FLA_Obj_vector_dim( x ) )
00459       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00460 
00461     if ( FLA_Obj_width( A ) != FLA_Obj_vector_dim( y ) )
00462       e_val = FLA_NONCONFORMAL_DIMENSIONS;
00463   }
00464 
00465   return e_val;
00466 }

FLA_Error FLA_Check_nonconstant_datatype ( FLA_Datatype  datatype  ) 

Referenced by FLA_Check_nonconstant_object().

00952 {
00953   FLA_Error e_val = FLA_SUCCESS;
00954 
00955   if ( datatype != FLA_INT &&
00956        datatype != FLA_FLOAT && 
00957        datatype != FLA_DOUBLE && 
00958        datatype != FLA_COMPLEX && 
00959        datatype != FLA_DOUBLE_COMPLEX )
00960     e_val = FLA_INVALID_NONCONSTANT_DATATYPE;
00961   
00962   return e_val;
00963 }

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_Apply_househ2_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_UD_check(), FLA_Asum_check(), FLA_Axpy_check(), FLA_Axpy_global_to_submatrix_check(), FLA_Axpy_submatrix_to_global_check(), FLA_Axpys_check(), FLA_Axpyt_check(), FLA_Chol_check(), FLA_Conjugate_check(), FLA_Conjugate_r_check(), FLA_Copy_check(), FLA_Copy_global_to_submatrix_check(), FLA_Copy_submatrix_to_global_check(), FLA_Copyr_check(), FLA_Copyt_check(), FLA_Dot2cs_check(), FLA_Dot2s_check(), FLA_Dot_check(), FLA_Dotc_check(), FLA_Dotcs_check(), FLA_Dots_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_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_Iamax_check(), FLA_Inv_scal_check(), FLA_Inv_scalc_check(), FLA_Invert_check(), FLA_LQ_check(), FLA_LQ_UT_check(), FLA_LU_incpiv_check(), FLA_LU_nopiv_check(), FLA_LU_piv_check(), FLA_Max_abs_value_check(), FLA_Max_elemwise_diff_check(), FLA_Mult_add_check(), FLA_Negate_check(), FLA_Norm1_check(), FLA_Norm_inf_check(), FLA_Nrm2_check(), FLA_Obj_add_to_diagonal_check(), FLA_Obj_scale_diagonal_check(), FLA_Obj_set_diagonal_to_scalar_check(), FLA_Obj_set_to_identity_check(), FLA_Obj_set_to_scalar_check(), FLA_Obj_shift_diagonal_check(), FLA_QR_check(), FLA_QR_UT_check(), FLA_QR_UT_inc_check(), FLA_QR_UT_UD_check(), FLA_Random_herm_matrix_check(), FLA_Random_matrix_check(), FLA_Random_spd_matrix_check(), FLA_Random_tri_matrix_check(), FLA_Scal_check(), FLA_Scalc_check(), FLA_Scalr_check(), FLA_Shift_pivots_to_check(), FLA_SPDinv_check(), FLA_Sqrt_check(), FLA_Swap_check(), FLA_Swap_rows_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_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(), and FLA_Ttmm_check().

00966 {
00967   FLA_Error    e_val = FLA_SUCCESS;
00968   FLA_Datatype datatype;
00969 
00970   datatype = FLA_Obj_datatype( A );
00971 
00972   if ( FLA_Check_nonconstant_datatype( datatype ) != FLA_SUCCESS )
00973     e_val = FLA_OBJECT_NOT_NONCONSTANT;
00974 
00975   return e_val;
00976 }

FLA_Error FLA_Check_null_pointer ( void *  ptr  ) 

Referenced by FLA_Apply_Q_UT_inc_internal_check(), FLA_Apply_Q_UT_internal_check(), FLA_Apply_Q_UT_UD_internal_check(), FLA_Axpy_global_to_submatrix_check(), FLA_Axpy_internal_check(), FLA_Axpy_submatrix_to_global_check(), FLA_Blocksize_create_copy(), FLA_Blocksize_extract(), FLA_Blocksize_scale(), 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_global_to_submatrix_check(), FLA_Copy_internal_check(), FLA_Copy_submatrix_to_global_check(), FLA_Gemm_internal_check(), FLA_Gemv_internal_check(), FLA_Hemm_internal_check(), FLA_Her2k_internal_check(), FLA_Herk_internal_check(), FLA_Hess_internal(), FLA_LQ_UT_internal_check(), FLA_LU_nopiv_internal_check(), FLA_LU_piv_internal(), FLA_Merge_1x2_check(), FLA_Merge_2x1_check(), FLA_Merge_2x2_check(), FLA_Obj_add_to_diagonal_check(), FLA_Obj_attach_buffer_check(), FLA_Obj_buffer_check(), FLA_Obj_complex_constant_create_check(), FLA_Obj_constant_create_check(), FLA_Obj_create_conf_to_check(), FLA_Obj_create_ext_check(), FLA_Obj_create_without_buffer_check(), FLA_Obj_free_check(), FLA_Obj_free_without_buffer_check(), FLA_Part_1x2_check(), FLA_Part_2x1_check(), FLA_Part_2x2_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_internal_check(), FLA_QR_UT_UD_internal_check(), FLA_Repart_1x2_to_1x3_check(), FLA_Repart_2x1_to_3x1_check(), FLA_Repart_2x2_to_3x3_check(), FLA_SPDinv_internal_check(), FLA_Sylv_internal_check(), FLA_Symm_internal_check(), FLA_Syr2k_internal_check(), FLA_Syrk_internal_check(), FLA_Trinv_internal_check(), FLA_Trmm_internal_check(), FLA_Trsm_internal_check(), FLA_Trsv_internal_check(), FLA_Ttmm_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().

00530 {
00531   FLA_Error e_val = FLA_SUCCESS;
00532 
00533   if ( ptr == NULL )
00534     e_val = FLA_NULL_POINTER;
00535 
00536   return e_val;
00537 }

FLA_Error FLA_Check_num_threads ( unsigned int  n_threads  ) 

Referenced by FLASH_Queue_set_num_threads().

00896 {
00897   FLA_Error e_val = FLA_SUCCESS;
00898 
00899   if ( n_threads < 1 )
00900     e_val = FLA_ENCOUNTERED_NON_POSITIVE_NTHREADS;
00901 
00902   return e_val;
00903 }

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_global_to_submatrix_check(), FLA_Axpy_submatrix_to_global_check(), FLA_Copy_global_to_submatrix_check(), and FLA_Copy_submatrix_to_global_check().

00540 {
00541   FLA_Error e_val = FLA_SUCCESS;
00542 
00543   if ( trans == FLA_NO_TRANSPOSE || trans == FLA_CONJ_NO_TRANSPOSE )
00544   {
00545     if ( FLA_Obj_length( A ) != m )
00546       e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
00547 
00548     if ( FLA_Obj_width( A ) != n )
00549       e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
00550   }
00551   else
00552   {
00553     if ( FLA_Obj_length( A ) != n )
00554       e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
00555 
00556     if ( FLA_Obj_width( A ) != m )
00557       e_val = FLA_SPECIFIED_OBJ_DIM_MISMATCH;
00558   }
00559 
00560   return e_val;
00561 }

FLA_Error FLA_Check_object_length_equals ( FLA_Obj  A,
dim_t  m 
)

References FLA_Obj_length().

Referenced by FLA_Apply_Q_UT_inc_internal_check(), FLA_LQ_UT_internal_check(), and FLA_LQ_UT_recover_tau_check().

01054 {
01055   FLA_Error e_val = FLA_SUCCESS;
01056 
01057   if ( FLA_Obj_length( A ) != m )
01058     e_val = FLA_INVALID_OBJECT_LENGTH;
01059 
01060   return e_val;
01061 }

FLA_Error FLA_Check_object_matrix_elemtype ( FLA_Obj  A  ) 

References FLA_Obj_elemtype().

00883 {
00884   FLA_Error     e_val = FLA_SUCCESS;
00885   FLA_Elemtype  elemtype;
00886 
00887   elemtype = FLA_Obj_elemtype( A );
00888 
00889   if ( elemtype != FLA_MATRIX )
00890     e_val = FLA_OBJECT_NOT_MATRIX_ELEMTYPE;
00891 
00892   return e_val;
00893 }

FLA_Error FLA_Check_object_scalar_elemtype ( FLA_Obj  A  ) 

References FLA_Obj_elemtype().

00870 {
00871   FLA_Error     e_val = FLA_SUCCESS;
00872   FLA_Elemtype  elemtype;
00873 
00874   elemtype = FLA_Obj_elemtype( A );
00875 
00876   if ( elemtype != FLA_SCALAR )
00877     e_val = FLA_OBJECT_NOT_SCALAR_ELEMTYPE;
00878 
00879   return e_val;
00880 }

FLA_Error FLA_Check_object_width_equals ( FLA_Obj  A,
dim_t  n 
)

References FLA_Obj_width().

Referenced by FLA_Accum_T_UT_check(), FLA_Apply_Q_UT_inc_internal_check(), FLA_QR_UT_copy_internal_check(), FLA_QR_UT_internal_check(), and FLA_QR_UT_recover_tau_check().

01064 {
01065   FLA_Error e_val = FLA_SUCCESS;
01066 
01067   if ( FLA_Obj_width( A ) != n )
01068     e_val = FLA_INVALID_OBJECT_WIDTH;
01069 
01070   return e_val;
01071 }

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

Referenced by FLA_Swap_rows_check().

01019 {
01020   FLA_Error e_val = FLA_SUCCESS;
01021 
01022   if ( FLA_Obj_has_zero_dim( p ) )
01023     return e_val;
01024 
01025   if ( k1 < 0 || FLA_Obj_length( p ) - 1 < k1 )
01026     e_val = FLA_INVALID_PIVOT_INDEX_RANGE;
01027 
01028   if ( k2 < 0 || FLA_Obj_length( p ) - 1 < k2 )
01029     e_val = FLA_INVALID_PIVOT_INDEX_RANGE;
01030 
01031   if ( k2 < k1 )
01032     e_val = FLA_INVALID_PIVOT_INDEX_RANGE;
01033 
01034   return e_val;
01035 }

FLA_Error FLA_Check_posix_memalign_failure ( int  r_val  ) 

Referenced by FLA_malloc().

00836 {
00837   FLA_Error e_val = FLA_SUCCESS;
00838 
00839   if ( r_val != 0 )
00840     e_val = FLA_POSIX_MEMALIGN_FAILED;
00841 
00842   return e_val;
00843 }

FLA_Error FLA_Check_pthread_create_result ( int  pthread_create_r_val  ) 

Referenced by FLASH_Obj_exec(), and FLASH_Queue_exec_parallel().

00762 {
00763   FLA_Error e_val = FLA_SUCCESS;
00764 
00765   if ( pthread_create_r_val != 0 )
00766     e_val = FLA_PTHREAD_CREATE_RETURNED_ERROR;
00767 
00768   return e_val;
00769 }

FLA_Error FLA_Check_pthread_join_result ( int  pthread_join_r_val  ) 

Referenced by FLASH_Obj_exec(), and FLASH_Queue_exec_parallel().

00772 {
00773   FLA_Error e_val = FLA_SUCCESS;
00774 
00775   if ( pthread_join_r_val != 0 )
00776     e_val = FLA_PTHREAD_JOIN_RETURNED_ERROR;
00777 
00778   return e_val;
00779 }

FLA_Error FLA_Check_read_result ( int  requested_size,
int  read_r_val 
)

00719 {
00720   FLA_Error e_val = FLA_SUCCESS;
00721 
00722   if ( read_r_val == -1 )
00723     e_val = FLA_READ_RETURNED_ERROR;
00724 
00725   return e_val;
00726 }

FLA_Error FLA_Check_real_datatype ( FLA_Datatype  datatype  ) 

Referenced by FLA_Check_real_object().

00214 {
00215   FLA_Error e_val = FLA_SUCCESS;
00216 
00217   if ( datatype != FLA_CONSTANT &&
00218        datatype != FLA_FLOAT &&
00219        datatype != FLA_DOUBLE )
00220     e_val = FLA_INVALID_REAL_DATATYPE;
00221 
00222   return e_val;
00223 }

FLA_Error FLA_Check_real_object ( FLA_Obj  A  ) 

References FLA_Check_real_datatype(), and FLA_Obj_datatype().

Referenced by FLA_Asum_check(), FLA_Her2k_check(), FLA_Her_check(), FLA_Herc_check(), FLA_Herk_check(), FLA_Max_abs_value_check(), FLA_Norm1_check(), FLA_Norm_inf_check(), and FLA_Nrm2_check().

00264 {
00265   FLA_Error    e_val = FLA_SUCCESS;
00266   FLA_Datatype datatype;
00267 
00268   datatype = FLA_Obj_datatype( A );
00269 
00270   if ( FLA_Check_real_datatype( datatype ) != FLA_SUCCESS )
00271     e_val = FLA_OBJECT_NOT_REAL;
00272 
00273   return e_val;
00274 }

FLA_Error FLA_Check_square ( FLA_Obj  A  ) 

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_global_to_submatrix_check(), FLA_Axpy_submatrix_to_global_check(), FLA_Copy_global_to_submatrix_check(), FLA_Copy_submatrix_to_global_check(), FLASH_Axpy_global_to_submatrix(), FLASH_Axpy_submatrix_to_global(), FLASH_Copy_global_to_submatrix(), and FLASH_Copy_submatrix_to_global().

00846 {
00847   FLA_Error e_val = FLA_SUCCESS;
00848   dim_t     m_A, n_A;
00849 
00850   if ( FLA_Obj_elemtype( A ) == FLA_MATRIX )
00851   {
00852     m_A = FLASH_Obj_scalar_length( A );
00853     n_A = FLASH_Obj_scalar_width( A );
00854   }
00855   else
00856   {
00857     m_A = FLA_Obj_length( A );
00858     n_A = FLA_Obj_width( A );
00859   }
00860 
00861   if      ( i     > m_A || j     > n_A )
00862     e_val = FLA_INVALID_SUBMATRIX_OFFSET;
00863   else if ( i + m > m_A || j + n > n_A )
00864     e_val = FLA_INVALID_SUBMATRIX_DIMS;
00865 
00866   return e_val;
00867 }

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

00793 {
00794   FLA_Error e_val = FLA_SUCCESS;
00795   dim_t     m_A, m_C;
00796   dim_t     n_B, n_C;
00797 
00798   m_A = FLA_Obj_length( A );
00799 
00800   n_B = FLA_Obj_width( B );
00801 
00802   m_C = FLA_Obj_length( C );
00803   n_C = FLA_Obj_width( C );
00804 
00805   if ( m_A != m_C )
00806     e_val = FLA_NONCONFORMAL_DIMENSIONS;
00807 
00808   if ( n_B != n_C )
00809     e_val = FLA_NONCONFORMAL_DIMENSIONS;
00810 
00811   return e_val;
00812 }

FLA_Error FLA_Check_unlink_result ( int  unlink_r_val  ) 

00709 {
00710   FLA_Error e_val = FLA_SUCCESS;
00711 
00712   if ( unlink_r_val == -1 )
00713     e_val = FLA_UNLINK_RETURNED_ERROR;
00714 
00715   return e_val;
00716 }

FLA_Error FLA_Check_valid_blas_trans ( FLA_Trans  trans  ) 

Referenced by FLA_Sylv_check().

00940 {
00941   FLA_Error e_val = FLA_SUCCESS;
00942 
00943   if ( trans != FLA_NO_TRANSPOSE &&
00944        trans != FLA_TRANSPOSE &&
00945        trans != FLA_CONJ_TRANSPOSE )
00946     e_val = FLA_INVALID_BLAS_TRANS;
00947 
00948   return e_val;
00949 }

FLA_Error FLA_Check_valid_complex_trans ( FLA_Trans  trans  ) 

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

00918 {
00919   FLA_Error e_val = FLA_SUCCESS;
00920 
00921   if ( trans != FLA_NO_TRANSPOSE &&
00922        trans != FLA_CONJ_TRANSPOSE )
00923     e_val = FLA_INVALID_COMPLEX_TRANS;
00924 
00925   return e_val;
00926 }

FLA_Error FLA_Check_valid_conj ( FLA_Conj  conj  ) 

Referenced by 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(), and FLA_Scalc_check().

00129 {
00130   FLA_Error e_val = FLA_SUCCESS;
00131 
00132   if ( conj != FLA_NO_CONJUGATE &&
00133        conj != FLA_CONJUGATE )
00134     e_val = FLA_INVALID_CONJ;
00135 
00136   return e_val;
00137 }

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_elem_size_check(), FLASH_Obj_create_helper_check(), and FLASH_Obj_create_hierarchy_check().

00162 {
00163   FLA_Error e_val = FLA_SUCCESS;
00164 
00165   if ( datatype != FLA_INT &&
00166        datatype != FLA_FLOAT && 
00167        datatype != FLA_DOUBLE && 
00168        datatype != FLA_COMPLEX && 
00169        datatype != FLA_DOUBLE_COMPLEX && 
00170        datatype != FLA_CONSTANT )
00171     e_val = FLA_INVALID_DATATYPE;
00172 
00173   return e_val;
00174 }

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

00117 {
00118   FLA_Error e_val = FLA_SUCCESS;
00119 
00120   if ( diag != FLA_NONUNIT_DIAG && 
00121        diag != FLA_UNIT_DIAG &&
00122        diag != FLA_ZERO_DIAG )
00123     e_val = FLA_INVALID_DIAG;
00124 
00125   return e_val;
00126 }

FLA_Error FLA_Check_valid_direct ( FLA_Direct  direct  ) 

Referenced by FLA_Accum_T_UT_check().

00140 {
00141   FLA_Error e_val = FLA_SUCCESS;
00142 
00143   if ( direct != FLA_FORWARD &&
00144        direct != FLA_BACKWARD )
00145     e_val = FLA_INVALID_DIRECT;
00146 
00147   return e_val;
00148 }

FLA_Error FLA_Check_valid_elemtype ( FLA_Elemtype  elemtype  ) 

Referenced by FLA_Obj_create_ext_check(), and FLA_Obj_elem_size_check().

00825 {
00826   FLA_Error e_val = FLA_SUCCESS;
00827 
00828   if ( elemtype != FLA_SCALAR &&
00829        elemtype != FLA_MATRIX )
00830     e_val = FLA_INVALID_ELEMTYPE;
00831 
00832   return e_val;
00833 }

FLA_Error FLA_Check_valid_error_level ( unsigned int  level  ) 

Referenced by FLA_Check_error_level_set().

01074 {
01075   FLA_Error e_val = FLA_SUCCESS;
01076 
01077   if ( level != FLA_NO_ERROR_CHECKING &&
01078        level != FLA_MIN_ERROR_CHECKING &&
01079        level != FLA_FULL_ERROR_CHECKING )
01080     e_val = FLA_INVALID_ERROR_CHECKING_LEVEL;
01081 
01082   return e_val;
01083 }

FLA_Error FLA_Check_valid_isgn_value ( FLA_Obj  isgn  ) 

References FLA_MINUS_ONE, FLA_Obj_is(), and FLA_ONE.

Referenced by FLA_Sylv_check().

00782 {
00783   FLA_Error e_val = FLA_SUCCESS;
00784   
00785   if ( !FLA_Obj_is( isgn, FLA_ONE ) && 
00786        !FLA_Obj_is( isgn, FLA_MINUS_ONE ) )
00787     e_val = FLA_INVALID_ISGN_VALUE;
00788 
00789   return e_val;
00790 }

FLA_Error FLA_Check_valid_object_datatype ( FLA_Obj  A  ) 

FLA_Error FLA_Check_valid_pivot_type ( FLA_Pivot_type  ptype  ) 

Referenced by FLA_Shift_pivots_to_check().

00564 {
00565   FLA_Error e_val = FLA_SUCCESS;
00566 
00567   if ( ptype != FLA_NATIVE_PIVOTS && ptype != FLA_LAPACK_PIVOTS )
00568     e_val = FLA_INVALID_PIVOT_TYPE;
00569 
00570   return e_val;
00571 }

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

00739 {
00740   FLA_Error e_val = FLA_SUCCESS;
00741 
00742   if ( quad != FLA_TL && 
00743        quad != FLA_TR && 
00744        quad != FLA_BL &&
00745        quad != FLA_BR )
00746     e_val = FLA_INVALID_QUADRANT;
00747 
00748   return e_val;
00749 }

FLA_Error FLA_Check_valid_real_trans ( FLA_Trans  trans  ) 

FLA_Error FLA_Check_valid_side ( FLA_Side  side  ) 

Referenced by FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_UD_check(), FLA_Cont_with_1x3_to_1x2_check(), FLA_Cont_with_3x1_to_2x1_check(), FLA_Hemm_check(), FLA_Part_1x2_check(), FLA_Part_2x1_check(), FLA_Repart_1x2_to_1x3_check(), FLA_Repart_2x1_to_3x1_check(), FLA_Symm_check(), FLA_Trmm_check(), FLA_Trmmsx_check(), FLA_Trsm_check(), and FLA_Trsmsx_check().

00080 {
00081   FLA_Error e_val = FLA_SUCCESS;
00082 
00083   if ( side != FLA_LEFT && 
00084        side != FLA_RIGHT && 
00085        side != FLA_TOP &&
00086        side != FLA_BOTTOM )
00087     e_val = FLA_INVALID_SIDE;
00088 
00089   return e_val;
00090 }

FLA_Error FLA_Check_valid_storev ( FLA_Store  storev  ) 

Referenced by FLA_Accum_T_UT_check(), FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), and FLA_Apply_Q_UT_UD_check().

00151 {
00152   FLA_Error e_val = FLA_SUCCESS;
00153 
00154   if ( storev != FLA_COLUMNWISE &&
00155        storev != FLA_ROWWISE )
00156     e_val = FLA_INVALID_STOREV;
00157 
00158   return e_val;
00159 }

FLA_Error FLA_Check_valid_trans ( FLA_Trans  trans  ) 

Referenced by FLA_Apply_Q_check(), FLA_Apply_Q_UT_check(), FLA_Apply_Q_UT_inc_check(), FLA_Apply_Q_UT_UD_check(), FLA_Axpyt_check(), FLA_Copyt_check(), FLA_Gemm_check(), FLA_Gemv_check(), FLA_Gemvc_check(), FLA_Swapt_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().

00104 {
00105   FLA_Error e_val = FLA_SUCCESS;
00106 
00107   if ( trans != FLA_NO_TRANSPOSE &&
00108        trans != FLA_TRANSPOSE &&
00109        trans != FLA_CONJ_TRANSPOSE &&
00110        trans != FLA_CONJ_NO_TRANSPOSE )
00111     e_val = FLA_INVALID_TRANS;
00112 
00113   return e_val;
00114 }

FLA_Error FLA_Check_valid_uplo ( FLA_Uplo  uplo  ) 

FLA_Error FLA_Check_vector_length ( FLA_Obj  x,
dim_t  expected_length 
)

References FLA_Obj_length().

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

00520 {
00521   FLA_Error e_val = FLA_SUCCESS;
00522 
00523   if ( FLA_Obj_length( x ) != expected_length )
00524     e_val = FLA_INVALID_VECTOR_LENGTH;
00525 
00526   return e_val;
00527 }

FLA_Error FLA_Check_vector_length_min ( FLA_Obj  x,
dim_t  min_length 
)

References FLA_Obj_length().

Referenced by FLA_Hess_check().

00752 {
00753   FLA_Error e_val = FLA_SUCCESS;
00754 
00755   if ( FLA_Obj_length( x ) < min_length )
00756     e_val = FLA_VECTOR_LENGTH_BELOW_MIN;
00757 
00758   return e_val;
00759 }

FLA_Error FLA_Check_write_result ( int  requested_size,
int  write_r_val 
)

00729 {
00730   FLA_Error e_val = FLA_SUCCESS;
00731 
00732   if ( write_r_val != requested_size )
00733     e_val = FLA_WRITE_RETURNED_ERROR;
00734 
00735   return e_val;
00736 }


Generated on Mon Jul 6 05:45:52 2009 for libflame by  doxygen 1.5.9