libflame  revision_anchor
Functions
FLA_Norm_frob.c File Reference

(r)

Functions

FLA_Error FLA_Norm_frob (FLA_Obj A, FLA_Obj norm)
 

Function Documentation

◆ FLA_Norm_frob()

FLA_Error FLA_Norm_frob ( FLA_Obj  A,
FLA_Obj  norm 
)
14 {
15  FLA_Datatype datatype;
16  int m_A, n_A;
17  int rs_A, cs_A;
18 
19  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
20  FLA_Norm_frob_check( A, norm );
21 
22  datatype = FLA_Obj_datatype( A );
23 
24  m_A = FLA_Obj_length( A );
25  n_A = FLA_Obj_width( A );
26  rs_A = FLA_Obj_row_stride( A );
27  cs_A = FLA_Obj_col_stride( A );
28 
29 
30  switch ( datatype ){
31 
32  case FLA_FLOAT:
33  {
34  float *buff_A = ( float * ) FLA_FLOAT_PTR( A );
35  float *buff_norm = ( float * ) FLA_FLOAT_PTR( norm );
36 
37  bl1_sfnorm( m_A,
38  n_A,
39  buff_A, rs_A, cs_A,
40  buff_norm );
41 
42  break;
43  }
44 
45  case FLA_DOUBLE:
46  {
47  double *buff_A = ( double * ) FLA_DOUBLE_PTR( A );
48  double *buff_norm = ( double * ) FLA_DOUBLE_PTR( norm );
49 
50  bl1_dfnorm( m_A,
51  n_A,
52  buff_A, rs_A, cs_A,
53  buff_norm );
54 
55  break;
56  }
57 
58  case FLA_COMPLEX:
59  {
60  scomplex *buff_A = ( scomplex * ) FLA_COMPLEX_PTR( A );
61  float *buff_norm = ( float * ) FLA_FLOAT_PTR( norm );
62 
63  bl1_cfnorm( m_A,
64  n_A,
65  buff_A, rs_A, cs_A,
66  buff_norm );
67 
68  break;
69  }
70 
71  case FLA_DOUBLE_COMPLEX:
72  {
73  dcomplex *buff_A = ( dcomplex * ) FLA_DOUBLE_COMPLEX_PTR( A );
74  double *buff_norm = ( double * ) FLA_DOUBLE_PTR( norm );
75 
76  bl1_zfnorm( m_A,
77  n_A,
78  buff_A, rs_A, cs_A,
79  buff_norm );
80 
81  break;
82  }
83 
84  }
85 
86  return FLA_SUCCESS;
87 }
FLA_Error FLA_Norm_frob_check(FLA_Obj A, FLA_Obj norm)
Definition: FLA_Norm_frob_check.c:13
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
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
FLA_Datatype FLA_Obj_datatype(FLA_Obj obj)
Definition: FLA_Query.c:13
int FLA_Datatype
Definition: FLA_type_defs.h:49
void bl1_cfnorm(int m, int n, scomplex *a, int a_rs, int a_cs, float *norm)
Definition: bl1_fnorm.c:121
void bl1_dfnorm(int m, int n, double *a, int a_rs, int a_cs, double *norm)
Definition: bl1_fnorm.c:67
void bl1_sfnorm(int m, int n, float *a, int a_rs, int a_cs, float *norm)
Definition: bl1_fnorm.c:13
void bl1_zfnorm(int m, int n, dcomplex *a, int a_rs, int a_cs, double *norm)
Definition: bl1_fnorm.c:175
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133

References bl1_cfnorm(), bl1_dfnorm(), bl1_sfnorm(), bl1_zfnorm(), FLA_Check_error_level(), FLA_Norm_frob_check(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_length(), FLA_Obj_row_stride(), and FLA_Obj_width().