libflame  revision_anchor
Functions
bl1_setm.c File Reference

(r)

Functions

void bl1_isetm (int m, int n, int *sigma, int *a, int a_rs, int a_cs)
 
void bl1_ssetm (int m, int n, float *sigma, float *a, int a_rs, int a_cs)
 
void bl1_dsetm (int m, int n, double *sigma, double *a, int a_rs, int a_cs)
 
void bl1_csetm (int m, int n, scomplex *sigma, scomplex *a, int a_rs, int a_cs)
 
void bl1_zsetm (int m, int n, dcomplex *sigma, dcomplex *a, int a_rs, int a_cs)
 

Function Documentation

◆ bl1_csetm()

void bl1_csetm ( int  m,
int  n,
scomplex sigma,
scomplex a,
int  a_rs,
int  a_cs 
)

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

Referenced by FLA_Bidiag_UT_u_step_ofc_var4(), FLA_Bidiag_UT_u_step_opc_var4(), FLA_Bidiag_UT_u_step_opc_var5(), FLA_Bsvd_ext_opc_var1(), FLA_Bsvd_ext_ops_var1(), FLA_Bsvd_v_opc_var1(), FLA_Bsvd_v_ops_var1(), FLA_Hess_UT_step_ofc_var4(), FLA_Hess_UT_step_opc_var4(), FLA_Hess_UT_step_opc_var5(), FLA_Set(), FLA_Tridiag_UT_l_step_ofc_var3(), and FLA_Tridiag_UT_l_step_opc_var3().

62 {
63  scomplex* alpha;
64  int i, j;
65 
66  for ( j = 0; j < n; ++j )
67  {
68  for ( i = 0; i < m; ++i )
69  {
70  alpha = a + i*a_rs + j*a_cs;
71 
72  alpha->real = sigma->real;
73  alpha->imag = sigma->imag;
74  }
75  }
76 }
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_dsetm()

void bl1_dsetm ( int  m,
int  n,
double *  sigma,
double *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Bidiag_UT_u_step_ofd_var4(), FLA_Bidiag_UT_u_step_opd_var4(), FLA_Bidiag_UT_u_step_opd_var5(), FLA_Hess_UT_step_ofd_var4(), FLA_Hess_UT_step_opd_var4(), FLA_Hess_UT_step_opd_var5(), FLA_Set(), FLA_Tridiag_UT_l_step_ofd_var3(), and FLA_Tridiag_UT_l_step_opd_var3().

46 {
47  double* alpha;
48  int i, j;
49 
50  for ( j = 0; j < n; ++j )
51  {
52  for ( i = 0; i < m; ++i )
53  {
54  alpha = a + i*a_rs + j*a_cs;
55 
56  *alpha = *sigma;
57  }
58  }
59 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_isetm()

void bl1_isetm ( int  m,
int  n,
int *  sigma,
int *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Set().

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

◆ bl1_ssetm()

void bl1_ssetm ( int  m,
int  n,
float *  sigma,
float *  a,
int  a_rs,
int  a_cs 
)

References i.

Referenced by FLA_Bidiag_UT_u_step_ofs_var4(), FLA_Bidiag_UT_u_step_ops_var4(), FLA_Bidiag_UT_u_step_ops_var5(), FLA_Hess_UT_step_ofs_var4(), FLA_Hess_UT_step_ops_var4(), FLA_Hess_UT_step_ops_var5(), FLA_Set(), FLA_Tridiag_UT_l_step_ofs_var3(), and FLA_Tridiag_UT_l_step_ops_var3().

30 {
31  float* alpha;
32  int i, j;
33 
34  for ( j = 0; j < n; ++j )
35  {
36  for ( i = 0; i < m; ++i )
37  {
38  alpha = a + i*a_rs + j*a_cs;
39 
40  *alpha = *sigma;
41  }
42  }
43 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_zsetm()

void bl1_zsetm ( int  m,
int  n,
dcomplex sigma,
dcomplex a,
int  a_rs,
int  a_cs 
)

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

Referenced by FLA_Bidiag_UT_u_step_ofz_var4(), FLA_Bidiag_UT_u_step_opz_var4(), FLA_Bidiag_UT_u_step_opz_var5(), FLA_Bsvd_ext_opd_var1(), FLA_Bsvd_ext_opz_var1(), FLA_Bsvd_v_opd_var1(), FLA_Bsvd_v_opd_var2(), FLA_Bsvd_v_opz_var1(), FLA_Bsvd_v_opz_var2(), FLA_Hess_UT_step_ofz_var4(), FLA_Hess_UT_step_opz_var4(), FLA_Hess_UT_step_opz_var5(), FLA_Set(), FLA_Tevd_n_opz_var1(), FLA_Tevd_v_opd_var1(), FLA_Tevd_v_opd_var2(), FLA_Tevd_v_opz_var1(), FLA_Tevd_v_opz_var2(), FLA_Tridiag_UT_l_step_ofz_var3(), and FLA_Tridiag_UT_l_step_opz_var3().

79 {
80  dcomplex* alpha;
81  int i, j;
82 
83  for ( j = 0; j < n; ++j )
84  {
85  for ( i = 0; i < m; ++i )
86  {
87  alpha = a + i*a_rs + j*a_cs;
88 
89  alpha->real = sigma->real;
90  alpha->imag = sigma->imag;
91  }
92  }
93 }
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