libflame  revision_anchor
Functions
bl1_setdiag.c File Reference

(r)

Functions

void bl1_isetdiag (int offset, int m, int n, int *sigma, int *a, int a_rs, int a_cs)
 
void bl1_ssetdiag (int offset, int m, int n, float *sigma, float *a, int a_rs, int a_cs)
 
void bl1_dsetdiag (int offset, int m, int n, double *sigma, double *a, int a_rs, int a_cs)
 
void bl1_csetdiag (int offset, int m, int n, scomplex *sigma, scomplex *a, int a_rs, int a_cs)
 
void bl1_zsetdiag (int offset, int m, int n, dcomplex *sigma, dcomplex *a, int a_rs, int a_cs)
 

Function Documentation

◆ bl1_csetdiag()

void bl1_csetdiag ( int  offset,
int  m,
int  n,
scomplex sigma,
scomplex a,
int  a_rs,
int  a_cs 
)
77 {
78  scomplex* 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->real;
91  alpha->imag = sigma->imag;
92 
93  ++i;
94  ++j;
95  }
96 }
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_Set_diag(), FLA_Set_offdiag(), and FLA_Triangularize().

◆ bl1_dsetdiag()

void bl1_dsetdiag ( int  offset,
int  m,
int  n,
double *  sigma,
double *  a,
int  a_rs,
int  a_cs 
)
56 {
57  double* 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 = *sigma;
70 
71  ++i;
72  ++j;
73  }
74 }

References i.

Referenced by FLA_Set_diag(), FLA_Set_offdiag(), and FLA_Triangularize().

◆ bl1_isetdiag()

void bl1_isetdiag ( int  offset,
int  m,
int  n,
int *  sigma,
int *  a,
int  a_rs,
int  a_cs 
)
14 {
15  int* 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_Set_diag(), and FLA_Set_offdiag().

◆ bl1_ssetdiag()

void bl1_ssetdiag ( int  offset,
int  m,
int  n,
float *  sigma,
float *  a,
int  a_rs,
int  a_cs 
)
35 {
36  float* 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_Set_diag(), FLA_Set_offdiag(), and FLA_Triangularize().

◆ bl1_zsetdiag()

void bl1_zsetdiag ( int  offset,
int  m,
int  n,
dcomplex sigma,
dcomplex a,
int  a_rs,
int  a_cs 
)
99 {
100  dcomplex* alpha;
101  int i, j;
102 
103  i = j = 0;
104 
105  if ( offset < 0 ) i = -offset;
106  else if ( offset > 0 ) j = offset;
107 
108  while ( i < m && j < n )
109  {
110  alpha = a + i*a_rs + j*a_cs;
111 
112  alpha->real = sigma->real;
113  alpha->imag = sigma->imag;
114 
115  ++i;
116  ++j;
117  }
118 }
Definition: blis_type_defs.h:138
double real
Definition: blis_type_defs.h:139
double imag
Definition: blis_type_defs.h:139

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

Referenced by FLA_Set_diag(), FLA_Set_offdiag(), and FLA_Triangularize().