23 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
25 FLA_Cntl_variant( cntl ) == FLA_SUBPROBLEM )
33 *FLASH_OBJ_PTR_AT( A ),
34 *FLASH_OBJ_PTR_AT( B ),
37 else if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
42 ENQUEUE_FLASH_Trsm( side, uplo, transa, diag, alpha, A, B, cntl );
46 if ( FLA_Cntl_matrix_type( cntl ) == FLA_HIER &&
55 if ( side == FLA_LEFT )
57 if ( uplo == FLA_LOWER_TRIANGULAR )
59 if ( transa == FLA_NO_TRANSPOSE )
61 else if ( transa == FLA_TRANSPOSE )
63 else if ( transa == FLA_CONJ_NO_TRANSPOSE )
65 else if ( transa == FLA_CONJ_TRANSPOSE )
68 else if ( uplo == FLA_UPPER_TRIANGULAR )
70 if ( transa == FLA_NO_TRANSPOSE )
72 else if ( transa == FLA_TRANSPOSE )
74 else if ( transa == FLA_CONJ_NO_TRANSPOSE )
76 else if ( transa == FLA_CONJ_TRANSPOSE )
80 else if ( side == FLA_RIGHT )
82 if ( uplo == FLA_LOWER_TRIANGULAR )
84 if ( transa == FLA_NO_TRANSPOSE )
86 else if ( transa == FLA_TRANSPOSE )
88 else if ( transa == FLA_CONJ_NO_TRANSPOSE )
90 else if ( transa == FLA_CONJ_TRANSPOSE )
93 else if ( uplo == FLA_UPPER_TRIANGULAR )
95 if ( transa == FLA_NO_TRANSPOSE )
97 else if ( transa == FLA_TRANSPOSE )
99 else if ( transa == FLA_CONJ_NO_TRANSPOSE )
101 else if ( transa == FLA_CONJ_TRANSPOSE )
FLA_Error FLA_Trsm_llh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_llh.c:13
FLA_Error FLA_Trsm_internal_check(FLA_Side side, FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_internal_check.c:13
FLA_Error FLA_Trsm_llc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_llc.c:13
FLA_Error FLA_Trsm_rln(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_rln.c:13
FLA_Error FLA_Trsm_rlc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_rlc.c:13
FLA_Error FLA_Trsm_rlt(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_rlt.c:13
FLA_Error FLA_Trsm_run(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_run.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Trsm_llt(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_llt.c:13
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Trsm_luc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_luc.c:13
FLA_Error FLA_Trsm_luh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_luh.c:13
FLA_Error FLA_Trsm_rut(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_rut.c:13
FLA_Error FLA_Trsm_ruh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_ruh.c:13
fla_trsm_t * flash_trsm_cntl_mm
Definition: FLASH_Trsm_cntl_init.c:19
FLA_Error FLA_Trsm_internal(FLA_Side side, FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_internal.c:16
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
FLA_Error FLA_Trsm_lln(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_lln.c:13
FLA_Error FLA_Trsm_rlh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_rlh.c:13
FLA_Error FLA_Trsm_lut(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_lut.c:13
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51
fla_trsm_t * flash_trsm_cntl_blas
Definition: FLASH_Trsm_cntl_init.c:16
FLA_Error FLA_Trsm_ruc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_ruc.c:13
FLA_Error FLA_Trsm_lun(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trsm_t *cntl)
Definition: FLA_Trsm_lun.c:13