void bli_trsv_int_check( obj_t* alpha, obj_t* a, obj_t* x, trsv_t* cntl ) { err_t e_val; // Check basic properties of the operation. bli_trsv_basic_check( alpha, a, x ); // Check object structure e_val = bli_check_triangular_object( a ); bli_check_error_code( e_val ); // Check object buffers (for non-NULLness). e_val = bli_check_object_buffer( alpha ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( a ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( x ); bli_check_error_code( e_val ); // Check control tree pointer e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_ger_int_check( obj_t* alpha, obj_t* x, obj_t* y, obj_t* a, cntx_t* cntx, ger_t* cntl ) { err_t e_val; // Check object datatypes. bli_ger_basic_check( alpha, x, y, a ); // Check object buffers (for non-NULLness). e_val = bli_check_object_buffer( alpha ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( x ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( y ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( a ); bli_check_error_code( e_val ); // Check control tree pointer e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_herk_int_check( obj_t* alpha, obj_t* a, obj_t* ah, obj_t* beta, obj_t* c, gemm_t* cntl ) { err_t e_val; // Check object buffers (for non-NULLness). e_val = bli_check_object_buffer( alpha ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( a ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( ah ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( beta ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( c ); bli_check_error_code( e_val ); // Check basic properties of the operation. bli_herk_basic_check( alpha, a, ah, beta, c ); // Check control tree pointer. e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_her2_int_check( conj_t conjh, obj_t* alpha, obj_t* x, obj_t* y, obj_t* c, her2_t* cntl ) { err_t e_val; // Check basic properties of the operation. bli_her2_basic_check( conjh, alpha, x, y, c ); // Check matrix structure. if ( bli_is_conj( conjh ) ) { e_val = bli_check_hermitian_object( c ); bli_check_error_code( e_val ); } else { e_val = bli_check_symmetric_object( c ); bli_check_error_code( e_val ); } // Check control tree pointer e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_hemv_int_check( conj_t conjh, obj_t* alpha, obj_t* a, obj_t* x, obj_t* beta, obj_t* y, hemv_t* cntl ) { err_t e_val; // Check basic properties of the operation. bli_hemv_basic_check( alpha, a, x, beta, y ); // Check matrix structure. if ( bli_is_conj( conjh ) ) { e_val = bli_check_hermitian_object( a ); bli_check_error_code( e_val ); } else { e_val = bli_check_symmetric_object( a ); bli_check_error_code( e_val ); } // Check object buffers (for non-NULLness). e_val = bli_check_object_buffer( alpha ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( a ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( x ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( beta ); bli_check_error_code( e_val ); e_val = bli_check_object_buffer( y ); bli_check_error_code( e_val ); // Check control tree pointer. e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_herk_int_check( obj_t* alpha, obj_t* a, obj_t* ah, obj_t* beta, obj_t* c, herk_t* cntl ) { err_t e_val; // Check basic properties of the operation. bli_herk_basic_check( alpha, a, ah, beta, c ); // Check control tree pointer. e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_gemv_int_check( obj_t* alpha, obj_t* a, obj_t* x, obj_t* beta, obj_t* y, gemv_t* cntl ) { err_t e_val; // Check basic properties of the operation. bli_gemv_basic_check( alpha, a, x, beta, y ); // Check control tree pointer. e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }
void bli_hemm_int_check( side_t side, obj_t* alpha, obj_t* a, obj_t* b, obj_t* beta, obj_t* c, gemm_t* cntl ) { err_t e_val; // Check basic properties of the operation. bli_hemm_basic_check( side, alpha, a, b, beta, c ); // Check control tree pointer. e_val = bli_check_valid_cntl( ( void* )cntl ); bli_check_error_code( e_val ); }