void libblis_test_gemm_impl ( iface_t iface, obj_t* alpha, obj_t* a, obj_t* b, obj_t* beta, obj_t* c ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: #if 0 //bli_printm( "alpha", alpha, "%5.2f", "" ); //bli_printm( "beta", beta, "%5.2f", "" ); bli_printm( "a", a, "%5.2f", "" ); bli_printm( "b", b, "%5.2f", "" ); bli_printm( "c", c, "%5.2f", "" ); #endif //if ( bli_obj_length( b ) == 16 && // bli_obj_stor3_from_strides( c, a, b ) == BLIS_CRR ) //bli_printm( "c before", c, "%6.3f", "" ); bli_gemm( alpha, a, b, beta, c ); #if 0 if ( bli_obj_length( c ) == 12 && bli_obj_stor3_from_strides( c, a, b ) == BLIS_RRR ) bli_printm( "c after", c, "%6.3f", "" ); #endif break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_trsm_impl ( iface_t iface, side_t side, obj_t* alpha, obj_t* a, obj_t* b ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: #if 0 bli_printm( "a", a, "%5.2f", "" ); bli_printm( "b", b, "%5.2f", "" ); //bli_printm( "alpha", alpha, "%5.2f", "" ); #endif bli_trsm( side, alpha, a, b ); #if 0 bli_printm( "b after", b, "%5.2f", "" ); #endif break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_randm_impl( mt_impl_t impl, obj_t* x ) { switch ( impl ) { case BLIS_TEST_SEQ_FRONT_END: bli_randm( x ); break; default: libblis_test_printf_error( "Invalid implementation type.\n" ); } }
void libblis_test_scalm_impl( iface_t iface, obj_t* beta, obj_t* y ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_scalm( beta, y ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_normfm_impl( iface_t iface, obj_t* x, obj_t* norm ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_normfm( x, norm ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_fnormv_impl( mt_impl_t impl, obj_t* x, obj_t* norm ) { switch ( impl ) { case BLIS_TEST_SEQ_FRONT_END: bli_fnormv( x, norm ); break; default: libblis_test_printf_error( "Invalid implementation type.\n" ); } }
void libblis_test_syr_impl( mt_impl_t impl, obj_t* alpha, obj_t* x, obj_t* a ) { switch ( impl ) { case BLIS_TEST_SEQ_FRONT_END: bli_syr( alpha, x, a ); break; default: libblis_test_printf_error( "Invalid implementation type.\n" ); } }
void libblis_test_her_impl( iface_t iface, obj_t* alpha, obj_t* x, obj_t* a ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_her( alpha, x, a ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_axpyf_impl( iface_t iface, obj_t* alpha, obj_t* a, obj_t* x, obj_t* y ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_axpyf_kernel( alpha, a, x, y ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_herk_impl( mt_impl_t impl, obj_t* alpha, obj_t* a, obj_t* beta, obj_t* c ) { switch ( impl ) { case BLIS_TEST_SEQ_FRONT_END: bli_herk( alpha, a, beta, c ); break; default: libblis_test_printf_error( "Invalid implementation type.\n" ); } }
void libblis_test_randv_impl ( iface_t iface, obj_t* x ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_randv( x ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_axpy2v_impl( mt_impl_t impl, obj_t* alpha1, obj_t* alpha2, obj_t* x, obj_t* y, obj_t* z ) { switch ( impl ) { case BLIS_TEST_SEQ_FRONT_END: bli_axpy2v_ker( alpha1, alpha2, x, y, z ); break; default: libblis_test_printf_error( "Invalid implementation type.\n" ); } }
void libblis_test_axpy2v_impl( iface_t iface, obj_t* alpha1, obj_t* alpha2, obj_t* x, obj_t* y, obj_t* z, cntx_t* cntx ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_axpy2v_ex( alpha1, alpha2, x, y, z, cntx ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_dotaxpyv_impl( iface_t iface, obj_t* alpha, obj_t* xt, obj_t* x, obj_t* y, obj_t* rho, obj_t* z ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_dotaxpyv_kernel( alpha, xt, x, y, rho, z ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_gemmtrsm_ukr_impl( mt_impl_t impl, side_t side, obj_t* alpha, obj_t* a1x, obj_t* a11, obj_t* bx1, obj_t* b11, obj_t* c11 ) { switch ( impl ) { case BLIS_TEST_SEQ_UKERNEL: bli_gemmtrsm_ukr( alpha, a1x, a11, bx1, b11, c11 ); break; default: libblis_test_printf_error( "Invalid implementation type.\n" ); } }
void libblis_test_gemm_impl( iface_t iface, obj_t* alpha, obj_t* a, obj_t* b, obj_t* beta, obj_t* c ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_gemm( alpha, a, b, beta, c ); //bli_gemm4m( alpha, a, b, beta, c ); //bli_gemm3m( alpha, a, b, beta, c ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_trsm_impl ( iface_t iface, side_t side, obj_t* alpha, obj_t* a, obj_t* b ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_trsm( side, alpha, a, b ); //bli_trsm4m( side, alpha, a, b ); //bli_trsm3m( side, alpha, a, b ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }
void libblis_test_dotxaxpyf_impl ( iface_t iface, obj_t* alpha, obj_t* at, obj_t* a, obj_t* w, obj_t* x, obj_t* beta, obj_t* y, obj_t* z, cntx_t* cntx ) { switch ( iface ) { case BLIS_TEST_SEQ_FRONT_END: bli_dotxaxpyf_ex( alpha, at, a, w, x, beta, y, z, cntx ); break; default: libblis_test_printf_error( "Invalid interface type.\n" ); } }