FLA_Herc_external.c File Reference
(r)
Functions | |
| FLA_Error | FLA_Herc_external (FLA_Uplo uplo, FLA_Conj conj, FLA_Obj alpha, FLA_Obj x, FLA_Obj A) |
Function Documentation
◆ FLA_Herc_external()
14{
15 FLA_Datatype datatype;
16 int m_A;
17 int rs_A, cs_A;
18 int inc_x;
19 uplo1_t blis_uplo;
20 conj1_t blis_conj;
21
23 FLA_Herc_check( uplo, conj, alpha, x, A );
24
26
27 datatype = FLA_Obj_datatype( A );
28
29 m_A = FLA_Obj_length( A );
30 rs_A = FLA_Obj_row_stride( A );
31 cs_A = FLA_Obj_col_stride( A );
32
33 inc_x = FLA_Obj_vector_inc( x );
34
35 FLA_Param_map_flame_to_blis_uplo( uplo, &blis_uplo );
36 FLA_Param_map_flame_to_blis_conj( conj, &blis_conj );
37
38
39 switch( datatype ){
40
41 case FLA_FLOAT:
42 {
43 float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
44 float *buff_x = ( float * ) FLA_FLOAT_PTR( x );
45 float *buff_alpha = ( float * ) FLA_FLOAT_PTR( alpha );
46
47 bl1_ssyr( blis_uplo,
48 m_A,
49 buff_alpha,
50 buff_x, inc_x,
51 buff_A, rs_A, cs_A );
52 break;
53 }
54
55 case FLA_DOUBLE:
56 {
57 double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
58 double *buff_x = ( double * ) FLA_DOUBLE_PTR( x );
59 double *buff_alpha = ( double * ) FLA_DOUBLE_PTR( alpha );
60
61 bl1_dsyr( blis_uplo,
62 m_A,
63 buff_alpha,
64 buff_x, inc_x,
65 buff_A, rs_A, cs_A );
66 break;
67 }
68
69 case FLA_COMPLEX:
70 {
73 float *buff_alpha = ( float * ) FLA_FLOAT_PTR( alpha );
74
75 bl1_cher( blis_uplo,
76 blis_conj,
77 m_A,
78 buff_alpha,
79 buff_x, inc_x,
80 buff_A, rs_A, cs_A );
81
82 break;
83 }
84
85 case FLA_DOUBLE_COMPLEX:
86 {
89 double *buff_alpha = ( double * ) FLA_DOUBLE_PTR( alpha );
90
91 bl1_zher( blis_uplo,
92 blis_conj,
93 m_A,
94 buff_alpha,
95 buff_x, inc_x,
96 buff_A, rs_A, cs_A );
97
98 break;
99 }
100
101 }
102
103 return FLA_SUCCESS;
104}
FLA_Error FLA_Herc_check(FLA_Uplo uplo, FLA_Conj conj, FLA_Obj alpha, FLA_Obj x, FLA_Obj A)
Definition FLA_Herc_check.c:13
void FLA_Param_map_flame_to_blis_conj(FLA_Conj conj, conj1_t *blis_conj)
Definition FLA_Param.c:269
void FLA_Param_map_flame_to_blis_uplo(FLA_Uplo uplo, uplo1_t *blis_uplo)
Definition FLA_Param.c:285
void bl1_cher(uplo1_t uplo, conj1_t conj, int m, float *alpha, scomplex *x, int incx, scomplex *a, int a_rs, int a_cs)
Definition bl1_her.c:31
void bl1_zher(uplo1_t uplo, conj1_t conj, int m, double *alpha, dcomplex *x, int incx, dcomplex *a, int a_rs, int a_cs)
Definition bl1_her.c:101
void bl1_ssyr(uplo1_t uplo, int m, float *alpha, float *x, int incx, float *a, int a_rs, int a_cs)
Definition bl1_syr.c:13
void bl1_dsyr(uplo1_t uplo, int m, double *alpha, double *x, int incx, double *a, int a_rs, int a_cs)
Definition bl1_syr.c:57
Definition blis_type_defs.h:138
Definition blis_type_defs.h:133
References bl1_cher(), bl1_dsyr(), bl1_ssyr(), bl1_zher(), FLA_Check_error_level(), FLA_Herc_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_Param_map_flame_to_blis_conj(), and FLA_Param_map_flame_to_blis_uplo().
Referenced by FLA_Chol_u_unb_var3(), FLA_Herc(), FLA_Herk_lh_unb_var5(), FLA_Herk_lh_unb_var6(), FLA_Herk_uh_unb_var5(), FLA_Herk_uh_unb_var6(), and FLA_Ttmm_l_unb_var1().
Generated on Thu Sep 23 2021 17:46:17 for libflame by
1.12.0