23 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25 FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
31 *FLASH_OBJ_PTR_AT( A ),
33 *FLASH_OBJ_PTR_AT( C ),
36 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
41 ENQUEUE_FLASH_Syrk( uplo, trans, alpha, A, beta, C, cntl );
45 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
54 if ( uplo == FLA_LOWER_TRIANGULAR )
56 if ( trans == FLA_NO_TRANSPOSE )
58 else if ( trans == FLA_TRANSPOSE )
61 else if ( uplo == FLA_UPPER_TRIANGULAR )
63 if ( trans == FLA_NO_TRANSPOSE )
65 else if ( trans == FLA_TRANSPOSE )
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Syrk_ln(FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C, fla_syrk_t *cntl)
Definition: FLA_Syrk_ln.c:13
FLA_Error FLA_Syrk_un(FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C, fla_syrk_t *cntl)
Definition: FLA_Syrk_un.c:13
FLA_Error FLA_Syrk_lt(FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C, fla_syrk_t *cntl)
Definition: FLA_Syrk_lt.c:13
FLA_Error FLA_Syrk_ut(FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C, fla_syrk_t *cntl)
Definition: FLA_Syrk_ut.c:13
fla_syrk_t * flash_syrk_cntl_blas
Definition: FLASH_Syrk_cntl_init.c:16
FLA_Error FLA_Syrk_internal(FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C, fla_syrk_t *cntl)
Definition: FLA_Syrk_internal.c:16
fla_syrk_t * flash_syrk_cntl_mm
Definition: FLASH_Syrk_cntl_init.c:19
FLA_Error FLA_Syrk_internal_check(FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C, fla_syrk_t *cntl)
Definition: FLA_Syrk_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