libflame  revision_anchor
Functions
bl1_shiftdiag.c File Reference

(r)

Functions

void bl1_sshiftdiag (conj1_t conj, int offset, int m, int n, float *sigma, float *a, int a_rs, int a_cs)
 
void bl1_dshiftdiag (conj1_t conj, int offset, int m, int n, double *sigma, double *a, int a_rs, int a_cs)
 
void bl1_csshiftdiag (conj1_t conj, int offset, int m, int n, float *sigma, scomplex *a, int a_rs, int a_cs)
 
void bl1_zdshiftdiag (conj1_t conj, int offset, int m, int n, double *sigma, dcomplex *a, int a_rs, int a_cs)
 
void bl1_cshiftdiag (conj1_t conj, int offset, int m, int n, scomplex *sigma, scomplex *a, int a_rs, int a_cs)
 
void bl1_zshiftdiag (conj1_t conj, int offset, int m, int n, dcomplex *sigma, dcomplex *a, int a_rs, int a_cs)
 

Function Documentation

◆ bl1_cshiftdiag()

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

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

Referenced by FLA_Lyap_h_opc_var1(), FLA_Lyap_h_opc_var2(), FLA_Lyap_h_opc_var3(), FLA_Lyap_h_opc_var4(), FLA_Lyap_n_opc_var1(), FLA_Lyap_n_opc_var2(), FLA_Lyap_n_opc_var3(), FLA_Lyap_n_opc_var4(), and FLA_Shift_diag().

◆ bl1_csshiftdiag()

void bl1_csshiftdiag ( conj1_t  conj,
int  offset,
int  m,
int  n,
float *  sigma,
scomplex a,
int  a_rs,
int  a_cs 
)
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 
71  ++i;
72  ++j;
73  }
74 }

References i, and scomplex::real.

Referenced by FLA_Shift_diag().

◆ bl1_dshiftdiag()

void bl1_dshiftdiag ( conj1_t  conj,
int  offset,
int  m,
int  n,
double *  sigma,
double *  a,
int  a_rs,
int  a_cs 
)
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 }

References i.

Referenced by FLA_Lyap_h_opd_var1(), FLA_Lyap_h_opd_var2(), FLA_Lyap_h_opd_var3(), FLA_Lyap_h_opd_var4(), FLA_Lyap_n_opd_var1(), FLA_Lyap_n_opd_var2(), FLA_Lyap_n_opd_var3(), FLA_Lyap_n_opd_var4(), and FLA_Shift_diag().

◆ bl1_sshiftdiag()

void bl1_sshiftdiag ( conj1_t  conj,
int  offset,
int  m,
int  n,
float *  sigma,
float *  a,
int  a_rs,
int  a_cs 
)
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 }

References i.

Referenced by FLA_Lyap_h_ops_var1(), FLA_Lyap_h_ops_var2(), FLA_Lyap_h_ops_var3(), FLA_Lyap_h_ops_var4(), FLA_Lyap_n_ops_var1(), FLA_Lyap_n_ops_var2(), FLA_Lyap_n_ops_var3(), FLA_Lyap_n_ops_var4(), and FLA_Shift_diag().

◆ bl1_zdshiftdiag()

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

References i, and dcomplex::real.

Referenced by FLA_Shift_diag().

◆ bl1_zshiftdiag()

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

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

Referenced by FLA_Lyap_h_opz_var1(), FLA_Lyap_h_opz_var2(), FLA_Lyap_h_opz_var3(), FLA_Lyap_h_opz_var4(), FLA_Lyap_n_opz_var1(), FLA_Lyap_n_opz_var2(), FLA_Lyap_n_opz_var3(), FLA_Lyap_n_opz_var4(), and FLA_Shift_diag().