MAGMA  magma-1.4.0
Matrix Algebra on GPU and Multicore Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
magma_clapack.h
Go to the documentation of this file.
1 /*
2  -- MAGMA (version 1.4.0) --
3  Univ. of Tennessee, Knoxville
4  Univ. of California, Berkeley
5  Univ. of Colorado, Denver
6  August 2013
7 
8  @generated c Tue Aug 13 16:43:28 2013
9 */
10 
11 #ifndef MAGMA_CLAPACK_H
12 #define MAGMA_CLAPACK_H
13 
14 #define PRECISION_c
15 
16 #ifdef __cplusplus
17 extern "C" {
18 #endif
19 
20 /* ////////////////////////////////////////////////////////////////////////////
21  -- BLAS and LAPACK functions (alphabetical order)
22 */
23 #define blasf77_icamax FORTRAN_NAME( icamax, ICAMAX )
24 #define blasf77_caxpy FORTRAN_NAME( caxpy, CAXPY )
25 #define blasf77_ccopy FORTRAN_NAME( ccopy, CCOPY )
26 #define blasf77_cgemm FORTRAN_NAME( cgemm, CGEMM )
27 #define blasf77_cgemv FORTRAN_NAME( cgemv, CGEMV )
28 #define blasf77_cgerc FORTRAN_NAME( cgerc, CGERC )
29 #define blasf77_cgeru FORTRAN_NAME( cgeru, CGERU )
30 #define blasf77_chemm FORTRAN_NAME( chemm, CHEMM )
31 #define blasf77_chemv FORTRAN_NAME( chemv, CHEMV )
32 #define blasf77_cher2 FORTRAN_NAME( cher2, CHER2 )
33 #define blasf77_cher2k FORTRAN_NAME( cher2k, CHER2K )
34 #define blasf77_cherk FORTRAN_NAME( cherk, CHERK )
35 #define blasf77_cscal FORTRAN_NAME( cscal, CSCAL )
36 #define blasf77_csscal FORTRAN_NAME( csscal, CSSCAL )
37 #define blasf77_cswap FORTRAN_NAME( cswap, CSWAP )
38 #define blasf77_csymm FORTRAN_NAME( csymm, CSYMM )
39 #define blasf77_csyr2k FORTRAN_NAME( csyr2k, CSYR2K )
40 #define blasf77_csyrk FORTRAN_NAME( csyrk, CSYRK )
41 #define blasf77_ctrmm FORTRAN_NAME( ctrmm, CTRMM )
42 #define blasf77_ctrmv FORTRAN_NAME( ctrmv, CTRMV )
43 #define blasf77_ctrsm FORTRAN_NAME( ctrsm, CTRSM )
44 #define blasf77_ctrsv FORTRAN_NAME( ctrsv, CTRSV )
45 
46 #define lapackf77_slaed2 FORTRAN_NAME( slaed2, SLAED2 )
47 #define lapackf77_slaed4 FORTRAN_NAME( slaed4, SLAED4 )
48 #define lapackf77_slamc3 FORTRAN_NAME( slamc3, SLAMC3 )
49 #define lapackf77_slamrg FORTRAN_NAME( slamrg, SLAMRG )
50 #define lapackf77_slasrt FORTRAN_NAME( slasrt, SLASRT )
51 #define lapackf77_sstebz FORTRAN_NAME( sstebz, SSTEBZ )
52 
53 #define lapackf77_cbdsqr FORTRAN_NAME( cbdsqr, CBDSQR )
54 #define lapackf77_cgebak FORTRAN_NAME( cgebak, CGEBAK )
55 #define lapackf77_cgebal FORTRAN_NAME( cgebal, CGEBAL )
56 #define lapackf77_cgebd2 FORTRAN_NAME( cgebd2, CGEBD2 )
57 #define lapackf77_cgebrd FORTRAN_NAME( cgebrd, CGEBRD )
58 #define lapackf77_cgeev FORTRAN_NAME( cgeev, CGEEV )
59 #define lapackf77_cgehd2 FORTRAN_NAME( cgehd2, CGEHD2 )
60 #define lapackf77_cgehrd FORTRAN_NAME( cgehrd, CGEHRD )
61 #define lapackf77_cgelqf FORTRAN_NAME( cgelqf, CGELQF )
62 #define lapackf77_cgels FORTRAN_NAME( cgels, CGELS )
63 #define lapackf77_cgeqlf FORTRAN_NAME( cgeqlf, CGEQLF )
64 #define lapackf77_cgeqp3 FORTRAN_NAME( cgeqp3, CGEQP3 )
65 #define lapackf77_cgeqrf FORTRAN_NAME( cgeqrf, CGEQRF )
66 #define lapackf77_cgesv FORTRAN_NAME( cgesv, CGESV )
67 #define lapackf77_cgesvd FORTRAN_NAME( cgesvd, CGESVD )
68 #define lapackf77_cgetrf FORTRAN_NAME( cgetrf, CGETRF )
69 #define lapackf77_cgetri FORTRAN_NAME( cgetri, CGETRI )
70 #define lapackf77_cgetrs FORTRAN_NAME( cgetrs, CGETRS )
71 #define lapackf77_chbtrd FORTRAN_NAME( chbtrd, CHBTRD )
72 #define lapackf77_cheev FORTRAN_NAME( cheev, CHEEV )
73 #define lapackf77_cheevd FORTRAN_NAME( cheevd, CHEEVD )
74 #define lapackf77_cheevr FORTRAN_NAME( cheevr, CHEEVR )
75 #define lapackf77_cheevx FORTRAN_NAME( cheevx, CHEEVX )
76 #define lapackf77_chegs2 FORTRAN_NAME( chegs2, CHEGS2 )
77 #define lapackf77_chegst FORTRAN_NAME( chegst, CHEGST )
78 #define lapackf77_chegvd FORTRAN_NAME( chegvd, CHEGVD )
79 #define lapackf77_chetd2 FORTRAN_NAME( chetd2, CHETD2 )
80 #define lapackf77_chetrd FORTRAN_NAME( chetrd, CHETRD )
81 #define lapackf77_chetrf FORTRAN_NAME( chetrf, CHETRF )
82 #define lapackf77_chseqr FORTRAN_NAME( chseqr, CHSEQR )
83 #define lapackf77_clabrd FORTRAN_NAME( clabrd, CLABRD )
84 #define lapackf77_cladiv FORTRAN_NAME( cladiv, CLADIV )
85 #define lapackf77_clacgv FORTRAN_NAME( clacgv, CLACGV )
86 #define lapackf77_clacpy FORTRAN_NAME( clacpy, CLACPY )
87 #define lapackf77_clahef FORTRAN_NAME( clahef, CLAHEF )
88 #define lapackf77_clange FORTRAN_NAME( clange, CLANGE )
89 #define lapackf77_clanhe FORTRAN_NAME( clanhe, CLANHE )
90 #define lapackf77_clanht FORTRAN_NAME( clanht, CLANHT )
91 #define lapackf77_clansy FORTRAN_NAME( clansy, CLANSY )
92 #define lapackf77_slapy3 FORTRAN_NAME( slapy3, SLAPY3 )
93 #define lapackf77_claqp2 FORTRAN_NAME( claqp2, CLAQP2 )
94 #define lapackf77_clarf FORTRAN_NAME( clarf, CLARF )
95 #define lapackf77_clarfb FORTRAN_NAME( clarfb, CLARFB )
96 #define lapackf77_clarfg FORTRAN_NAME( clarfg, CLARFG )
97 #define lapackf77_clarft FORTRAN_NAME( clarft, CLARFT )
98 #define lapackf77_clarnv FORTRAN_NAME( clarnv, CLARNV )
99 #define lapackf77_clartg FORTRAN_NAME( clartg, CLARTG )
100 #define lapackf77_clascl FORTRAN_NAME( clascl, CLASCL )
101 #define lapackf77_claset FORTRAN_NAME( claset, CLASET )
102 #define lapackf77_claswp FORTRAN_NAME( claswp, CLASWP )
103 #define lapackf77_clatrd FORTRAN_NAME( clatrd, CLATRD )
104 #define lapackf77_clauum FORTRAN_NAME( clauum, CLAUUM )
105 #define lapackf77_clavhe FORTRAN_NAME( clavhe, CLAVHE )
106 #define lapackf77_cposv FORTRAN_NAME( cposv, CPOSV )
107 #define lapackf77_cpotrf FORTRAN_NAME( cpotrf, CPOTRF )
108 #define lapackf77_cpotri FORTRAN_NAME( cpotri, CPOTRI )
109 #define lapackf77_cpotrs FORTRAN_NAME( cpotrs, CPOTRS )
110 #define lapackf77_cstedc FORTRAN_NAME( cstedc, CSTEDC )
111 #define lapackf77_cstein FORTRAN_NAME( cstein, CSTEIN )
112 #define lapackf77_cstemr FORTRAN_NAME( cstemr, CSTEMR )
113 #define lapackf77_csteqr FORTRAN_NAME( csteqr, CSTEQR )
114 #define lapackf77_csymv FORTRAN_NAME( csymv, CSYMV )
115 #define lapackf77_ctrevc FORTRAN_NAME( ctrevc, CTREVC )
116 #define lapackf77_ctrtri FORTRAN_NAME( ctrtri, CTRTRI )
117 #define lapackf77_cung2r FORTRAN_NAME( cung2r, CUNG2R )
118 #define lapackf77_cungbr FORTRAN_NAME( cungbr, CUNGBR )
119 #define lapackf77_cunghr FORTRAN_NAME( cunghr, CUNGHR )
120 #define lapackf77_cunglq FORTRAN_NAME( cunglq, CUNGLQ )
121 #define lapackf77_cungql FORTRAN_NAME( cungql, CUNGQL )
122 #define lapackf77_cungqr FORTRAN_NAME( cungqr, CUNGQR )
123 #define lapackf77_cungtr FORTRAN_NAME( cungtr, CUNGTR )
124 #define lapackf77_cunm2r FORTRAN_NAME( cunm2r, CUNM2R )
125 #define lapackf77_cunmbr FORTRAN_NAME( cunmbr, CUNMBR )
126 #define lapackf77_cunmlq FORTRAN_NAME( cunmlq, CUNMLQ )
127 #define lapackf77_cunmql FORTRAN_NAME( cunmql, CUNMQL )
128 #define lapackf77_cunmqr FORTRAN_NAME( cunmqr, CUNMQR )
129 #define lapackf77_cunmtr FORTRAN_NAME( cunmtr, CUNMTR )
130 
131 /* testing functions (alphabetical order) */
132 #define lapackf77_cbdt01 FORTRAN_NAME( cbdt01, CBDT01 )
133 #define lapackf77_cget22 FORTRAN_NAME( cget22, CGET22 )
134 #define lapackf77_chet21 FORTRAN_NAME( chet21, CHET21 )
135 #define lapackf77_chst01 FORTRAN_NAME( chst01, CHST01 )
136 #define lapackf77_clarfx FORTRAN_NAME( clarfx, CLARFX )
137 #define lapackf77_clarfy FORTRAN_NAME( clarfy, CLARFY )
138 #define lapackf77_clatms FORTRAN_NAME( clatms, CLATMS )
139 #define lapackf77_cqpt01 FORTRAN_NAME( cqpt01, CQPT01 )
140 #define lapackf77_cqrt02 FORTRAN_NAME( cqrt02, CQRT02 )
141 #define lapackf77_cstt21 FORTRAN_NAME( cstt21, CSTT21 )
142 #define lapackf77_cunt01 FORTRAN_NAME( cunt01, CUNT01 )
143 
144 // macros to handle differences in arguments between complex and real versions of routines.
145 #if defined(PRECISION_z) || defined(PRECISION_c)
146 #define DWORKFORZ float *rwork,
147 #define DWORKFORZ_AND_LD float *rwork, const magma_int_t *ldrwork,
148 #define WSPLIT magmaFloatComplex *w
149 #else
150 #define DWORKFORZ
151 #define DWORKFORZ_AND_LD
152 #define WSPLIT float *wr, float *wi
153 #endif
154 
155 /*
156  * BLAS functions (alphabetical order)
157  */
159  const magma_int_t *n,
160  const magmaFloatComplex *x, const magma_int_t *incx );
161 
162 void blasf77_caxpy( const magma_int_t *n,
163  const magmaFloatComplex *alpha,
164  const magmaFloatComplex *x, const magma_int_t *incx,
165  magmaFloatComplex *y, const magma_int_t *incy );
166 
167 void blasf77_ccopy( const magma_int_t *n,
168  const magmaFloatComplex *x, const magma_int_t *incx,
169  magmaFloatComplex *y, const magma_int_t *incy );
170 
171 void blasf77_cgemm( const char *transa, const char *transb,
172  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
173  const magmaFloatComplex *alpha,
174  const magmaFloatComplex *A, const magma_int_t *lda,
175  const magmaFloatComplex *B, const magma_int_t *ldb,
176  const magmaFloatComplex *beta,
177  magmaFloatComplex *C, const magma_int_t *ldc );
178 
179 void blasf77_cgemv( const char *transa,
180  const magma_int_t *m, const magma_int_t *n,
181  const magmaFloatComplex *alpha,
182  const magmaFloatComplex *A, const magma_int_t *lda,
183  const magmaFloatComplex *x, const magma_int_t *incx,
184  const magmaFloatComplex *beta,
185  magmaFloatComplex *y, const magma_int_t *incy );
186 
187 void blasf77_cgerc( const magma_int_t *m, const magma_int_t *n,
188  const magmaFloatComplex *alpha,
189  const magmaFloatComplex *x, const magma_int_t *incx,
190  const magmaFloatComplex *y, const magma_int_t *incy,
191  magmaFloatComplex *A, const magma_int_t *lda );
192 
193 #if defined(PRECISION_z) || defined(PRECISION_c)
194 void blasf77_cgeru( const magma_int_t *m, const magma_int_t *n,
195  const magmaFloatComplex *alpha,
196  const magmaFloatComplex *x, const magma_int_t *incx,
197  const magmaFloatComplex *y, const magma_int_t *incy,
198  magmaFloatComplex *A, const magma_int_t *lda );
199 #endif
200 
201 void blasf77_chemm( const char *side, const char *uplo,
202  const magma_int_t *m, const magma_int_t *n,
203  const magmaFloatComplex *alpha,
204  const magmaFloatComplex *A, const magma_int_t *lda,
205  const magmaFloatComplex *B, const magma_int_t *ldb,
206  const magmaFloatComplex *beta,
207  magmaFloatComplex *C, const magma_int_t *ldc );
208 
209 void blasf77_chemv( const char *uplo,
210  const magma_int_t *n,
211  const magmaFloatComplex *alpha,
212  const magmaFloatComplex *A, const magma_int_t *lda,
213  const magmaFloatComplex *x, const magma_int_t *incx,
214  const magmaFloatComplex *beta,
215  magmaFloatComplex *y, const magma_int_t *incy );
216 
217 void blasf77_cher2( const char *uplo,
218  const magma_int_t *n,
219  const magmaFloatComplex *alpha,
220  const magmaFloatComplex *x, const magma_int_t *incx,
221  const magmaFloatComplex *y, const magma_int_t *incy,
222  magmaFloatComplex *A, const magma_int_t *lda );
223 
224 void blasf77_cher2k( const char *uplo, const char *trans,
225  const magma_int_t *n, const magma_int_t *k,
226  const magmaFloatComplex *alpha,
227  const magmaFloatComplex *A, const magma_int_t *lda,
228  const magmaFloatComplex *B, const magma_int_t *ldb,
229  const float *beta,
230  magmaFloatComplex *C, const magma_int_t *ldc );
231 
232 void blasf77_cherk( const char *uplo, const char *trans,
233  const magma_int_t *n, const magma_int_t *k,
234  const float *alpha,
235  const magmaFloatComplex *A, const magma_int_t *lda,
236  const float *beta,
237  magmaFloatComplex *C, const magma_int_t *ldc );
238 
239 void blasf77_cscal( const magma_int_t *n,
240  const magmaFloatComplex *alpha,
241  magmaFloatComplex *x, const magma_int_t *incx );
242 
243 #if defined(PRECISION_z) || defined(PRECISION_c)
244 void blasf77_csscal( const magma_int_t *n,
245  const float *alpha,
246  magmaFloatComplex *x, const magma_int_t *incx );
247 #endif
248 
249 void blasf77_cswap( const magma_int_t *n,
250  magmaFloatComplex *x, const magma_int_t *incx,
251  magmaFloatComplex *y, const magma_int_t *incy );
252 
253 #if defined(PRECISION_z) || defined(PRECISION_c)
254 /* complex-symmetric (non-Hermitian) routines */
255 void blasf77_csymm( const char *side, const char *uplo,
256  const magma_int_t *m, const magma_int_t *n,
257  const magmaFloatComplex *alpha,
258  const magmaFloatComplex *A, const magma_int_t *lda,
259  const magmaFloatComplex *B, const magma_int_t *ldb,
260  const magmaFloatComplex *beta,
261  magmaFloatComplex *C, const magma_int_t *ldc );
262 
263 void blasf77_csyr2k( const char *uplo, const char *trans,
264  const magma_int_t *n, const magma_int_t *k,
265  const magmaFloatComplex *alpha,
266  const magmaFloatComplex *A, const magma_int_t *lda,
267  const magmaFloatComplex *B, const magma_int_t *ldb,
268  const magmaFloatComplex *beta,
269  magmaFloatComplex *C, const magma_int_t *ldc );
270 
271 void blasf77_csyrk( const char *uplo, const char *trans,
272  const magma_int_t *n, const magma_int_t *k,
273  const magmaFloatComplex *alpha,
274  const magmaFloatComplex *A, const magma_int_t *lda,
275  const magmaFloatComplex *beta,
276  magmaFloatComplex *C, const magma_int_t *ldc );
277 #endif
278 
279 void blasf77_ctrmm( const char *side, const char *uplo, const char *transa, const char *diag,
280  const magma_int_t *m, const magma_int_t *n,
281  const magmaFloatComplex *alpha,
282  const magmaFloatComplex *A, const magma_int_t *lda,
283  magmaFloatComplex *B, const magma_int_t *ldb );
284 
285 void blasf77_ctrmv( const char *uplo, const char *transa, const char *diag,
286  const magma_int_t *n,
287  const magmaFloatComplex *A, const magma_int_t *lda,
288  magmaFloatComplex *x, const magma_int_t *incx );
289 
290 void blasf77_ctrsm( const char *side, const char *uplo, const char *transa, const char *diag,
291  const magma_int_t *m, const magma_int_t *n,
292  const magmaFloatComplex *alpha,
293  const magmaFloatComplex *A, const magma_int_t *lda,
294  magmaFloatComplex *B, const magma_int_t *ldb );
295 
296 void blasf77_ctrsv( const char *uplo, const char *transa, const char *diag,
297  const magma_int_t *n,
298  const magmaFloatComplex *A, const magma_int_t *lda,
299  magmaFloatComplex *x, const magma_int_t *incx );
300 
301 /*
302  * LAPACK functions (alphabetical order)
303  */
304 void lapackf77_cbdsqr( const char *uplo,
305  const magma_int_t *n, const magma_int_t *ncvt, const magma_int_t *nru, const magma_int_t *ncc,
306  float *d, float *e,
307  magmaFloatComplex *Vt, const magma_int_t *ldvt,
308  magmaFloatComplex *U, const magma_int_t *ldu,
309  magmaFloatComplex *C, const magma_int_t *ldc,
310  float *work,
311  magma_int_t *info );
312 
313 void lapackf77_cgebak( const char *job, const char *side,
314  const magma_int_t *n,
315  const magma_int_t *ilo, const magma_int_t *ihi,
316  const float *scale, const magma_int_t *m,
317  magmaFloatComplex *V, const magma_int_t *ldv,
318  magma_int_t *info );
319 
320 void lapackf77_cgebal( const char *job,
321  const magma_int_t *n,
322  magmaFloatComplex *A, const magma_int_t *lda,
323  magma_int_t *ilo, magma_int_t *ihi,
324  float *scale,
325  magma_int_t *info );
326 
327 void lapackf77_cgebd2( const magma_int_t *m, const magma_int_t *n,
328  magmaFloatComplex *A, const magma_int_t *lda,
329  float *d, float *e,
330  magmaFloatComplex *tauq,
331  magmaFloatComplex *taup,
332  magmaFloatComplex *work,
333  magma_int_t *info );
334 
335 void lapackf77_cgebrd( const magma_int_t *m, const magma_int_t *n,
336  magmaFloatComplex *A, const magma_int_t *lda,
337  float *d, float *e,
338  magmaFloatComplex *tauq,
339  magmaFloatComplex *taup,
340  magmaFloatComplex *work, const magma_int_t *lwork,
341  magma_int_t *info );
342 
343 void lapackf77_cgeev( const char *jobvl, const char *jobvr,
344  const magma_int_t *n,
345  magmaFloatComplex *A, const magma_int_t *lda,
346  WSPLIT,
347  magmaFloatComplex *Vl, const magma_int_t *ldvl,
348  magmaFloatComplex *Vr, const magma_int_t *ldvr,
349  magmaFloatComplex *work, const magma_int_t *lwork,
350  DWORKFORZ
351  magma_int_t *info );
352 
353 void lapackf77_cgehd2( const magma_int_t *n,
354  const magma_int_t *ilo, const magma_int_t *ihi,
355  magmaFloatComplex *A, const magma_int_t *lda,
356  magmaFloatComplex *tau,
357  magmaFloatComplex *work,
358  magma_int_t *info );
359 
360 void lapackf77_cgehrd( const magma_int_t *n,
361  const magma_int_t *ilo, const magma_int_t *ihi,
362  magmaFloatComplex *A, const magma_int_t *lda,
363  magmaFloatComplex *tau,
364  magmaFloatComplex *work, const magma_int_t *lwork,
365  magma_int_t *info );
366 
367 void lapackf77_cgelqf( const magma_int_t *m, const magma_int_t *n,
368  magmaFloatComplex *A, const magma_int_t *lda,
369  magmaFloatComplex *tau,
370  magmaFloatComplex *work, const magma_int_t *lwork,
371  magma_int_t *info );
372 
373 void lapackf77_cgels( const char *trans,
374  const magma_int_t *m, const magma_int_t *n, const magma_int_t *nrhs,
375  magmaFloatComplex *A, const magma_int_t *lda,
376  magmaFloatComplex *B, const magma_int_t *ldb,
377  magmaFloatComplex *work, const magma_int_t *lwork,
378  magma_int_t *info );
379 
380 void lapackf77_cgeqlf( const magma_int_t *m, const magma_int_t *n,
381  magmaFloatComplex *A, const magma_int_t *lda,
382  magmaFloatComplex *tau,
383  magmaFloatComplex *work, const magma_int_t *lwork,
384  magma_int_t *info );
385 
386 void lapackf77_cgeqp3( const magma_int_t *m, const magma_int_t *n,
387  magmaFloatComplex *A, const magma_int_t *lda,
388  magma_int_t *jpvt,
389  magmaFloatComplex *tau,
390  magmaFloatComplex *work, const magma_int_t *lwork,
391  DWORKFORZ
392  magma_int_t *info );
393 
394 void lapackf77_cgeqrf( const magma_int_t *m, const magma_int_t *n,
395  magmaFloatComplex *A, const magma_int_t *lda,
396  magmaFloatComplex *tau,
397  magmaFloatComplex *work, const magma_int_t *lwork,
398  magma_int_t *info );
399 
400 void lapackf77_cgesv( const magma_int_t *n, const magma_int_t *nrhs,
401  magmaFloatComplex *A, const magma_int_t *lda,
402  magma_int_t *ipiv,
403  magmaFloatComplex *B, const magma_int_t *ldb,
404  magma_int_t *info );
405 
406 void lapackf77_cgesvd( const char *jobu, const char *jobvt,
407  const magma_int_t *m, const magma_int_t *n,
408  magmaFloatComplex *A, const magma_int_t *lda,
409  float *s,
410  magmaFloatComplex *U, const magma_int_t *ldu,
411  magmaFloatComplex *Vt, const magma_int_t *ldvt,
412  magmaFloatComplex *work, const magma_int_t *lwork,
413  DWORKFORZ
414  magma_int_t *info );
415 
416 void lapackf77_cgetrf( const magma_int_t *m, const magma_int_t *n,
417  magmaFloatComplex *A, const magma_int_t *lda,
418  magma_int_t *ipiv,
419  magma_int_t *info );
420 
421 void lapackf77_cgetri( const magma_int_t *n,
422  magmaFloatComplex *A, const magma_int_t *lda,
423  const magma_int_t *ipiv,
424  magmaFloatComplex *work, const magma_int_t *lwork,
425  magma_int_t *info );
426 
427 void lapackf77_cgetrs( const char* trans,
428  const magma_int_t *n, const magma_int_t *nrhs,
429  const magmaFloatComplex *A, const magma_int_t *lda,
430  const magma_int_t *ipiv,
431  magmaFloatComplex *B, const magma_int_t *ldb,
432  magma_int_t *info );
433 
434 void lapackf77_chbtrd( const char *vect, const char *uplo,
435  const magma_int_t *n, const magma_int_t *kd,
436  magmaFloatComplex *Ab, const magma_int_t *ldab,
437  float *d, float *e,
438  magmaFloatComplex *Q, const magma_int_t *ldq,
439  magmaFloatComplex *work,
440  magma_int_t *info );
441 
442 void lapackf77_cheev( const char *jobz, const char *uplo,
443  const magma_int_t *n,
444  magmaFloatComplex *A, const magma_int_t *lda,
445  float *w,
446  magmaFloatComplex *work, const magma_int_t *lwork,
447  DWORKFORZ
448  magma_int_t *info );
449 
450 void lapackf77_cheevd( const char *jobz, const char *uplo,
451  const magma_int_t *n,
452  magmaFloatComplex *A, const magma_int_t *lda,
453  float *w,
454  magmaFloatComplex *work, const magma_int_t *lwork,
456  magma_int_t *iwork, const magma_int_t *liwork,
457  magma_int_t *info );
458 
459 void lapackf77_cheevr( const char *jobz, const char *range, const char *uplo,
460  const magma_int_t *n,
461  magmaFloatComplex *A, const magma_int_t *lda,
462  float *vl, float *vu,
463  magma_int_t *il, magma_int_t *iu, float *abstol,
464  magma_int_t *m, float *w, magmaFloatComplex *z__,
465  magma_int_t *ldz, magma_int_t *isuppz,
466  magmaFloatComplex *work, magma_int_t *lwork,
467  float *rwork, magma_int_t *lrwork,
468  magma_int_t *iwork, magma_int_t *liwork, magma_int_t *info);
469 
470 void lapackf77_cheevx( const char *jobz, const char *range, const char *uplo,
471  const magma_int_t *n,
472  magmaFloatComplex *A, const magma_int_t *lda,
473  float *vl, float *vu,
474  magma_int_t *il, magma_int_t *iu, float *abstol,
475  magma_int_t *m, float *w, magmaFloatComplex *z__,
476  magma_int_t *ldz, magmaFloatComplex *work, magma_int_t *lwork,
477  float *rwork, magma_int_t *iwork, magma_int_t *ifail, magma_int_t *info);
478 
479 void lapackf77_chegs2( const magma_int_t *itype, const char *uplo,
480  const magma_int_t *n,
481  magmaFloatComplex *A, const magma_int_t *lda,
482  magmaFloatComplex *B, const magma_int_t *ldb,
483  magma_int_t *info );
484 
485 void lapackf77_chegst( const magma_int_t *itype, const char *uplo,
486  const magma_int_t *n,
487  magmaFloatComplex *A, const magma_int_t *lda,
488  magmaFloatComplex *B, const magma_int_t *ldb,
489  magma_int_t *info );
490 
491 void lapackf77_chegvd( const magma_int_t *itype, const char *jobz, const char *uplo,
492  const magma_int_t *n,
493  magmaFloatComplex *A, const magma_int_t *lda,
494  magmaFloatComplex *B, const magma_int_t *ldb,
495  float *w,
496  magmaFloatComplex *work, const magma_int_t *lwork,
498  magma_int_t *iwork, const magma_int_t *liwork,
499  magma_int_t *info );
500 
501 void lapackf77_chetd2( const char *uplo,
502  const magma_int_t *n,
503  magmaFloatComplex *A, const magma_int_t *lda,
504  float *d, float *e,
505  magmaFloatComplex *tau,
506  magma_int_t *info );
507 
508 void lapackf77_chetrd( const char *uplo,
509  const magma_int_t *n,
510  magmaFloatComplex *A, const magma_int_t *lda,
511  float *d, float *e,
512  magmaFloatComplex *tau,
513  magmaFloatComplex *work, const magma_int_t *lwork,
514  magma_int_t *info );
515 
516 void lapackf77_chetrf( const char *uplo,
517  const magma_int_t *n,
518  magmaFloatComplex *A, const magma_int_t *lda,
519  magma_int_t *ipiv,
520  magmaFloatComplex *work, const magma_int_t *lwork,
521  magma_int_t *info );
522 
523 void lapackf77_chseqr( const char *job, const char *compz,
524  const magma_int_t *n,
525  const magma_int_t *ilo, const magma_int_t *ihi,
526  magmaFloatComplex *H, const magma_int_t *ldh,
527  WSPLIT,
528  magmaFloatComplex *Z, const magma_int_t *ldz,
529  magmaFloatComplex *work, const magma_int_t *lwork,
530  magma_int_t *info );
531 
532 void lapackf77_clabrd( const magma_int_t *m, const magma_int_t *n, const magma_int_t *nb,
533  magmaFloatComplex *A, const magma_int_t *lda,
534  float *d, float *e,
535  magmaFloatComplex *tauq,
536  magmaFloatComplex *taup,
537  magmaFloatComplex *X, const magma_int_t *ldx,
538  magmaFloatComplex *Y, const magma_int_t *ldy );
539 
540 void lapackf77_cladiv( magmaFloatComplex *ret_val,
541  magmaFloatComplex *x,
542  magmaFloatComplex *y );
543 
544 void lapackf77_clacgv( const magma_int_t *n,
545  magmaFloatComplex *x, const magma_int_t *incx );
546 
547 void lapackf77_clacpy( const char *uplo,
548  const magma_int_t *m, const magma_int_t *n,
549  const magmaFloatComplex *A, const magma_int_t *lda,
550  magmaFloatComplex *B, const magma_int_t *ldb );
551 
552 void lapackf77_clahef( const char *uplo,
553  const magma_int_t *n, const magma_int_t *kn,
554  magma_int_t *kb,
555  magmaFloatComplex *A, const magma_int_t lda,
556  magma_int_t *ipiv,
557  magmaFloatComplex *work, const magma_int_t *ldwork,
558  magma_int_t *info );
559 
560 float lapackf77_clange( const char *norm,
561  const magma_int_t *m, const magma_int_t *n,
562  const magmaFloatComplex *A, const magma_int_t *lda,
563  float *work );
564 
565 float lapackf77_clanhe( const char *norm, const char *uplo,
566  const magma_int_t *n,
567  const magmaFloatComplex *A, const magma_int_t *lda,
568  float * work );
569 
570 float lapackf77_clanht( const char* norm, const magma_int_t* n,
571  const float* d, const magmaFloatComplex* e );
572 
573 float lapackf77_clansy( const char *norm, const char *uplo,
574  const magma_int_t *n,
575  const magmaFloatComplex *A, const magma_int_t *lda,
576  float * work );
577 
578 void lapackf77_claqp2 ( magma_int_t *m, magma_int_t *n, magma_int_t *offset,
579  magmaFloatComplex *a, magma_int_t *lda, magma_int_t *jpvt,
580  magmaFloatComplex *tau,
581  float *vn1, float *vn2,
582  magmaFloatComplex *work );
583 
584 void lapackf77_clarf ( char *side, magma_int_t *m, magma_int_t *n,
585  magmaFloatComplex *v, magma_int_t *incv,
586  magmaFloatComplex *tau,
587  magmaFloatComplex *C, magma_int_t *ldc,
588  magmaFloatComplex *work );
589 
590 void lapackf77_clarfb( const char *side, const char *trans, const char *direct, const char *storev,
591  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
592  const magmaFloatComplex *V, const magma_int_t *ldv,
593  const magmaFloatComplex *T, const magma_int_t *ldt,
594  magmaFloatComplex *C, const magma_int_t *ldc,
595  magmaFloatComplex *work, const magma_int_t *ldwork );
596 
597 void lapackf77_clarfg( const magma_int_t *n,
598  magmaFloatComplex *alpha,
599  magmaFloatComplex *x, const magma_int_t *incx,
600  magmaFloatComplex *tau );
601 
602 void lapackf77_clarft( const char *direct, const char *storev,
603  const magma_int_t *n, const magma_int_t *k,
604  magmaFloatComplex *V, const magma_int_t *ldv,
605  const magmaFloatComplex *tau,
606  magmaFloatComplex *T, const magma_int_t *ldt );
607 
608 void lapackf77_clarnv( const magma_int_t *idist, magma_int_t *iseed, const magma_int_t *n,
609  magmaFloatComplex *x );
610 
611 void lapackf77_clartg( magmaFloatComplex *F,
612  magmaFloatComplex *G,
613  float *cs,
614  magmaFloatComplex *SN,
615  magmaFloatComplex *R );
616 
617 void lapackf77_clascl( const char *type,
618  const magma_int_t *kl, const magma_int_t *ku,
619  float *cfrom,
620  float *cto,
621  const magma_int_t *m, const magma_int_t *n,
622  magmaFloatComplex *A, const magma_int_t *lda,
623  magma_int_t *info );
624 
625 void lapackf77_claset( const char *uplo,
626  const magma_int_t *m, const magma_int_t *n,
627  const magmaFloatComplex *alpha,
628  const magmaFloatComplex *beta,
629  magmaFloatComplex *A, const magma_int_t *lda );
630 
631 void lapackf77_claswp( const magma_int_t *n,
632  magmaFloatComplex *A, const magma_int_t *lda,
633  const magma_int_t *k1, const magma_int_t *k2,
634  magma_int_t *ipiv,
635  const magma_int_t *incx );
636 
637 void lapackf77_clatrd( const char *uplo,
638  const magma_int_t *n, const magma_int_t *nb,
639  magmaFloatComplex *A, const magma_int_t *lda,
640  float *e,
641  magmaFloatComplex *tau,
642  magmaFloatComplex *work, const magma_int_t *ldwork );
643 
644 void lapackf77_clauum( const char *uplo,
645  const magma_int_t *n,
646  magmaFloatComplex *A, const magma_int_t *lda,
647  magma_int_t *info );
648 
649 void lapackf77_clavhe( const char *uplo, const char *trans, const char *diag,
650  magma_int_t *n, magma_int_t *nrhs,
651  magmaFloatComplex *A, magma_int_t *lda,
652  magma_int_t *ipiv,
653  magmaFloatComplex *B, magma_int_t *ldb,
654  magma_int_t *info );
655 
656 void lapackf77_cposv( const char *uplo,
657  const magma_int_t *n, const magma_int_t *nrhs,
658  magmaFloatComplex *A, const magma_int_t *lda,
659  magmaFloatComplex *B, const magma_int_t *ldb,
660  magma_int_t *info );
661 
662 void lapackf77_cpotrf( const char *uplo,
663  const magma_int_t *n,
664  magmaFloatComplex *A, const magma_int_t *lda,
665  magma_int_t *info );
666 
667 void lapackf77_cpotri( const char *uplo,
668  const magma_int_t *n,
669  magmaFloatComplex *A, const magma_int_t *lda,
670  magma_int_t *info );
671 
672 void lapackf77_cpotrs( const char *uplo,
673  const magma_int_t *n, const magma_int_t *nrhs,
674  const magmaFloatComplex *A, const magma_int_t *lda,
675  magmaFloatComplex *B, const magma_int_t *ldb,
676  magma_int_t *info );
677 
678 void lapackf77_cstedc( const char *compz,
679  const magma_int_t *n,
680  float *d, float *e,
681  magmaFloatComplex *Z, const magma_int_t *ldz,
682  magmaFloatComplex *work, const magma_int_t *lwork,
684  magma_int_t *iwork, const magma_int_t *liwork,
685  magma_int_t *info );
686 
687 void lapackf77_cstein( const magma_int_t *n,
688  const float *d, const float *e,
689  const magma_int_t *m,
690  const float *w,
691  const magma_int_t *iblock,
692  const magma_int_t *isplit,
693  magmaFloatComplex *Z, const magma_int_t *ldz,
694  float *work, magma_int_t *iwork, magma_int_t *ifailv,
695  magma_int_t *info );
696 
697 void lapackf77_cstemr( const char *jobz, const char *range,
698  const magma_int_t *n,
699  float *d, float *e,
700  const float *vl, const float *vu,
701  const magma_int_t *il, const magma_int_t *iu,
702  magma_int_t *m,
703  float *w,
704  magmaFloatComplex *Z, const magma_int_t *ldz,
705  const magma_int_t *nzc, magma_int_t *isuppz, magma_int_t *tryrac,
706  float *work, const magma_int_t *lwork,
707  magma_int_t *iwork, const magma_int_t *liwork,
708  magma_int_t *info );
709 
710 void lapackf77_csteqr( const char *compz,
711  const magma_int_t *n,
712  float *d, float *e,
713  magmaFloatComplex *Z, const magma_int_t *ldz,
714  float *work,
715  magma_int_t *info );
716 
717 #if defined(PRECISION_z) || defined(PRECISION_c)
718 void lapackf77_csymv( const char *uplo,
719  const magma_int_t *n,
720  const magmaFloatComplex *alpha,
721  const magmaFloatComplex *A, const magma_int_t *lda,
722  const magmaFloatComplex *x, const magma_int_t *incx,
723  const magmaFloatComplex *beta,
724  magmaFloatComplex *y, const magma_int_t *incy );
725 #endif
726 
727 void lapackf77_ctrevc( const char *side, const char *howmny,
728  magma_int_t *select, const magma_int_t *n,
729  magmaFloatComplex *T, const magma_int_t *ldt,
730  magmaFloatComplex *Vl, const magma_int_t *ldvl,
731  magmaFloatComplex *Vr, const magma_int_t *ldvr,
732  const magma_int_t *mm, magma_int_t *m,
733  magmaFloatComplex *work,
734  DWORKFORZ
735  magma_int_t *info );
736 
737 void lapackf77_ctrtri( const char *uplo, const char *diag,
738  const magma_int_t *n,
739  magmaFloatComplex *A, const magma_int_t *lda,
740  magma_int_t *info );
741 
742 void lapackf77_cung2r( const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
743  magmaFloatComplex *A, const magma_int_t *lda,
744  const magmaFloatComplex *tau,
745  magmaFloatComplex *work,
746  magma_int_t *info );
747 
748 void lapackf77_cungbr( const char *vect,
749  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
750  magmaFloatComplex *A, const magma_int_t *lda,
751  const magmaFloatComplex *tau,
752  magmaFloatComplex *work, const magma_int_t *lwork,
753  magma_int_t *info );
754 
755 void lapackf77_cunghr( const magma_int_t *n,
756  const magma_int_t *ilo, const magma_int_t *ihi,
757  magmaFloatComplex *A, const magma_int_t *lda,
758  const magmaFloatComplex *tau,
759  magmaFloatComplex *work, const magma_int_t *lwork,
760  magma_int_t *info );
761 
762 void lapackf77_cunglq( const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
763  magmaFloatComplex *A, const magma_int_t *lda,
764  const magmaFloatComplex *tau,
765  magmaFloatComplex *work, const magma_int_t *lwork,
766  magma_int_t *info );
767 
768 void lapackf77_cungql( const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
769  magmaFloatComplex *A, const magma_int_t *lda,
770  const magmaFloatComplex *tau,
771  magmaFloatComplex *work, const magma_int_t *lwork,
772  magma_int_t *info );
773 
774 void lapackf77_cungqr( const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
775  magmaFloatComplex *A, const magma_int_t *lda,
776  const magmaFloatComplex *tau,
777  magmaFloatComplex *work, const magma_int_t *lwork,
778  magma_int_t *info );
779 
780 void lapackf77_cungtr( const char *uplo,
781  const magma_int_t *n,
782  magmaFloatComplex *A, const magma_int_t *lda,
783  const magmaFloatComplex *tau,
784  magmaFloatComplex *work, const magma_int_t *lwork,
785  magma_int_t *info );
786 
787 void lapackf77_cunm2r( const char *side, const char *trans,
788  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
789  const magmaFloatComplex *A, const magma_int_t *lda,
790  const magmaFloatComplex *tau,
791  magmaFloatComplex *C, const magma_int_t *ldc,
792  magmaFloatComplex *work,
793  magma_int_t *info );
794 
795 void lapackf77_cunmbr( const char *vect, const char *side, const char *trans,
796  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
797  const magmaFloatComplex *A, const magma_int_t *lda,
798  const magmaFloatComplex *tau,
799  magmaFloatComplex *C, const magma_int_t *ldc,
800  magmaFloatComplex *work, const magma_int_t *lwork,
801  magma_int_t *info );
802 
803 void lapackf77_cunmlq( const char *side, const char *trans,
804  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
805  const magmaFloatComplex *A, const magma_int_t *lda,
806  const magmaFloatComplex *tau,
807  magmaFloatComplex *C, const magma_int_t *ldc,
808  magmaFloatComplex *work, const magma_int_t *lwork,
809  magma_int_t *info );
810 
811 void lapackf77_cunmql( const char *side, const char *trans,
812  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
813  const magmaFloatComplex *A, const magma_int_t *lda,
814  const magmaFloatComplex *tau,
815  magmaFloatComplex *C, const magma_int_t *ldc,
816  magmaFloatComplex *work, const magma_int_t *lwork,
817  magma_int_t *info );
818 
819 void lapackf77_cunmqr( const char *side, const char *trans,
820  const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
821  const magmaFloatComplex *A, const magma_int_t *lda,
822  const magmaFloatComplex *tau,
823  magmaFloatComplex *C, const magma_int_t *ldc,
824  magmaFloatComplex *work, const magma_int_t *lwork,
825  magma_int_t *info );
826 
827 void lapackf77_cunmtr( const char *side, const char *uplo, const char *trans,
828  const magma_int_t *m, const magma_int_t *n,
829  const magmaFloatComplex *A, const magma_int_t *lda,
830  const magmaFloatComplex *tau,
831  magmaFloatComplex *C, const magma_int_t *ldc,
832  magmaFloatComplex *work, const magma_int_t *lwork,
833  magma_int_t *info );
834 
835 /*
836  * Real precision extras
837  */
838 void lapackf77_sstebz( const char *range, const char *order,
839  const magma_int_t *n,
840  float *vl, float *vu,
841  magma_int_t *il, magma_int_t *iu,
842  float *abstol,
843  float *d, float *e,
844  const magma_int_t *m, const magma_int_t *nsplit,
845  float *w,
846  magma_int_t *iblock, magma_int_t *isplit,
847  float *work,
848  magma_int_t *iwork,
849  magma_int_t *info );
850 
851 float lapackf77_slamc3( float* a, float* b );
852 
854  float* a,
855  magma_int_t* dtrd1, magma_int_t* dtrd2, magma_int_t* index );
856 
857 float lapackf77_slapy3( float *x, float *y, float *z );
858 
860  float* d, float* q, magma_int_t* ldq, magma_int_t* indxq,
861  float* rho, float* z,
862  float* dlmda, float* w, float* q2,
863  magma_int_t* indx, magma_int_t* indxc, magma_int_t* indxp,
864  magma_int_t* coltyp, magma_int_t* info);
865 
867  float* d,
868  float* z,
869  float* delta,
870  float* rho,
871  float* dlam, magma_int_t* info );
872 
873 void lapackf77_slasrt(const char *id, const magma_int_t *n, float *d, magma_int_t *info);
874 
875 /*
876  * Testing functions
877  */
878 #if defined(PRECISION_z) || defined(PRECISION_c)
879 void lapackf77_cbdt01( const magma_int_t *m, const magma_int_t *n, const magma_int_t *kd,
880  magmaFloatComplex *A, const magma_int_t *lda,
881  magmaFloatComplex *Q, const magma_int_t *ldq,
882  float *d, float *e,
883  magmaFloatComplex *Pt, const magma_int_t *ldpt,
884  magmaFloatComplex *work,
885  float *rwork,
886  float *resid );
887 
888 void lapackf77_cget22( const char *transa, const char *transe, const char *transw, const magma_int_t *n,
889  magmaFloatComplex *A, const magma_int_t *lda,
890  magmaFloatComplex *E, const magma_int_t *lde,
891  magmaFloatComplex *w,
892  magmaFloatComplex *work,
893  float *rwork,
894  float *result );
895 
896 void lapackf77_chet21( const magma_int_t *itype, const char *uplo,
897  const magma_int_t *n, const magma_int_t *kband,
898  magmaFloatComplex *A, const magma_int_t *lda,
899  float *d, float *e,
900  magmaFloatComplex *U, const magma_int_t *ldu,
901  magmaFloatComplex *V, const magma_int_t *ldv,
902  magmaFloatComplex *tau,
903  magmaFloatComplex *work,
904  float *rwork,
905  float *result );
906 
907 void lapackf77_chst01( const magma_int_t *n, const magma_int_t *ilo, const magma_int_t *ihi,
908  magmaFloatComplex *A, const magma_int_t *lda,
909  magmaFloatComplex *H, const magma_int_t *ldh,
910  magmaFloatComplex *Q, const magma_int_t *ldq,
911  magmaFloatComplex *work, const magma_int_t *lwork,
912  float *rwork,
913  float *result );
914 
915 void lapackf77_cstt21( const magma_int_t *n, const magma_int_t *kband,
916  float *AD,
917  float *AE,
918  float *SD,
919  float *SE,
920  magmaFloatComplex *U, const magma_int_t *ldu,
921  magmaFloatComplex *work,
922  float *rwork,
923  float *result );
924 
925 void lapackf77_cunt01( const char *rowcol, const magma_int_t *m, const magma_int_t *n,
926  magmaFloatComplex *U, const magma_int_t *ldu,
927  magmaFloatComplex *work, const magma_int_t *lwork,
928  float *rwork,
929  float *resid );
930 #else
931 void lapackf77_cbdt01( const magma_int_t *m, const magma_int_t *n, const magma_int_t *kd,
932  magmaFloatComplex *A, const magma_int_t *lda,
933  magmaFloatComplex *Q, const magma_int_t *ldq,
934  float *d, float *e,
935  magmaFloatComplex *Pt, const magma_int_t *ldpt,
936  magmaFloatComplex *work,
937  float *resid );
938 
939 void lapackf77_cget22( const char *transa, const char *transe, const char *transw, const magma_int_t *n,
940  magmaFloatComplex *A, const magma_int_t *lda,
941  magmaFloatComplex *E, const magma_int_t *lde,
942  magmaFloatComplex *wr,
943  magmaFloatComplex *wi,
944  float *work,
945  float *result );
946 
947 void lapackf77_chet21( magma_int_t *itype, const char *uplo, const magma_int_t *n, const magma_int_t *kband,
948  magmaFloatComplex *A, const magma_int_t *lda,
949  float *d, float *e,
950  magmaFloatComplex *U, const magma_int_t *ldu,
951  magmaFloatComplex *V, const magma_int_t *ldv,
952  magmaFloatComplex *tau,
953  magmaFloatComplex *work,
954  float *result );
955 
956 void lapackf77_chst01( const magma_int_t *n, const magma_int_t *ilo, const magma_int_t *ihi,
957  magmaFloatComplex *A, const magma_int_t *lda,
958  magmaFloatComplex *H, const magma_int_t *ldh,
959  magmaFloatComplex *Q, const magma_int_t *ldq,
960  magmaFloatComplex *work, const magma_int_t *lwork,
961  float *result );
962 
963 void lapackf77_cstt21( const magma_int_t *n, const magma_int_t *kband,
964  float *AD,
965  float *AE,
966  float *SD,
967  float *SE,
968  magmaFloatComplex *U, const magma_int_t *ldu,
969  magmaFloatComplex *work,
970  float *result );
971 
972 void lapackf77_cunt01( const char *rowcol, const magma_int_t *m, const magma_int_t *n,
973  magmaFloatComplex *U, const magma_int_t *ldu,
974  magmaFloatComplex *work, const magma_int_t *lwork,
975  float *resid );
976 #endif
977 
978 void lapackf77_clarfy( const char *uplo, const magma_int_t *n,
979  magmaFloatComplex *V, const magma_int_t *incv,
980  magmaFloatComplex *tau,
981  magmaFloatComplex *C, const magma_int_t *ldc,
982  magmaFloatComplex *work );
983 
984 void lapackf77_clarfx( const char *side, const magma_int_t *m, const magma_int_t *n,
985  magmaFloatComplex *V,
986  magmaFloatComplex *tau,
987  magmaFloatComplex *C, const magma_int_t *ldc,
988  magmaFloatComplex *work );
989 
990 float lapackf77_cqpt01( const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
991  magmaFloatComplex *A,
992  magmaFloatComplex *Af, const magma_int_t *lda,
993  magmaFloatComplex *tau, magma_int_t *jpvt,
994  magmaFloatComplex *work, const magma_int_t *lwork );
995 
996 void lapackf77_cqrt02( const magma_int_t *m, const magma_int_t *n, const magma_int_t *k,
997  magmaFloatComplex *A,
998  magmaFloatComplex *AF,
999  magmaFloatComplex *Q,
1000  magmaFloatComplex *R, const magma_int_t *lda,
1001  magmaFloatComplex *tau,
1002  magmaFloatComplex *work, const magma_int_t *lwork,
1003  float *rwork,
1004  float *result );
1005 
1007  const char *dist, magma_int_t *iseed, const char *sym, float *d,
1008  magma_int_t *mode, const float *cond, const float *dmax,
1009  magma_int_t *kl, magma_int_t *ku, const char *pack,
1010  magmaFloatComplex *a, magma_int_t *lda, magmaFloatComplex *work, magma_int_t *info );
1011 
1012 #ifdef __cplusplus
1013 }
1014 #endif
1015 
1016 #undef DWORKFORZ
1017 #undef DWORKFORZ_AND_LD
1018 #undef WSPLIT
1019 #undef PRECISION_c
1020 
1021 #endif /* MAGMA_CLAPACK_H */
#define lapackf77_cunmlq
#define blasf77_ctrmm
Definition: magma_clapack.h:41
#define blasf77_chemv
Definition: magma_clapack.h:31
#define lapackf77_cunghr
#define lapackf77_cungbr
#define lapackf77_cbdsqr
Definition: magma_clapack.h:53
#define lapackf77_clarfy
#define lapackf77_clacpy
Definition: magma_clapack.h:86
#define lapackf77_cpotrs
#define lapackf77_clatms
#define blasf77_cher2
Definition: magma_clapack.h:32
#define lapackf77_cpotrf
#define lapackf77_chbtrd
Definition: magma_clapack.h:71
#define lapackf77_cunmbr
#define lapackf77_cgeqlf
Definition: magma_clapack.h:63
#define lapackf77_claqp2
Definition: magma_clapack.h:93
#define lapackf77_cunglq
#define blasf77_ctrsm
Definition: magma_clapack.h:43
#define lapackf77_cung2r
#define lapackf77_cheevd
Definition: magma_clapack.h:73
#define lapackf77_clarfx
#define B(i, j)
Definition: chegst.cpp:17
#define lapackf77_clarf
Definition: magma_clapack.h:94
#define T(m)
Definition: zgeqrf_mc.cpp:14
#define blasf77_cherk
Definition: magma_clapack.h:34
#define lapackf77_clarnv
Definition: magma_clapack.h:98
#define lapackf77_cunmql
#define blasf77_csscal
Definition: magma_clapack.h:36
int magma_int_t
Definition: magmablas.h:12
#define lapackf77_cstein
#define lapackf77_cunt01
#define lapackf77_cungqr
#define lapackf77_cposv
#define C(i, j)
#define lapackf77_clarfg
Definition: magma_clapack.h:96
#define blasf77_csyr2k
Definition: magma_clapack.h:39
#define lapackf77_clatrd
#define lapackf77_csteqr
#define lapackf77_cheevx
Definition: magma_clapack.h:75
#define lapackf77_cgetrf
Definition: magma_clapack.h:68
#define lapackf77_cgebal
Definition: magma_clapack.h:55
#define lapackf77_cqpt01
#define lapackf77_clabrd
Definition: magma_clapack.h:83
#define lapackf77_chst01
#define lapackf77_clansy
Definition: magma_clapack.h:91
#define lapackf77_claswp
#define blasf77_cgerc
Definition: magma_clapack.h:28
#define lapackf77_chegs2
Definition: magma_clapack.h:76
#define vl(i, j)
#define Z(ix, iy)
Definition: dstedx.cpp:14
#define lapackf77_cget22
#define lapackf77_slamc3
Definition: magma_clapack.h:48
#define blasf77_icamax
Definition: magma_clapack.h:23
#define lapackf77_cstedc
#define blasf77_ccopy
Definition: magma_clapack.h:25
#define lapackf77_chetrd
Definition: magma_clapack.h:80
#define lapackf77_cunmtr
#define lapackf77_cgehrd
Definition: magma_clapack.h:60
#define lapackf77_chegvd
Definition: magma_clapack.h:78
#define lapackf77_cgebd2
Definition: magma_clapack.h:56
#define WSPLIT
#define F(i, j)
#define DWORKFORZ
#define lapackf77_cgeev
Definition: magma_clapack.h:58
#define lapackf77_cunmqr
#define lapackf77_cbdt01
#define blasf77_cher2k
Definition: magma_clapack.h:33
#define blasf77_csyrk
Definition: magma_clapack.h:40
#define lapackf77_clascl
#define blasf77_ctrsv
Definition: magma_clapack.h:44
#define lapackf77_cstemr
#define lapackf77_cqrt02
#define lapackf77_slamrg
Definition: magma_clapack.h:49
#define lapackf77_ctrevc
#define lapackf77_cgels
Definition: magma_clapack.h:62
#define lapackf77_clavhe
#define lapackf77_clauum
#define lapackf77_cheev
Definition: magma_clapack.h:72
#define lapackf77_cunm2r
#define lapackf77_ctrtri
#define lapackf77_cgetri
Definition: magma_clapack.h:69
#define blasf77_cgemm
Definition: magma_clapack.h:26
#define lapackf77_cgetrs
Definition: magma_clapack.h:70
#define lapackf77_chetd2
Definition: magma_clapack.h:79
#define blasf77_csymm
Definition: magma_clapack.h:38
#define Y(i, j)
#define lapackf77_chseqr
Definition: magma_clapack.h:82
#define A(i, j)
Definition: cprint.cpp:16
#define lapackf77_chegst
Definition: magma_clapack.h:77
#define lapackf77_chetrf
Definition: magma_clapack.h:81
#define E(m, n)
#define blasf77_ctrmv
Definition: magma_clapack.h:42
#define lapackf77_cgesv
Definition: magma_clapack.h:66
#define lapackf77_chet21
#define blasf77_cgeru
Definition: magma_clapack.h:29
#define lapackf77_slaed4
Definition: magma_clapack.h:47
#define DWORKFORZ_AND_LD
#define blasf77_cswap
Definition: magma_clapack.h:37
#define lapackf77_slasrt
Definition: magma_clapack.h:50
#define lapackf77_csymv
#define lapackf77_slapy3
Definition: magma_clapack.h:92
#define lapackf77_cpotri
#define blasf77_cgemv
Definition: magma_clapack.h:27
#define lapackf77_slaed2
Definition: magma_clapack.h:46
#define lapackf77_cgeqrf
Definition: magma_clapack.h:65
#define lapackf77_clahef
Definition: magma_clapack.h:87
#define lapackf77_clanht
Definition: magma_clapack.h:90
#define lapackf77_clanhe
Definition: magma_clapack.h:89
#define lapackf77_cgelqf
Definition: magma_clapack.h:61
#define blasf77_cscal
Definition: magma_clapack.h:35
#define lapackf77_cheevr
Definition: magma_clapack.h:74
#define lapackf77_clange
Definition: magma_clapack.h:88
#define lapackf77_cungtr
#define lapackf77_cgebak
Definition: magma_clapack.h:54
#define lapackf77_cstt21
#define lapackf77_cgesvd
Definition: magma_clapack.h:67
#define lapackf77_cgebrd
Definition: magma_clapack.h:57
#define lapackf77_clarft
Definition: magma_clapack.h:97
#define lapackf77_claset
#define lapackf77_clarfb
Definition: magma_clapack.h:95
#define lapackf77_sstebz
Definition: magma_clapack.h:51
#define lapackf77_clartg
Definition: magma_clapack.h:99
#define blasf77_chemm
Definition: magma_clapack.h:30
#define blasf77_caxpy
Definition: magma_clapack.h:24
#define Q(ix, iy)
Definition: dlaex0.cpp:14
#define V(m)
#define lapackf77_cgeqp3
Definition: magma_clapack.h:64
#define lapackf77_cladiv
Definition: magma_clapack.h:84
#define lapackf77_cungql
#define lapackf77_cgehd2
Definition: magma_clapack.h:59
#define lapackf77_clacgv
Definition: magma_clapack.h:85