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_syr2_check( obj_t* alpha, obj_t* x, obj_t* y, obj_t* c ) { err_t e_val; // Check basic properties of the operation. bli_syr2_basic_check( alpha, x, y, c ); // Check matrix structure. e_val = bli_check_symmetric_object( c ); bli_check_error_code( e_val ); }
void bli_symm_check( side_t side, obj_t* alpha, obj_t* a, obj_t* b, obj_t* beta, obj_t* c ) { err_t e_val; // Check basic properties of the operation. bli_symm_basic_check( side, alpha, a, b, beta, c ); // Check matrix squareness. e_val = bli_check_square_object( a ); bli_check_error_code( e_val ); // Check matrix structure. e_val = bli_check_symmetric_object( a ); bli_check_error_code( e_val ); }