示例#1
0
void bli_utilm_fprint_check
     (
       FILE*  file,
       char*  s1,
       obj_t* x,
       char*  format,
       char*  s2
     )
{
	err_t e_val;

	// Check argument pointers.
	
	e_val = bli_check_null_pointer( file );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( s1 );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( s2 ); 
	bli_check_error_code( e_val );

	// Check object buffers (for non-NULLness).

	e_val = bli_check_object_buffer( x ); 
	bli_check_error_code( e_val );
}
示例#2
0
void bli_obj_print_check( char* label, obj_t* obj )
{
	err_t e_val;

	e_val = bli_check_null_pointer( label );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );
}
示例#3
0
void bli_obj_create_const_copy_of_check( obj_t* a, obj_t* b )
{
	err_t e_val;

	e_val = bli_check_null_pointer( a );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( b );
	bli_check_error_code( e_val );

	e_val = bli_check_scalar_object( a );
	bli_check_error_code( e_val );
}
示例#4
0
void bli_obj_create_const_check( double value, obj_t* obj )
{
	err_t e_val;

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );
}
示例#5
0
void bli_acquire_mpart_tl2br_check( subpart_t  requested_part,
                                        dim_t  ij,
                                        dim_t  b,
                                        obj_t* obj,
                                        obj_t* sub_obj )
{
	err_t e_val;

	e_val = bli_check_valid_3x3_subpart( requested_part );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( sub_obj );
	bli_check_error_code( e_val );
}
示例#6
0
void bli_obj_attach_buffer_check( void*  p,
                                  inc_t  rs,
                                  inc_t  cs,
                                  obj_t* obj )
{
	err_t e_val;

	e_val = bli_check_null_pointer( p );
	bli_check_error_code( e_val );

	e_val = bli_check_matrix_strides( bli_obj_length( *obj ),
	                                  bli_obj_width( *obj ),
	                                  rs, cs );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );
}
示例#7
0
void bli_obj_create_scalar_check( num_t  dt,
                                  obj_t* obj )
{
	err_t e_val;

	e_val = bli_check_valid_datatype( dt );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );
}
示例#8
0
void bli_hemm_check( side_t  side,
                     obj_t*  alpha,
                     obj_t*  a,
                     obj_t*  b,
                     obj_t*  beta,
                     obj_t*  c )
{
	err_t e_val;

	// Check object pointers.

	e_val = bli_check_null_pointer( alpha );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( a );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( b );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( beta );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( c );
	bli_check_error_code( e_val );

	// Check basic properties of the operation.

	bli_hemm_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_hermitian_object( a );
	bli_check_error_code( e_val );
}
示例#9
0
void bli_obj_create_without_buffer_check( num_t  dt,
                                          dim_t  m,
                                          dim_t  n,
                                          obj_t* obj )
{
	err_t e_val;

	e_val = bli_check_valid_datatype( dt );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );
}
示例#10
0
void bli_obj_create_check( num_t  dt,
                           dim_t  m,
                           dim_t  n,
                           inc_t  rs,
                           inc_t  cs,
                           obj_t* obj )
{
	err_t e_val;

	e_val = bli_check_valid_datatype( dt );
	bli_check_error_code( e_val );

	e_val = bli_check_matrix_strides( m, n, rs, cs );
	bli_check_error_code( e_val );

	e_val = bli_check_null_pointer( obj );
	bli_check_error_code( e_val );
}