libflame  revision_anchor
Functions
bl1_ident.c File Reference

(r)

Functions

void bl1_sident (int m, float *a, int a_rs, int a_cs)
 
void bl1_dident (int m, double *a, int a_rs, int a_cs)
 
void bl1_cident (int m, scomplex *a, int a_rs, int a_cs)
 
void bl1_zident (int m, dcomplex *a, int a_rs, int a_cs)
 

Function Documentation

◆ bl1_cident()

void bl1_cident ( int  m,
scomplex a,
int  a_rs,
int  a_cs 
)

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

Referenced by FLA_UDdate_UT_opc_var1().

52 {
53  scomplex* alpha;
54  int i, j;
55 
56  for ( j = 0; j < m; ++j )
57  {
58  for ( i = 0; i < m; ++i )
59  {
60  alpha = a + i*a_rs + j*a_cs;
61 
62  alpha->real = 0.0F;
63  alpha->imag = 0.0F;
64 
65  if ( i == j )
66  alpha->real = 1.0F;
67  }
68  }
69 }
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_dident()

void bl1_dident ( int  m,
double *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Bsvd_v_opd_var2(), FLA_Bsvd_v_opz_var2(), FLA_Tevd_v_opd_var2(), FLA_Tevd_v_opz_var2(), and FLA_UDdate_UT_opd_var1().

33 {
34  double* alpha;
35  int i, j;
36 
37  for ( j = 0; j < m; ++j )
38  {
39  for ( i = 0; i < m; ++i )
40  {
41  alpha = a + i*a_rs + j*a_cs;
42 
43  *alpha = 0.0;
44 
45  if ( i == j )
46  *alpha = 1.0;
47  }
48  }
49 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_sident()

void bl1_sident ( int  m,
float *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_UDdate_UT_ops_var1().

14 {
15  float* alpha;
16  int i, j;
17 
18  for ( j = 0; j < m; ++j )
19  {
20  for ( i = 0; i < m; ++i )
21  {
22  alpha = a + i*a_rs + j*a_cs;
23 
24  *alpha = 0.0F;
25 
26  if ( i == j )
27  *alpha = 1.0F;
28  }
29  }
30 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_zident()

void bl1_zident ( int  m,
dcomplex a,
int  a_rs,
int  a_cs 
)

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

Referenced by FLA_UDdate_UT_opz_var1().

72 {
73  dcomplex* alpha;
74  int i, j;
75 
76  for ( j = 0; j < m; ++j )
77  {
78  for ( i = 0; i < m; ++i )
79  {
80  alpha = a + i*a_rs + j*a_cs;
81 
82  alpha->real = 0.0;
83  alpha->imag = 0.0;
84 
85  if ( i == j )
86  alpha->real = 1.0;
87  }
88  }
89 }
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