libflame  revision_anchor
Functions
bl1_scalediag.c File Reference

(r)

Functions

void bl1_sscalediag (conj1_t conj, int offset, int m, int n, float *sigma, float *a, int a_rs, int a_cs)
 
void bl1_dscalediag (conj1_t conj, int offset, int m, int n, double *sigma, double *a, int a_rs, int a_cs)
 
void bl1_csscalediag (conj1_t conj, int offset, int m, int n, float *sigma, scomplex *a, int a_rs, int a_cs)
 
void bl1_zdscalediag (conj1_t conj, int offset, int m, int n, double *sigma, dcomplex *a, int a_rs, int a_cs)
 
void bl1_cscalediag (conj1_t conj, int offset, int m, int n, scomplex *sigma, scomplex *a, int a_rs, int a_cs)
 
void bl1_zscalediag (conj1_t conj, int offset, int m, int n, dcomplex *sigma, dcomplex *a, int a_rs, int a_cs)
 

Function Documentation

◆ bl1_cscalediag()

void bl1_cscalediag ( conj1_t  conj,
int  offset,
int  m,
int  n,
scomplex sigma,
scomplex a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Scale_diag(), and FLA_UDdate_UT_opc_var1().

100 {
101  scomplex* alpha;
102  scomplex sigma_conj;
103  int i, j;
104 
105  bl1_ccopys( conj, sigma, &sigma_conj );
106 
107  i = j = 0;
108 
109  if ( offset < 0 ) i = -offset;
110  else if ( offset > 0 ) j = offset;
111 
112  while ( i < m && j < n )
113  {
114  alpha = a + i*a_rs + j*a_cs;
115 
116  bl1_cscals( &sigma_conj, alpha );
117 
118  ++i;
119  ++j;
120  }
121 }
Definition: blis_type_defs.h:132
int i
Definition: bl1_axmyv2.c:145

◆ bl1_csscalediag()

void bl1_csscalediag ( conj1_t  conj,
int  offset,
int  m,
int  n,
float *  sigma,
scomplex a,
int  a_rs,
int  a_cs 
)

References i, scomplex::imag, and scomplex::real.

Referenced by FLA_Scale_diag().

56 {
57  scomplex* alpha;
58  int i, j;
59 
60  i = j = 0;
61 
62  if ( offset < 0 ) i = -offset;
63  else if ( offset > 0 ) j = offset;
64 
65  while ( i < m && j < n )
66  {
67  alpha = a + i*a_rs + j*a_cs;
68 
69  alpha->real *= *sigma;
70  alpha->imag *= *sigma;
71 
72  ++i;
73  ++j;
74  }
75 }
float real
Definition: blis_type_defs.h:134
Definition: blis_type_defs.h:132
int i
Definition: bl1_axmyv2.c:145
float imag
Definition: blis_type_defs.h:134

◆ bl1_dscalediag()

void bl1_dscalediag ( conj1_t  conj,
int  offset,
int  m,
int  n,
double *  sigma,
double *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Scale_diag(), and FLA_UDdate_UT_opd_var1().

35 {
36  double* alpha;
37  int i, j;
38 
39  i = j = 0;
40 
41  if ( offset < 0 ) i = -offset;
42  else if ( offset > 0 ) j = offset;
43 
44  while ( i < m && j < n )
45  {
46  alpha = a + i*a_rs + j*a_cs;
47 
48  *alpha *= *sigma;
49 
50  ++i;
51  ++j;
52  }
53 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_sscalediag()

void bl1_sscalediag ( conj1_t  conj,
int  offset,
int  m,
int  n,
float *  sigma,
float *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Scale_diag(), and FLA_UDdate_UT_ops_var1().

14 {
15  float* alpha;
16  int i, j;
17 
18  i = j = 0;
19 
20  if ( offset < 0 ) i = -offset;
21  else if ( offset > 0 ) j = offset;
22 
23  while ( i < m && j < n )
24  {
25  alpha = a + i*a_rs + j*a_cs;
26 
27  *alpha *= *sigma;
28 
29  ++i;
30  ++j;
31  }
32 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_zdscalediag()

void bl1_zdscalediag ( conj1_t  conj,
int  offset,
int  m,
int  n,
double *  sigma,
dcomplex a,
int  a_rs,
int  a_cs 
)

References i, dcomplex::imag, and dcomplex::real.

Referenced by FLA_Scale_diag().

78 {
79  dcomplex* alpha;
80  int i, j;
81 
82  i = j = 0;
83 
84  if ( offset < 0 ) i = -offset;
85  else if ( offset > 0 ) j = offset;
86 
87  while ( i < m && j < n )
88  {
89  alpha = a + i*a_rs + j*a_cs;
90 
91  alpha->real *= *sigma;
92  alpha->imag *= *sigma;
93 
94  ++i;
95  ++j;
96  }
97 }
double imag
Definition: blis_type_defs.h:139
double real
Definition: blis_type_defs.h:139
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:137

◆ bl1_zscalediag()

void bl1_zscalediag ( conj1_t  conj,
int  offset,
int  m,
int  n,
dcomplex sigma,
dcomplex a,
int  a_rs,
int  a_cs 
)

References bl1_zscals(), and i.

Referenced by FLA_Scale_diag(), and FLA_UDdate_UT_opz_var1().

124 {
125  dcomplex* alpha;
126  dcomplex sigma_conj;
127  int i, j;
128 
129  bl1_zcopys( conj, sigma, &sigma_conj );
130 
131  i = j = 0;
132 
133  if ( offset < 0 ) i = -offset;
134  else if ( offset > 0 ) j = offset;
135 
136  while ( i < m && j < n )
137  {
138  alpha = a + i*a_rs + j*a_cs;
139 
140  bl1_zscals( &sigma_conj, alpha );
141 
142  ++i;
143  ++j;
144  }
145 }
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:137
bl1_zscals(beta, rho_yz)