libflame  revision_anchor
Functions
FLA_Gerc_external.c File Reference

(r)

Functions

FLA_Error FLA_Gerc_external (FLA_Conj conjx, FLA_Conj conjy, FLA_Obj alpha, FLA_Obj x, FLA_Obj y, FLA_Obj A)
 

Function Documentation

◆ FLA_Gerc_external()

FLA_Error FLA_Gerc_external ( FLA_Conj  conjx,
FLA_Conj  conjy,
FLA_Obj  alpha,
FLA_Obj  x,
FLA_Obj  y,
FLA_Obj  A 
)

References bl1_cger(), bl1_dger(), bl1_sger(), bl1_zger(), FLA_Check_error_level(), FLA_Gerc_check(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_has_zero_dim(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_vector_inc(), FLA_Obj_width(), and FLA_Param_map_flame_to_blis_conj().

Referenced by FLA_Apply_H2_UT_r_unb_var1(), FLA_Gemm_cc_unb_var5(), FLA_Gemm_cc_unb_var6(), FLA_Gemm_ch_unb_var5(), FLA_Gemm_ch_unb_var6(), FLA_Gemm_cn_unb_var5(), FLA_Gemm_cn_unb_var6(), FLA_Gemm_ct_unb_var5(), FLA_Gemm_ct_unb_var6(), FLA_Gemm_hc_unb_var5(), FLA_Gemm_hc_unb_var6(), FLA_Gemm_hh_unb_var5(), FLA_Gemm_hh_unb_var6(), FLA_Gemm_hn_unb_var5(), FLA_Gemm_hn_unb_var6(), FLA_Gemm_ht_unb_var5(), FLA_Gemm_ht_unb_var6(), FLA_Gemm_nc_unb_var5(), FLA_Gemm_nc_unb_var6(), FLA_Gemm_nh_unb_var5(), FLA_Gemm_nh_unb_var6(), FLA_Gemm_tc_unb_var5(), FLA_Gemm_tc_unb_var6(), FLA_Gemm_th_unb_var5(), FLA_Gemm_th_unb_var6(), FLA_Gerc(), FLA_Hemm_ll_unb_var1(), FLA_Hemm_ll_unb_var4(), FLA_Hemm_ll_unb_var7(), FLA_Hemm_ll_unb_var8(), FLA_Hemm_lu_unb_var3(), FLA_Hemm_lu_unb_var4(), FLA_Hemm_lu_unb_var5(), FLA_Hemm_lu_unb_var8(), FLA_Hemm_rl_unb_var3(), FLA_Hemm_rl_unb_var4(), FLA_Hemm_rl_unb_var5(), FLA_Hemm_rl_unb_var8(), FLA_Hemm_ru_unb_var1(), FLA_Hemm_ru_unb_var4(), FLA_Hemm_ru_unb_var7(), FLA_Hemm_ru_unb_var8(), FLA_Trmm_llc_unb_var2(), FLA_Trmm_llh_unb_var2(), FLA_Trmm_luc_unb_var2(), FLA_Trmm_luh_unb_var2(), FLA_Trmm_rlc_unb_var2(), FLA_Trmm_rlh_unb_var2(), FLA_Trmm_ruc_unb_var2(), FLA_Trmm_ruh_unb_var2(), FLA_Trsm_llc_unb_var2(), FLA_Trsm_llh_unb_var2(), FLA_Trsm_luc_unb_var2(), FLA_Trsm_luh_unb_var2(), FLA_Trsm_rlc_unb_var2(), FLA_Trsm_rlh_unb_var2(), FLA_Trsm_ruc_unb_var2(), and FLA_Trsm_ruh_unb_var2().

14 {
15  FLA_Datatype datatype;
16  int m_A, n_A;
17  int rs_A, cs_A;
18  int inc_x;
19  int inc_y;
20  conj1_t blis_conjx;
21  conj1_t blis_conjy;
22 
23  if ( FLA_Check_error_level() == FLA_FULL_ERROR_CHECKING )
24  FLA_Gerc_check( conjx, conjy, alpha, x, y, A );
25 
26  if ( FLA_Obj_has_zero_dim( A ) ) return FLA_SUCCESS;
27 
28  datatype = FLA_Obj_datatype( A );
29 
30  m_A = FLA_Obj_length( A );
31  n_A = FLA_Obj_width( A );
32  rs_A = FLA_Obj_row_stride( A );
33  cs_A = FLA_Obj_col_stride( A );
34 
35  inc_x = FLA_Obj_vector_inc( x );
36  inc_y = FLA_Obj_vector_inc( y );
37 
38  FLA_Param_map_flame_to_blis_conj( conjx, &blis_conjx );
39  FLA_Param_map_flame_to_blis_conj( conjy, &blis_conjy );
40 
41 
42  switch( datatype ){
43 
44  case FLA_FLOAT:
45  {
46  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
47  float *buff_x = ( float * ) FLA_FLOAT_PTR( x );
48  float *buff_y = ( float * ) FLA_FLOAT_PTR( y );
49  float *buff_alpha = ( float * ) FLA_FLOAT_PTR( alpha );
50 
51  bl1_sger( blis_conjx,
52  blis_conjy,
53  m_A,
54  n_A,
55  buff_alpha,
56  buff_x, inc_x,
57  buff_y, inc_y,
58  buff_A, rs_A, cs_A );
59 
60  break;
61  }
62 
63  case FLA_DOUBLE:
64  {
65  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
66  double *buff_x = ( double * ) FLA_DOUBLE_PTR( x );
67  double *buff_y = ( double * ) FLA_DOUBLE_PTR( y );
68  double *buff_alpha = ( double * ) FLA_DOUBLE_PTR( alpha );
69 
70  bl1_dger( blis_conjx,
71  blis_conjy,
72  m_A,
73  n_A,
74  buff_alpha,
75  buff_x, inc_x,
76  buff_y, inc_y,
77  buff_A, rs_A, cs_A );
78 
79  break;
80  }
81 
82  case FLA_COMPLEX:
83  {
84  scomplex *buff_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
85  scomplex *buff_x = ( scomplex * ) FLA_COMPLEX_PTR( x );
86  scomplex *buff_y = ( scomplex * ) FLA_COMPLEX_PTR( y );
87  scomplex *buff_alpha = ( scomplex * ) FLA_COMPLEX_PTR( alpha );
88 
89  bl1_cger( blis_conjx,
90  blis_conjy,
91  m_A,
92  n_A,
93  buff_alpha,
94  buff_x, inc_x,
95  buff_y, inc_y,
96  buff_A, rs_A, cs_A );
97 
98  break;
99  }
100 
101  case FLA_DOUBLE_COMPLEX:
102  {
103  dcomplex *buff_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
104  dcomplex *buff_x = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( x );
105  dcomplex *buff_y = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( y );
106  dcomplex *buff_alpha = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( alpha );
107 
108  bl1_zger( blis_conjx,
109  blis_conjy,
110  m_A,
111  n_A,
112  buff_alpha,
113  buff_x, inc_x,
114  buff_y, inc_y,
115  buff_A, rs_A, cs_A );
116 
117  break;
118  }
119 
120  }
121 
122  return FLA_SUCCESS;
123 }
FLA_Error FLA_Gerc_check(FLA_Conj conjx, FLA_Conj conjy, FLA_Obj alpha, FLA_Obj x, FLA_Obj y, FLA_Obj A)
Definition: FLA_Gerc_check.c:13
void bl1_zger(conj1_t conjx, conj1_t conjy, int m, int n, dcomplex *alpha, dcomplex *x, int incx, dcomplex *y, int incy, dcomplex *a, int a_rs, int a_cs)
Definition: bl1_ger.c:194
conj1_t
Definition: blis_type_defs.h:79
dim_t FLA_Obj_row_stride(FLA_Obj obj)
Definition: FLA_Query.c:167
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
void bl1_dger(conj1_t conjx, conj1_t conjy, int m, int n, double *alpha, double *x, int incx, double *y, int incy, double *a, int a_rs, int a_cs)
Definition: bl1_ger.c:62
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
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_sger(conj1_t conjx, conj1_t conjy, int m, int n, float *alpha, float *x, int incx, float *y, int incy, float *a, int a_rs, int a_cs)
Definition: bl1_ger.c:13
dim_t FLA_Obj_col_stride(FLA_Obj obj)
Definition: FLA_Query.c:174
void bl1_cger(conj1_t conjx, conj1_t conjy, int m, int n, scomplex *alpha, scomplex *x, int incx, scomplex *y, int incy, scomplex *a, int a_rs, int a_cs)
Definition: bl1_ger.c:111
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
Definition: blis_type_defs.h:137