libflame  revision_anchor
Functions
FLA_Conjugate_r.c File Reference

(r)

Functions

FLA_Error FLA_Conjugate_r (FLA_Uplo uplo, FLA_Obj A)
 

Function Documentation

◆ FLA_Conjugate_r()

FLA_Error FLA_Conjugate_r ( FLA_Uplo  uplo,
FLA_Obj  A 
)
14 {
15  FLA_Datatype datatype;
16  int m_A, n_A;
17  int rs_A, cs_A;
18  uplo1_t blis_uplo;
19 
20  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
21  FLA_Conjugate_r_check( uplo, A );
22 
23  if ( FLA_Obj_is_real( A ) ) return FLA_SUCCESS;
24 
25  datatype = FLA_Obj_datatype( A );
26 
27  m_A = FLA_Obj_length( A );
28  n_A = FLA_Obj_width( A );
29  rs_A = FLA_Obj_row_stride( A );
30  cs_A = FLA_Obj_col_stride( A );
31 
32  FLA_Param_map_flame_to_blis_uplo( uplo, &blis_uplo );
33 
34  switch ( datatype ){
35 
36  case FLA_COMPLEX:
37  {
38  scomplex *buff_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
39 
40  bl1_cconjmr( blis_uplo,
41  m_A,
42  n_A,
43  buff_A, rs_A, cs_A );
44 
45  break;
46  }
47 
48  case FLA_DOUBLE_COMPLEX:
49  {
50  dcomplex *buff_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
51 
52  bl1_zconjmr( blis_uplo,
53  m_A,
54  n_A,
55  buff_A, rs_A, cs_A );
56 
57  break;
58  }
59 
60  }
61 
62  return FLA_SUCCESS;
63 }
FLA_Error FLA_Conjugate_r_check(FLA_Uplo uplo, FLA_Obj A)
Definition: FLA_Conjugate_r_check.c:13
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
FLA_Bool FLA_Obj_is_real(FLA_Obj A)
Definition: FLA_Query.c:307
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_cconjmr(uplo1_t uplo, int m, int n, scomplex *a, int a_rs, int a_cs)
Definition: bl1_conjmr.c:23
void bl1_zconjmr(uplo1_t uplo, int m, int n, dcomplex *a, int a_rs, int a_cs)
Definition: bl1_conjmr.c:79
uplo1_t
Definition: blis_type_defs.h:61
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133

References bl1_cconjmr(), bl1_zconjmr(), FLA_Check_error_level(), FLA_Conjugate_r_check(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_is_real(), FLA_Obj_length(), FLA_Obj_row_stride(), FLA_Obj_width(), and FLA_Param_map_flame_to_blis_uplo().

Referenced by FLA_Bidiag_UT_internal().