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( x ),
35 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
40 ENQUEUE_FLASH_Trsv( uplo, transa, diag, A, x, cntl );
44 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
53 if ( uplo == FLA_LOWER_TRIANGULAR )
55 if ( transa == FLA_NO_TRANSPOSE )
57 else if ( transa == FLA_TRANSPOSE )
59 else if ( transa == FLA_CONJ_TRANSPOSE )
62 else if ( uplo == FLA_UPPER_TRIANGULAR )
64 if ( transa == FLA_NO_TRANSPOSE )
66 else if ( transa == FLA_TRANSPOSE )
68 else if ( transa == FLA_CONJ_TRANSPOSE )
FLA_Error FLA_Trsv_internal_check(FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_internal_check.c:13
FLA_Error FLA_Trsv_uc(FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_uc.c:13
FLA_Error FLA_Trsv_internal(FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_internal.c:16
fla_trsv_t * flash_trsv_cntl
Definition: FLASH_Trsv_cntl_init.c:16
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Trsv_un(FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_un.c:13
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Trsv_ut(FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_ut.c:13
FLA_Error FLA_Trsv_lc(FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_lc.c:13
FLA_Error FLA_Trsv_lt(FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_lt.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
fla_trsv_t * flash_trsv_cntl_blas
Definition: FLASH_Trsv_cntl_init.c:15
FLA_Error FLA_Trsv_ln(FLA_Diag diag, FLA_Obj A, FLA_Obj x, fla_trsv_t *cntl)
Definition: FLA_Trsv_ln.c:13
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51