void bli_herk3mh_entry( obj_t* alpha,
obj_t* a,
obj_t* beta,
obj_t* c )
{
bli_herk_front( alpha, a, beta, c, gemm3mh_cntl_ro );
bli_herk_front( alpha, a, &BLIS_ONE, c, gemm3mh_cntl_io );
bli_herk_front( alpha, a, &BLIS_ONE, c, gemm3mh_cntl_rpi );
}
void bli_herk( obj_t* alpha,
obj_t* a,
obj_t* beta,
obj_t* c )
{
num_t dt = bli_obj_datatype( *c );
// If an induced method is available (ie: implemented and enabled),
// call it instead.
if ( bli_herkind_has_avail( dt ) )
{
herk_fp_t func = bli_herkind_get_avail( dt );
return func( alpha, a, beta, c );
}
bli_herk_front( alpha, a, beta, c,
gemm_cntl );
}
