libflame  revision_anchor
FLA_util_lapack_prototypes.h
Go to the documentation of this file.
1 /*
2 
3  Copyright (C) 2014, The University of Texas at Austin
4 
5  This file is part of libflame and is available under the 3-Clause
6  BSD license, which can be found in the LICENSE file at the top-level
7  directory, or at http://opensource.org/licenses/BSD-3-Clause
8 
9 */
10 
11 // --- LAPACK-related utility prototypes ---------------------------------------
12 
13 FLA_Error FLA_Househ2_UT( FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj tau );
15  float* chi_1,
16  float* x2, int inc_x2,
17  float* tau );
19  double* chi_1,
20  double* x2, int inc_x2,
21  double* tau );
23  scomplex* chi_1,
24  scomplex* x2, int inc_x2,
25  scomplex* tau );
27  dcomplex* chi_1,
28  dcomplex* x2, int inc_x2,
29  dcomplex* tau );
31  float* chi_1,
32  float* x2, int inc_x2,
33  float* tau );
35  double* chi_1,
36  double* x2, int inc_x2,
37  double* tau );
39  scomplex* chi_1,
40  scomplex* x2, int inc_x2,
41  scomplex* tau );
43  dcomplex* chi_1,
44  dcomplex* x2, int inc_x2,
45  dcomplex* tau );
46 
49  int m_y2,
50  float* chi_1,
51  float* x2, int inc_x2,
52  float* y2, int inc_y2,
53  float* tau );
55  int m_y2,
56  double* chi_1,
57  double* x2, int inc_x2,
58  double* y2, int inc_y2,
59  double* tau );
61  int m_y2,
62  scomplex* chi_1,
63  scomplex* x2, int inc_x2,
64  scomplex* y2, int inc_y2,
65  scomplex* tau );
67  int m_y2,
68  dcomplex* chi_1,
69  dcomplex* x2, int inc_x2,
70  dcomplex* y2, int inc_y2,
71  dcomplex* tau );
72 
73 FLA_Error FLA_Househ2s_UT( FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj alpha, FLA_Obj chi_1_minus_alpha, FLA_Obj tau );
75  float* chi_1,
76  float* x2, int inc_x2,
77  float* alpha,
78  float* chi_1_minus_alpha,
79  float* tau );
81  double* chi_1,
82  double* x2, int inc_x2,
83  double* alpha,
84  double* chi_1_minus_alpha,
85  double* tau );
87  scomplex* chi_1,
88  scomplex* x2, int inc_x2,
89  scomplex* alpha,
90  scomplex* chi_1_minus_alpha,
91  scomplex* tau );
93  dcomplex* chi_1,
94  dcomplex* x2, int inc_x2,
95  dcomplex* alpha,
96  dcomplex* chi_1_minus_alpha,
97  dcomplex* tau );
99  float* chi_1,
100  float* x2, int inc_x2,
101  float* alpha,
102  float* chi_1_minus_alpha,
103  float* tau );
105  double* chi_1,
106  double* x2, int inc_x2,
107  double* alpha,
108  double* chi_1_minus_alpha,
109  double* tau );
111  scomplex* chi_1,
112  scomplex* x2, int inc_x2,
113  scomplex* alpha,
114  scomplex* chi_1_minus_alpha,
115  scomplex* tau );
117  dcomplex* chi_1,
118  dcomplex* x2, int inc_x2,
119  dcomplex* alpha,
120  dcomplex* chi_1_minus_alpha,
121  dcomplex* tau );
122 
123 FLA_Error FLA_Hev_2x2( FLA_Obj alpha11, FLA_Obj alpha21, FLA_Obj alpha22,
124  FLA_Obj lambda1, FLA_Obj lambda2 );
125 FLA_Error FLA_Hev_2x2_ops( float* buff_alpha11,
126  float* buff_alpha21,
127  float* buff_alpha22,
128  float* buff_lambda1,
129  float* buff_lambda2 );
130 FLA_Error FLA_Hev_2x2_opd( double* buff_alpha11,
131  double* buff_alpha21,
132  double* buff_alpha22,
133  double* buff_lambda1,
134  double* buff_lambda2 );
135 
136 FLA_Error FLA_Hevv_2x2( FLA_Obj alpha11, FLA_Obj alpha21, FLA_Obj alpha22,
137  FLA_Obj lambda1, FLA_Obj lambda2,
138  FLA_Obj gamma1, FLA_Obj sigma1 );
139 FLA_Error FLA_Hevv_2x2_ops( float* alpha11,
140  float* alpha21,
141  float* alpha22,
142  float* lambda1,
143  float* lambda2,
144  float* gamma1,
145  float* sigma1 );
146 FLA_Error FLA_Hevv_2x2_opd( double* alpha11,
147  double* alpha21,
148  double* alpha22,
149  double* lambda1,
150  double* lambda2,
151  double* gamma1,
152  double* sigma1 );
154  scomplex* alpha21,
155  scomplex* alpha22,
156  float* lambda1,
157  float* lambda2,
158  float* gamma1,
159  scomplex* sigma1 );
161  dcomplex* alpha21,
162  dcomplex* alpha22,
163  double* lambda1,
164  double* lambda2,
165  double* gamma1,
166  dcomplex* sigma1 );
167 
168 FLA_Error FLA_Wilkshift_tridiag( FLA_Obj delta1, FLA_Obj epsilon, FLA_Obj delta2, FLA_Obj kappa );
170  float epsilon,
171  float delta2,
172  float* kappa );
173 FLA_Error FLA_Wilkshift_tridiag_opd( double delta1,
174  double epsilon,
175  double delta2,
176  double* kappa );
177 
179 FLA_Error FLA_Pythag2_ops( float* chi,
180  float* psi,
181  float* rho );
182 FLA_Error FLA_Pythag2_opd( double* chi,
183  double* psi,
184  double* rho );
185 
187 FLA_Error FLA_Pythag3_ops( float* chi,
188  float* psi,
189  float* zeta,
190  float* rho );
191 FLA_Error FLA_Pythag3_opd( double* chi,
192  double* psi,
193  double* zeta,
194  double* rho );
195 
198  float* l, int inc_l,
199  float* V, int rs_V, int cs_V );
201  float* l, int inc_l,
202  float* V, int rs_V, int cs_V );
204  double* l, int inc_l,
205  double* V, int rs_V, int cs_V );
207  double* l, int inc_l,
208  double* V, int rs_V, int cs_V );
210  float* l, int inc_l,
211  scomplex* V, int rs_V, int cs_V );
213  float* l, int inc_l,
214  scomplex* V, int rs_V, int cs_V );
216  double* l, int inc_l,
217  dcomplex* V, int rs_V, int cs_V );
219  double* l, int inc_l,
220  dcomplex* V, int rs_V, int cs_V );
221 
223  FLA_Bool apply_U, FLA_Obj U,
224  FLA_Bool apply_V, FLA_Obj V,
225  FLA_Bool apply_C, FLA_Obj C );
226 FLA_Error FLA_Sort_bsvd_ext_f_ops( int m_s, float* s, int inc_s,
227  int m_U, float* U, int rs_U, int cs_U,
228  int m_V, float* V, int rs_V, int cs_V,
229  int n_C, float* C, int rs_C, int cs_C );
230 FLA_Error FLA_Sort_bsvd_ext_b_ops( int m_s, float* s, int inc_s,
231  int m_U, float* U, int rs_U, int cs_U,
232  int m_V, float* V, int rs_V, int cs_V,
233  int n_C, float* C, int rs_C, int cs_C );
234 FLA_Error FLA_Sort_bsvd_ext_f_opd( int m_s, double* s, int inc_s,
235  int m_U, double* U, int rs_U, int cs_U,
236  int m_V, double* V, int rs_V, int cs_V,
237  int n_C, double* C, int rs_C, int cs_C );
238 FLA_Error FLA_Sort_bsvd_ext_b_opd( int m_s, double* s, int inc_s,
239  int m_U, double* U, int rs_U, int cs_U,
240  int m_V, double* V, int rs_V, int cs_V,
241  int n_C, double* C, int rs_C, int cs_C );
242 FLA_Error FLA_Sort_bsvd_ext_f_opc( int m_s, float* s, int inc_s,
243  int m_U, scomplex* U, int rs_U, int cs_U,
244  int m_V, scomplex* V, int rs_V, int cs_V,
245  int n_C, scomplex* C, int rs_C, int cs_C );
246 FLA_Error FLA_Sort_bsvd_ext_b_opc( int m_s, float* s, int inc_s,
247  int m_U, scomplex* U, int rs_U, int cs_U,
248  int m_V, scomplex* V, int rs_V, int cs_V,
249  int n_C, scomplex* C, int rs_C, int cs_C );
250 FLA_Error FLA_Sort_bsvd_ext_f_opz( int m_s, double* s, int inc_s,
251  int m_U, dcomplex* U, int rs_U, int cs_U,
252  int m_V, dcomplex* V, int rs_V, int cs_V,
253  int n_C, dcomplex* C, int rs_C, int cs_C );
254 FLA_Error FLA_Sort_bsvd_ext_b_opz( int m_s, double* s, int inc_s,
255  int m_U, dcomplex* U, int rs_U, int cs_U,
256  int m_V, dcomplex* V, int rs_V, int cs_V,
257  int n_C, dcomplex* C, int rs_C, int cs_C );
258 
261  int n_V,
262  float* s, int inc_s,
263  float* U, int rs_U, int cs_U,
264  float* V, int rs_V, int cs_V );
266  int n_V,
267  float* s, int inc_s,
268  float* U, int rs_U, int cs_U,
269  float* V, int rs_V, int cs_V );
271  int n_V,
272  double* s, int inc_s,
273  double* U, int rs_U, int cs_U,
274  double* V, int rs_V, int cs_V );
276  int n_V,
277  double* s, int inc_s,
278  double* U, int rs_U, int cs_U,
279  double* V, int rs_V, int cs_V );
281  int n_V,
282  float* s, int inc_s,
283  scomplex* U, int rs_U, int cs_U,
284  scomplex* V, int rs_V, int cs_V );
286  int n_V,
287  float* s, int inc_s,
288  scomplex* U, int rs_U, int cs_U,
289  scomplex* V, int rs_V, int cs_V );
291  int n_V,
292  double* s, int inc_s,
293  dcomplex* U, int rs_U, int cs_U,
294  dcomplex* V, int rs_V, int cs_V );
296  int n_V,
297  double* s, int inc_s,
298  dcomplex* U, int rs_U, int cs_U,
299  dcomplex* V, int rs_V, int cs_V );
300 
301 FLA_Error FLA_Sv_2x2( FLA_Obj alpha11, FLA_Obj alpha12, FLA_Obj alpha22,
302  FLA_Obj sigma1, FLA_Obj sigma2 );
303 FLA_Error FLA_Sv_2x2_ops( float* alpha11,
304  float* alpha12,
305  float* alpha22,
306  float* sigma1,
307  float* sigma2 );
308 FLA_Error FLA_Sv_2x2_opd( double* alpha11,
309  double* alpha12,
310  double* alpha22,
311  double* sigma1,
312  double* sigma2 );
313 
314 FLA_Error FLA_Svv_2x2( FLA_Obj alpha11, FLA_Obj alpha12, FLA_Obj alpha22,
315  FLA_Obj sigma1, FLA_Obj sigma2,
316  FLA_Obj gammaL, FLA_Obj sigmaL,
317  FLA_Obj gammaR, FLA_Obj sigmaR );
318 FLA_Error FLA_Svv_2x2_ops( float* alpha11,
319  float* alpha12,
320  float* alpha22,
321  float* sigma1,
322  float* sigma2,
323  float* gammaL,
324  float* sigmaL,
325  float* gammaR,
326  float* sigmaR );
327 FLA_Error FLA_Svv_2x2_opd( double* alpha11,
328  double* alpha12,
329  double* alpha22,
330  double* sigma1,
331  double* sigma2,
332  double* gammaL,
333  double* sigmaL,
334  double* gammaR,
335  double* sigmaR );
336 
338 float FLA_Mach_params_ops( FLA_Machval machval );
339 double FLA_Mach_params_opd( FLA_Machval machval );
340 
345 
346 // --- f2c-converted routine prototypes ----------------------------------------
347 
348 doublereal fla_dlamch( char* cmach, ftnlen cmach_len );
349 real fla_slamch( char* cmach, ftnlen cmach_len );
350 logical fla_lsame( char* ca, char* cb, ftnlen ca_len, ftnlen cb_len );
351 double fla_pow_di( doublereal* a, integer* n );
352 real fla_pow_ri( real* a, integer* n );
353 
354 // --- LAPACK-related utility check routine prototypes -------------------------
355 
358 FLA_Error FLA_Househ2s_UT_check( FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj alpha, FLA_Obj chi_1_minus_alpha, FLA_Obj tau );
359 
360 FLA_Error FLA_Givens2_check( FLA_Obj chi_1, FLA_Obj chi_2, FLA_Obj gamma, FLA_Obj sigma, FLA_Obj chi_1_new );
361 FLA_Error FLA_Apply_GTG_check( FLA_Obj gamma, FLA_Obj sigma, FLA_Obj delta1, FLA_Obj epsilon1, FLA_Obj delta2 );
362 FLA_Error FLA_Apply_G_1x2_check( FLA_Obj gamma, FLA_Obj sigma, FLA_Obj beta, FLA_Obj epsilon );
365 FLA_Error FLA_Wilkshift_tridiag_check( FLA_Obj delta1, FLA_Obj epsilon, FLA_Obj delta2, FLA_Obj kappa );
366 FLA_Error FLA_Wilkshift_bidiag_check( FLA_Obj epsilon1, FLA_Obj delta1, FLA_Obj epsilon2, FLA_Obj delta2, FLA_Obj kappa );
367 FLA_Error FLA_Introduce_bulge_check( FLA_Obj shift, FLA_Obj gamma, FLA_Obj sigma, FLA_Obj delta1, FLA_Obj epsilon1, FLA_Obj delta2, FLA_Obj beta, FLA_Obj epsilon2 );
369 
372 
377 
FLA_Error FLA_Househ2_UT_r_ops(int m_x2, float *chi_1, float *x2, int inc_x2, float *tau)
Definition: FLA_Househ2_UT.c:651
FLA_Error FLA_Sv_2x2_opd(double *alpha11, double *alpha12, double *alpha22, double *sigma1, double *sigma2)
Definition: FLA_Sv_2x2.c:166
FLA_Error FLA_Sort_evd_b_ops(int m_A, float *l, int inc_l, float *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:116
FLA_Error FLA_Hevv_2x2_opd(double *alpha11, double *alpha21, double *alpha22, double *lambda1, double *lambda2, double *gamma1, double *sigma1)
Definition: FLA_Hevv_2x2.c:249
FLA_Error FLA_Wilkshift_tridiag_opd(double delta1, double epsilon, double delta2, double *kappa)
Definition: FLA_Wilkshift_tridiag.c:155
FLA_Error FLA_Househ2_UT(FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj tau)
Definition: FLA_Househ2_UT.c:16
int FLA_Pivot_type
Definition: FLA_type_defs.h:57
* rho
Definition: bl1_axpyv2bdotaxpy.c:322
FLA_Error FLA_Househ2s_UT_l_ops(int m_x2, float *chi_1, float *x2, int inc_x2, float *alpha, float *chi_1_minus_alpha, float *tau)
Definition: FLA_Househ2s_UT.c:142
FLA_Error FLA_Sort_bsvd_ext(FLA_Direct direct, FLA_Obj s, FLA_Bool apply_U, FLA_Obj U, FLA_Bool apply_V, FLA_Obj V, FLA_Bool apply_C, FLA_Obj C)
Definition: FLA_Sort_bsvd_ext.c:68
FLA_Error FLA_Sv_2x2_ops(float *alpha11, float *alpha12, float *alpha22, float *sigma1, float *sigma2)
Definition: FLA_Sv_2x2.c:83
FLA_Error FLA_Apply_GTG_check(FLA_Obj gamma, FLA_Obj sigma, FLA_Obj delta1, FLA_Obj epsilon1, FLA_Obj delta2)
Definition: FLA_Apply_GTG_check.c:13
FLA_Error FLA_Svv_2x2(FLA_Obj alpha11, FLA_Obj alpha12, FLA_Obj alpha22, FLA_Obj sigma1, FLA_Obj sigma2, FLA_Obj gammaL, FLA_Obj sigmaL, FLA_Obj gammaR, FLA_Obj sigmaR)
Definition: FLA_Svv_2x2.c:13
FLA_Error FLA_Apply_G_mx2_check(FLA_Obj gamma, FLA_Obj sigma, FLA_Obj a1, FLA_Obj a2)
Definition: FLA_Apply_G_mx2_check.c:13
FLA_Error FLA_Wilkshift_tridiag(FLA_Obj delta1, FLA_Obj epsilon, FLA_Obj delta2, FLA_Obj kappa)
Definition: FLA_Wilkshift_tridiag.c:13
FLA_Error FLA_Hev_2x2_opd(double *buff_alpha11, double *buff_alpha21, double *buff_alpha22, double *buff_lambda1, double *buff_lambda2)
Definition: FLA_Hev_2x2.c:149
FLA_Error FLA_Sort_svd_f_opd(int m_U, int n_V, double *s, int inc_s, double *U, int rs_U, int cs_U, double *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:152
short ftnlen
Definition: FLA_f2c.h:61
FLA_Error FLA_Househ2_UT_l_opd(int m_x2, double *chi_1, double *x2, int inc_x2, double *tau)
Definition: FLA_Househ2_UT.c:274
FLA_Error FLA_Wilkshift_bidiag_check(FLA_Obj epsilon1, FLA_Obj delta1, FLA_Obj epsilon2, FLA_Obj delta2, FLA_Obj kappa)
FLA_Error FLA_Sort_bsvd_ext_b_opc(int m_s, float *s, int inc_s, int m_U, scomplex *U, int rs_U, int cs_U, int m_V, scomplex *V, int rs_V, int cs_V, int n_C, scomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:235
FLA_Error FLA_Apply_G_check(FLA_Side side, FLA_Direct direct, FLA_Obj G, FLA_Obj A)
Definition: FLA_Apply_G_check.c:13
FLA_Error FLA_Pythag3(FLA_Obj chi, FLA_Obj psi, FLA_Obj zeta, FLA_Obj rho)
Definition: FLA_Pythag3.c:13
FLA_Error FLA_Pythag2_opd(double *chi, double *psi, double *rho)
Definition: FLA_Pythag2.c:99
FLA_Error FLA_Househ2_UT_r_opd(int m_x2, double *chi_1, double *x2, int inc_x2, double *tau)
Definition: FLA_Househ2_UT.c:664
double FLA_Mach_params_opd(FLA_Machval machval)
Definition: FLA_Mach_params.c:74
FLA_Error FLA_Hev_2x2(FLA_Obj alpha11, FLA_Obj alpha21, FLA_Obj alpha22, FLA_Obj lambda1, FLA_Obj lambda2)
Definition: FLA_Hev_2x2.c:13
double fla_pow_di(doublereal *a, integer *n)
Definition: fla_dlamch.c:26
FLA_Error FLA_Sort_evd_b_opc(int m_A, float *l, int inc_l, scomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:202
FLA_Error FLA_Househ2_UT_r_opc(int m_x2, scomplex *chi_1, scomplex *x2, int inc_x2, scomplex *tau)
Definition: FLA_Househ2_UT.c:677
FLA_Error FLA_Hev_2x2_ops(float *buff_alpha11, float *buff_alpha21, float *buff_alpha22, float *buff_lambda1, float *buff_lambda2)
Definition: FLA_Hev_2x2.c:90
FLA_Error FLA_Apply_diag_matrix(FLA_Side side, FLA_Conj conj, FLA_Obj x, FLA_Obj A)
Definition: FLA_Apply_diag_matrix.c:13
int FLA_Direct
Definition: FLA_type_defs.h:58
FLA_Error FLA_Househ2s_UT_check(FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj alpha, FLA_Obj chi_1_minus_alpha, FLA_Obj tau)
Definition: FLA_Househ2s_UT_check.c:13
float real
Definition: FLA_f2c.h:30
FLA_Error FLA_Hevv_2x2_opc(scomplex *alpha11, scomplex *alpha21, scomplex *alpha22, float *lambda1, float *lambda2, float *gamma1, scomplex *sigma1)
Definition: FLA_Hevv_2x2.c:363
FLA_Error FLA_Househ2s_UT_r_opd(int m_x2, double *chi_1, double *x2, int inc_x2, double *alpha, double *chi_1_minus_alpha, double *tau)
Definition: FLA_Househ2s_UT.c:572
FLA_Error FLA_Sort_svd_f_opc(int m_U, int n_V, float *s, int inc_s, scomplex *U, int rs_U, int cs_U, scomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:236
FLA_Error FLA_Househ2_UT_check(FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj tau)
Definition: FLA_Househ2_UT_check.c:13
FLA_Error FLA_Househ2s_UT_l_opd(int m_x2, double *chi_1, double *x2, int inc_x2, double *alpha, double *chi_1_minus_alpha, double *tau)
Definition: FLA_Househ2s_UT.c:237
FLA_Error FLA_Sort_bsvd_ext_f_ops(int m_s, float *s, int inc_s, int m_U, float *U, int rs_U, int cs_U, int m_V, float *V, int rs_V, int cs_V, int n_C, float *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:181
int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Sort_evd(FLA_Direct direct, FLA_Obj l, FLA_Obj V)
Definition: FLA_Sort_evd.c:13
FLA_Error FLA_Sv_2x2(FLA_Obj alpha11, FLA_Obj alpha12, FLA_Obj alpha22, FLA_Obj sigma1, FLA_Obj sigma2)
Definition: FLA_Sv_2x2.c:13
FLA_Error FLA_Sort_bsvd_ext_f_opc(int m_s, float *s, int inc_s, int m_U, scomplex *U, int rs_U, int cs_U, int m_V, scomplex *V, int rs_V, int cs_V, int n_C, scomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:225
FLA_Error FLA_Introduce_bulge_check(FLA_Obj shift, FLA_Obj gamma, FLA_Obj sigma, FLA_Obj delta1, FLA_Obj epsilon1, FLA_Obj delta2, FLA_Obj beta, FLA_Obj epsilon2)
Definition: FLA_Introduce_bulge_check.c:13
FLA_Error FLA_Mach_params(FLA_Machval machval, FLA_Obj val)
Definition: FLA_Mach_params.c:13
FLA_Error FLA_Sort_svd_b_opz(int m_U, int n_V, double *s, int inc_s, dcomplex *U, int rs_U, int cs_U, dcomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:296
FLA_Error FLA_Svv_2x2_ops(float *alpha11, float *alpha12, float *alpha22, float *sigma1, float *sigma2, float *gammaL, float *sigmaL, float *gammaR, float *sigmaR)
Definition: FLA_Svv_2x2.c:102
FLA_Error FLA_LU_find_zero_on_diagonal_check(FLA_Obj A)
Definition: FLA_LU_find_zero_on_diagonal_check.c:13
Definition: FLA_type_defs.h:158
FLA_Error FLA_Shift_pivots_to(FLA_Pivot_type ptype, FLA_Obj p)
Definition: FLA_Shift_pivots_to.c:13
doublereal fla_dlamch(char *cmach, ftnlen cmach_len)
Definition: fla_dlamch.c:56
FLA_Error FLA_Hevv_2x2(FLA_Obj alpha11, FLA_Obj alpha21, FLA_Obj alpha22, FLA_Obj lambda1, FLA_Obj lambda2, FLA_Obj gamma1, FLA_Obj sigma1)
Definition: FLA_Hevv_2x2.c:13
FLA_Error FLA_Househ2s_UT_r_opc(int m_x2, scomplex *chi_1, scomplex *x2, int inc_x2, scomplex *alpha, scomplex *chi_1_minus_alpha, scomplex *tau)
Definition: FLA_Househ2s_UT.c:589
FLA_Error FLA_Sort_evd_check(FLA_Direct direct, FLA_Obj l, FLA_Obj V)
Definition: FLA_Sort_evd_check.c:13
FLA_Error FLA_Mach_params_check(FLA_Machval machval, FLA_Obj val)
Definition: FLA_Mach_params_check.c:13
int FLA_Conj
Definition: FLA_type_defs.h:54
FLA_Error FLA_Hevv_2x2_opz(dcomplex *alpha11, dcomplex *alpha21, dcomplex *alpha22, double *lambda1, double *lambda2, double *gamma1, dcomplex *sigma1)
Definition: FLA_Hevv_2x2.c:378
FLA_Error FLA_Sort_bsvd_ext_f_opz(int m_s, double *s, int inc_s, int m_U, dcomplex *U, int rs_U, int cs_U, int m_V, dcomplex *V, int rs_V, int cs_V, int n_C, dcomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:247
FLA_Error FLA_Househ3UD_UT_opd(int m_x2, int m_y2, double *chi_1, double *x2, int inc_x2, double *y2, int inc_y2, double *tau)
Definition: FLA_Househ3UD_UT.c:267
FLA_Error FLA_LU_find_zero_on_diagonal(FLA_Obj A)
Definition: FLA_LU_find_zero_on_diagonal.c:13
double doublereal
Definition: FLA_f2c.h:31
FLA_Error FLA_Sort_bsvd_ext_f_opd(int m_s, double *s, int inc_s, int m_U, double *U, int rs_U, int cs_U, int m_V, double *V, int rs_V, int cs_V, int n_C, double *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:203
FLA_Error FLA_Sort_evd_f_opd(int m_A, double *l, int inc_l, double *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:123
FLA_Error FLA_Shift_pivots_to_check(FLA_Pivot_type ptype, FLA_Obj p)
Definition: FLA_Shift_pivots_to_check.c:13
FLA_Error FLA_Apply_diag_matrix_check(FLA_Side side, FLA_Conj conj, FLA_Obj x, FLA_Obj A)
Definition: FLA_Apply_diag_matrix_check.c:13
int FLA_Machval
Definition: FLA_type_defs.h:66
FLA_Error FLA_Form_perm_matrix(FLA_Obj p, FLA_Obj A)
Definition: FLA_Form_perm_matrix.c:13
Definition: blis_type_defs.h:132
FLA_Error FLA_Hevv_2x2_ops(float *alpha11, float *alpha21, float *alpha22, float *lambda1, float *lambda2, float *gamma1, float *sigma1)
Definition: FLA_Hevv_2x2.c:135
FLA_Error FLA_Househ3UD_UT(FLA_Obj chi_1, FLA_Obj x2, FLA_Obj y2, FLA_Obj tau)
Definition: FLA_Househ3UD_UT.c:16
FLA_Error FLA_Househ3UD_UT_check(FLA_Obj chi_1, FLA_Obj x2, FLA_Obj y2, FLA_Obj tau)
Definition: FLA_Househ3UD_UT_check.c:13
FLA_Error FLA_Househ3UD_UT_opz(int m_x2, int m_y2, dcomplex *chi_1, dcomplex *x2, int inc_x2, dcomplex *y2, int inc_y2, dcomplex *tau)
Definition: FLA_Househ3UD_UT.c:527
FLA_Error FLA_Househ2s_UT_r_ops(int m_x2, float *chi_1, float *x2, int inc_x2, float *alpha, float *chi_1_minus_alpha, float *tau)
Definition: FLA_Househ2s_UT.c:555
int logical
Definition: FLA_f2c.h:36
int integer
Definition: FLA_f2c.h:25
FLA_Error FLA_Sort_evd_b_opz(int m_A, double *l, int inc_l, dcomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:245
int FLA_Side
Definition: FLA_type_defs.h:51
FLA_Error FLA_Sort_svd_f_ops(int m_U, int n_V, float *s, int inc_s, float *U, int rs_U, int cs_U, float *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:134
FLA_Error FLA_Sort_evd_f_opz(int m_A, double *l, int inc_l, dcomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:209
FLA_Error FLA_Househ2_UT_l_opc(int m_x2, scomplex *chi_1, scomplex *x2, int inc_x2, scomplex *tau)
Definition: FLA_Househ2_UT.c:390
FLA_Error FLA_Sort_svd(FLA_Direct direct, FLA_Obj s, FLA_Obj U, FLA_Obj V)
Definition: FLA_Sort_svd.c:13
FLA_Error FLA_Househ2_UT_l_ops(int m_x2, float *chi_1, float *x2, int inc_x2, float *tau)
Definition: FLA_Househ2_UT.c:160
FLA_Error FLA_Househ2s_UT_r_opz(int m_x2, dcomplex *chi_1, dcomplex *x2, int inc_x2, dcomplex *alpha, dcomplex *chi_1_minus_alpha, dcomplex *tau)
Definition: FLA_Househ2s_UT.c:610
int FLA_Bool
Definition: FLA_type_defs.h:46
FLA_Error FLA_Form_perm_matrix_check(FLA_Obj p, FLA_Obj A)
Definition: FLA_Form_perm_matrix_check.c:13
FLA_Error FLA_Svv_2x2_opd(double *alpha11, double *alpha12, double *alpha22, double *sigma1, double *sigma2, double *gammaL, double *sigmaL, double *gammaR, double *sigmaR)
Definition: FLA_Svv_2x2.c:290
FLA_Error FLA_Househ2s_UT(FLA_Side side, FLA_Obj chi_1, FLA_Obj x2, FLA_Obj alpha, FLA_Obj chi_1_minus_alpha, FLA_Obj tau)
Definition: FLA_Househ2s_UT.c:16
FLA_Error FLA_Givens2_check(FLA_Obj chi_1, FLA_Obj chi_2, FLA_Obj gamma, FLA_Obj sigma, FLA_Obj chi_1_new)
Definition: FLA_Givens2_check.c:13
FLA_Error FLA_Sort_svd_f_opz(int m_U, int n_V, double *s, int inc_s, dcomplex *U, int rs_U, int cs_U, dcomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:254
FLA_Error FLA_Sort_svd_b_ops(int m_U, int n_V, float *s, int inc_s, float *U, int rs_U, int cs_U, float *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:143
FLA_Error FLA_Pythag3_ops(float *chi, float *psi, float *zeta, float *rho)
Definition: FLA_Pythag3.c:71
FLA_Error FLA_Househ2_UT_r_opz(int m_x2, dcomplex *chi_1, dcomplex *x2, int inc_x2, dcomplex *tau)
Definition: FLA_Househ2_UT.c:693
FLA_Error FLA_Sort_svd_check(FLA_Direct direct, FLA_Obj s, FLA_Obj U, FLA_Obj V)
Definition: FLA_Sort_svd_check.c:13
FLA_Error FLA_Househ2s_UT_l_opc(int m_x2, scomplex *chi_1, scomplex *x2, int inc_x2, scomplex *alpha, scomplex *chi_1_minus_alpha, scomplex *tau)
Definition: FLA_Househ2s_UT.c:332
FLA_Error FLA_Househ2s_UT_l_opz(int m_x2, dcomplex *chi_1, dcomplex *x2, int inc_x2, dcomplex *alpha, dcomplex *chi_1_minus_alpha, dcomplex *tau)
Definition: FLA_Househ2s_UT.c:443
FLA_Error FLA_Househ3UD_UT_opc(int m_x2, int m_y2, scomplex *chi_1, scomplex *x2, int inc_x2, scomplex *y2, int inc_y2, scomplex *tau)
Definition: FLA_Househ3UD_UT.c:393
float FLA_Mach_params_ops(FLA_Machval machval)
Definition: FLA_Mach_params.c:47
real fla_pow_ri(real *a, integer *n)
Definition: fla_slamch.c:26
logical fla_lsame(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
Definition: fla_lsame.c:20
FLA_Error FLA_Sort_svd_b_opc(int m_U, int n_V, float *s, int inc_s, scomplex *U, int rs_U, int cs_U, scomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:245
FLA_Error FLA_Sort_svd_b_opd(int m_U, int n_V, double *s, int inc_s, double *U, int rs_U, int cs_U, double *V, int rs_V, int cs_V)
Definition: FLA_Sort_svd.c:194
FLA_Error FLA_Pythag2(FLA_Obj chi, FLA_Obj psi, FLA_Obj rho)
Definition: FLA_Pythag2.c:13
FLA_Error FLA_Pythag2_ops(float *chi, float *psi, float *rho)
Definition: FLA_Pythag2.c:67
FLA_Error FLA_Sort_evd_f_opc(int m_A, float *l, int inc_l, scomplex *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:195
FLA_Error FLA_Sort_bsvd_ext_b_opz(int m_s, double *s, int inc_s, int m_U, dcomplex *U, int rs_U, int cs_U, int m_V, dcomplex *V, int rs_V, int cs_V, int n_C, dcomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:257
FLA_Error FLA_Sort_bsvd_ext_b_opd(int m_s, double *s, int inc_s, int m_U, double *U, int rs_U, int cs_U, int m_V, double *V, int rs_V, int cs_V, int n_C, double *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:213
FLA_Error FLA_Sort_evd_b_opd(int m_A, double *l, int inc_l, double *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:159
FLA_Error FLA_Househ3UD_UT_ops(int m_x2, int m_y2, float *chi_1, float *x2, int inc_x2, float *y2, int inc_y2, float *tau)
Definition: FLA_Househ3UD_UT.c:140
FLA_Error FLA_Sort_bsvd_ext_b_ops(int m_s, float *s, int inc_s, int m_U, float *U, int rs_U, int cs_U, int m_V, float *V, int rs_V, int cs_V, int n_C, float *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:191
FLA_Error FLA_Househ2_UT_l_opz(int m_x2, dcomplex *chi_1, dcomplex *x2, int inc_x2, dcomplex *tau)
Definition: FLA_Househ2_UT.c:521
Definition: blis_type_defs.h:137
FLA_Error FLA_Wilkshift_tridiag_ops(float delta1, float epsilon, float delta2, float *kappa)
Definition: FLA_Wilkshift_tridiag.c:105
FLA_Error FLA_Pythag3_opd(double *chi, double *psi, double *zeta, double *rho)
Definition: FLA_Pythag3.c:112
FLA_Error FLA_Sort_evd_f_ops(int m_A, float *l, int inc_l, float *V, int rs_V, int cs_V)
Definition: FLA_Sort_evd.c:109
FLA_Error FLA_Wilkshift_tridiag_check(FLA_Obj delta1, FLA_Obj epsilon, FLA_Obj delta2, FLA_Obj kappa)
Definition: FLA_Wilkshift_tridiag_check.c:13
real fla_slamch(char *cmach, ftnlen cmach_len)
Definition: fla_slamch.c:56
FLA_Error FLA_Apply_G_1x2_check(FLA_Obj gamma, FLA_Obj sigma, FLA_Obj beta, FLA_Obj epsilon)
Definition: FLA_Apply_G_1x2_check.c:13