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_Trmm( 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_Trmm_ruc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_ruc.c:13
FLA_Error FLA_Trmm_rln(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_rln.c:13
FLA_Error FLA_Trmm_llc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_llc.c:13
FLA_Error FLA_Trmm_luc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_luc.c:13
FLA_Error FLA_Trmm_llt(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_llt.c:13
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Trmm_llh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_llh.c:13
FLA_Error FLA_Trmm_rut(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_rut.c:13
FLA_Bool FLASH_Queue_get_enabled(void)
Definition: FLASH_Queue.c:171
FLA_Error FLA_Trmm_lln(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_lln.c:13
FLA_Error FLA_Trmm_luh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_luh.c:13
FLA_Error FLA_Trmm_internal(FLA_Side side, FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_internal.c:16
fla_trmm_t * flash_trmm_cntl_blas
Definition: FLASH_Trmm_cntl_init.c:16
FLA_Error FLA_Trmm_rlh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_rlh.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
fla_trmm_t * flash_trmm_cntl_mm
Definition: FLASH_Trmm_cntl_init.c:19
FLA_Error FLA_Trmm_ruh(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_ruh.c:13
FLA_Error FLA_Trmm_rlc(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_rlc.c:13
FLA_Error FLA_Trmm_lun(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_lun.c:13
FLA_Error FLA_Trmm_lut(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_lut.c:13
FLA_Error FLA_Trmm_internal_check(FLA_Side side, FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_internal_check.c:13
FLA_Error FLA_Trmm_rlt(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_rlt.c:13
FLA_Elemtype FLA_Obj_elemtype(FLA_Obj obj)
Definition: FLA_Query.c:51
FLA_Error FLA_Trmm_run(FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, fla_trmm_t *cntl)
Definition: FLA_Trmm_run.c:13