libflame  revision_anchor
Functions
FLA_Inv_scal_elemwise.c File Reference

(r)

Functions

FLA_Error FLA_Inv_scal_elemwise (FLA_Trans trans, FLA_Obj A, FLA_Obj B)
 

Function Documentation

◆ FLA_Inv_scal_elemwise()

FLA_Error FLA_Inv_scal_elemwise ( FLA_Trans  trans,
FLA_Obj  A,
FLA_Obj  B 
)

References bl1_cewinvscalmt(), bl1_dewinvscalmt(), bl1_sewinvscalmt(), bl1_zewinvscalmt(), FLA_Check_error_level(), FLA_Inv_scal_elemwise_check(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_has_zero_dim(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_width(), and FLA_Param_map_flame_to_blis_trans().

14 {
15  FLA_Datatype datatype;
16  int m_B, n_B;
17  int rs_A, cs_A;
18  int rs_B, cs_B;
19  trans1_t blis_trans;
20 
21  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
22  FLA_Inv_scal_elemwise_check( trans, A, B );
23 
24  if ( FLA_Obj_has_zero_dim( A ) ) return FLA_SUCCESS;
25 
26  datatype = FLA_Obj_datatype( A );
27 
28  rs_A = FLA_Obj_row_stride( A );
29  cs_A = FLA_Obj_col_stride( A );
30 
31  m_B = FLA_Obj_length( B );
32  n_B = FLA_Obj_width( B );
33  rs_B = FLA_Obj_row_stride( B );
34  cs_B = FLA_Obj_col_stride( B );
35 
36  FLA_Param_map_flame_to_blis_trans( trans, &blis_trans );
37 
38  switch ( datatype ){
39 
40  case FLA_FLOAT:
41  {
42  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
43  float *buff_B = ( float * ) FLA_FLOAT_PTR( B );
44 
45  bl1_sewinvscalmt( blis_trans,
46  m_B,
47  n_B,
48  buff_A, rs_A, cs_A,
49  buff_B, rs_B, cs_B );
50 
51  break;
52  }
53 
54  case FLA_DOUBLE:
55  {
56  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
57  double *buff_B = ( double * ) FLA_DOUBLE_PTR( B );
58 
59  bl1_dewinvscalmt( blis_trans,
60  m_B,
61  n_B,
62  buff_A, rs_A, cs_A,
63  buff_B, rs_B, cs_B );
64 
65  break;
66  }
67 
68  case FLA_COMPLEX:
69  {
70  scomplex *buff_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
71  scomplex *buff_B = ( scomplex * ) FLA_COMPLEX_PTR( B );
72 
73  bl1_cewinvscalmt( blis_trans,
74  m_B,
75  n_B,
76  buff_A, rs_A, cs_A,
77  buff_B, rs_B, cs_B );
78 
79  break;
80  }
81 
82  case FLA_DOUBLE_COMPLEX:
83  {
84  dcomplex *buff_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
85  dcomplex *buff_B = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( B );
86 
87  bl1_zewinvscalmt( blis_trans,
88  m_B,
89  n_B,
90  buff_A, rs_A, cs_A,
91  buff_B, rs_B, cs_B );
92 
93  break;
94  }
95 
96  }
97 
98  return FLA_SUCCESS;
99 }
void bl1_sewinvscalmt(trans1_t trans, int m, int n, float *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs)
Definition: bl1_ewinvscalmt.c:13
void bl1_dewinvscalmt(trans1_t trans, int m, int n, double *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs)
Definition: bl1_ewinvscalmt.c:85
void FLA_Param_map_flame_to_blis_trans(FLA_Trans trans, trans1_t *blis_trans)
Definition: FLA_Param.c:245
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
trans1_t
Definition: blis_type_defs.h:52
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
void bl1_zewinvscalmt(trans1_t trans, int m, int n, dcomplex *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs)
Definition: bl1_ewinvscalmt.c:373
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
Definition: blis_type_defs.h:132
FLA_Error FLA_Inv_scal_elemwise_check(FLA_Trans trans, FLA_Obj A, FLA_Obj B)
Definition: FLA_Inv_scal_elemwise_check.c:13
unsigned int FLA_Check_error_level(void)
Definition: FLA_Check.c:18
int FLA_Datatype
Definition: FLA_type_defs.h:49
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
void bl1_cewinvscalmt(trans1_t trans, int m, int n, scomplex *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs)
Definition: bl1_ewinvscalmt.c:229
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137