32 if ( uplo == FLA_LOWER_TRIANGULAR ) uplo = FLA_UPPER_TRIANGULAR;
33 else uplo = FLA_LOWER_TRIANGULAR;
41 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
42 float *buff_0 = (
float * ) FLA_FLOAT_PTR(
FLA_ZERO );
43 float *buff_1 = (
float * ) FLA_FLOAT_PTR(
FLA_ONE );
51 if ( diag == FLA_UNIT_DIAG )
57 else if ( diag == FLA_ZERO_DIAG )
69 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
70 double *buff_0 = (
double * ) FLA_DOUBLE_PTR(
FLA_ZERO );
71 double *buff_1 = (
double * ) FLA_DOUBLE_PTR(
FLA_ONE );
79 if ( diag == FLA_UNIT_DIAG )
85 else if ( diag == FLA_ZERO_DIAG )
105 buff_A, rs_A, cs_A );
107 if ( diag == FLA_UNIT_DIAG )
112 buff_A, rs_A, cs_A );
113 else if ( diag == FLA_ZERO_DIAG )
118 buff_A, rs_A, cs_A );
123 case FLA_DOUBLE_COMPLEX:
133 buff_A, rs_A, cs_A );
135 if ( diag == FLA_UNIT_DIAG )
140 buff_A, rs_A, cs_A );
141 else if ( diag == FLA_ZERO_DIAG )
146 buff_A, rs_A, cs_A );
FLA_Error FLA_Triangularize_check(FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A)
Definition: FLA_Triangularize_check.c:13
FLA_Obj FLA_ZERO
Definition: FLA_Init.c:20
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
void FLA_Param_map_flame_to_blis_uplo(FLA_Uplo uplo, uplo1_t *blis_uplo)
Definition: FLA_Param.c:285
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_zsetdiag(int offset, int m, int n, dcomplex *sigma, dcomplex *a, int a_rs, int a_cs)
Definition: bl1_setdiag.c:98
void bl1_csetmr(uplo1_t uplo, int m, int n, scomplex *sigma, scomplex *a, int a_rs, int a_cs)
Definition: bl1_setmr.c:119
void bl1_csetdiag(int offset, int m, int n, scomplex *sigma, scomplex *a, int a_rs, int a_cs)
Definition: bl1_setdiag.c:76
void bl1_dsetdiag(int offset, int m, int n, double *sigma, double *a, int a_rs, int a_cs)
Definition: bl1_setdiag.c:55
void bl1_ssetdiag(int offset, int m, int n, float *sigma, float *a, int a_rs, int a_cs)
Definition: bl1_setdiag.c:34
void bl1_dsetmr(uplo1_t uplo, int m, int n, double *sigma, double *a, int a_rs, int a_cs)
Definition: bl1_setmr.c:66
void bl1_zsetmr(uplo1_t uplo, int m, int n, dcomplex *sigma, dcomplex *a, int a_rs, int a_cs)
Definition: bl1_setmr.c:172
void bl1_ssetmr(uplo1_t uplo, int m, int n, float *sigma, float *a, int a_rs, int a_cs)
Definition: bl1_setmr.c:13
uplo1_t
Definition: blis_type_defs.h:61
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133