Ejemplo n.º 1
0
void bli_unzipsc_check
     (
       obj_t*  chi,
       obj_t*  zeta_r,
       obj_t*  zeta_i 
     )
{
	err_t e_val;

	// Check object datatypes.

    e_val = bli_check_noninteger_object( chi );
    bli_check_error_code( e_val );

    e_val = bli_check_real_object( zeta_r );
    bli_check_error_code( e_val );

    e_val = bli_check_real_object( zeta_i );
    bli_check_error_code( e_val );

    e_val = bli_check_nonconstant_object( zeta_r );
    bli_check_error_code( e_val );

    e_val = bli_check_nonconstant_object( zeta_i );
    bli_check_error_code( e_val );

    e_val = bli_check_object_real_proj_of( chi, zeta_r );
    bli_check_error_code( e_val );

    e_val = bli_check_object_real_proj_of( chi, zeta_i );
    bli_check_error_code( e_val );

	// Check object dimensions.

	e_val = bli_check_scalar_object( chi );
	bli_check_error_code( e_val );

	e_val = bli_check_scalar_object( zeta_r );
	bli_check_error_code( e_val );

	e_val = bli_check_scalar_object( zeta_i );
	bli_check_error_code( e_val );

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

	e_val = bli_check_object_buffer( chi );
	bli_check_error_code( e_val );

	e_val = bli_check_object_buffer( zeta_r );
	bli_check_error_code( e_val );

	e_val = bli_check_object_buffer( zeta_i );
	bli_check_error_code( e_val );
}
Ejemplo n.º 2
0
void bli_absqsc_check( obj_t* chi,
                       obj_t* absq )
{
    err_t e_val;

    // Check object datatypes.

    e_val = bli_check_noninteger_object( chi );
    bli_check_error_code( e_val );

    e_val = bli_check_nonconstant_object( absq );
    bli_check_error_code( e_val );

    e_val = bli_check_real_object( absq );
    bli_check_error_code( e_val );

    /*
    	// FGVZ: FIXME. This is a hack. We should have a _check_datatype_real_proj()
    	// or something similar.
    	if ( !bli_obj_is_const( *chi ) &&
    	     bli_obj_datatype( *absq ) !=
    	     bli_obj_datatype_proj_to_real( *chi ) ) bli_abort();
    */
    e_val = bli_check_object_real_proj_of( chi, absq );
    bli_check_error_code( e_val );

    // Check object dimensions.

    e_val = bli_check_scalar_object( chi );
    bli_check_error_code( e_val );

    e_val = bli_check_scalar_object( absq );
    bli_check_error_code( e_val );

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

    e_val = bli_check_object_buffer( chi );
    bli_check_error_code( e_val );

    e_val = bli_check_object_buffer( absq );
    bli_check_error_code( e_val );
}
Ejemplo n.º 3
0
void bli_l0_xx2sc_check
     (
       obj_t*  chi,
       obj_t*  absq 
     )
{
	err_t e_val;

	// Check object datatypes.

	e_val = bli_check_noninteger_object( chi );
	bli_check_error_code( e_val );

	e_val = bli_check_nonconstant_object( absq );
	bli_check_error_code( e_val );

	e_val = bli_check_real_object( absq );
	bli_check_error_code( e_val );

	e_val = bli_check_object_real_proj_of( chi, absq );
	bli_check_error_code( e_val );

	// Check object dimensions.

	e_val = bli_check_scalar_object( chi );
	bli_check_error_code( e_val );

	e_val = bli_check_scalar_object( absq );
	bli_check_error_code( e_val );

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

	e_val = bli_check_object_buffer( chi );
	bli_check_error_code( e_val );

	e_val = bli_check_object_buffer( absq );
	bli_check_error_code( e_val );
}