23 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25 FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
31 *FLASH_OBJ_PTR_AT( A ),
32 *FLASH_OBJ_PTR_AT( B ),
34 *FLASH_OBJ_PTR_AT( C ),
37 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
42 ENQUEUE_FLASH_Symm( side, uplo, alpha, A, B, beta, C, cntl );
46 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
55 if ( side == FLA_LEFT )
57 if ( uplo == FLA_LOWER_TRIANGULAR )
59 else if ( uplo == FLA_UPPER_TRIANGULAR )
62 else if ( side == FLA_RIGHT )
64 if ( uplo == FLA_LOWER_TRIANGULAR )
66 else if ( uplo == FLA_UPPER_TRIANGULAR )
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Symm_rl(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_symm_t *cntl)
Definition: FLA_Symm_rl.c:13
FLA_Error FLA_Symm_ru(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_symm_t *cntl)
Definition: FLA_Symm_ru.c:13
FLA_Error FLA_Symm_ll(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_symm_t *cntl)
Definition: FLA_Symm_ll.c:13
FLA_Error FLA_Symm_lu(FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_symm_t *cntl)
Definition: FLA_Symm_lu.c:13
FLA_Error FLA_Symm_internal(FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_symm_t *cntl)
Definition: FLA_Symm_internal.c:16
fla_symm_t * flash_symm_cntl_blas
Definition: FLASH_Symm_cntl_init.c:18
fla_symm_t * flash_symm_cntl_mm
Definition: FLASH_Symm_cntl_init.c:21
FLA_Error FLA_Symm_internal_check(FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C, fla_symm_t *cntl)
Definition: FLA_Symm_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