23 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25 FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
30 *FLASH_OBJ_PTR_AT( A ),
33 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
38 ENQUEUE_FLASH_Trinv( uplo, diag, A, cntl );
42 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
51 if ( uplo == FLA_LOWER_TRIANGULAR )
53 if ( diag == FLA_NONUNIT_DIAG )
57 else if ( diag == FLA_UNIT_DIAG )
62 else if ( uplo == FLA_UPPER_TRIANGULAR )
64 if ( diag == FLA_NONUNIT_DIAG )
68 else if ( diag == FLA_UNIT_DIAG )
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Trinv_ln(FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_ln.c:13
FLA_Error FLA_Trinv_uu(FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_uu.c:13
FLA_Error FLA_Trinv_un(FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_un.c:13
FLA_Error FLA_Trinv_lu(FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_lu.c:13
fla_trinv_t * flash_trinv_cntl
Definition: FLASH_Trinv_cntl_init.c:17
fla_trinv_t * fla_trinv_cntl_leaf
Definition: FLA_Trinv_cntl_init.c:17
FLA_Error FLA_Trinv_internal(FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_internal.c:16
FLA_Error FLA_Trinv_internal_check(FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t *cntl)
Definition: FLA_Trinv_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