23 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25 FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
30 *FLASH_OBJ_PTR_AT( A ),
31 *FLASH_OBJ_PTR_AT( x ),
33 *FLASH_OBJ_PTR_AT( y ),
36 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
41 ENQUEUE_FLASH_Gemv( transa, alpha, A, x, beta, y, cntl );
45 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
54 if ( transa == FLA_NO_TRANSPOSE )
56 r_val =
FLA_Gemv_n( alpha, A, x, beta, y, cntl );
58 else if ( transa == FLA_TRANSPOSE )
60 r_val =
FLA_Gemv_t( alpha, A, x, beta, y, cntl );
62 else if ( transa == FLA_CONJ_TRANSPOSE )
64 r_val =
FLA_Gemv_h( alpha, A, x, beta, y, cntl );
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Gemv_t(FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y, fla_gemv_t *cntl)
Definition: FLA_Gemv_t.c:13
FLA_Error FLA_Gemv_h(FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y, fla_gemv_t *cntl)
Definition: FLA_Gemv_h.c:13
FLA_Error FLA_Gemv_n(FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y, fla_gemv_t *cntl)
Definition: FLA_Gemv_n.c:13
fla_gemv_t * flash_gemv_cntl_fm_rp
Definition: FLASH_Gemv_cntl_init.c:16
FLA_Error FLA_Gemv_internal(FLA_Trans transa, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y, fla_gemv_t *cntl)
Definition: FLA_Gemv_internal.c:16
fla_gemv_t * flash_gemv_cntl_blas
Definition: FLASH_Gemv_cntl_init.c:15
FLA_Error FLA_Gemv_internal_check(FLA_Trans transa, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y, fla_gemv_t *cntl)
Definition: FLA_Gemv_internal_check.c:13
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Error
Definition: FLA_type_defs.h:47