45 float *buff_A = (
float * ) FLA_FLOAT_PTR( A );
46 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
59 double *buff_A = (
double * ) FLA_DOUBLE_PTR( A );
60 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
73 if ( dt_alpha == FLA_COMPLEX )
84 else if ( dt_alpha == FLA_FLOAT )
87 float *buff_alpha = (
float * ) FLA_FLOAT_PTR( alpha );
99 case FLA_DOUBLE_COMPLEX:
101 if ( dt_alpha == FLA_DOUBLE_COMPLEX )
110 buff_A, rs_A, cs_A );
112 else if ( dt_alpha == FLA_DOUBLE )
115 double *buff_alpha = (
double * ) FLA_DOUBLE_PTR( alpha );
121 buff_A, rs_A, cs_A );
void bl1_zdinvscalm(conj1_t conj, int m, int n, double *alpha, dcomplex *a, int a_rs, int a_cs)
Definition: bl1_invscalm.c:221
FLA_Error FLA_Inv_scalc_check(FLA_Conj conjalpha, FLA_Obj alpha, FLA_Obj A)
Definition: FLA_Inv_scalc_check.c:13
conj1_t
Definition: blis_type_defs.h:79
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
FLA_Bool FLA_Obj_is_constant(FLA_Obj A)
Definition: FLA_Query.c:290
void bl1_zinvscalm(conj1_t conj, int m, int n, dcomplex *alpha, dcomplex *a, int a_rs, int a_cs)
Definition: bl1_invscalm.c:273
FLA_Obj FLA_ONE
Definition: FLA_Init.c:18
void bl1_csinvscalm(conj1_t conj, int m, int n, float *alpha, scomplex *a, int a_rs, int a_cs)
Definition: bl1_invscalm.c:117
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
FLA_Bool FLA_Obj_has_zero_dim(FLA_Obj A)
Definition: FLA_Query.c:400
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Bool FLA_Obj_equals(FLA_Obj A, FLA_Obj B)
Definition: FLA_Query.c:507
Definition: blis_type_defs.h:132
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
void FLA_Param_map_flame_to_blis_conj(FLA_Conj conj, conj1_t *blis_conj)
Definition: FLA_Param.c:269
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_cinvscalm(conj1_t conj, int m, int n, scomplex *alpha, scomplex *a, int a_rs, int a_cs)
Definition: bl1_invscalm.c:169
void bl1_sinvscalm(conj1_t conj, int m, int n, float *alpha, float *a, int a_rs, int a_cs)
Definition: bl1_invscalm.c:13
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
void bl1_dinvscalm(conj1_t conj, int m, int n, double *alpha, double *a, int a_rs, int a_cs)
Definition: bl1_invscalm.c:65
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137