1 /*****************************************************************************
2   Copyright (c) 2010, Intel Corp.
3   All rights reserved.
4 
5   Redistribution and use in source and binary forms, with or without
6   modification, are permitted provided that the following conditions are met:
7 
8     * Redistributions of source code must retain the above copyright notice,
9       this list of conditions and the following disclaimer.
10     * Redistributions in binary form must reproduce the above copyright
11       notice, this list of conditions and the following disclaimer in the
12       documentation and/or other materials provided with the distribution.
13     * Neither the name of Intel Corporation nor the names of its contributors
14       may be used to endorse or promote products derived from this software
15       without specific prior written permission.
16 
17   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
18   AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19   IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20   ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
21   LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
22   CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
23   SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
24   INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
25   CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
26   ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
27   THE POSSIBILITY OF SUCH DAMAGE.
28 ******************************************************************************
29 * Contents: Native C interface to LAPACK
30 * Author: Intel Corporation
31 * Generated November, 2011
32 *****************************************************************************/
33 
34 #ifndef _MKL_LAPACKE_H_
35 
36 #ifndef _LAPACKE_H_
37 #define _LAPACKE_H_
38 
39 /*
40 *  Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes
41 */
42 #ifdef HAVE_LAPACK_CONFIG_H
43 #include "lapacke_config.h"
44 #endif
45 
46 #include <stdlib.h>
47 
48 #ifndef lapack_int
49 #define lapack_int     int
50 #endif
51 
52 #ifndef lapack_logical
53 #define lapack_logical lapack_int
54 #endif
55 
56 /* Complex types are structures equivalent to the
57 * Fortran complex types COMPLEX(4) and COMPLEX(8).
58 *
59 * One can also redefine the types with his own types
60 * for example by including in the code definitions like
61 *
62 * #define lapack_complex_float std::complex<float>
63 * #define lapack_complex_double std::complex<double>
64 *
65 * or define these types in the command line:
66 *
67 * -Dlapack_complex_float="std::complex<float>"
68 * -Dlapack_complex_double="std::complex<double>"
69 */
70 
71 #ifndef LAPACK_COMPLEX_CUSTOM
72 
73 /* Complex type (single precision) */
74 #ifndef lapack_complex_float
75 #include <complex.h>
76 #define lapack_complex_float    float _Complex
77 #endif
78 
79 #ifndef lapack_complex_float_real
80 #define lapack_complex_float_real(z)       (creal(z))
81 #endif
82 
83 #ifndef lapack_complex_float_imag
84 #define lapack_complex_float_imag(z)       (cimag(z))
85 #endif
86 
87 lapack_complex_float lapack_make_complex_float( float re, float im );
88 
89 /* Complex type (double precision) */
90 #ifndef lapack_complex_double
91 #include <complex.h>
92 #define lapack_complex_double   double _Complex
93 #endif
94 
95 #ifndef lapack_complex_double_real
96 #define lapack_complex_double_real(z)      (creal(z))
97 #endif
98 
99 #ifndef lapack_complex_double_imag
100 #define lapack_complex_double_imag(z)       (cimag(z))
101 #endif
102 
103 lapack_complex_double lapack_make_complex_double( double re, double im );
104 
105 #endif
106 
107 
108 #ifdef __cplusplus
109 extern "C" {
110 #endif /* __cplusplus */
111 
112 #ifndef LAPACKE_malloc
113 #define LAPACKE_malloc( size ) malloc( size )
114 #endif
115 #ifndef LAPACKE_free
116 #define LAPACKE_free( p )      free( p )
117 #endif
118 
119 #define LAPACK_C2INT( x ) (lapack_int)(*((float*)&x ))
120 #define LAPACK_Z2INT( x ) (lapack_int)(*((double*)&x ))
121 
122 #define LAPACK_ROW_MAJOR               101
123 #define LAPACK_COL_MAJOR               102
124 
125 #define LAPACK_WORK_MEMORY_ERROR       -1010
126 #define LAPACK_TRANSPOSE_MEMORY_ERROR  -1011
127 
128 /* Callback logical functions of one, two, or three arguments are used
129 *  to select eigenvalues to sort to the top left of the Schur form.
130 *  The value is selected if function returns TRUE (non-zero). */
131 
132 typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );
133 typedef lapack_logical (*LAPACK_S_SELECT3)
134     ( const float*, const float*, const float* );
135 typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );
136 typedef lapack_logical (*LAPACK_D_SELECT3)
137     ( const double*, const double*, const double* );
138 
139 typedef lapack_logical (*LAPACK_C_SELECT1) ( const lapack_complex_float* );
140 typedef lapack_logical (*LAPACK_C_SELECT2)
141     ( const lapack_complex_float*, const lapack_complex_float* );
142 typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* );
143 typedef lapack_logical (*LAPACK_Z_SELECT2)
144     ( const lapack_complex_double*, const lapack_complex_double* );
145 
146 #include "lapacke_mangling.h"
147 
148 #define LAPACK_lsame LAPACK_GLOBAL(lsame,LSAME)
149 lapack_logical LAPACK_lsame( char* ca,  char* cb,
150                               lapack_int lca, lapack_int lcb );
151 
152 /* C-LAPACK function prototypes */
153 
154 lapack_int LAPACKE_sbdsdc( int matrix_order, char uplo, char compq,
155                            lapack_int n, float* d, float* e, float* u,
156                            lapack_int ldu, float* vt, lapack_int ldvt, float* q,
157                            lapack_int* iq );
158 lapack_int LAPACKE_dbdsdc( int matrix_order, char uplo, char compq,
159                            lapack_int n, double* d, double* e, double* u,
160                            lapack_int ldu, double* vt, lapack_int ldvt,
161                            double* q, lapack_int* iq );
162 
163 lapack_int LAPACKE_sbdsqr( int matrix_order, char uplo, lapack_int n,
164                            lapack_int ncvt, lapack_int nru, lapack_int ncc,
165                            float* d, float* e, float* vt, lapack_int ldvt,
166                            float* u, lapack_int ldu, float* c, lapack_int ldc );
167 lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n,
168                            lapack_int ncvt, lapack_int nru, lapack_int ncc,
169                            double* d, double* e, double* vt, lapack_int ldvt,
170                            double* u, lapack_int ldu, double* c,
171                            lapack_int ldc );
172 lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n,
173                            lapack_int ncvt, lapack_int nru, lapack_int ncc,
174                            float* d, float* e, lapack_complex_float* vt,
175                            lapack_int ldvt, lapack_complex_float* u,
176                            lapack_int ldu, lapack_complex_float* c,
177                            lapack_int ldc );
178 lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n,
179                            lapack_int ncvt, lapack_int nru, lapack_int ncc,
180                            double* d, double* e, lapack_complex_double* vt,
181                            lapack_int ldvt, lapack_complex_double* u,
182                            lapack_int ldu, lapack_complex_double* c,
183                            lapack_int ldc );
184 
185 lapack_int LAPACKE_sdisna( char job, lapack_int m, lapack_int n, const float* d,
186                            float* sep );
187 lapack_int LAPACKE_ddisna( char job, lapack_int m, lapack_int n,
188                            const double* d, double* sep );
189 
190 lapack_int LAPACKE_sgbbrd( int matrix_order, char vect, lapack_int m,
191                            lapack_int n, lapack_int ncc, lapack_int kl,
192                            lapack_int ku, float* ab, lapack_int ldab, float* d,
193                            float* e, float* q, lapack_int ldq, float* pt,
194                            lapack_int ldpt, float* c, lapack_int ldc );
195 lapack_int LAPACKE_dgbbrd( int matrix_order, char vect, lapack_int m,
196                            lapack_int n, lapack_int ncc, lapack_int kl,
197                            lapack_int ku, double* ab, lapack_int ldab,
198                            double* d, double* e, double* q, lapack_int ldq,
199                            double* pt, lapack_int ldpt, double* c,
200                            lapack_int ldc );
201 lapack_int LAPACKE_cgbbrd( int matrix_order, char vect, lapack_int m,
202                            lapack_int n, lapack_int ncc, lapack_int kl,
203                            lapack_int ku, lapack_complex_float* ab,
204                            lapack_int ldab, float* d, float* e,
205                            lapack_complex_float* q, lapack_int ldq,
206                            lapack_complex_float* pt, lapack_int ldpt,
207                            lapack_complex_float* c, lapack_int ldc );
208 lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m,
209                            lapack_int n, lapack_int ncc, lapack_int kl,
210                            lapack_int ku, lapack_complex_double* ab,
211                            lapack_int ldab, double* d, double* e,
212                            lapack_complex_double* q, lapack_int ldq,
213                            lapack_complex_double* pt, lapack_int ldpt,
214                            lapack_complex_double* c, lapack_int ldc );
215 
216 lapack_int LAPACKE_sgbcon( int matrix_order, char norm, lapack_int n,
217                            lapack_int kl, lapack_int ku, const float* ab,
218                            lapack_int ldab, const lapack_int* ipiv, float anorm,
219                            float* rcond );
220 lapack_int LAPACKE_dgbcon( int matrix_order, char norm, lapack_int n,
221                            lapack_int kl, lapack_int ku, const double* ab,
222                            lapack_int ldab, const lapack_int* ipiv,
223                            double anorm, double* rcond );
224 lapack_int LAPACKE_cgbcon( int matrix_order, char norm, lapack_int n,
225                            lapack_int kl, lapack_int ku,
226                            const lapack_complex_float* ab, lapack_int ldab,
227                            const lapack_int* ipiv, float anorm, float* rcond );
228 lapack_int LAPACKE_zgbcon( int matrix_order, char norm, lapack_int n,
229                            lapack_int kl, lapack_int ku,
230                            const lapack_complex_double* ab, lapack_int ldab,
231                            const lapack_int* ipiv, double anorm,
232                            double* rcond );
233 
234 lapack_int LAPACKE_sgbequ( int matrix_order, lapack_int m, lapack_int n,
235                            lapack_int kl, lapack_int ku, const float* ab,
236                            lapack_int ldab, float* r, float* c, float* rowcnd,
237                            float* colcnd, float* amax );
238 lapack_int LAPACKE_dgbequ( int matrix_order, lapack_int m, lapack_int n,
239                            lapack_int kl, lapack_int ku, const double* ab,
240                            lapack_int ldab, double* r, double* c,
241                            double* rowcnd, double* colcnd, double* amax );
242 lapack_int LAPACKE_cgbequ( int matrix_order, lapack_int m, lapack_int n,
243                            lapack_int kl, lapack_int ku,
244                            const lapack_complex_float* ab, lapack_int ldab,
245                            float* r, float* c, float* rowcnd, float* colcnd,
246                            float* amax );
247 lapack_int LAPACKE_zgbequ( int matrix_order, lapack_int m, lapack_int n,
248                            lapack_int kl, lapack_int ku,
249                            const lapack_complex_double* ab, lapack_int ldab,
250                            double* r, double* c, double* rowcnd, double* colcnd,
251                            double* amax );
252 
253 lapack_int LAPACKE_sgbequb( int matrix_order, lapack_int m, lapack_int n,
254                             lapack_int kl, lapack_int ku, const float* ab,
255                             lapack_int ldab, float* r, float* c, float* rowcnd,
256                             float* colcnd, float* amax );
257 lapack_int LAPACKE_dgbequb( int matrix_order, lapack_int m, lapack_int n,
258                             lapack_int kl, lapack_int ku, const double* ab,
259                             lapack_int ldab, double* r, double* c,
260                             double* rowcnd, double* colcnd, double* amax );
261 lapack_int LAPACKE_cgbequb( int matrix_order, lapack_int m, lapack_int n,
262                             lapack_int kl, lapack_int ku,
263                             const lapack_complex_float* ab, lapack_int ldab,
264                             float* r, float* c, float* rowcnd, float* colcnd,
265                             float* amax );
266 lapack_int LAPACKE_zgbequb( int matrix_order, lapack_int m, lapack_int n,
267                             lapack_int kl, lapack_int ku,
268                             const lapack_complex_double* ab, lapack_int ldab,
269                             double* r, double* c, double* rowcnd,
270                             double* colcnd, double* amax );
271 
272 lapack_int LAPACKE_sgbrfs( int matrix_order, char trans, lapack_int n,
273                            lapack_int kl, lapack_int ku, lapack_int nrhs,
274                            const float* ab, lapack_int ldab, const float* afb,
275                            lapack_int ldafb, const lapack_int* ipiv,
276                            const float* b, lapack_int ldb, float* x,
277                            lapack_int ldx, float* ferr, float* berr );
278 lapack_int LAPACKE_dgbrfs( int matrix_order, char trans, lapack_int n,
279                            lapack_int kl, lapack_int ku, lapack_int nrhs,
280                            const double* ab, lapack_int ldab, const double* afb,
281                            lapack_int ldafb, const lapack_int* ipiv,
282                            const double* b, lapack_int ldb, double* x,
283                            lapack_int ldx, double* ferr, double* berr );
284 lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n,
285                            lapack_int kl, lapack_int ku, lapack_int nrhs,
286                            const lapack_complex_float* ab, lapack_int ldab,
287                            const lapack_complex_float* afb, lapack_int ldafb,
288                            const lapack_int* ipiv,
289                            const lapack_complex_float* b, lapack_int ldb,
290                            lapack_complex_float* x, lapack_int ldx, float* ferr,
291                            float* berr );
292 lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n,
293                            lapack_int kl, lapack_int ku, lapack_int nrhs,
294                            const lapack_complex_double* ab, lapack_int ldab,
295                            const lapack_complex_double* afb, lapack_int ldafb,
296                            const lapack_int* ipiv,
297                            const lapack_complex_double* b, lapack_int ldb,
298                            lapack_complex_double* x, lapack_int ldx,
299                            double* ferr, double* berr );
300 
301 lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed,
302                             lapack_int n, lapack_int kl, lapack_int ku,
303                             lapack_int nrhs, const float* ab, lapack_int ldab,
304                             const float* afb, lapack_int ldafb,
305                             const lapack_int* ipiv, const float* r,
306                             const float* c, const float* b, lapack_int ldb,
307                             float* x, lapack_int ldx, float* rcond, float* berr,
308                             lapack_int n_err_bnds, float* err_bnds_norm,
309                             float* err_bnds_comp, lapack_int nparams,
310                             float* params );
311 lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed,
312                             lapack_int n, lapack_int kl, lapack_int ku,
313                             lapack_int nrhs, const double* ab, lapack_int ldab,
314                             const double* afb, lapack_int ldafb,
315                             const lapack_int* ipiv, const double* r,
316                             const double* c, const double* b, lapack_int ldb,
317                             double* x, lapack_int ldx, double* rcond,
318                             double* berr, lapack_int n_err_bnds,
319                             double* err_bnds_norm, double* err_bnds_comp,
320                             lapack_int nparams, double* params );
321 lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed,
322                             lapack_int n, lapack_int kl, lapack_int ku,
323                             lapack_int nrhs, const lapack_complex_float* ab,
324                             lapack_int ldab, const lapack_complex_float* afb,
325                             lapack_int ldafb, const lapack_int* ipiv,
326                             const float* r, const float* c,
327                             const lapack_complex_float* b, lapack_int ldb,
328                             lapack_complex_float* x, lapack_int ldx,
329                             float* rcond, float* berr, lapack_int n_err_bnds,
330                             float* err_bnds_norm, float* err_bnds_comp,
331                             lapack_int nparams, float* params );
332 lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed,
333                             lapack_int n, lapack_int kl, lapack_int ku,
334                             lapack_int nrhs, const lapack_complex_double* ab,
335                             lapack_int ldab, const lapack_complex_double* afb,
336                             lapack_int ldafb, const lapack_int* ipiv,
337                             const double* r, const double* c,
338                             const lapack_complex_double* b, lapack_int ldb,
339                             lapack_complex_double* x, lapack_int ldx,
340                             double* rcond, double* berr, lapack_int n_err_bnds,
341                             double* err_bnds_norm, double* err_bnds_comp,
342                             lapack_int nparams, double* params );
343 
344 lapack_int LAPACKE_sgbsv( int matrix_order, lapack_int n, lapack_int kl,
345                           lapack_int ku, lapack_int nrhs, float* ab,
346                           lapack_int ldab, lapack_int* ipiv, float* b,
347                           lapack_int ldb );
348 lapack_int LAPACKE_dgbsv( int matrix_order, lapack_int n, lapack_int kl,
349                           lapack_int ku, lapack_int nrhs, double* ab,
350                           lapack_int ldab, lapack_int* ipiv, double* b,
351                           lapack_int ldb );
352 lapack_int LAPACKE_cgbsv( int matrix_order, lapack_int n, lapack_int kl,
353                           lapack_int ku, lapack_int nrhs,
354                           lapack_complex_float* ab, lapack_int ldab,
355                           lapack_int* ipiv, lapack_complex_float* b,
356                           lapack_int ldb );
357 lapack_int LAPACKE_zgbsv( int matrix_order, lapack_int n, lapack_int kl,
358                           lapack_int ku, lapack_int nrhs,
359                           lapack_complex_double* ab, lapack_int ldab,
360                           lapack_int* ipiv, lapack_complex_double* b,
361                           lapack_int ldb );
362 
363 lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans,
364                            lapack_int n, lapack_int kl, lapack_int ku,
365                            lapack_int nrhs, float* ab, lapack_int ldab,
366                            float* afb, lapack_int ldafb, lapack_int* ipiv,
367                            char* equed, float* r, float* c, float* b,
368                            lapack_int ldb, float* x, lapack_int ldx,
369                            float* rcond, float* ferr, float* berr,
370                            float* rpivot );
371 lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans,
372                            lapack_int n, lapack_int kl, lapack_int ku,
373                            lapack_int nrhs, double* ab, lapack_int ldab,
374                            double* afb, lapack_int ldafb, lapack_int* ipiv,
375                            char* equed, double* r, double* c, double* b,
376                            lapack_int ldb, double* x, lapack_int ldx,
377                            double* rcond, double* ferr, double* berr,
378                            double* rpivot );
379 lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans,
380                            lapack_int n, lapack_int kl, lapack_int ku,
381                            lapack_int nrhs, lapack_complex_float* ab,
382                            lapack_int ldab, lapack_complex_float* afb,
383                            lapack_int ldafb, lapack_int* ipiv, char* equed,
384                            float* r, float* c, lapack_complex_float* b,
385                            lapack_int ldb, lapack_complex_float* x,
386                            lapack_int ldx, float* rcond, float* ferr,
387                            float* berr, float* rpivot );
388 lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans,
389                            lapack_int n, lapack_int kl, lapack_int ku,
390                            lapack_int nrhs, lapack_complex_double* ab,
391                            lapack_int ldab, lapack_complex_double* afb,
392                            lapack_int ldafb, lapack_int* ipiv, char* equed,
393                            double* r, double* c, lapack_complex_double* b,
394                            lapack_int ldb, lapack_complex_double* x,
395                            lapack_int ldx, double* rcond, double* ferr,
396                            double* berr, double* rpivot );
397 
398 lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans,
399                             lapack_int n, lapack_int kl, lapack_int ku,
400                             lapack_int nrhs, float* ab, lapack_int ldab,
401                             float* afb, lapack_int ldafb, lapack_int* ipiv,
402                             char* equed, float* r, float* c, float* b,
403                             lapack_int ldb, float* x, lapack_int ldx,
404                             float* rcond, float* rpvgrw, float* berr,
405                             lapack_int n_err_bnds, float* err_bnds_norm,
406                             float* err_bnds_comp, lapack_int nparams,
407                             float* params );
408 lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans,
409                             lapack_int n, lapack_int kl, lapack_int ku,
410                             lapack_int nrhs, double* ab, lapack_int ldab,
411                             double* afb, lapack_int ldafb, lapack_int* ipiv,
412                             char* equed, double* r, double* c, double* b,
413                             lapack_int ldb, double* x, lapack_int ldx,
414                             double* rcond, double* rpvgrw, double* berr,
415                             lapack_int n_err_bnds, double* err_bnds_norm,
416                             double* err_bnds_comp, lapack_int nparams,
417                             double* params );
418 lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans,
419                             lapack_int n, lapack_int kl, lapack_int ku,
420                             lapack_int nrhs, lapack_complex_float* ab,
421                             lapack_int ldab, lapack_complex_float* afb,
422                             lapack_int ldafb, lapack_int* ipiv, char* equed,
423                             float* r, float* c, lapack_complex_float* b,
424                             lapack_int ldb, lapack_complex_float* x,
425                             lapack_int ldx, float* rcond, float* rpvgrw,
426                             float* berr, lapack_int n_err_bnds,
427                             float* err_bnds_norm, float* err_bnds_comp,
428                             lapack_int nparams, float* params );
429 lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans,
430                             lapack_int n, lapack_int kl, lapack_int ku,
431                             lapack_int nrhs, lapack_complex_double* ab,
432                             lapack_int ldab, lapack_complex_double* afb,
433                             lapack_int ldafb, lapack_int* ipiv, char* equed,
434                             double* r, double* c, lapack_complex_double* b,
435                             lapack_int ldb, lapack_complex_double* x,
436                             lapack_int ldx, double* rcond, double* rpvgrw,
437                             double* berr, lapack_int n_err_bnds,
438                             double* err_bnds_norm, double* err_bnds_comp,
439                             lapack_int nparams, double* params );
440 
441 lapack_int LAPACKE_sgbtrf( int matrix_order, lapack_int m, lapack_int n,
442                            lapack_int kl, lapack_int ku, float* ab,
443                            lapack_int ldab, lapack_int* ipiv );
444 lapack_int LAPACKE_dgbtrf( int matrix_order, lapack_int m, lapack_int n,
445                            lapack_int kl, lapack_int ku, double* ab,
446                            lapack_int ldab, lapack_int* ipiv );
447 lapack_int LAPACKE_cgbtrf( int matrix_order, lapack_int m, lapack_int n,
448                            lapack_int kl, lapack_int ku,
449                            lapack_complex_float* ab, lapack_int ldab,
450                            lapack_int* ipiv );
451 lapack_int LAPACKE_zgbtrf( int matrix_order, lapack_int m, lapack_int n,
452                            lapack_int kl, lapack_int ku,
453                            lapack_complex_double* ab, lapack_int ldab,
454                            lapack_int* ipiv );
455 
456 lapack_int LAPACKE_sgbtrs( int matrix_order, char trans, lapack_int n,
457                            lapack_int kl, lapack_int ku, lapack_int nrhs,
458                            const float* ab, lapack_int ldab,
459                            const lapack_int* ipiv, float* b, lapack_int ldb );
460 lapack_int LAPACKE_dgbtrs( int matrix_order, char trans, lapack_int n,
461                            lapack_int kl, lapack_int ku, lapack_int nrhs,
462                            const double* ab, lapack_int ldab,
463                            const lapack_int* ipiv, double* b, lapack_int ldb );
464 lapack_int LAPACKE_cgbtrs( int matrix_order, char trans, lapack_int n,
465                            lapack_int kl, lapack_int ku, lapack_int nrhs,
466                            const lapack_complex_float* ab, lapack_int ldab,
467                            const lapack_int* ipiv, lapack_complex_float* b,
468                            lapack_int ldb );
469 lapack_int LAPACKE_zgbtrs( int matrix_order, char trans, lapack_int n,
470                            lapack_int kl, lapack_int ku, lapack_int nrhs,
471                            const lapack_complex_double* ab, lapack_int ldab,
472                            const lapack_int* ipiv, lapack_complex_double* b,
473                            lapack_int ldb );
474 
475 lapack_int LAPACKE_sgebak( int matrix_order, char job, char side, lapack_int n,
476                            lapack_int ilo, lapack_int ihi, const float* scale,
477                            lapack_int m, float* v, lapack_int ldv );
478 lapack_int LAPACKE_dgebak( int matrix_order, char job, char side, lapack_int n,
479                            lapack_int ilo, lapack_int ihi, const double* scale,
480                            lapack_int m, double* v, lapack_int ldv );
481 lapack_int LAPACKE_cgebak( int matrix_order, char job, char side, lapack_int n,
482                            lapack_int ilo, lapack_int ihi, const float* scale,
483                            lapack_int m, lapack_complex_float* v,
484                            lapack_int ldv );
485 lapack_int LAPACKE_zgebak( int matrix_order, char job, char side, lapack_int n,
486                            lapack_int ilo, lapack_int ihi, const double* scale,
487                            lapack_int m, lapack_complex_double* v,
488                            lapack_int ldv );
489 
490 lapack_int LAPACKE_sgebal( int matrix_order, char job, lapack_int n, float* a,
491                            lapack_int lda, lapack_int* ilo, lapack_int* ihi,
492                            float* scale );
493 lapack_int LAPACKE_dgebal( int matrix_order, char job, lapack_int n, double* a,
494                            lapack_int lda, lapack_int* ilo, lapack_int* ihi,
495                            double* scale );
496 lapack_int LAPACKE_cgebal( int matrix_order, char job, lapack_int n,
497                            lapack_complex_float* a, lapack_int lda,
498                            lapack_int* ilo, lapack_int* ihi, float* scale );
499 lapack_int LAPACKE_zgebal( int matrix_order, char job, lapack_int n,
500                            lapack_complex_double* a, lapack_int lda,
501                            lapack_int* ilo, lapack_int* ihi, double* scale );
502 
503 lapack_int LAPACKE_sgebrd( int matrix_order, lapack_int m, lapack_int n,
504                            float* a, lapack_int lda, float* d, float* e,
505                            float* tauq, float* taup );
506 lapack_int LAPACKE_dgebrd( int matrix_order, lapack_int m, lapack_int n,
507                            double* a, lapack_int lda, double* d, double* e,
508                            double* tauq, double* taup );
509 lapack_int LAPACKE_cgebrd( int matrix_order, lapack_int m, lapack_int n,
510                            lapack_complex_float* a, lapack_int lda, float* d,
511                            float* e, lapack_complex_float* tauq,
512                            lapack_complex_float* taup );
513 lapack_int LAPACKE_zgebrd( int matrix_order, lapack_int m, lapack_int n,
514                            lapack_complex_double* a, lapack_int lda, double* d,
515                            double* e, lapack_complex_double* tauq,
516                            lapack_complex_double* taup );
517 
518 lapack_int LAPACKE_sgecon( int matrix_order, char norm, lapack_int n,
519                            const float* a, lapack_int lda, float anorm,
520                            float* rcond );
521 lapack_int LAPACKE_dgecon( int matrix_order, char norm, lapack_int n,
522                            const double* a, lapack_int lda, double anorm,
523                            double* rcond );
524 lapack_int LAPACKE_cgecon( int matrix_order, char norm, lapack_int n,
525                            const lapack_complex_float* a, lapack_int lda,
526                            float anorm, float* rcond );
527 lapack_int LAPACKE_zgecon( int matrix_order, char norm, lapack_int n,
528                            const lapack_complex_double* a, lapack_int lda,
529                            double anorm, double* rcond );
530 
531 lapack_int LAPACKE_sgeequ( int matrix_order, lapack_int m, lapack_int n,
532                            const float* a, lapack_int lda, float* r, float* c,
533                            float* rowcnd, float* colcnd, float* amax );
534 lapack_int LAPACKE_dgeequ( int matrix_order, lapack_int m, lapack_int n,
535                            const double* a, lapack_int lda, double* r,
536                            double* c, double* rowcnd, double* colcnd,
537                            double* amax );
538 lapack_int LAPACKE_cgeequ( int matrix_order, lapack_int m, lapack_int n,
539                            const lapack_complex_float* a, lapack_int lda,
540                            float* r, float* c, float* rowcnd, float* colcnd,
541                            float* amax );
542 lapack_int LAPACKE_zgeequ( int matrix_order, lapack_int m, lapack_int n,
543                            const lapack_complex_double* a, lapack_int lda,
544                            double* r, double* c, double* rowcnd, double* colcnd,
545                            double* amax );
546 
547 lapack_int LAPACKE_sgeequb( int matrix_order, lapack_int m, lapack_int n,
548                             const float* a, lapack_int lda, float* r, float* c,
549                             float* rowcnd, float* colcnd, float* amax );
550 lapack_int LAPACKE_dgeequb( int matrix_order, lapack_int m, lapack_int n,
551                             const double* a, lapack_int lda, double* r,
552                             double* c, double* rowcnd, double* colcnd,
553                             double* amax );
554 lapack_int LAPACKE_cgeequb( int matrix_order, lapack_int m, lapack_int n,
555                             const lapack_complex_float* a, lapack_int lda,
556                             float* r, float* c, float* rowcnd, float* colcnd,
557                             float* amax );
558 lapack_int LAPACKE_zgeequb( int matrix_order, lapack_int m, lapack_int n,
559                             const lapack_complex_double* a, lapack_int lda,
560                             double* r, double* c, double* rowcnd,
561                             double* colcnd, double* amax );
562 
563 lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort,
564                           LAPACK_S_SELECT2 select, lapack_int n, float* a,
565                           lapack_int lda, lapack_int* sdim, float* wr,
566                           float* wi, float* vs, lapack_int ldvs );
567 lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort,
568                           LAPACK_D_SELECT2 select, lapack_int n, double* a,
569                           lapack_int lda, lapack_int* sdim, double* wr,
570                           double* wi, double* vs, lapack_int ldvs );
571 lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort,
572                           LAPACK_C_SELECT1 select, lapack_int n,
573                           lapack_complex_float* a, lapack_int lda,
574                           lapack_int* sdim, lapack_complex_float* w,
575                           lapack_complex_float* vs, lapack_int ldvs );
576 lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort,
577                           LAPACK_Z_SELECT1 select, lapack_int n,
578                           lapack_complex_double* a, lapack_int lda,
579                           lapack_int* sdim, lapack_complex_double* w,
580                           lapack_complex_double* vs, lapack_int ldvs );
581 
582 lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort,
583                            LAPACK_S_SELECT2 select, char sense, lapack_int n,
584                            float* a, lapack_int lda, lapack_int* sdim,
585                            float* wr, float* wi, float* vs, lapack_int ldvs,
586                            float* rconde, float* rcondv );
587 lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort,
588                            LAPACK_D_SELECT2 select, char sense, lapack_int n,
589                            double* a, lapack_int lda, lapack_int* sdim,
590                            double* wr, double* wi, double* vs, lapack_int ldvs,
591                            double* rconde, double* rcondv );
592 lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort,
593                            LAPACK_C_SELECT1 select, char sense, lapack_int n,
594                            lapack_complex_float* a, lapack_int lda,
595                            lapack_int* sdim, lapack_complex_float* w,
596                            lapack_complex_float* vs, lapack_int ldvs,
597                            float* rconde, float* rcondv );
598 lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort,
599                            LAPACK_Z_SELECT1 select, char sense, lapack_int n,
600                            lapack_complex_double* a, lapack_int lda,
601                            lapack_int* sdim, lapack_complex_double* w,
602                            lapack_complex_double* vs, lapack_int ldvs,
603                            double* rconde, double* rcondv );
604 
605 lapack_int LAPACKE_sgeev( int matrix_order, char jobvl, char jobvr,
606                           lapack_int n, float* a, lapack_int lda, float* wr,
607                           float* wi, float* vl, lapack_int ldvl, float* vr,
608                           lapack_int ldvr );
609 lapack_int LAPACKE_dgeev( int matrix_order, char jobvl, char jobvr,
610                           lapack_int n, double* a, lapack_int lda, double* wr,
611                           double* wi, double* vl, lapack_int ldvl, double* vr,
612                           lapack_int ldvr );
613 lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr,
614                           lapack_int n, lapack_complex_float* a, lapack_int lda,
615                           lapack_complex_float* w, lapack_complex_float* vl,
616                           lapack_int ldvl, lapack_complex_float* vr,
617                           lapack_int ldvr );
618 lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr,
619                           lapack_int n, lapack_complex_double* a,
620                           lapack_int lda, lapack_complex_double* w,
621                           lapack_complex_double* vl, lapack_int ldvl,
622                           lapack_complex_double* vr, lapack_int ldvr );
623 
624 lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl,
625                            char jobvr, char sense, lapack_int n, float* a,
626                            lapack_int lda, float* wr, float* wi, float* vl,
627                            lapack_int ldvl, float* vr, lapack_int ldvr,
628                            lapack_int* ilo, lapack_int* ihi, float* scale,
629                            float* abnrm, float* rconde, float* rcondv );
630 lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl,
631                            char jobvr, char sense, lapack_int n, double* a,
632                            lapack_int lda, double* wr, double* wi, double* vl,
633                            lapack_int ldvl, double* vr, lapack_int ldvr,
634                            lapack_int* ilo, lapack_int* ihi, double* scale,
635                            double* abnrm, double* rconde, double* rcondv );
636 lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl,
637                            char jobvr, char sense, lapack_int n,
638                            lapack_complex_float* a, lapack_int lda,
639                            lapack_complex_float* w, lapack_complex_float* vl,
640                            lapack_int ldvl, lapack_complex_float* vr,
641                            lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,
642                            float* scale, float* abnrm, float* rconde,
643                            float* rcondv );
644 lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl,
645                            char jobvr, char sense, lapack_int n,
646                            lapack_complex_double* a, lapack_int lda,
647                            lapack_complex_double* w, lapack_complex_double* vl,
648                            lapack_int ldvl, lapack_complex_double* vr,
649                            lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,
650                            double* scale, double* abnrm, double* rconde,
651                            double* rcondv );
652 
653 lapack_int LAPACKE_sgehrd( int matrix_order, lapack_int n, lapack_int ilo,
654                            lapack_int ihi, float* a, lapack_int lda,
655                            float* tau );
656 lapack_int LAPACKE_dgehrd( int matrix_order, lapack_int n, lapack_int ilo,
657                            lapack_int ihi, double* a, lapack_int lda,
658                            double* tau );
659 lapack_int LAPACKE_cgehrd( int matrix_order, lapack_int n, lapack_int ilo,
660                            lapack_int ihi, lapack_complex_float* a,
661                            lapack_int lda, lapack_complex_float* tau );
662 lapack_int LAPACKE_zgehrd( int matrix_order, lapack_int n, lapack_int ilo,
663                            lapack_int ihi, lapack_complex_double* a,
664                            lapack_int lda, lapack_complex_double* tau );
665 
666 lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv,
667                            char jobr, char jobt, char jobp, lapack_int m,
668                            lapack_int n, float* a, lapack_int lda, float* sva,
669                            float* u, lapack_int ldu, float* v, lapack_int ldv,
670                            float* stat, lapack_int* istat );
671 lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv,
672                            char jobr, char jobt, char jobp, lapack_int m,
673                            lapack_int n, double* a, lapack_int lda, double* sva,
674                            double* u, lapack_int ldu, double* v, lapack_int ldv,
675                            double* stat, lapack_int* istat );
676 
677 lapack_int LAPACKE_sgelq2( int matrix_order, lapack_int m, lapack_int n,
678                            float* a, lapack_int lda, float* tau );
679 lapack_int LAPACKE_dgelq2( int matrix_order, lapack_int m, lapack_int n,
680                            double* a, lapack_int lda, double* tau );
681 lapack_int LAPACKE_cgelq2( int matrix_order, lapack_int m, lapack_int n,
682                            lapack_complex_float* a, lapack_int lda,
683                            lapack_complex_float* tau );
684 lapack_int LAPACKE_zgelq2( int matrix_order, lapack_int m, lapack_int n,
685                            lapack_complex_double* a, lapack_int lda,
686                            lapack_complex_double* tau );
687 
688 lapack_int LAPACKE_sgelqf( int matrix_order, lapack_int m, lapack_int n,
689                            float* a, lapack_int lda, float* tau );
690 lapack_int LAPACKE_dgelqf( int matrix_order, lapack_int m, lapack_int n,
691                            double* a, lapack_int lda, double* tau );
692 lapack_int LAPACKE_cgelqf( int matrix_order, lapack_int m, lapack_int n,
693                            lapack_complex_float* a, lapack_int lda,
694                            lapack_complex_float* tau );
695 lapack_int LAPACKE_zgelqf( int matrix_order, lapack_int m, lapack_int n,
696                            lapack_complex_double* a, lapack_int lda,
697                            lapack_complex_double* tau );
698 
699 lapack_int LAPACKE_sgels( int matrix_order, char trans, lapack_int m,
700                           lapack_int n, lapack_int nrhs, float* a,
701                           lapack_int lda, float* b, lapack_int ldb );
702 lapack_int LAPACKE_dgels( int matrix_order, char trans, lapack_int m,
703                           lapack_int n, lapack_int nrhs, double* a,
704                           lapack_int lda, double* b, lapack_int ldb );
705 lapack_int LAPACKE_cgels( int matrix_order, char trans, lapack_int m,
706                           lapack_int n, lapack_int nrhs,
707                           lapack_complex_float* a, lapack_int lda,
708                           lapack_complex_float* b, lapack_int ldb );
709 lapack_int LAPACKE_zgels( int matrix_order, char trans, lapack_int m,
710                           lapack_int n, lapack_int nrhs,
711                           lapack_complex_double* a, lapack_int lda,
712                           lapack_complex_double* b, lapack_int ldb );
713 
714 lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n,
715                            lapack_int nrhs, float* a, lapack_int lda, float* b,
716                            lapack_int ldb, float* s, float rcond,
717                            lapack_int* rank );
718 lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n,
719                            lapack_int nrhs, double* a, lapack_int lda,
720                            double* b, lapack_int ldb, double* s, double rcond,
721                            lapack_int* rank );
722 lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n,
723                            lapack_int nrhs, lapack_complex_float* a,
724                            lapack_int lda, lapack_complex_float* b,
725                            lapack_int ldb, float* s, float rcond,
726                            lapack_int* rank );
727 lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n,
728                            lapack_int nrhs, lapack_complex_double* a,
729                            lapack_int lda, lapack_complex_double* b,
730                            lapack_int ldb, double* s, double rcond,
731                            lapack_int* rank );
732 
733 lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n,
734                            lapack_int nrhs, float* a, lapack_int lda, float* b,
735                            lapack_int ldb, float* s, float rcond,
736                            lapack_int* rank );
737 lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n,
738                            lapack_int nrhs, double* a, lapack_int lda,
739                            double* b, lapack_int ldb, double* s, double rcond,
740                            lapack_int* rank );
741 lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n,
742                            lapack_int nrhs, lapack_complex_float* a,
743                            lapack_int lda, lapack_complex_float* b,
744                            lapack_int ldb, float* s, float rcond,
745                            lapack_int* rank );
746 lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n,
747                            lapack_int nrhs, lapack_complex_double* a,
748                            lapack_int lda, lapack_complex_double* b,
749                            lapack_int ldb, double* s, double rcond,
750                            lapack_int* rank );
751 
752 lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n,
753                            lapack_int nrhs, float* a, lapack_int lda, float* b,
754                            lapack_int ldb, lapack_int* jpvt, float rcond,
755                            lapack_int* rank );
756 lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n,
757                            lapack_int nrhs, double* a, lapack_int lda,
758                            double* b, lapack_int ldb, lapack_int* jpvt,
759                            double rcond, lapack_int* rank );
760 lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n,
761                            lapack_int nrhs, lapack_complex_float* a,
762                            lapack_int lda, lapack_complex_float* b,
763                            lapack_int ldb, lapack_int* jpvt, float rcond,
764                            lapack_int* rank );
765 lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n,
766                            lapack_int nrhs, lapack_complex_double* a,
767                            lapack_int lda, lapack_complex_double* b,
768                            lapack_int ldb, lapack_int* jpvt, double rcond,
769                            lapack_int* rank );
770 
771 lapack_int LAPACKE_sgeqlf( int matrix_order, lapack_int m, lapack_int n,
772                            float* a, lapack_int lda, float* tau );
773 lapack_int LAPACKE_dgeqlf( int matrix_order, lapack_int m, lapack_int n,
774                            double* a, lapack_int lda, double* tau );
775 lapack_int LAPACKE_cgeqlf( int matrix_order, lapack_int m, lapack_int n,
776                            lapack_complex_float* a, lapack_int lda,
777                            lapack_complex_float* tau );
778 lapack_int LAPACKE_zgeqlf( int matrix_order, lapack_int m, lapack_int n,
779                            lapack_complex_double* a, lapack_int lda,
780                            lapack_complex_double* tau );
781 
782 lapack_int LAPACKE_sgeqp3( int matrix_order, lapack_int m, lapack_int n,
783                            float* a, lapack_int lda, lapack_int* jpvt,
784                            float* tau );
785 lapack_int LAPACKE_dgeqp3( int matrix_order, lapack_int m, lapack_int n,
786                            double* a, lapack_int lda, lapack_int* jpvt,
787                            double* tau );
788 lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n,
789                            lapack_complex_float* a, lapack_int lda,
790                            lapack_int* jpvt, lapack_complex_float* tau );
791 lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n,
792                            lapack_complex_double* a, lapack_int lda,
793                            lapack_int* jpvt, lapack_complex_double* tau );
794 
795 lapack_int LAPACKE_sgeqpf( int matrix_order, lapack_int m, lapack_int n,
796                            float* a, lapack_int lda, lapack_int* jpvt,
797                            float* tau );
798 lapack_int LAPACKE_dgeqpf( int matrix_order, lapack_int m, lapack_int n,
799                            double* a, lapack_int lda, lapack_int* jpvt,
800                            double* tau );
801 lapack_int LAPACKE_cgeqpf( int matrix_order, lapack_int m, lapack_int n,
802                            lapack_complex_float* a, lapack_int lda,
803                            lapack_int* jpvt, lapack_complex_float* tau );
804 lapack_int LAPACKE_zgeqpf( int matrix_order, lapack_int m, lapack_int n,
805                            lapack_complex_double* a, lapack_int lda,
806                            lapack_int* jpvt, lapack_complex_double* tau );
807 
808 lapack_int LAPACKE_sgeqr2( int matrix_order, lapack_int m, lapack_int n,
809                            float* a, lapack_int lda, float* tau );
810 lapack_int LAPACKE_dgeqr2( int matrix_order, lapack_int m, lapack_int n,
811                            double* a, lapack_int lda, double* tau );
812 lapack_int LAPACKE_cgeqr2( int matrix_order, lapack_int m, lapack_int n,
813                            lapack_complex_float* a, lapack_int lda,
814                            lapack_complex_float* tau );
815 lapack_int LAPACKE_zgeqr2( int matrix_order, lapack_int m, lapack_int n,
816                            lapack_complex_double* a, lapack_int lda,
817                            lapack_complex_double* tau );
818 
819 lapack_int LAPACKE_sgeqrf( int matrix_order, lapack_int m, lapack_int n,
820                            float* a, lapack_int lda, float* tau );
821 lapack_int LAPACKE_dgeqrf( int matrix_order, lapack_int m, lapack_int n,
822                            double* a, lapack_int lda, double* tau );
823 lapack_int LAPACKE_cgeqrf( int matrix_order, lapack_int m, lapack_int n,
824                            lapack_complex_float* a, lapack_int lda,
825                            lapack_complex_float* tau );
826 lapack_int LAPACKE_zgeqrf( int matrix_order, lapack_int m, lapack_int n,
827                            lapack_complex_double* a, lapack_int lda,
828                            lapack_complex_double* tau );
829 
830 lapack_int LAPACKE_sgeqrfp( int matrix_order, lapack_int m, lapack_int n,
831                             float* a, lapack_int lda, float* tau );
832 lapack_int LAPACKE_dgeqrfp( int matrix_order, lapack_int m, lapack_int n,
833                             double* a, lapack_int lda, double* tau );
834 lapack_int LAPACKE_cgeqrfp( int matrix_order, lapack_int m, lapack_int n,
835                             lapack_complex_float* a, lapack_int lda,
836                             lapack_complex_float* tau );
837 lapack_int LAPACKE_zgeqrfp( int matrix_order, lapack_int m, lapack_int n,
838                             lapack_complex_double* a, lapack_int lda,
839                             lapack_complex_double* tau );
840 
841 lapack_int LAPACKE_sgerfs( int matrix_order, char trans, lapack_int n,
842                            lapack_int nrhs, const float* a, lapack_int lda,
843                            const float* af, lapack_int ldaf,
844                            const lapack_int* ipiv, const float* b,
845                            lapack_int ldb, float* x, lapack_int ldx,
846                            float* ferr, float* berr );
847 lapack_int LAPACKE_dgerfs( int matrix_order, char trans, lapack_int n,
848                            lapack_int nrhs, const double* a, lapack_int lda,
849                            const double* af, lapack_int ldaf,
850                            const lapack_int* ipiv, const double* b,
851                            lapack_int ldb, double* x, lapack_int ldx,
852                            double* ferr, double* berr );
853 lapack_int LAPACKE_cgerfs( int matrix_order, char trans, lapack_int n,
854                            lapack_int nrhs, const lapack_complex_float* a,
855                            lapack_int lda, const lapack_complex_float* af,
856                            lapack_int ldaf, const lapack_int* ipiv,
857                            const lapack_complex_float* b, lapack_int ldb,
858                            lapack_complex_float* x, lapack_int ldx, float* ferr,
859                            float* berr );
860 lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n,
861                            lapack_int nrhs, const lapack_complex_double* a,
862                            lapack_int lda, const lapack_complex_double* af,
863                            lapack_int ldaf, const lapack_int* ipiv,
864                            const lapack_complex_double* b, lapack_int ldb,
865                            lapack_complex_double* x, lapack_int ldx,
866                            double* ferr, double* berr );
867 
868 lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed,
869                             lapack_int n, lapack_int nrhs, const float* a,
870                             lapack_int lda, const float* af, lapack_int ldaf,
871                             const lapack_int* ipiv, const float* r,
872                             const float* c, const float* b, lapack_int ldb,
873                             float* x, lapack_int ldx, float* rcond, float* berr,
874                             lapack_int n_err_bnds, float* err_bnds_norm,
875                             float* err_bnds_comp, lapack_int nparams,
876                             float* params );
877 lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed,
878                             lapack_int n, lapack_int nrhs, const double* a,
879                             lapack_int lda, const double* af, lapack_int ldaf,
880                             const lapack_int* ipiv, const double* r,
881                             const double* c, const double* b, lapack_int ldb,
882                             double* x, lapack_int ldx, double* rcond,
883                             double* berr, lapack_int n_err_bnds,
884                             double* err_bnds_norm, double* err_bnds_comp,
885                             lapack_int nparams, double* params );
886 lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed,
887                             lapack_int n, lapack_int nrhs,
888                             const lapack_complex_float* a, lapack_int lda,
889                             const lapack_complex_float* af, lapack_int ldaf,
890                             const lapack_int* ipiv, const float* r,
891                             const float* c, const lapack_complex_float* b,
892                             lapack_int ldb, lapack_complex_float* x,
893                             lapack_int ldx, float* rcond, float* berr,
894                             lapack_int n_err_bnds, float* err_bnds_norm,
895                             float* err_bnds_comp, lapack_int nparams,
896                             float* params );
897 lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed,
898                             lapack_int n, lapack_int nrhs,
899                             const lapack_complex_double* a, lapack_int lda,
900                             const lapack_complex_double* af, lapack_int ldaf,
901                             const lapack_int* ipiv, const double* r,
902                             const double* c, const lapack_complex_double* b,
903                             lapack_int ldb, lapack_complex_double* x,
904                             lapack_int ldx, double* rcond, double* berr,
905                             lapack_int n_err_bnds, double* err_bnds_norm,
906                             double* err_bnds_comp, lapack_int nparams,
907                             double* params );
908 
909 lapack_int LAPACKE_sgerqf( int matrix_order, lapack_int m, lapack_int n,
910                            float* a, lapack_int lda, float* tau );
911 lapack_int LAPACKE_dgerqf( int matrix_order, lapack_int m, lapack_int n,
912                            double* a, lapack_int lda, double* tau );
913 lapack_int LAPACKE_cgerqf( int matrix_order, lapack_int m, lapack_int n,
914                            lapack_complex_float* a, lapack_int lda,
915                            lapack_complex_float* tau );
916 lapack_int LAPACKE_zgerqf( int matrix_order, lapack_int m, lapack_int n,
917                            lapack_complex_double* a, lapack_int lda,
918                            lapack_complex_double* tau );
919 
920 lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m,
921                            lapack_int n, float* a, lapack_int lda, float* s,
922                            float* u, lapack_int ldu, float* vt,
923                            lapack_int ldvt );
924 lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m,
925                            lapack_int n, double* a, lapack_int lda, double* s,
926                            double* u, lapack_int ldu, double* vt,
927                            lapack_int ldvt );
928 lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m,
929                            lapack_int n, lapack_complex_float* a,
930                            lapack_int lda, float* s, lapack_complex_float* u,
931                            lapack_int ldu, lapack_complex_float* vt,
932                            lapack_int ldvt );
933 lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m,
934                            lapack_int n, lapack_complex_double* a,
935                            lapack_int lda, double* s, lapack_complex_double* u,
936                            lapack_int ldu, lapack_complex_double* vt,
937                            lapack_int ldvt );
938 
939 lapack_int LAPACKE_sgesv( int matrix_order, lapack_int n, lapack_int nrhs,
940                           float* a, lapack_int lda, lapack_int* ipiv, float* b,
941                           lapack_int ldb );
942 lapack_int LAPACKE_dgesv( int matrix_order, lapack_int n, lapack_int nrhs,
943                           double* a, lapack_int lda, lapack_int* ipiv,
944                           double* b, lapack_int ldb );
945 lapack_int LAPACKE_cgesv( int matrix_order, lapack_int n, lapack_int nrhs,
946                           lapack_complex_float* a, lapack_int lda,
947                           lapack_int* ipiv, lapack_complex_float* b,
948                           lapack_int ldb );
949 lapack_int LAPACKE_zgesv( int matrix_order, lapack_int n, lapack_int nrhs,
950                           lapack_complex_double* a, lapack_int lda,
951                           lapack_int* ipiv, lapack_complex_double* b,
952                           lapack_int ldb );
953 lapack_int LAPACKE_dsgesv( int matrix_order, lapack_int n, lapack_int nrhs,
954                            double* a, lapack_int lda, lapack_int* ipiv,
955                            double* b, lapack_int ldb, double* x, lapack_int ldx,
956                            lapack_int* iter );
957 lapack_int LAPACKE_zcgesv( int matrix_order, lapack_int n, lapack_int nrhs,
958                            lapack_complex_double* a, lapack_int lda,
959                            lapack_int* ipiv, lapack_complex_double* b,
960                            lapack_int ldb, lapack_complex_double* x,
961                            lapack_int ldx, lapack_int* iter );
962 
963 lapack_int LAPACKE_sgesvd( int matrix_order, char jobu, char jobvt,
964                            lapack_int m, lapack_int n, float* a, lapack_int lda,
965                            float* s, float* u, lapack_int ldu, float* vt,
966                            lapack_int ldvt, float* superb );
967 lapack_int LAPACKE_dgesvd( int matrix_order, char jobu, char jobvt,
968                            lapack_int m, lapack_int n, double* a,
969                            lapack_int lda, double* s, double* u, lapack_int ldu,
970                            double* vt, lapack_int ldvt, double* superb );
971 lapack_int LAPACKE_cgesvd( int matrix_order, char jobu, char jobvt,
972                            lapack_int m, lapack_int n, lapack_complex_float* a,
973                            lapack_int lda, float* s, lapack_complex_float* u,
974                            lapack_int ldu, lapack_complex_float* vt,
975                            lapack_int ldvt, float* superb );
976 lapack_int LAPACKE_zgesvd( int matrix_order, char jobu, char jobvt,
977                            lapack_int m, lapack_int n, lapack_complex_double* a,
978                            lapack_int lda, double* s, lapack_complex_double* u,
979                            lapack_int ldu, lapack_complex_double* vt,
980                            lapack_int ldvt, double* superb );
981 
982 lapack_int LAPACKE_sgesvj( int matrix_order, char joba, char jobu, char jobv,
983                            lapack_int m, lapack_int n, float* a, lapack_int lda,
984                            float* sva, lapack_int mv, float* v, lapack_int ldv,
985                            float* stat );
986 lapack_int LAPACKE_dgesvj( int matrix_order, char joba, char jobu, char jobv,
987                            lapack_int m, lapack_int n, double* a,
988                            lapack_int lda, double* sva, lapack_int mv,
989                            double* v, lapack_int ldv, double* stat );
990 
991 lapack_int LAPACKE_sgesvx( int matrix_order, char fact, char trans,
992                            lapack_int n, lapack_int nrhs, float* a,
993                            lapack_int lda, float* af, lapack_int ldaf,
994                            lapack_int* ipiv, char* equed, float* r, float* c,
995                            float* b, lapack_int ldb, float* x, lapack_int ldx,
996                            float* rcond, float* ferr, float* berr,
997                            float* rpivot );
998 lapack_int LAPACKE_dgesvx( int matrix_order, char fact, char trans,
999                            lapack_int n, lapack_int nrhs, double* a,
1000                            lapack_int lda, double* af, lapack_int ldaf,
1001                            lapack_int* ipiv, char* equed, double* r, double* c,
1002                            double* b, lapack_int ldb, double* x, lapack_int ldx,
1003                            double* rcond, double* ferr, double* berr,
1004                            double* rpivot );
1005 lapack_int LAPACKE_cgesvx( int matrix_order, char fact, char trans,
1006                            lapack_int n, lapack_int nrhs,
1007                            lapack_complex_float* a, lapack_int lda,
1008                            lapack_complex_float* af, lapack_int ldaf,
1009                            lapack_int* ipiv, char* equed, float* r, float* c,
1010                            lapack_complex_float* b, lapack_int ldb,
1011                            lapack_complex_float* x, lapack_int ldx,
1012                            float* rcond, float* ferr, float* berr,
1013                            float* rpivot );
1014 lapack_int LAPACKE_zgesvx( int matrix_order, char fact, char trans,
1015                            lapack_int n, lapack_int nrhs,
1016                            lapack_complex_double* a, lapack_int lda,
1017                            lapack_complex_double* af, lapack_int ldaf,
1018                            lapack_int* ipiv, char* equed, double* r, double* c,
1019                            lapack_complex_double* b, lapack_int ldb,
1020                            lapack_complex_double* x, lapack_int ldx,
1021                            double* rcond, double* ferr, double* berr,
1022                            double* rpivot );
1023 
1024 lapack_int LAPACKE_sgesvxx( int matrix_order, char fact, char trans,
1025                             lapack_int n, lapack_int nrhs, float* a,
1026                             lapack_int lda, float* af, lapack_int ldaf,
1027                             lapack_int* ipiv, char* equed, float* r, float* c,
1028                             float* b, lapack_int ldb, float* x, lapack_int ldx,
1029                             float* rcond, float* rpvgrw, float* berr,
1030                             lapack_int n_err_bnds, float* err_bnds_norm,
1031                             float* err_bnds_comp, lapack_int nparams,
1032                             float* params );
1033 lapack_int LAPACKE_dgesvxx( int matrix_order, char fact, char trans,
1034                             lapack_int n, lapack_int nrhs, double* a,
1035                             lapack_int lda, double* af, lapack_int ldaf,
1036                             lapack_int* ipiv, char* equed, double* r, double* c,
1037                             double* b, lapack_int ldb, double* x,
1038                             lapack_int ldx, double* rcond, double* rpvgrw,
1039                             double* berr, lapack_int n_err_bnds,
1040                             double* err_bnds_norm, double* err_bnds_comp,
1041                             lapack_int nparams, double* params );
1042 lapack_int LAPACKE_cgesvxx( int matrix_order, char fact, char trans,
1043                             lapack_int n, lapack_int nrhs,
1044                             lapack_complex_float* a, lapack_int lda,
1045                             lapack_complex_float* af, lapack_int ldaf,
1046                             lapack_int* ipiv, char* equed, float* r, float* c,
1047                             lapack_complex_float* b, lapack_int ldb,
1048                             lapack_complex_float* x, lapack_int ldx,
1049                             float* rcond, float* rpvgrw, float* berr,
1050                             lapack_int n_err_bnds, float* err_bnds_norm,
1051                             float* err_bnds_comp, lapack_int nparams,
1052                             float* params );
1053 lapack_int LAPACKE_zgesvxx( int matrix_order, char fact, char trans,
1054                             lapack_int n, lapack_int nrhs,
1055                             lapack_complex_double* a, lapack_int lda,
1056                             lapack_complex_double* af, lapack_int ldaf,
1057                             lapack_int* ipiv, char* equed, double* r, double* c,
1058                             lapack_complex_double* b, lapack_int ldb,
1059                             lapack_complex_double* x, lapack_int ldx,
1060                             double* rcond, double* rpvgrw, double* berr,
1061                             lapack_int n_err_bnds, double* err_bnds_norm,
1062                             double* err_bnds_comp, lapack_int nparams,
1063                             double* params );
1064 
1065 lapack_int LAPACKE_sgetf2( int matrix_order, lapack_int m, lapack_int n,
1066                            float* a, lapack_int lda, lapack_int* ipiv );
1067 lapack_int LAPACKE_dgetf2( int matrix_order, lapack_int m, lapack_int n,
1068                            double* a, lapack_int lda, lapack_int* ipiv );
1069 lapack_int LAPACKE_cgetf2( int matrix_order, lapack_int m, lapack_int n,
1070                            lapack_complex_float* a, lapack_int lda,
1071                            lapack_int* ipiv );
1072 lapack_int LAPACKE_zgetf2( int matrix_order, lapack_int m, lapack_int n,
1073                            lapack_complex_double* a, lapack_int lda,
1074                            lapack_int* ipiv );
1075 
1076 lapack_int LAPACKE_sgetrf( int matrix_order, lapack_int m, lapack_int n,
1077                            float* a, lapack_int lda, lapack_int* ipiv );
1078 lapack_int LAPACKE_dgetrf( int matrix_order, lapack_int m, lapack_int n,
1079                            double* a, lapack_int lda, lapack_int* ipiv );
1080 lapack_int LAPACKE_cgetrf( int matrix_order, lapack_int m, lapack_int n,
1081                            lapack_complex_float* a, lapack_int lda,
1082                            lapack_int* ipiv );
1083 lapack_int LAPACKE_zgetrf( int matrix_order, lapack_int m, lapack_int n,
1084                            lapack_complex_double* a, lapack_int lda,
1085                            lapack_int* ipiv );
1086 
1087 lapack_int LAPACKE_sgetri( int matrix_order, lapack_int n, float* a,
1088                            lapack_int lda, const lapack_int* ipiv );
1089 lapack_int LAPACKE_dgetri( int matrix_order, lapack_int n, double* a,
1090                            lapack_int lda, const lapack_int* ipiv );
1091 lapack_int LAPACKE_cgetri( int matrix_order, lapack_int n,
1092                            lapack_complex_float* a, lapack_int lda,
1093                            const lapack_int* ipiv );
1094 lapack_int LAPACKE_zgetri( int matrix_order, lapack_int n,
1095                            lapack_complex_double* a, lapack_int lda,
1096                            const lapack_int* ipiv );
1097 
1098 lapack_int LAPACKE_sgetrs( int matrix_order, char trans, lapack_int n,
1099                            lapack_int nrhs, const float* a, lapack_int lda,
1100                            const lapack_int* ipiv, float* b, lapack_int ldb );
1101 lapack_int LAPACKE_dgetrs( int matrix_order, char trans, lapack_int n,
1102                            lapack_int nrhs, const double* a, lapack_int lda,
1103                            const lapack_int* ipiv, double* b, lapack_int ldb );
1104 lapack_int LAPACKE_cgetrs( int matrix_order, char trans, lapack_int n,
1105                            lapack_int nrhs, const lapack_complex_float* a,
1106                            lapack_int lda, const lapack_int* ipiv,
1107                            lapack_complex_float* b, lapack_int ldb );
1108 lapack_int LAPACKE_zgetrs( int matrix_order, char trans, lapack_int n,
1109                            lapack_int nrhs, const lapack_complex_double* a,
1110                            lapack_int lda, const lapack_int* ipiv,
1111                            lapack_complex_double* b, lapack_int ldb );
1112 
1113 lapack_int LAPACKE_sggbak( int matrix_order, char job, char side, lapack_int n,
1114                            lapack_int ilo, lapack_int ihi, const float* lscale,
1115                            const float* rscale, lapack_int m, float* v,
1116                            lapack_int ldv );
1117 lapack_int LAPACKE_dggbak( int matrix_order, char job, char side, lapack_int n,
1118                            lapack_int ilo, lapack_int ihi, const double* lscale,
1119                            const double* rscale, lapack_int m, double* v,
1120                            lapack_int ldv );
1121 lapack_int LAPACKE_cggbak( int matrix_order, char job, char side, lapack_int n,
1122                            lapack_int ilo, lapack_int ihi, const float* lscale,
1123                            const float* rscale, lapack_int m,
1124                            lapack_complex_float* v, lapack_int ldv );
1125 lapack_int LAPACKE_zggbak( int matrix_order, char job, char side, lapack_int n,
1126                            lapack_int ilo, lapack_int ihi, const double* lscale,
1127                            const double* rscale, lapack_int m,
1128                            lapack_complex_double* v, lapack_int ldv );
1129 
1130 lapack_int LAPACKE_sggbal( int matrix_order, char job, lapack_int n, float* a,
1131                            lapack_int lda, float* b, lapack_int ldb,
1132                            lapack_int* ilo, lapack_int* ihi, float* lscale,
1133                            float* rscale );
1134 lapack_int LAPACKE_dggbal( int matrix_order, char job, lapack_int n, double* a,
1135                            lapack_int lda, double* b, lapack_int ldb,
1136                            lapack_int* ilo, lapack_int* ihi, double* lscale,
1137                            double* rscale );
1138 lapack_int LAPACKE_cggbal( int matrix_order, char job, lapack_int n,
1139                            lapack_complex_float* a, lapack_int lda,
1140                            lapack_complex_float* b, lapack_int ldb,
1141                            lapack_int* ilo, lapack_int* ihi, float* lscale,
1142                            float* rscale );
1143 lapack_int LAPACKE_zggbal( int matrix_order, char job, lapack_int n,
1144                            lapack_complex_double* a, lapack_int lda,
1145                            lapack_complex_double* b, lapack_int ldb,
1146                            lapack_int* ilo, lapack_int* ihi, double* lscale,
1147                            double* rscale );
1148 
1149 lapack_int LAPACKE_sgges( int matrix_order, char jobvsl, char jobvsr, char sort,
1150                           LAPACK_S_SELECT3 selctg, lapack_int n, float* a,
1151                           lapack_int lda, float* b, lapack_int ldb,
1152                           lapack_int* sdim, float* alphar, float* alphai,
1153                           float* beta, float* vsl, lapack_int ldvsl, float* vsr,
1154                           lapack_int ldvsr );
1155 lapack_int LAPACKE_dgges( int matrix_order, char jobvsl, char jobvsr, char sort,
1156                           LAPACK_D_SELECT3 selctg, lapack_int n, double* a,
1157                           lapack_int lda, double* b, lapack_int ldb,
1158                           lapack_int* sdim, double* alphar, double* alphai,
1159                           double* beta, double* vsl, lapack_int ldvsl,
1160                           double* vsr, lapack_int ldvsr );
1161 lapack_int LAPACKE_cgges( int matrix_order, char jobvsl, char jobvsr, char sort,
1162                           LAPACK_C_SELECT2 selctg, lapack_int n,
1163                           lapack_complex_float* a, lapack_int lda,
1164                           lapack_complex_float* b, lapack_int ldb,
1165                           lapack_int* sdim, lapack_complex_float* alpha,
1166                           lapack_complex_float* beta, lapack_complex_float* vsl,
1167                           lapack_int ldvsl, lapack_complex_float* vsr,
1168                           lapack_int ldvsr );
1169 lapack_int LAPACKE_zgges( int matrix_order, char jobvsl, char jobvsr, char sort,
1170                           LAPACK_Z_SELECT2 selctg, lapack_int n,
1171                           lapack_complex_double* a, lapack_int lda,
1172                           lapack_complex_double* b, lapack_int ldb,
1173                           lapack_int* sdim, lapack_complex_double* alpha,
1174                           lapack_complex_double* beta,
1175                           lapack_complex_double* vsl, lapack_int ldvsl,
1176                           lapack_complex_double* vsr, lapack_int ldvsr );
1177 
1178 lapack_int LAPACKE_sggesx( int matrix_order, char jobvsl, char jobvsr,
1179                            char sort, LAPACK_S_SELECT3 selctg, char sense,
1180                            lapack_int n, float* a, lapack_int lda, float* b,
1181                            lapack_int ldb, lapack_int* sdim, float* alphar,
1182                            float* alphai, float* beta, float* vsl,
1183                            lapack_int ldvsl, float* vsr, lapack_int ldvsr,
1184                            float* rconde, float* rcondv );
1185 lapack_int LAPACKE_dggesx( int matrix_order, char jobvsl, char jobvsr,
1186                            char sort, LAPACK_D_SELECT3 selctg, char sense,
1187                            lapack_int n, double* a, lapack_int lda, double* b,
1188                            lapack_int ldb, lapack_int* sdim, double* alphar,
1189                            double* alphai, double* beta, double* vsl,
1190                            lapack_int ldvsl, double* vsr, lapack_int ldvsr,
1191                            double* rconde, double* rcondv );
1192 lapack_int LAPACKE_cggesx( int matrix_order, char jobvsl, char jobvsr,
1193                            char sort, LAPACK_C_SELECT2 selctg, char sense,
1194                            lapack_int n, lapack_complex_float* a,
1195                            lapack_int lda, lapack_complex_float* b,
1196                            lapack_int ldb, lapack_int* sdim,
1197                            lapack_complex_float* alpha,
1198                            lapack_complex_float* beta,
1199                            lapack_complex_float* vsl, lapack_int ldvsl,
1200                            lapack_complex_float* vsr, lapack_int ldvsr,
1201                            float* rconde, float* rcondv );
1202 lapack_int LAPACKE_zggesx( int matrix_order, char jobvsl, char jobvsr,
1203                            char sort, LAPACK_Z_SELECT2 selctg, char sense,
1204                            lapack_int n, lapack_complex_double* a,
1205                            lapack_int lda, lapack_complex_double* b,
1206                            lapack_int ldb, lapack_int* sdim,
1207                            lapack_complex_double* alpha,
1208                            lapack_complex_double* beta,
1209                            lapack_complex_double* vsl, lapack_int ldvsl,
1210                            lapack_complex_double* vsr, lapack_int ldvsr,
1211                            double* rconde, double* rcondv );
1212 
1213 lapack_int LAPACKE_sggev( int matrix_order, char jobvl, char jobvr,
1214                           lapack_int n, float* a, lapack_int lda, float* b,
1215                           lapack_int ldb, float* alphar, float* alphai,
1216                           float* beta, float* vl, lapack_int ldvl, float* vr,
1217                           lapack_int ldvr );
1218 lapack_int LAPACKE_dggev( int matrix_order, char jobvl, char jobvr,
1219                           lapack_int n, double* a, lapack_int lda, double* b,
1220                           lapack_int ldb, double* alphar, double* alphai,
1221                           double* beta, double* vl, lapack_int ldvl, double* vr,
1222                           lapack_int ldvr );
1223 lapack_int LAPACKE_cggev( int matrix_order, char jobvl, char jobvr,
1224                           lapack_int n, lapack_complex_float* a, lapack_int lda,
1225                           lapack_complex_float* b, lapack_int ldb,
1226                           lapack_complex_float* alpha,
1227                           lapack_complex_float* beta, lapack_complex_float* vl,
1228                           lapack_int ldvl, lapack_complex_float* vr,
1229                           lapack_int ldvr );
1230 lapack_int LAPACKE_zggev( int matrix_order, char jobvl, char jobvr,
1231                           lapack_int n, lapack_complex_double* a,
1232                           lapack_int lda, lapack_complex_double* b,
1233                           lapack_int ldb, lapack_complex_double* alpha,
1234                           lapack_complex_double* beta,
1235                           lapack_complex_double* vl, lapack_int ldvl,
1236                           lapack_complex_double* vr, lapack_int ldvr );
1237 
1238 lapack_int LAPACKE_sggevx( int matrix_order, char balanc, char jobvl,
1239                            char jobvr, char sense, lapack_int n, float* a,
1240                            lapack_int lda, float* b, lapack_int ldb,
1241                            float* alphar, float* alphai, float* beta, float* vl,
1242                            lapack_int ldvl, float* vr, lapack_int ldvr,
1243                            lapack_int* ilo, lapack_int* ihi, float* lscale,
1244                            float* rscale, float* abnrm, float* bbnrm,
1245                            float* rconde, float* rcondv );
1246 lapack_int LAPACKE_dggevx( int matrix_order, char balanc, char jobvl,
1247                            char jobvr, char sense, lapack_int n, double* a,
1248                            lapack_int lda, double* b, lapack_int ldb,
1249                            double* alphar, double* alphai, double* beta,
1250                            double* vl, lapack_int ldvl, double* vr,
1251                            lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,
1252                            double* lscale, double* rscale, double* abnrm,
1253                            double* bbnrm, double* rconde, double* rcondv );
1254 lapack_int LAPACKE_cggevx( int matrix_order, char balanc, char jobvl,
1255                            char jobvr, char sense, lapack_int n,
1256                            lapack_complex_float* a, lapack_int lda,
1257                            lapack_complex_float* b, lapack_int ldb,
1258                            lapack_complex_float* alpha,
1259                            lapack_complex_float* beta, lapack_complex_float* vl,
1260                            lapack_int ldvl, lapack_complex_float* vr,
1261                            lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,
1262                            float* lscale, float* rscale, float* abnrm,
1263                            float* bbnrm, float* rconde, float* rcondv );
1264 lapack_int LAPACKE_zggevx( int matrix_order, char balanc, char jobvl,
1265                            char jobvr, char sense, lapack_int n,
1266                            lapack_complex_double* a, lapack_int lda,
1267                            lapack_complex_double* b, lapack_int ldb,
1268                            lapack_complex_double* alpha,
1269                            lapack_complex_double* beta,
1270                            lapack_complex_double* vl, lapack_int ldvl,
1271                            lapack_complex_double* vr, lapack_int ldvr,
1272                            lapack_int* ilo, lapack_int* ihi, double* lscale,
1273                            double* rscale, double* abnrm, double* bbnrm,
1274                            double* rconde, double* rcondv );
1275 
1276 lapack_int LAPACKE_sggglm( int matrix_order, lapack_int n, lapack_int m,
1277                            lapack_int p, float* a, lapack_int lda, float* b,
1278                            lapack_int ldb, float* d, float* x, float* y );
1279 lapack_int LAPACKE_dggglm( int matrix_order, lapack_int n, lapack_int m,
1280                            lapack_int p, double* a, lapack_int lda, double* b,
1281                            lapack_int ldb, double* d, double* x, double* y );
1282 lapack_int LAPACKE_cggglm( int matrix_order, lapack_int n, lapack_int m,
1283                            lapack_int p, lapack_complex_float* a,
1284                            lapack_int lda, lapack_complex_float* b,
1285                            lapack_int ldb, lapack_complex_float* d,
1286                            lapack_complex_float* x, lapack_complex_float* y );
1287 lapack_int LAPACKE_zggglm( int matrix_order, lapack_int n, lapack_int m,
1288                            lapack_int p, lapack_complex_double* a,
1289                            lapack_int lda, lapack_complex_double* b,
1290                            lapack_int ldb, lapack_complex_double* d,
1291                            lapack_complex_double* x, lapack_complex_double* y );
1292 
1293 lapack_int LAPACKE_sgghrd( int matrix_order, char compq, char compz,
1294                            lapack_int n, lapack_int ilo, lapack_int ihi,
1295                            float* a, lapack_int lda, float* b, lapack_int ldb,
1296                            float* q, lapack_int ldq, float* z, lapack_int ldz );
1297 lapack_int LAPACKE_dgghrd( int matrix_order, char compq, char compz,
1298                            lapack_int n, lapack_int ilo, lapack_int ihi,
1299                            double* a, lapack_int lda, double* b, lapack_int ldb,
1300                            double* q, lapack_int ldq, double* z,
1301                            lapack_int ldz );
1302 lapack_int LAPACKE_cgghrd( int matrix_order, char compq, char compz,
1303                            lapack_int n, lapack_int ilo, lapack_int ihi,
1304                            lapack_complex_float* a, lapack_int lda,
1305                            lapack_complex_float* b, lapack_int ldb,
1306                            lapack_complex_float* q, lapack_int ldq,
1307                            lapack_complex_float* z, lapack_int ldz );
1308 lapack_int LAPACKE_zgghrd( int matrix_order, char compq, char compz,
1309                            lapack_int n, lapack_int ilo, lapack_int ihi,
1310                            lapack_complex_double* a, lapack_int lda,
1311                            lapack_complex_double* b, lapack_int ldb,
1312                            lapack_complex_double* q, lapack_int ldq,
1313                            lapack_complex_double* z, lapack_int ldz );
1314 
1315 lapack_int LAPACKE_sgglse( int matrix_order, lapack_int m, lapack_int n,
1316                            lapack_int p, float* a, lapack_int lda, float* b,
1317                            lapack_int ldb, float* c, float* d, float* x );
1318 lapack_int LAPACKE_dgglse( int matrix_order, lapack_int m, lapack_int n,
1319                            lapack_int p, double* a, lapack_int lda, double* b,
1320                            lapack_int ldb, double* c, double* d, double* x );
1321 lapack_int LAPACKE_cgglse( int matrix_order, lapack_int m, lapack_int n,
1322                            lapack_int p, lapack_complex_float* a,
1323                            lapack_int lda, lapack_complex_float* b,
1324                            lapack_int ldb, lapack_complex_float* c,
1325                            lapack_complex_float* d, lapack_complex_float* x );
1326 lapack_int LAPACKE_zgglse( int matrix_order, lapack_int m, lapack_int n,
1327                            lapack_int p, lapack_complex_double* a,
1328                            lapack_int lda, lapack_complex_double* b,
1329                            lapack_int ldb, lapack_complex_double* c,
1330                            lapack_complex_double* d, lapack_complex_double* x );
1331 
1332 lapack_int LAPACKE_sggqrf( int matrix_order, lapack_int n, lapack_int m,
1333                            lapack_int p, float* a, lapack_int lda, float* taua,
1334                            float* b, lapack_int ldb, float* taub );
1335 lapack_int LAPACKE_dggqrf( int matrix_order, lapack_int n, lapack_int m,
1336                            lapack_int p, double* a, lapack_int lda,
1337                            double* taua, double* b, lapack_int ldb,
1338                            double* taub );
1339 lapack_int LAPACKE_cggqrf( int matrix_order, lapack_int n, lapack_int m,
1340                            lapack_int p, lapack_complex_float* a,
1341                            lapack_int lda, lapack_complex_float* taua,
1342                            lapack_complex_float* b, lapack_int ldb,
1343                            lapack_complex_float* taub );
1344 lapack_int LAPACKE_zggqrf( int matrix_order, lapack_int n, lapack_int m,
1345                            lapack_int p, lapack_complex_double* a,
1346                            lapack_int lda, lapack_complex_double* taua,
1347                            lapack_complex_double* b, lapack_int ldb,
1348                            lapack_complex_double* taub );
1349 
1350 lapack_int LAPACKE_sggrqf( int matrix_order, lapack_int m, lapack_int p,
1351                            lapack_int n, float* a, lapack_int lda, float* taua,
1352                            float* b, lapack_int ldb, float* taub );
1353 lapack_int LAPACKE_dggrqf( int matrix_order, lapack_int m, lapack_int p,
1354                            lapack_int n, double* a, lapack_int lda,
1355                            double* taua, double* b, lapack_int ldb,
1356                            double* taub );
1357 lapack_int LAPACKE_cggrqf( int matrix_order, lapack_int m, lapack_int p,
1358                            lapack_int n, lapack_complex_float* a,
1359                            lapack_int lda, lapack_complex_float* taua,
1360                            lapack_complex_float* b, lapack_int ldb,
1361                            lapack_complex_float* taub );
1362 lapack_int LAPACKE_zggrqf( int matrix_order, lapack_int m, lapack_int p,
1363                            lapack_int n, lapack_complex_double* a,
1364                            lapack_int lda, lapack_complex_double* taua,
1365                            lapack_complex_double* b, lapack_int ldb,
1366                            lapack_complex_double* taub );
1367 
1368 lapack_int LAPACKE_sggsvd( int matrix_order, char jobu, char jobv, char jobq,
1369                            lapack_int m, lapack_int n, lapack_int p,
1370                            lapack_int* k, lapack_int* l, float* a,
1371                            lapack_int lda, float* b, lapack_int ldb,
1372                            float* alpha, float* beta, float* u, lapack_int ldu,
1373                            float* v, lapack_int ldv, float* q, lapack_int ldq,
1374                            lapack_int* iwork );
1375 lapack_int LAPACKE_dggsvd( int matrix_order, char jobu, char jobv, char jobq,
1376                            lapack_int m, lapack_int n, lapack_int p,
1377                            lapack_int* k, lapack_int* l, double* a,
1378                            lapack_int lda, double* b, lapack_int ldb,
1379                            double* alpha, double* beta, double* u,
1380                            lapack_int ldu, double* v, lapack_int ldv, double* q,
1381                            lapack_int ldq, lapack_int* iwork );
1382 lapack_int LAPACKE_cggsvd( int matrix_order, char jobu, char jobv, char jobq,
1383                            lapack_int m, lapack_int n, lapack_int p,
1384                            lapack_int* k, lapack_int* l,
1385                            lapack_complex_float* a, lapack_int lda,
1386                            lapack_complex_float* b, lapack_int ldb,
1387                            float* alpha, float* beta, lapack_complex_float* u,
1388                            lapack_int ldu, lapack_complex_float* v,
1389                            lapack_int ldv, lapack_complex_float* q,
1390                            lapack_int ldq, lapack_int* iwork );
1391 lapack_int LAPACKE_zggsvd( int matrix_order, char jobu, char jobv, char jobq,
1392                            lapack_int m, lapack_int n, lapack_int p,
1393                            lapack_int* k, lapack_int* l,
1394                            lapack_complex_double* a, lapack_int lda,
1395                            lapack_complex_double* b, lapack_int ldb,
1396                            double* alpha, double* beta,
1397                            lapack_complex_double* u, lapack_int ldu,
1398                            lapack_complex_double* v, lapack_int ldv,
1399                            lapack_complex_double* q, lapack_int ldq,
1400                            lapack_int* iwork );
1401 
1402 lapack_int LAPACKE_sggsvp( int matrix_order, char jobu, char jobv, char jobq,
1403                            lapack_int m, lapack_int p, lapack_int n, float* a,
1404                            lapack_int lda, float* b, lapack_int ldb, float tola,
1405                            float tolb, lapack_int* k, lapack_int* l, float* u,
1406                            lapack_int ldu, float* v, lapack_int ldv, float* q,
1407                            lapack_int ldq );
1408 lapack_int LAPACKE_dggsvp( int matrix_order, char jobu, char jobv, char jobq,
1409                            lapack_int m, lapack_int p, lapack_int n, double* a,
1410                            lapack_int lda, double* b, lapack_int ldb,
1411                            double tola, double tolb, lapack_int* k,
1412                            lapack_int* l, double* u, lapack_int ldu, double* v,
1413                            lapack_int ldv, double* q, lapack_int ldq );
1414 lapack_int LAPACKE_cggsvp( int matrix_order, char jobu, char jobv, char jobq,
1415                            lapack_int m, lapack_int p, lapack_int n,
1416                            lapack_complex_float* a, lapack_int lda,
1417                            lapack_complex_float* b, lapack_int ldb, float tola,
1418                            float tolb, lapack_int* k, lapack_int* l,
1419                            lapack_complex_float* u, lapack_int ldu,
1420                            lapack_complex_float* v, lapack_int ldv,
1421                            lapack_complex_float* q, lapack_int ldq );
1422 lapack_int LAPACKE_zggsvp( int matrix_order, char jobu, char jobv, char jobq,
1423                            lapack_int m, lapack_int p, lapack_int n,
1424                            lapack_complex_double* a, lapack_int lda,
1425                            lapack_complex_double* b, lapack_int ldb,
1426                            double tola, double tolb, lapack_int* k,
1427                            lapack_int* l, lapack_complex_double* u,
1428                            lapack_int ldu, lapack_complex_double* v,
1429                            lapack_int ldv, lapack_complex_double* q,
1430                            lapack_int ldq );
1431 
1432 lapack_int LAPACKE_sgtcon( char norm, lapack_int n, const float* dl,
1433                            const float* d, const float* du, const float* du2,
1434                            const lapack_int* ipiv, float anorm, float* rcond );
1435 lapack_int LAPACKE_dgtcon( char norm, lapack_int n, const double* dl,
1436                            const double* d, const double* du, const double* du2,
1437                            const lapack_int* ipiv, double anorm,
1438                            double* rcond );
1439 lapack_int LAPACKE_cgtcon( char norm, lapack_int n,
1440                            const lapack_complex_float* dl,
1441                            const lapack_complex_float* d,
1442                            const lapack_complex_float* du,
1443                            const lapack_complex_float* du2,
1444                            const lapack_int* ipiv, float anorm, float* rcond );
1445 lapack_int LAPACKE_zgtcon( char norm, lapack_int n,
1446                            const lapack_complex_double* dl,
1447                            const lapack_complex_double* d,
1448                            const lapack_complex_double* du,
1449                            const lapack_complex_double* du2,
1450                            const lapack_int* ipiv, double anorm,
1451                            double* rcond );
1452 
1453 lapack_int LAPACKE_sgtrfs( int matrix_order, char trans, lapack_int n,
1454                            lapack_int nrhs, const float* dl, const float* d,
1455                            const float* du, const float* dlf, const float* df,
1456                            const float* duf, const float* du2,
1457                            const lapack_int* ipiv, const float* b,
1458                            lapack_int ldb, float* x, lapack_int ldx,
1459                            float* ferr, float* berr );
1460 lapack_int LAPACKE_dgtrfs( int matrix_order, char trans, lapack_int n,
1461                            lapack_int nrhs, const double* dl, const double* d,
1462                            const double* du, const double* dlf,
1463                            const double* df, const double* duf,
1464                            const double* du2, const lapack_int* ipiv,
1465                            const double* b, lapack_int ldb, double* x,
1466                            lapack_int ldx, double* ferr, double* berr );
1467 lapack_int LAPACKE_cgtrfs( int matrix_order, char trans, lapack_int n,
1468                            lapack_int nrhs, const lapack_complex_float* dl,
1469                            const lapack_complex_float* d,
1470                            const lapack_complex_float* du,
1471                            const lapack_complex_float* dlf,
1472                            const lapack_complex_float* df,
1473                            const lapack_complex_float* duf,
1474                            const lapack_complex_float* du2,
1475                            const lapack_int* ipiv,
1476                            const lapack_complex_float* b, lapack_int ldb,
1477                            lapack_complex_float* x, lapack_int ldx, float* ferr,
1478                            float* berr );
1479 lapack_int LAPACKE_zgtrfs( int matrix_order, char trans, lapack_int n,
1480                            lapack_int nrhs, const lapack_complex_double* dl,
1481                            const lapack_complex_double* d,
1482                            const lapack_complex_double* du,
1483                            const lapack_complex_double* dlf,
1484                            const lapack_complex_double* df,
1485                            const lapack_complex_double* duf,
1486                            const lapack_complex_double* du2,
1487                            const lapack_int* ipiv,
1488                            const lapack_complex_double* b, lapack_int ldb,
1489                            lapack_complex_double* x, lapack_int ldx,
1490                            double* ferr, double* berr );
1491 
1492 lapack_int LAPACKE_sgtsv( int matrix_order, lapack_int n, lapack_int nrhs,
1493                           float* dl, float* d, float* du, float* b,
1494                           lapack_int ldb );
1495 lapack_int LAPACKE_dgtsv( int matrix_order, lapack_int n, lapack_int nrhs,
1496                           double* dl, double* d, double* du, double* b,
1497                           lapack_int ldb );
1498 lapack_int LAPACKE_cgtsv( int matrix_order, lapack_int n, lapack_int nrhs,
1499                           lapack_complex_float* dl, lapack_complex_float* d,
1500                           lapack_complex_float* du, lapack_complex_float* b,
1501                           lapack_int ldb );
1502 lapack_int LAPACKE_zgtsv( int matrix_order, lapack_int n, lapack_int nrhs,
1503                           lapack_complex_double* dl, lapack_complex_double* d,
1504                           lapack_complex_double* du, lapack_complex_double* b,
1505                           lapack_int ldb );
1506 
1507 lapack_int LAPACKE_sgtsvx( int matrix_order, char fact, char trans,
1508                            lapack_int n, lapack_int nrhs, const float* dl,
1509                            const float* d, const float* du, float* dlf,
1510                            float* df, float* duf, float* du2, lapack_int* ipiv,
1511                            const float* b, lapack_int ldb, float* x,
1512                            lapack_int ldx, float* rcond, float* ferr,
1513                            float* berr );
1514 lapack_int LAPACKE_dgtsvx( int matrix_order, char fact, char trans,
1515                            lapack_int n, lapack_int nrhs, const double* dl,
1516                            const double* d, const double* du, double* dlf,
1517                            double* df, double* duf, double* du2,
1518                            lapack_int* ipiv, const double* b, lapack_int ldb,
1519                            double* x, lapack_int ldx, double* rcond,
1520                            double* ferr, double* berr );
1521 lapack_int LAPACKE_cgtsvx( int matrix_order, char fact, char trans,
1522                            lapack_int n, lapack_int nrhs,
1523                            const lapack_complex_float* dl,
1524                            const lapack_complex_float* d,
1525                            const lapack_complex_float* du,
1526                            lapack_complex_float* dlf, lapack_complex_float* df,
1527                            lapack_complex_float* duf, lapack_complex_float* du2,
1528                            lapack_int* ipiv, const lapack_complex_float* b,
1529                            lapack_int ldb, lapack_complex_float* x,
1530                            lapack_int ldx, float* rcond, float* ferr,
1531                            float* berr );
1532 lapack_int LAPACKE_zgtsvx( int matrix_order, char fact, char trans,
1533                            lapack_int n, lapack_int nrhs,
1534                            const lapack_complex_double* dl,
1535                            const lapack_complex_double* d,
1536                            const lapack_complex_double* du,
1537                            lapack_complex_double* dlf,
1538                            lapack_complex_double* df,
1539                            lapack_complex_double* duf,
1540                            lapack_complex_double* du2, lapack_int* ipiv,
1541                            const lapack_complex_double* b, lapack_int ldb,
1542                            lapack_complex_double* x, lapack_int ldx,
1543                            double* rcond, double* ferr, double* berr );
1544 
1545 lapack_int LAPACKE_sgttrf( lapack_int n, float* dl, float* d, float* du,
1546                            float* du2, lapack_int* ipiv );
1547 lapack_int LAPACKE_dgttrf( lapack_int n, double* dl, double* d, double* du,
1548                            double* du2, lapack_int* ipiv );
1549 lapack_int LAPACKE_cgttrf( lapack_int n, lapack_complex_float* dl,
1550                            lapack_complex_float* d, lapack_complex_float* du,
1551                            lapack_complex_float* du2, lapack_int* ipiv );
1552 lapack_int LAPACKE_zgttrf( lapack_int n, lapack_complex_double* dl,
1553                            lapack_complex_double* d, lapack_complex_double* du,
1554                            lapack_complex_double* du2, lapack_int* ipiv );
1555 
1556 lapack_int LAPACKE_sgttrs( int matrix_order, char trans, lapack_int n,
1557                            lapack_int nrhs, const float* dl, const float* d,
1558                            const float* du, const float* du2,
1559                            const lapack_int* ipiv, float* b, lapack_int ldb );
1560 lapack_int LAPACKE_dgttrs( int matrix_order, char trans, lapack_int n,
1561                            lapack_int nrhs, const double* dl, const double* d,
1562                            const double* du, const double* du2,
1563                            const lapack_int* ipiv, double* b, lapack_int ldb );
1564 lapack_int LAPACKE_cgttrs( int matrix_order, char trans, lapack_int n,
1565                            lapack_int nrhs, const lapack_complex_float* dl,
1566                            const lapack_complex_float* d,
1567                            const lapack_complex_float* du,
1568                            const lapack_complex_float* du2,
1569                            const lapack_int* ipiv, lapack_complex_float* b,
1570                            lapack_int ldb );
1571 lapack_int LAPACKE_zgttrs( int matrix_order, char trans, lapack_int n,
1572                            lapack_int nrhs, const lapack_complex_double* dl,
1573                            const lapack_complex_double* d,
1574                            const lapack_complex_double* du,
1575                            const lapack_complex_double* du2,
1576                            const lapack_int* ipiv, lapack_complex_double* b,
1577                            lapack_int ldb );
1578 
1579 lapack_int LAPACKE_chbev( int matrix_order, char jobz, char uplo, lapack_int n,
1580                           lapack_int kd, lapack_complex_float* ab,
1581                           lapack_int ldab, float* w, lapack_complex_float* z,
1582                           lapack_int ldz );
1583 lapack_int LAPACKE_zhbev( int matrix_order, char jobz, char uplo, lapack_int n,
1584                           lapack_int kd, lapack_complex_double* ab,
1585                           lapack_int ldab, double* w, lapack_complex_double* z,
1586                           lapack_int ldz );
1587 
1588 lapack_int LAPACKE_chbevd( int matrix_order, char jobz, char uplo, lapack_int n,
1589                            lapack_int kd, lapack_complex_float* ab,
1590                            lapack_int ldab, float* w, lapack_complex_float* z,
1591                            lapack_int ldz );
1592 lapack_int LAPACKE_zhbevd( int matrix_order, char jobz, char uplo, lapack_int n,
1593                            lapack_int kd, lapack_complex_double* ab,
1594                            lapack_int ldab, double* w, lapack_complex_double* z,
1595                            lapack_int ldz );
1596 
1597 lapack_int LAPACKE_chbevx( int matrix_order, char jobz, char range, char uplo,
1598                            lapack_int n, lapack_int kd,
1599                            lapack_complex_float* ab, lapack_int ldab,
1600                            lapack_complex_float* q, lapack_int ldq, float vl,
1601                            float vu, lapack_int il, lapack_int iu, float abstol,
1602                            lapack_int* m, float* w, lapack_complex_float* z,
1603                            lapack_int ldz, lapack_int* ifail );
1604 lapack_int LAPACKE_zhbevx( int matrix_order, char jobz, char range, char uplo,
1605                            lapack_int n, lapack_int kd,
1606                            lapack_complex_double* ab, lapack_int ldab,
1607                            lapack_complex_double* q, lapack_int ldq, double vl,
1608                            double vu, lapack_int il, lapack_int iu,
1609                            double abstol, lapack_int* m, double* w,
1610                            lapack_complex_double* z, lapack_int ldz,
1611                            lapack_int* ifail );
1612 
1613 lapack_int LAPACKE_chbgst( int matrix_order, char vect, char uplo, lapack_int n,
1614                            lapack_int ka, lapack_int kb,
1615                            lapack_complex_float* ab, lapack_int ldab,
1616                            const lapack_complex_float* bb, lapack_int ldbb,
1617                            lapack_complex_float* x, lapack_int ldx );
1618 lapack_int LAPACKE_zhbgst( int matrix_order, char vect, char uplo, lapack_int n,
1619                            lapack_int ka, lapack_int kb,
1620                            lapack_complex_double* ab, lapack_int ldab,
1621                            const lapack_complex_double* bb, lapack_int ldbb,
1622                            lapack_complex_double* x, lapack_int ldx );
1623 
1624 lapack_int LAPACKE_chbgv( int matrix_order, char jobz, char uplo, lapack_int n,
1625                           lapack_int ka, lapack_int kb,
1626                           lapack_complex_float* ab, lapack_int ldab,
1627                           lapack_complex_float* bb, lapack_int ldbb, float* w,
1628                           lapack_complex_float* z, lapack_int ldz );
1629 lapack_int LAPACKE_zhbgv( int matrix_order, char jobz, char uplo, lapack_int n,
1630                           lapack_int ka, lapack_int kb,
1631                           lapack_complex_double* ab, lapack_int ldab,
1632                           lapack_complex_double* bb, lapack_int ldbb, double* w,
1633                           lapack_complex_double* z, lapack_int ldz );
1634 
1635 lapack_int LAPACKE_chbgvd( int matrix_order, char jobz, char uplo, lapack_int n,
1636                            lapack_int ka, lapack_int kb,
1637                            lapack_complex_float* ab, lapack_int ldab,
1638                            lapack_complex_float* bb, lapack_int ldbb, float* w,
1639                            lapack_complex_float* z, lapack_int ldz );
1640 lapack_int LAPACKE_zhbgvd( int matrix_order, char jobz, char uplo, lapack_int n,
1641                            lapack_int ka, lapack_int kb,
1642                            lapack_complex_double* ab, lapack_int ldab,
1643                            lapack_complex_double* bb, lapack_int ldbb,
1644                            double* w, lapack_complex_double* z,
1645                            lapack_int ldz );
1646 
1647 lapack_int LAPACKE_chbgvx( int matrix_order, char jobz, char range, char uplo,
1648                            lapack_int n, lapack_int ka, lapack_int kb,
1649                            lapack_complex_float* ab, lapack_int ldab,
1650                            lapack_complex_float* bb, lapack_int ldbb,
1651                            lapack_complex_float* q, lapack_int ldq, float vl,
1652                            float vu, lapack_int il, lapack_int iu, float abstol,
1653                            lapack_int* m, float* w, lapack_complex_float* z,
1654                            lapack_int ldz, lapack_int* ifail );
1655 lapack_int LAPACKE_zhbgvx( int matrix_order, char jobz, char range, char uplo,
1656                            lapack_int n, lapack_int ka, lapack_int kb,
1657                            lapack_complex_double* ab, lapack_int ldab,
1658                            lapack_complex_double* bb, lapack_int ldbb,
1659                            lapack_complex_double* q, lapack_int ldq, double vl,
1660                            double vu, lapack_int il, lapack_int iu,
1661                            double abstol, lapack_int* m, double* w,
1662                            lapack_complex_double* z, lapack_int ldz,
1663                            lapack_int* ifail );
1664 
1665 lapack_int LAPACKE_chbtrd( int matrix_order, char vect, char uplo, lapack_int n,
1666                            lapack_int kd, lapack_complex_float* ab,
1667                            lapack_int ldab, float* d, float* e,
1668                            lapack_complex_float* q, lapack_int ldq );
1669 lapack_int LAPACKE_zhbtrd( int matrix_order, char vect, char uplo, lapack_int n,
1670                            lapack_int kd, lapack_complex_double* ab,
1671                            lapack_int ldab, double* d, double* e,
1672                            lapack_complex_double* q, lapack_int ldq );
1673 
1674 lapack_int LAPACKE_checon( int matrix_order, char uplo, lapack_int n,
1675                            const lapack_complex_float* a, lapack_int lda,
1676                            const lapack_int* ipiv, float anorm, float* rcond );
1677 lapack_int LAPACKE_zhecon( int matrix_order, char uplo, lapack_int n,
1678                            const lapack_complex_double* a, lapack_int lda,
1679                            const lapack_int* ipiv, double anorm,
1680                            double* rcond );
1681 
1682 lapack_int LAPACKE_cheequb( int matrix_order, char uplo, lapack_int n,
1683                             const lapack_complex_float* a, lapack_int lda,
1684                             float* s, float* scond, float* amax );
1685 lapack_int LAPACKE_zheequb( int matrix_order, char uplo, lapack_int n,
1686                             const lapack_complex_double* a, lapack_int lda,
1687                             double* s, double* scond, double* amax );
1688 
1689 lapack_int LAPACKE_cheev( int matrix_order, char jobz, char uplo, lapack_int n,
1690                           lapack_complex_float* a, lapack_int lda, float* w );
1691 lapack_int LAPACKE_zheev( int matrix_order, char jobz, char uplo, lapack_int n,
1692                           lapack_complex_double* a, lapack_int lda, double* w );
1693 
1694 lapack_int LAPACKE_cheevd( int matrix_order, char jobz, char uplo, lapack_int n,
1695                            lapack_complex_float* a, lapack_int lda, float* w );
1696 lapack_int LAPACKE_zheevd( int matrix_order, char jobz, char uplo, lapack_int n,
1697                            lapack_complex_double* a, lapack_int lda,
1698                            double* w );
1699 
1700 lapack_int LAPACKE_cheevr( int matrix_order, char jobz, char range, char uplo,
1701                            lapack_int n, lapack_complex_float* a,
1702                            lapack_int lda, float vl, float vu, lapack_int il,
1703                            lapack_int iu, float abstol, lapack_int* m, float* w,
1704                            lapack_complex_float* z, lapack_int ldz,
1705                            lapack_int* isuppz );
1706 lapack_int LAPACKE_zheevr( int matrix_order, char jobz, char range, char uplo,
1707                            lapack_int n, lapack_complex_double* a,
1708                            lapack_int lda, double vl, double vu, lapack_int il,
1709                            lapack_int iu, double abstol, lapack_int* m,
1710                            double* w, lapack_complex_double* z, lapack_int ldz,
1711                            lapack_int* isuppz );
1712 
1713 lapack_int LAPACKE_cheevx( int matrix_order, char jobz, char range, char uplo,
1714                            lapack_int n, lapack_complex_float* a,
1715                            lapack_int lda, float vl, float vu, lapack_int il,
1716                            lapack_int iu, float abstol, lapack_int* m, float* w,
1717                            lapack_complex_float* z, lapack_int ldz,
1718                            lapack_int* ifail );
1719 lapack_int LAPACKE_zheevx( int matrix_order, char jobz, char range, char uplo,
1720                            lapack_int n, lapack_complex_double* a,
1721                            lapack_int lda, double vl, double vu, lapack_int il,
1722                            lapack_int iu, double abstol, lapack_int* m,
1723                            double* w, lapack_complex_double* z, lapack_int ldz,
1724                            lapack_int* ifail );
1725 
1726 lapack_int LAPACKE_chegst( int matrix_order, lapack_int itype, char uplo,
1727                            lapack_int n, lapack_complex_float* a,
1728                            lapack_int lda, const lapack_complex_float* b,
1729                            lapack_int ldb );
1730 lapack_int LAPACKE_zhegst( int matrix_order, lapack_int itype, char uplo,
1731                            lapack_int n, lapack_complex_double* a,
1732                            lapack_int lda, const lapack_complex_double* b,
1733                            lapack_int ldb );
1734 
1735 lapack_int LAPACKE_chegv( int matrix_order, lapack_int itype, char jobz,
1736                           char uplo, lapack_int n, lapack_complex_float* a,
1737                           lapack_int lda, lapack_complex_float* b,
1738                           lapack_int ldb, float* w );
1739 lapack_int LAPACKE_zhegv( int matrix_order, lapack_int itype, char jobz,
1740                           char uplo, lapack_int n, lapack_complex_double* a,
1741                           lapack_int lda, lapack_complex_double* b,
1742                           lapack_int ldb, double* w );
1743 
1744 lapack_int LAPACKE_chegvd( int matrix_order, lapack_int itype, char jobz,
1745                            char uplo, lapack_int n, lapack_complex_float* a,
1746                            lapack_int lda, lapack_complex_float* b,
1747                            lapack_int ldb, float* w );
1748 lapack_int LAPACKE_zhegvd( int matrix_order, lapack_int itype, char jobz,
1749                            char uplo, lapack_int n, lapack_complex_double* a,
1750                            lapack_int lda, lapack_complex_double* b,
1751                            lapack_int ldb, double* w );
1752 
1753 lapack_int LAPACKE_chegvx( int matrix_order, lapack_int itype, char jobz,
1754                            char range, char uplo, lapack_int n,
1755                            lapack_complex_float* a, lapack_int lda,
1756                            lapack_complex_float* b, lapack_int ldb, float vl,
1757                            float vu, lapack_int il, lapack_int iu, float abstol,
1758                            lapack_int* m, float* w, lapack_complex_float* z,
1759                            lapack_int ldz, lapack_int* ifail );
1760 lapack_int LAPACKE_zhegvx( int matrix_order, lapack_int itype, char jobz,
1761                            char range, char uplo, lapack_int n,
1762                            lapack_complex_double* a, lapack_int lda,
1763                            lapack_complex_double* b, lapack_int ldb, double vl,
1764                            double vu, lapack_int il, lapack_int iu,
1765                            double abstol, lapack_int* m, double* w,
1766                            lapack_complex_double* z, lapack_int ldz,
1767                            lapack_int* ifail );
1768 
1769 lapack_int LAPACKE_cherfs( int matrix_order, char uplo, lapack_int n,
1770                            lapack_int nrhs, const lapack_complex_float* a,
1771                            lapack_int lda, const lapack_complex_float* af,
1772                            lapack_int ldaf, const lapack_int* ipiv,
1773                            const lapack_complex_float* b, lapack_int ldb,
1774                            lapack_complex_float* x, lapack_int ldx, float* ferr,
1775                            float* berr );
1776 lapack_int LAPACKE_zherfs( int matrix_order, char uplo, lapack_int n,
1777                            lapack_int nrhs, const lapack_complex_double* a,
1778                            lapack_int lda, const lapack_complex_double* af,
1779                            lapack_int ldaf, const lapack_int* ipiv,
1780                            const lapack_complex_double* b, lapack_int ldb,
1781                            lapack_complex_double* x, lapack_int ldx,
1782                            double* ferr, double* berr );
1783 
1784 lapack_int LAPACKE_cherfsx( int matrix_order, char uplo, char equed,
1785                             lapack_int n, lapack_int nrhs,
1786                             const lapack_complex_float* a, lapack_int lda,
1787                             const lapack_complex_float* af, lapack_int ldaf,
1788                             const lapack_int* ipiv, const float* s,
1789                             const lapack_complex_float* b, lapack_int ldb,
1790                             lapack_complex_float* x, lapack_int ldx,
1791                             float* rcond, float* berr, lapack_int n_err_bnds,
1792                             float* err_bnds_norm, float* err_bnds_comp,
1793                             lapack_int nparams, float* params );
1794 lapack_int LAPACKE_zherfsx( int matrix_order, char uplo, char equed,
1795                             lapack_int n, lapack_int nrhs,
1796                             const lapack_complex_double* a, lapack_int lda,
1797                             const lapack_complex_double* af, lapack_int ldaf,
1798                             const lapack_int* ipiv, const double* s,
1799                             const lapack_complex_double* b, lapack_int ldb,
1800                             lapack_complex_double* x, lapack_int ldx,
1801                             double* rcond, double* berr, lapack_int n_err_bnds,
1802                             double* err_bnds_norm, double* err_bnds_comp,
1803                             lapack_int nparams, double* params );
1804 
1805 lapack_int LAPACKE_chesv( int matrix_order, char uplo, lapack_int n,
1806                           lapack_int nrhs, lapack_complex_float* a,
1807                           lapack_int lda, lapack_int* ipiv,
1808                           lapack_complex_float* b, lapack_int ldb );
1809 lapack_int LAPACKE_zhesv( int matrix_order, char uplo, lapack_int n,
1810                           lapack_int nrhs, lapack_complex_double* a,
1811                           lapack_int lda, lapack_int* ipiv,
1812                           lapack_complex_double* b, lapack_int ldb );
1813 
1814 lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n,
1815                            lapack_int nrhs, const lapack_complex_float* a,
1816                            lapack_int lda, lapack_complex_float* af,
1817                            lapack_int ldaf, lapack_int* ipiv,
1818                            const lapack_complex_float* b, lapack_int ldb,
1819                            lapack_complex_float* x, lapack_int ldx,
1820                            float* rcond, float* ferr, float* berr );
1821 lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n,
1822                            lapack_int nrhs, const lapack_complex_double* a,
1823                            lapack_int lda, lapack_complex_double* af,
1824                            lapack_int ldaf, lapack_int* ipiv,
1825                            const lapack_complex_double* b, lapack_int ldb,
1826                            lapack_complex_double* x, lapack_int ldx,
1827                            double* rcond, double* ferr, double* berr );
1828 
1829 lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo,
1830                             lapack_int n, lapack_int nrhs,
1831                             lapack_complex_float* a, lapack_int lda,
1832                             lapack_complex_float* af, lapack_int ldaf,
1833                             lapack_int* ipiv, char* equed, float* s,
1834                             lapack_complex_float* b, lapack_int ldb,
1835                             lapack_complex_float* x, lapack_int ldx,
1836                             float* rcond, float* rpvgrw, float* berr,
1837                             lapack_int n_err_bnds, float* err_bnds_norm,
1838                             float* err_bnds_comp, lapack_int nparams,
1839                             float* params );
1840 lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo,
1841                             lapack_int n, lapack_int nrhs,
1842                             lapack_complex_double* a, lapack_int lda,
1843                             lapack_complex_double* af, lapack_int ldaf,
1844                             lapack_int* ipiv, char* equed, double* s,
1845                             lapack_complex_double* b, lapack_int ldb,
1846                             lapack_complex_double* x, lapack_int ldx,
1847                             double* rcond, double* rpvgrw, double* berr,
1848                             lapack_int n_err_bnds, double* err_bnds_norm,
1849                             double* err_bnds_comp, lapack_int nparams,
1850                             double* params );
1851 
1852 lapack_int LAPACKE_chetrd( int matrix_order, char uplo, lapack_int n,
1853                            lapack_complex_float* a, lapack_int lda, float* d,
1854                            float* e, lapack_complex_float* tau );
1855 lapack_int LAPACKE_zhetrd( int matrix_order, char uplo, lapack_int n,
1856                            lapack_complex_double* a, lapack_int lda, double* d,
1857                            double* e, lapack_complex_double* tau );
1858 
1859 lapack_int LAPACKE_chetrf( int matrix_order, char uplo, lapack_int n,
1860                            lapack_complex_float* a, lapack_int lda,
1861                            lapack_int* ipiv );
1862 lapack_int LAPACKE_zhetrf( int matrix_order, char uplo, lapack_int n,
1863                            lapack_complex_double* a, lapack_int lda,
1864                            lapack_int* ipiv );
1865 
1866 lapack_int LAPACKE_chetri( int matrix_order, char uplo, lapack_int n,
1867                            lapack_complex_float* a, lapack_int lda,
1868                            const lapack_int* ipiv );
1869 lapack_int LAPACKE_zhetri( int matrix_order, char uplo, lapack_int n,
1870                            lapack_complex_double* a, lapack_int lda,
1871                            const lapack_int* ipiv );
1872 
1873 lapack_int LAPACKE_chetrs( int matrix_order, char uplo, lapack_int n,
1874                            lapack_int nrhs, const lapack_complex_float* a,
1875                            lapack_int lda, const lapack_int* ipiv,
1876                            lapack_complex_float* b, lapack_int ldb );
1877 lapack_int LAPACKE_zhetrs( int matrix_order, char uplo, lapack_int n,
1878                            lapack_int nrhs, const lapack_complex_double* a,
1879                            lapack_int lda, const lapack_int* ipiv,
1880                            lapack_complex_double* b, lapack_int ldb );
1881 
1882 lapack_int LAPACKE_chfrk( int matrix_order, char transr, char uplo, char trans,
1883                           lapack_int n, lapack_int k, float alpha,
1884                           const lapack_complex_float* a, lapack_int lda,
1885                           float beta, lapack_complex_float* c );
1886 lapack_int LAPACKE_zhfrk( int matrix_order, char transr, char uplo, char trans,
1887                           lapack_int n, lapack_int k, double alpha,
1888                           const lapack_complex_double* a, lapack_int lda,
1889                           double beta, lapack_complex_double* c );
1890 
1891 lapack_int LAPACKE_shgeqz( int matrix_order, char job, char compq, char compz,
1892                            lapack_int n, lapack_int ilo, lapack_int ihi,
1893                            float* h, lapack_int ldh, float* t, lapack_int ldt,
1894                            float* alphar, float* alphai, float* beta, float* q,
1895                            lapack_int ldq, float* z, lapack_int ldz );
1896 lapack_int LAPACKE_dhgeqz( int matrix_order, char job, char compq, char compz,
1897                            lapack_int n, lapack_int ilo, lapack_int ihi,
1898                            double* h, lapack_int ldh, double* t, lapack_int ldt,
1899                            double* alphar, double* alphai, double* beta,
1900                            double* q, lapack_int ldq, double* z,
1901                            lapack_int ldz );
1902 lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz,
1903                            lapack_int n, lapack_int ilo, lapack_int ihi,
1904                            lapack_complex_float* h, lapack_int ldh,
1905                            lapack_complex_float* t, lapack_int ldt,
1906                            lapack_complex_float* alpha,
1907                            lapack_complex_float* beta, lapack_complex_float* q,
1908                            lapack_int ldq, lapack_complex_float* z,
1909                            lapack_int ldz );
1910 lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz,
1911                            lapack_int n, lapack_int ilo, lapack_int ihi,
1912                            lapack_complex_double* h, lapack_int ldh,
1913                            lapack_complex_double* t, lapack_int ldt,
1914                            lapack_complex_double* alpha,
1915                            lapack_complex_double* beta,
1916                            lapack_complex_double* q, lapack_int ldq,
1917                            lapack_complex_double* z, lapack_int ldz );
1918 
1919 lapack_int LAPACKE_chpcon( int matrix_order, char uplo, lapack_int n,
1920                            const lapack_complex_float* ap,
1921                            const lapack_int* ipiv, float anorm, float* rcond );
1922 lapack_int LAPACKE_zhpcon( int matrix_order, char uplo, lapack_int n,
1923                            const lapack_complex_double* ap,
1924                            const lapack_int* ipiv, double anorm,
1925                            double* rcond );
1926 
1927 lapack_int LAPACKE_chpev( int matrix_order, char jobz, char uplo, lapack_int n,
1928                           lapack_complex_float* ap, float* w,
1929                           lapack_complex_float* z, lapack_int ldz );
1930 lapack_int LAPACKE_zhpev( int matrix_order, char jobz, char uplo, lapack_int n,
1931                           lapack_complex_double* ap, double* w,
1932                           lapack_complex_double* z, lapack_int ldz );
1933 
1934 lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n,
1935                            lapack_complex_float* ap, float* w,
1936                            lapack_complex_float* z, lapack_int ldz );
1937 lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n,
1938                            lapack_complex_double* ap, double* w,
1939                            lapack_complex_double* z, lapack_int ldz );
1940 
1941 lapack_int LAPACKE_chpevx( int matrix_order, char jobz, char range, char uplo,
1942                            lapack_int n, lapack_complex_float* ap, float vl,
1943                            float vu, lapack_int il, lapack_int iu, float abstol,
1944                            lapack_int* m, float* w, lapack_complex_float* z,
1945                            lapack_int ldz, lapack_int* ifail );
1946 lapack_int LAPACKE_zhpevx( int matrix_order, char jobz, char range, char uplo,
1947                            lapack_int n, lapack_complex_double* ap, double vl,
1948                            double vu, lapack_int il, lapack_int iu,
1949                            double abstol, lapack_int* m, double* w,
1950                            lapack_complex_double* z, lapack_int ldz,
1951                            lapack_int* ifail );
1952 
1953 lapack_int LAPACKE_chpgst( int matrix_order, lapack_int itype, char uplo,
1954                            lapack_int n, lapack_complex_float* ap,
1955                            const lapack_complex_float* bp );
1956 lapack_int LAPACKE_zhpgst( int matrix_order, lapack_int itype, char uplo,
1957                            lapack_int n, lapack_complex_double* ap,
1958                            const lapack_complex_double* bp );
1959 
1960 lapack_int LAPACKE_chpgv( int matrix_order, lapack_int itype, char jobz,
1961                           char uplo, lapack_int n, lapack_complex_float* ap,
1962                           lapack_complex_float* bp, float* w,
1963                           lapack_complex_float* z, lapack_int ldz );
1964 lapack_int LAPACKE_zhpgv( int matrix_order, lapack_int itype, char jobz,
1965                           char uplo, lapack_int n, lapack_complex_double* ap,
1966                           lapack_complex_double* bp, double* w,
1967                           lapack_complex_double* z, lapack_int ldz );
1968 
1969 lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz,
1970                            char uplo, lapack_int n, lapack_complex_float* ap,
1971                            lapack_complex_float* bp, float* w,
1972                            lapack_complex_float* z, lapack_int ldz );
1973 lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz,
1974                            char uplo, lapack_int n, lapack_complex_double* ap,
1975                            lapack_complex_double* bp, double* w,
1976                            lapack_complex_double* z, lapack_int ldz );
1977 
1978 lapack_int LAPACKE_chpgvx( int matrix_order, lapack_int itype, char jobz,
1979                            char range, char uplo, lapack_int n,
1980                            lapack_complex_float* ap, lapack_complex_float* bp,
1981                            float vl, float vu, lapack_int il, lapack_int iu,
1982                            float abstol, lapack_int* m, float* w,
1983                            lapack_complex_float* z, lapack_int ldz,
1984                            lapack_int* ifail );
1985 lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz,
1986                            char range, char uplo, lapack_int n,
1987                            lapack_complex_double* ap, lapack_complex_double* bp,
1988                            double vl, double vu, lapack_int il, lapack_int iu,
1989                            double abstol, lapack_int* m, double* w,
1990                            lapack_complex_double* z, lapack_int ldz,
1991                            lapack_int* ifail );
1992 
1993 lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n,
1994                            lapack_int nrhs, const lapack_complex_float* ap,
1995                            const lapack_complex_float* afp,
1996                            const lapack_int* ipiv,
1997                            const lapack_complex_float* b, lapack_int ldb,
1998                            lapack_complex_float* x, lapack_int ldx, float* ferr,
1999                            float* berr );
2000 lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n,
2001                            lapack_int nrhs, const lapack_complex_double* ap,
2002                            const lapack_complex_double* afp,
2003                            const lapack_int* ipiv,
2004                            const lapack_complex_double* b, lapack_int ldb,
2005                            lapack_complex_double* x, lapack_int ldx,
2006                            double* ferr, double* berr );
2007 
2008 lapack_int LAPACKE_chpsv( int matrix_order, char uplo, lapack_int n,
2009                           lapack_int nrhs, lapack_complex_float* ap,
2010                           lapack_int* ipiv, lapack_complex_float* b,
2011                           lapack_int ldb );
2012 lapack_int LAPACKE_zhpsv( int matrix_order, char uplo, lapack_int n,
2013                           lapack_int nrhs, lapack_complex_double* ap,
2014                           lapack_int* ipiv, lapack_complex_double* b,
2015                           lapack_int ldb );
2016 
2017 lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n,
2018                            lapack_int nrhs, const lapack_complex_float* ap,
2019                            lapack_complex_float* afp, lapack_int* ipiv,
2020                            const lapack_complex_float* b, lapack_int ldb,
2021                            lapack_complex_float* x, lapack_int ldx,
2022                            float* rcond, float* ferr, float* berr );
2023 lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n,
2024                            lapack_int nrhs, const lapack_complex_double* ap,
2025                            lapack_complex_double* afp, lapack_int* ipiv,
2026                            const lapack_complex_double* b, lapack_int ldb,
2027                            lapack_complex_double* x, lapack_int ldx,
2028                            double* rcond, double* ferr, double* berr );
2029 
2030 lapack_int LAPACKE_chptrd( int matrix_order, char uplo, lapack_int n,
2031                            lapack_complex_float* ap, float* d, float* e,
2032                            lapack_complex_float* tau );
2033 lapack_int LAPACKE_zhptrd( int matrix_order, char uplo, lapack_int n,
2034                            lapack_complex_double* ap, double* d, double* e,
2035                            lapack_complex_double* tau );
2036 
2037 lapack_int LAPACKE_chptrf( int matrix_order, char uplo, lapack_int n,
2038                            lapack_complex_float* ap, lapack_int* ipiv );
2039 lapack_int LAPACKE_zhptrf( int matrix_order, char uplo, lapack_int n,
2040                            lapack_complex_double* ap, lapack_int* ipiv );
2041 
2042 lapack_int LAPACKE_chptri( int matrix_order, char uplo, lapack_int n,
2043                            lapack_complex_float* ap, const lapack_int* ipiv );
2044 lapack_int LAPACKE_zhptri( int matrix_order, char uplo, lapack_int n,
2045                            lapack_complex_double* ap, const lapack_int* ipiv );
2046 
2047 lapack_int LAPACKE_chptrs( int matrix_order, char uplo, lapack_int n,
2048                            lapack_int nrhs, const lapack_complex_float* ap,
2049                            const lapack_int* ipiv, lapack_complex_float* b,
2050                            lapack_int ldb );
2051 lapack_int LAPACKE_zhptrs( int matrix_order, char uplo, lapack_int n,
2052                            lapack_int nrhs, const lapack_complex_double* ap,
2053                            const lapack_int* ipiv, lapack_complex_double* b,
2054                            lapack_int ldb );
2055 
2056 lapack_int LAPACKE_shsein( int matrix_order, char job, char eigsrc, char initv,
2057                            lapack_logical* select, lapack_int n, const float* h,
2058                            lapack_int ldh, float* wr, const float* wi,
2059                            float* vl, lapack_int ldvl, float* vr,
2060                            lapack_int ldvr, lapack_int mm, lapack_int* m,
2061                            lapack_int* ifaill, lapack_int* ifailr );
2062 lapack_int LAPACKE_dhsein( int matrix_order, char job, char eigsrc, char initv,
2063                            lapack_logical* select, lapack_int n,
2064                            const double* h, lapack_int ldh, double* wr,
2065                            const double* wi, double* vl, lapack_int ldvl,
2066                            double* vr, lapack_int ldvr, lapack_int mm,
2067                            lapack_int* m, lapack_int* ifaill,
2068                            lapack_int* ifailr );
2069 lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv,
2070                            const lapack_logical* select, lapack_int n,
2071                            const lapack_complex_float* h, lapack_int ldh,
2072                            lapack_complex_float* w, lapack_complex_float* vl,
2073                            lapack_int ldvl, lapack_complex_float* vr,
2074                            lapack_int ldvr, lapack_int mm, lapack_int* m,
2075                            lapack_int* ifaill, lapack_int* ifailr );
2076 lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv,
2077                            const lapack_logical* select, lapack_int n,
2078                            const lapack_complex_double* h, lapack_int ldh,
2079                            lapack_complex_double* w, lapack_complex_double* vl,
2080                            lapack_int ldvl, lapack_complex_double* vr,
2081                            lapack_int ldvr, lapack_int mm, lapack_int* m,
2082                            lapack_int* ifaill, lapack_int* ifailr );
2083 
2084 lapack_int LAPACKE_shseqr( int matrix_order, char job, char compz, lapack_int n,
2085                            lapack_int ilo, lapack_int ihi, float* h,
2086                            lapack_int ldh, float* wr, float* wi, float* z,
2087                            lapack_int ldz );
2088 lapack_int LAPACKE_dhseqr( int matrix_order, char job, char compz, lapack_int n,
2089                            lapack_int ilo, lapack_int ihi, double* h,
2090                            lapack_int ldh, double* wr, double* wi, double* z,
2091                            lapack_int ldz );
2092 lapack_int LAPACKE_chseqr( int matrix_order, char job, char compz, lapack_int n,
2093                            lapack_int ilo, lapack_int ihi,
2094                            lapack_complex_float* h, lapack_int ldh,
2095                            lapack_complex_float* w, lapack_complex_float* z,
2096                            lapack_int ldz );
2097 lapack_int LAPACKE_zhseqr( int matrix_order, char job, char compz, lapack_int n,
2098                            lapack_int ilo, lapack_int ihi,
2099                            lapack_complex_double* h, lapack_int ldh,
2100                            lapack_complex_double* w, lapack_complex_double* z,
2101                            lapack_int ldz );
2102 
2103 lapack_int LAPACKE_clacgv( lapack_int n, lapack_complex_float* x,
2104                            lapack_int incx );
2105 lapack_int LAPACKE_zlacgv( lapack_int n, lapack_complex_double* x,
2106                            lapack_int incx );
2107 
2108 lapack_int LAPACKE_slacpy( int matrix_order, char uplo, lapack_int m,
2109                            lapack_int n, const float* a, lapack_int lda, float* b,
2110                            lapack_int ldb );
2111 lapack_int LAPACKE_dlacpy( int matrix_order, char uplo, lapack_int m,
2112                            lapack_int n, const double* a, lapack_int lda, double* b,
2113                            lapack_int ldb );
2114 lapack_int LAPACKE_clacpy( int matrix_order, char uplo, lapack_int m,
2115                            lapack_int n, const lapack_complex_float* a,
2116                            lapack_int lda, lapack_complex_float* b,
2117                            lapack_int ldb );
2118 lapack_int LAPACKE_zlacpy( int matrix_order, char uplo, lapack_int m,
2119                            lapack_int n, const lapack_complex_double* a,
2120                            lapack_int lda, lapack_complex_double* b,
2121                            lapack_int ldb );
2122 
2123 lapack_int LAPACKE_zlag2c( int matrix_order, lapack_int m, lapack_int n,
2124                            const lapack_complex_double* a, lapack_int lda,
2125                            lapack_complex_float* sa, lapack_int ldsa );
2126 
2127 lapack_int LAPACKE_slag2d( int matrix_order, lapack_int m, lapack_int n,
2128                            const float* sa, lapack_int ldsa, double* a,
2129                            lapack_int lda );
2130 
2131 lapack_int LAPACKE_dlag2s( int matrix_order, lapack_int m, lapack_int n,
2132                            const double* a, lapack_int lda, float* sa,
2133                            lapack_int ldsa );
2134 
2135 lapack_int LAPACKE_clag2z( int matrix_order, lapack_int m, lapack_int n,
2136                            const lapack_complex_float* sa, lapack_int ldsa,
2137                            lapack_complex_double* a, lapack_int lda );
2138 
2139 lapack_int LAPACKE_slagge( int matrix_order, lapack_int m, lapack_int n,
2140                            lapack_int kl, lapack_int ku, const float* d,
2141                            float* a, lapack_int lda, lapack_int* iseed );
2142 lapack_int LAPACKE_dlagge( int matrix_order, lapack_int m, lapack_int n,
2143                            lapack_int kl, lapack_int ku, const double* d,
2144                            double* a, lapack_int lda, lapack_int* iseed );
2145 lapack_int LAPACKE_clagge( int matrix_order, lapack_int m, lapack_int n,
2146                            lapack_int kl, lapack_int ku, const float* d,
2147                            lapack_complex_float* a, lapack_int lda,
2148                            lapack_int* iseed );
2149 lapack_int LAPACKE_zlagge( int matrix_order, lapack_int m, lapack_int n,
2150                            lapack_int kl, lapack_int ku, const double* d,
2151                            lapack_complex_double* a, lapack_int lda,
2152                            lapack_int* iseed );
2153 
2154 float LAPACKE_slamch( char cmach );
2155 double LAPACKE_dlamch( char cmach );
2156 
2157 float LAPACKE_slange( int matrix_order, char norm, lapack_int m,
2158                            lapack_int n, const float* a, lapack_int lda );
2159 double LAPACKE_dlange( int matrix_order, char norm, lapack_int m,
2160                            lapack_int n, const double* a, lapack_int lda );
2161 float LAPACKE_clange( int matrix_order, char norm, lapack_int m,
2162                            lapack_int n, const lapack_complex_float* a,
2163                            lapack_int lda );
2164 double LAPACKE_zlange( int matrix_order, char norm, lapack_int m,
2165                            lapack_int n, const lapack_complex_double* a,
2166                            lapack_int lda );
2167 
2168 float LAPACKE_clanhe( int matrix_order, char norm, char uplo, lapack_int n,
2169                            const lapack_complex_float* a, lapack_int lda );
2170 double LAPACKE_zlanhe( int matrix_order, char norm, char uplo, lapack_int n,
2171                            const lapack_complex_double* a, lapack_int lda );
2172 
2173 float LAPACKE_slansy( int matrix_order, char norm, char uplo, lapack_int n,
2174                            const float* a, lapack_int lda );
2175 double LAPACKE_dlansy( int matrix_order, char norm, char uplo, lapack_int n,
2176                            const double* a, lapack_int lda );
2177 float LAPACKE_clansy( int matrix_order, char norm, char uplo, lapack_int n,
2178                            const lapack_complex_float* a, lapack_int lda );
2179 double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n,
2180                            const lapack_complex_double* a, lapack_int lda );
2181 
2182 float LAPACKE_slantr( int matrix_order, char norm, char uplo, char diag,
2183                            lapack_int m, lapack_int n, const float* a,
2184                            lapack_int lda );
2185 double LAPACKE_dlantr( int matrix_order, char norm, char uplo, char diag,
2186                            lapack_int m, lapack_int n, const double* a,
2187                            lapack_int lda );
2188 float LAPACKE_clantr( int matrix_order, char norm, char uplo, char diag,
2189                            lapack_int m, lapack_int n, const lapack_complex_float* a,
2190                            lapack_int lda );
2191 double LAPACKE_zlantr( int matrix_order, char norm, char uplo, char diag,
2192                            lapack_int m, lapack_int n, const lapack_complex_double* a,
2193                            lapack_int lda );
2194 
2195 
2196 lapack_int LAPACKE_slarfb( int matrix_order, char side, char trans, char direct,
2197                            char storev, lapack_int m, lapack_int n,
2198                            lapack_int k, const float* v, lapack_int ldv,
2199                            const float* t, lapack_int ldt, float* c,
2200                            lapack_int ldc );
2201 lapack_int LAPACKE_dlarfb( int matrix_order, char side, char trans, char direct,
2202                            char storev, lapack_int m, lapack_int n,
2203                            lapack_int k, const double* v, lapack_int ldv,
2204                            const double* t, lapack_int ldt, double* c,
2205                            lapack_int ldc );
2206 lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct,
2207                            char storev, lapack_int m, lapack_int n,
2208                            lapack_int k, const lapack_complex_float* v,
2209                            lapack_int ldv, const lapack_complex_float* t,
2210                            lapack_int ldt, lapack_complex_float* c,
2211                            lapack_int ldc );
2212 lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct,
2213                            char storev, lapack_int m, lapack_int n,
2214                            lapack_int k, const lapack_complex_double* v,
2215                            lapack_int ldv, const lapack_complex_double* t,
2216                            lapack_int ldt, lapack_complex_double* c,
2217                            lapack_int ldc );
2218 
2219 lapack_int LAPACKE_slarfg( lapack_int n, float* alpha, float* x,
2220                            lapack_int incx, float* tau );
2221 lapack_int LAPACKE_dlarfg( lapack_int n, double* alpha, double* x,
2222                            lapack_int incx, double* tau );
2223 lapack_int LAPACKE_clarfg( lapack_int n, lapack_complex_float* alpha,
2224                            lapack_complex_float* x, lapack_int incx,
2225                            lapack_complex_float* tau );
2226 lapack_int LAPACKE_zlarfg( lapack_int n, lapack_complex_double* alpha,
2227                            lapack_complex_double* x, lapack_int incx,
2228                            lapack_complex_double* tau );
2229 
2230 lapack_int LAPACKE_slarft( int matrix_order, char direct, char storev,
2231                            lapack_int n, lapack_int k, const float* v,
2232                            lapack_int ldv, const float* tau, float* t,
2233                            lapack_int ldt );
2234 lapack_int LAPACKE_dlarft( int matrix_order, char direct, char storev,
2235                            lapack_int n, lapack_int k, const double* v,
2236                            lapack_int ldv, const double* tau, double* t,
2237                            lapack_int ldt );
2238 lapack_int LAPACKE_clarft( int matrix_order, char direct, char storev,
2239                            lapack_int n, lapack_int k,
2240                            const lapack_complex_float* v, lapack_int ldv,
2241                            const lapack_complex_float* tau,
2242                            lapack_complex_float* t, lapack_int ldt );
2243 lapack_int LAPACKE_zlarft( int matrix_order, char direct, char storev,
2244                            lapack_int n, lapack_int k,
2245                            const lapack_complex_double* v, lapack_int ldv,
2246                            const lapack_complex_double* tau,
2247                            lapack_complex_double* t, lapack_int ldt );
2248 
2249 lapack_int LAPACKE_slarfx( int matrix_order, char side, lapack_int m,
2250                            lapack_int n, const float* v, float tau, float* c,
2251                            lapack_int ldc, float* work );
2252 lapack_int LAPACKE_dlarfx( int matrix_order, char side, lapack_int m,
2253                            lapack_int n, const double* v, double tau, double* c,
2254                            lapack_int ldc, double* work );
2255 lapack_int LAPACKE_clarfx( int matrix_order, char side, lapack_int m,
2256                            lapack_int n, const lapack_complex_float* v,
2257                            lapack_complex_float tau, lapack_complex_float* c,
2258                            lapack_int ldc, lapack_complex_float* work );
2259 lapack_int LAPACKE_zlarfx( int matrix_order, char side, lapack_int m,
2260                            lapack_int n, const lapack_complex_double* v,
2261                            lapack_complex_double tau, lapack_complex_double* c,
2262                            lapack_int ldc, lapack_complex_double* work );
2263 
2264 lapack_int LAPACKE_slarnv( lapack_int idist, lapack_int* iseed, lapack_int n,
2265                            float* x );
2266 lapack_int LAPACKE_dlarnv( lapack_int idist, lapack_int* iseed, lapack_int n,
2267                            double* x );
2268 lapack_int LAPACKE_clarnv( lapack_int idist, lapack_int* iseed, lapack_int n,
2269                            lapack_complex_float* x );
2270 lapack_int LAPACKE_zlarnv( lapack_int idist, lapack_int* iseed, lapack_int n,
2271                            lapack_complex_double* x );
2272 
2273 lapack_int LAPACKE_slaset( int matrix_order, char uplo, lapack_int m,
2274                            lapack_int n, float alpha, float beta, float* a,
2275                            lapack_int lda );
2276 lapack_int LAPACKE_dlaset( int matrix_order, char uplo, lapack_int m,
2277                            lapack_int n, double alpha, double beta, double* a,
2278                            lapack_int lda );
2279 lapack_int LAPACKE_claset( int matrix_order, char uplo, lapack_int m,
2280                            lapack_int n, lapack_complex_float alpha,
2281                            lapack_complex_float beta, lapack_complex_float* a,
2282                            lapack_int lda );
2283 lapack_int LAPACKE_zlaset( int matrix_order, char uplo, lapack_int m,
2284                            lapack_int n, lapack_complex_double alpha,
2285                            lapack_complex_double beta, lapack_complex_double* a,
2286                            lapack_int lda );
2287 
2288 lapack_int LAPACKE_slasrt( char id, lapack_int n, float* d );
2289 lapack_int LAPACKE_dlasrt( char id, lapack_int n, double* d );
2290 
2291 lapack_int LAPACKE_slaswp( int matrix_order, lapack_int n, float* a,
2292                            lapack_int lda, lapack_int k1, lapack_int k2,
2293                            const lapack_int* ipiv, lapack_int incx );
2294 lapack_int LAPACKE_dlaswp( int matrix_order, lapack_int n, double* a,
2295                            lapack_int lda, lapack_int k1, lapack_int k2,
2296                            const lapack_int* ipiv, lapack_int incx );
2297 lapack_int LAPACKE_claswp( int matrix_order, lapack_int n,
2298                            lapack_complex_float* a, lapack_int lda,
2299                            lapack_int k1, lapack_int k2, const lapack_int* ipiv,
2300                            lapack_int incx );
2301 lapack_int LAPACKE_zlaswp( int matrix_order, lapack_int n,
2302                            lapack_complex_double* a, lapack_int lda,
2303                            lapack_int k1, lapack_int k2, const lapack_int* ipiv,
2304                            lapack_int incx );
2305 
2306 lapack_int LAPACKE_slatms( int matrix_order, lapack_int m, lapack_int n,
2307                            char dist, lapack_int* iseed, char sym, float* d,
2308                            lapack_int mode, float cond, float dmax,
2309                            lapack_int kl, lapack_int ku, char pack, float* a,
2310                            lapack_int lda );
2311 lapack_int LAPACKE_dlatms( int matrix_order, lapack_int m, lapack_int n,
2312                            char dist, lapack_int* iseed, char sym, double* d,
2313                            lapack_int mode, double cond, double dmax,
2314                            lapack_int kl, lapack_int ku, char pack, double* a,
2315                            lapack_int lda );
2316 lapack_int LAPACKE_clatms( int matrix_order, lapack_int m, lapack_int n,
2317                            char dist, lapack_int* iseed, char sym, float* d,
2318                            lapack_int mode, float cond, float dmax,
2319                            lapack_int kl, lapack_int ku, char pack,
2320                            lapack_complex_float* a, lapack_int lda );
2321 lapack_int LAPACKE_zlatms( int matrix_order, lapack_int m, lapack_int n,
2322                            char dist, lapack_int* iseed, char sym, double* d,
2323                            lapack_int mode, double cond, double dmax,
2324                            lapack_int kl, lapack_int ku, char pack,
2325                            lapack_complex_double* a, lapack_int lda );
2326 
2327 lapack_int LAPACKE_slauum( int matrix_order, char uplo, lapack_int n, float* a,
2328                            lapack_int lda );
2329 lapack_int LAPACKE_dlauum( int matrix_order, char uplo, lapack_int n, double* a,
2330                            lapack_int lda );
2331 lapack_int LAPACKE_clauum( int matrix_order, char uplo, lapack_int n,
2332                            lapack_complex_float* a, lapack_int lda );
2333 lapack_int LAPACKE_zlauum( int matrix_order, char uplo, lapack_int n,
2334                            lapack_complex_double* a, lapack_int lda );
2335 
2336 lapack_int LAPACKE_sopgtr( int matrix_order, char uplo, lapack_int n,
2337                            const float* ap, const float* tau, float* q,
2338                            lapack_int ldq );
2339 lapack_int LAPACKE_dopgtr( int matrix_order, char uplo, lapack_int n,
2340                            const double* ap, const double* tau, double* q,
2341                            lapack_int ldq );
2342 
2343 lapack_int LAPACKE_sopmtr( int matrix_order, char side, char uplo, char trans,
2344                            lapack_int m, lapack_int n, const float* ap,
2345                            const float* tau, float* c, lapack_int ldc );
2346 lapack_int LAPACKE_dopmtr( int matrix_order, char side, char uplo, char trans,
2347                            lapack_int m, lapack_int n, const double* ap,
2348                            const double* tau, double* c, lapack_int ldc );
2349 
2350 lapack_int LAPACKE_sorgbr( int matrix_order, char vect, lapack_int m,
2351                            lapack_int n, lapack_int k, float* a, lapack_int lda,
2352                            const float* tau );
2353 lapack_int LAPACKE_dorgbr( int matrix_order, char vect, lapack_int m,
2354                            lapack_int n, lapack_int k, double* a,
2355                            lapack_int lda, const double* tau );
2356 
2357 lapack_int LAPACKE_sorghr( int matrix_order, lapack_int n, lapack_int ilo,
2358                            lapack_int ihi, float* a, lapack_int lda,
2359                            const float* tau );
2360 lapack_int LAPACKE_dorghr( int matrix_order, lapack_int n, lapack_int ilo,
2361                            lapack_int ihi, double* a, lapack_int lda,
2362                            const double* tau );
2363 
2364 lapack_int LAPACKE_sorglq( int matrix_order, lapack_int m, lapack_int n,
2365                            lapack_int k, float* a, lapack_int lda,
2366                            const float* tau );
2367 lapack_int LAPACKE_dorglq( int matrix_order, lapack_int m, lapack_int n,
2368                            lapack_int k, double* a, lapack_int lda,
2369                            const double* tau );
2370 
2371 lapack_int LAPACKE_sorgql( int matrix_order, lapack_int m, lapack_int n,
2372                            lapack_int k, float* a, lapack_int lda,
2373                            const float* tau );
2374 lapack_int LAPACKE_dorgql( int matrix_order, lapack_int m, lapack_int n,
2375                            lapack_int k, double* a, lapack_int lda,
2376                            const double* tau );
2377 
2378 lapack_int LAPACKE_sorgqr( int matrix_order, lapack_int m, lapack_int n,
2379                            lapack_int k, float* a, lapack_int lda,
2380                            const float* tau );
2381 lapack_int LAPACKE_dorgqr( int matrix_order, lapack_int m, lapack_int n,
2382                            lapack_int k, double* a, lapack_int lda,
2383                            const double* tau );
2384 
2385 lapack_int LAPACKE_sorgrq( int matrix_order, lapack_int m, lapack_int n,
2386                            lapack_int k, float* a, lapack_int lda,
2387                            const float* tau );
2388 lapack_int LAPACKE_dorgrq( int matrix_order, lapack_int m, lapack_int n,
2389                            lapack_int k, double* a, lapack_int lda,
2390                            const double* tau );
2391 
2392 lapack_int LAPACKE_sorgtr( int matrix_order, char uplo, lapack_int n, float* a,
2393                            lapack_int lda, const float* tau );
2394 lapack_int LAPACKE_dorgtr( int matrix_order, char uplo, lapack_int n, double* a,
2395                            lapack_int lda, const double* tau );
2396 
2397 lapack_int LAPACKE_sormbr( int matrix_order, char vect, char side, char trans,
2398                            lapack_int m, lapack_int n, lapack_int k,
2399                            const float* a, lapack_int lda, const float* tau,
2400                            float* c, lapack_int ldc );
2401 lapack_int LAPACKE_dormbr( int matrix_order, char vect, char side, char trans,
2402                            lapack_int m, lapack_int n, lapack_int k,
2403                            const double* a, lapack_int lda, const double* tau,
2404                            double* c, lapack_int ldc );
2405 
2406 lapack_int LAPACKE_sormhr( int matrix_order, char side, char trans,
2407                            lapack_int m, lapack_int n, lapack_int ilo,
2408                            lapack_int ihi, const float* a, lapack_int lda,
2409                            const float* tau, float* c, lapack_int ldc );
2410 lapack_int LAPACKE_dormhr( int matrix_order, char side, char trans,
2411                            lapack_int m, lapack_int n, lapack_int ilo,
2412                            lapack_int ihi, const double* a, lapack_int lda,
2413                            const double* tau, double* c, lapack_int ldc );
2414 
2415 lapack_int LAPACKE_sormlq( int matrix_order, char side, char trans,
2416                            lapack_int m, lapack_int n, lapack_int k,
2417                            const float* a, lapack_int lda, const float* tau,
2418                            float* c, lapack_int ldc );
2419 lapack_int LAPACKE_dormlq( int matrix_order, char side, char trans,
2420                            lapack_int m, lapack_int n, lapack_int k,
2421                            const double* a, lapack_int lda, const double* tau,
2422                            double* c, lapack_int ldc );
2423 
2424 lapack_int LAPACKE_sormql( int matrix_order, char side, char trans,
2425                            lapack_int m, lapack_int n, lapack_int k,
2426                            const float* a, lapack_int lda, const float* tau,
2427                            float* c, lapack_int ldc );
2428 lapack_int LAPACKE_dormql( int matrix_order, char side, char trans,
2429                            lapack_int m, lapack_int n, lapack_int k,
2430                            const double* a, lapack_int lda, const double* tau,
2431                            double* c, lapack_int ldc );
2432 
2433 lapack_int LAPACKE_sormqr( int matrix_order, char side, char trans,
2434                            lapack_int m, lapack_int n, lapack_int k,
2435                            const float* a, lapack_int lda, const float* tau,
2436                            float* c, lapack_int ldc );
2437 lapack_int LAPACKE_dormqr( int matrix_order, char side, char trans,
2438                            lapack_int m, lapack_int n, lapack_int k,
2439                            const double* a, lapack_int lda, const double* tau,
2440                            double* c, lapack_int ldc );
2441 
2442 lapack_int LAPACKE_sormrq( int matrix_order, char side, char trans,
2443                            lapack_int m, lapack_int n, lapack_int k,
2444                            const float* a, lapack_int lda, const float* tau,
2445                            float* c, lapack_int ldc );
2446 lapack_int LAPACKE_dormrq( int matrix_order, char side, char trans,
2447                            lapack_int m, lapack_int n, lapack_int k,
2448                            const double* a, lapack_int lda, const double* tau,
2449                            double* c, lapack_int ldc );
2450 
2451 lapack_int LAPACKE_sormrz( int matrix_order, char side, char trans,
2452                            lapack_int m, lapack_int n, lapack_int k,
2453                            lapack_int l, const float* a, lapack_int lda,
2454                            const float* tau, float* c, lapack_int ldc );
2455 lapack_int LAPACKE_dormrz( int matrix_order, char side, char trans,
2456                            lapack_int m, lapack_int n, lapack_int k,
2457                            lapack_int l, const double* a, lapack_int lda,
2458                            const double* tau, double* c, lapack_int ldc );
2459 
2460 lapack_int LAPACKE_sormtr( int matrix_order, char side, char uplo, char trans,
2461                            lapack_int m, lapack_int n, const float* a,
2462                            lapack_int lda, const float* tau, float* c,
2463                            lapack_int ldc );
2464 lapack_int LAPACKE_dormtr( int matrix_order, char side, char uplo, char trans,
2465                            lapack_int m, lapack_int n, const double* a,
2466                            lapack_int lda, const double* tau, double* c,
2467                            lapack_int ldc );
2468 
2469 lapack_int LAPACKE_spbcon( int matrix_order, char uplo, lapack_int n,
2470                            lapack_int kd, const float* ab, lapack_int ldab,
2471                            float anorm, float* rcond );
2472 lapack_int LAPACKE_dpbcon( int matrix_order, char uplo, lapack_int n,
2473                            lapack_int kd, const double* ab, lapack_int ldab,
2474                            double anorm, double* rcond );
2475 lapack_int LAPACKE_cpbcon( int matrix_order, char uplo, lapack_int n,
2476                            lapack_int kd, const lapack_complex_float* ab,
2477                            lapack_int ldab, float anorm, float* rcond );
2478 lapack_int LAPACKE_zpbcon( int matrix_order, char uplo, lapack_int n,
2479                            lapack_int kd, const lapack_complex_double* ab,
2480                            lapack_int ldab, double anorm, double* rcond );
2481 
2482 lapack_int LAPACKE_spbequ( int matrix_order, char uplo, lapack_int n,
2483                            lapack_int kd, const float* ab, lapack_int ldab,
2484                            float* s, float* scond, float* amax );
2485 lapack_int LAPACKE_dpbequ( int matrix_order, char uplo, lapack_int n,
2486                            lapack_int kd, const double* ab, lapack_int ldab,
2487                            double* s, double* scond, double* amax );
2488 lapack_int LAPACKE_cpbequ( int matrix_order, char uplo, lapack_int n,
2489                            lapack_int kd, const lapack_complex_float* ab,
2490                            lapack_int ldab, float* s, float* scond,
2491                            float* amax );
2492 lapack_int LAPACKE_zpbequ( int matrix_order, char uplo, lapack_int n,
2493                            lapack_int kd, const lapack_complex_double* ab,
2494                            lapack_int ldab, double* s, double* scond,
2495                            double* amax );
2496 
2497 lapack_int LAPACKE_spbrfs( int matrix_order, char uplo, lapack_int n,
2498                            lapack_int kd, lapack_int nrhs, const float* ab,
2499                            lapack_int ldab, const float* afb, lapack_int ldafb,
2500                            const float* b, lapack_int ldb, float* x,
2501                            lapack_int ldx, float* ferr, float* berr );
2502 lapack_int LAPACKE_dpbrfs( int matrix_order, char uplo, lapack_int n,
2503                            lapack_int kd, lapack_int nrhs, const double* ab,
2504                            lapack_int ldab, const double* afb, lapack_int ldafb,
2505                            const double* b, lapack_int ldb, double* x,
2506                            lapack_int ldx, double* ferr, double* berr );
2507 lapack_int LAPACKE_cpbrfs( int matrix_order, char uplo, lapack_int n,
2508                            lapack_int kd, lapack_int nrhs,
2509                            const lapack_complex_float* ab, lapack_int ldab,
2510                            const lapack_complex_float* afb, lapack_int ldafb,
2511                            const lapack_complex_float* b, lapack_int ldb,
2512                            lapack_complex_float* x, lapack_int ldx, float* ferr,
2513                            float* berr );
2514 lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n,
2515                            lapack_int kd, lapack_int nrhs,
2516                            const lapack_complex_double* ab, lapack_int ldab,
2517                            const lapack_complex_double* afb, lapack_int ldafb,
2518                            const lapack_complex_double* b, lapack_int ldb,
2519                            lapack_complex_double* x, lapack_int ldx,
2520                            double* ferr, double* berr );
2521 
2522 lapack_int LAPACKE_spbstf( int matrix_order, char uplo, lapack_int n,
2523                            lapack_int kb, float* bb, lapack_int ldbb );
2524 lapack_int LAPACKE_dpbstf( int matrix_order, char uplo, lapack_int n,
2525                            lapack_int kb, double* bb, lapack_int ldbb );
2526 lapack_int LAPACKE_cpbstf( int matrix_order, char uplo, lapack_int n,
2527                            lapack_int kb, lapack_complex_float* bb,
2528                            lapack_int ldbb );
2529 lapack_int LAPACKE_zpbstf( int matrix_order, char uplo, lapack_int n,
2530                            lapack_int kb, lapack_complex_double* bb,
2531                            lapack_int ldbb );
2532 
2533 lapack_int LAPACKE_spbsv( int matrix_order, char uplo, lapack_int n,
2534                           lapack_int kd, lapack_int nrhs, float* ab,
2535                           lapack_int ldab, float* b, lapack_int ldb );
2536 lapack_int LAPACKE_dpbsv( int matrix_order, char uplo, lapack_int n,
2537                           lapack_int kd, lapack_int nrhs, double* ab,
2538                           lapack_int ldab, double* b, lapack_int ldb );
2539 lapack_int LAPACKE_cpbsv( int matrix_order, char uplo, lapack_int n,
2540                           lapack_int kd, lapack_int nrhs,
2541                           lapack_complex_float* ab, lapack_int ldab,
2542                           lapack_complex_float* b, lapack_int ldb );
2543 lapack_int LAPACKE_zpbsv( int matrix_order, char uplo, lapack_int n,
2544                           lapack_int kd, lapack_int nrhs,
2545                           lapack_complex_double* ab, lapack_int ldab,
2546                           lapack_complex_double* b, lapack_int ldb );
2547 
2548 lapack_int LAPACKE_spbsvx( int matrix_order, char fact, char uplo, lapack_int n,
2549                            lapack_int kd, lapack_int nrhs, float* ab,
2550                            lapack_int ldab, float* afb, lapack_int ldafb,
2551                            char* equed, float* s, float* b, lapack_int ldb,
2552                            float* x, lapack_int ldx, float* rcond, float* ferr,
2553                            float* berr );
2554 lapack_int LAPACKE_dpbsvx( int matrix_order, char fact, char uplo, lapack_int n,
2555                            lapack_int kd, lapack_int nrhs, double* ab,
2556                            lapack_int ldab, double* afb, lapack_int ldafb,
2557                            char* equed, double* s, double* b, lapack_int ldb,
2558                            double* x, lapack_int ldx, double* rcond,
2559                            double* ferr, double* berr );
2560 lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n,
2561                            lapack_int kd, lapack_int nrhs,
2562                            lapack_complex_float* ab, lapack_int ldab,
2563                            lapack_complex_float* afb, lapack_int ldafb,
2564                            char* equed, float* s, lapack_complex_float* b,
2565                            lapack_int ldb, lapack_complex_float* x,
2566                            lapack_int ldx, float* rcond, float* ferr,
2567                            float* berr );
2568 lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n,
2569                            lapack_int kd, lapack_int nrhs,
2570                            lapack_complex_double* ab, lapack_int ldab,
2571                            lapack_complex_double* afb, lapack_int ldafb,
2572                            char* equed, double* s, lapack_complex_double* b,
2573                            lapack_int ldb, lapack_complex_double* x,
2574                            lapack_int ldx, double* rcond, double* ferr,
2575                            double* berr );
2576 
2577 lapack_int LAPACKE_spbtrf( int matrix_order, char uplo, lapack_int n,
2578                            lapack_int kd, float* ab, lapack_int ldab );
2579 lapack_int LAPACKE_dpbtrf( int matrix_order, char uplo, lapack_int n,
2580                            lapack_int kd, double* ab, lapack_int ldab );
2581 lapack_int LAPACKE_cpbtrf( int matrix_order, char uplo, lapack_int n,
2582                            lapack_int kd, lapack_complex_float* ab,
2583                            lapack_int ldab );
2584 lapack_int LAPACKE_zpbtrf( int matrix_order, char uplo, lapack_int n,
2585                            lapack_int kd, lapack_complex_double* ab,
2586                            lapack_int ldab );
2587 
2588 lapack_int LAPACKE_spbtrs( int matrix_order, char uplo, lapack_int n,
2589                            lapack_int kd, lapack_int nrhs, const float* ab,
2590                            lapack_int ldab, float* b, lapack_int ldb );
2591 lapack_int LAPACKE_dpbtrs( int matrix_order, char uplo, lapack_int n,
2592                            lapack_int kd, lapack_int nrhs, const double* ab,
2593                            lapack_int ldab, double* b, lapack_int ldb );
2594 lapack_int LAPACKE_cpbtrs( int matrix_order, char uplo, lapack_int n,
2595                            lapack_int kd, lapack_int nrhs,
2596                            const lapack_complex_float* ab, lapack_int ldab,
2597                            lapack_complex_float* b, lapack_int ldb );
2598 lapack_int LAPACKE_zpbtrs( int matrix_order, char uplo, lapack_int n,
2599                            lapack_int kd, lapack_int nrhs,
2600                            const lapack_complex_double* ab, lapack_int ldab,
2601                            lapack_complex_double* b, lapack_int ldb );
2602 
2603 lapack_int LAPACKE_spftrf( int matrix_order, char transr, char uplo,
2604                            lapack_int n, float* a );
2605 lapack_int LAPACKE_dpftrf( int matrix_order, char transr, char uplo,
2606                            lapack_int n, double* a );
2607 lapack_int LAPACKE_cpftrf( int matrix_order, char transr, char uplo,
2608                            lapack_int n, lapack_complex_float* a );
2609 lapack_int LAPACKE_zpftrf( int matrix_order, char transr, char uplo,
2610                            lapack_int n, lapack_complex_double* a );
2611 
2612 lapack_int LAPACKE_spftri( int matrix_order, char transr, char uplo,
2613                            lapack_int n, float* a );
2614 lapack_int LAPACKE_dpftri( int matrix_order, char transr, char uplo,
2615                            lapack_int n, double* a );
2616 lapack_int LAPACKE_cpftri( int matrix_order, char transr, char uplo,
2617                            lapack_int n, lapack_complex_float* a );
2618 lapack_int LAPACKE_zpftri( int matrix_order, char transr, char uplo,
2619                            lapack_int n, lapack_complex_double* a );
2620 
2621 lapack_int LAPACKE_spftrs( int matrix_order, char transr, char uplo,
2622                            lapack_int n, lapack_int nrhs, const float* a,
2623                            float* b, lapack_int ldb );
2624 lapack_int LAPACKE_dpftrs( int matrix_order, char transr, char uplo,
2625                            lapack_int n, lapack_int nrhs, const double* a,
2626                            double* b, lapack_int ldb );
2627 lapack_int LAPACKE_cpftrs( int matrix_order, char transr, char uplo,
2628                            lapack_int n, lapack_int nrhs,
2629                            const lapack_complex_float* a,
2630                            lapack_complex_float* b, lapack_int ldb );
2631 lapack_int LAPACKE_zpftrs( int matrix_order, char transr, char uplo,
2632                            lapack_int n, lapack_int nrhs,
2633                            const lapack_complex_double* a,
2634                            lapack_complex_double* b, lapack_int ldb );
2635 
2636 lapack_int LAPACKE_spocon( int matrix_order, char uplo, lapack_int n,
2637                            const float* a, lapack_int lda, float anorm,
2638                            float* rcond );
2639 lapack_int LAPACKE_dpocon( int matrix_order, char uplo, lapack_int n,
2640                            const double* a, lapack_int lda, double anorm,
2641                            double* rcond );
2642 lapack_int LAPACKE_cpocon( int matrix_order, char uplo, lapack_int n,
2643                            const lapack_complex_float* a, lapack_int lda,
2644                            float anorm, float* rcond );
2645 lapack_int LAPACKE_zpocon( int matrix_order, char uplo, lapack_int n,
2646                            const lapack_complex_double* a, lapack_int lda,
2647                            double anorm, double* rcond );
2648 
2649 lapack_int LAPACKE_spoequ( int matrix_order, lapack_int n, const float* a,
2650                            lapack_int lda, float* s, float* scond,
2651                            float* amax );
2652 lapack_int LAPACKE_dpoequ( int matrix_order, lapack_int n, const double* a,
2653                            lapack_int lda, double* s, double* scond,
2654                            double* amax );
2655 lapack_int LAPACKE_cpoequ( int matrix_order, lapack_int n,
2656                            const lapack_complex_float* a, lapack_int lda,
2657                            float* s, float* scond, float* amax );
2658 lapack_int LAPACKE_zpoequ( int matrix_order, lapack_int n,
2659                            const lapack_complex_double* a, lapack_int lda,
2660                            double* s, double* scond, double* amax );
2661 
2662 lapack_int LAPACKE_spoequb( int matrix_order, lapack_int n, const float* a,
2663                             lapack_int lda, float* s, float* scond,
2664                             float* amax );
2665 lapack_int LAPACKE_dpoequb( int matrix_order, lapack_int n, const double* a,
2666                             lapack_int lda, double* s, double* scond,
2667                             double* amax );
2668 lapack_int LAPACKE_cpoequb( int matrix_order, lapack_int n,
2669                             const lapack_complex_float* a, lapack_int lda,
2670                             float* s, float* scond, float* amax );
2671 lapack_int LAPACKE_zpoequb( int matrix_order, lapack_int n,
2672                             const lapack_complex_double* a, lapack_int lda,
2673                             double* s, double* scond, double* amax );
2674 
2675 lapack_int LAPACKE_sporfs( int matrix_order, char uplo, lapack_int n,
2676                            lapack_int nrhs, const float* a, lapack_int lda,
2677                            const float* af, lapack_int ldaf, const float* b,
2678                            lapack_int ldb, float* x, lapack_int ldx,
2679                            float* ferr, float* berr );
2680 lapack_int LAPACKE_dporfs( int matrix_order, char uplo, lapack_int n,
2681                            lapack_int nrhs, const double* a, lapack_int lda,
2682                            const double* af, lapack_int ldaf, const double* b,
2683                            lapack_int ldb, double* x, lapack_int ldx,
2684                            double* ferr, double* berr );
2685 lapack_int LAPACKE_cporfs( int matrix_order, char uplo, lapack_int n,
2686                            lapack_int nrhs, const lapack_complex_float* a,
2687                            lapack_int lda, const lapack_complex_float* af,
2688                            lapack_int ldaf, const lapack_complex_float* b,
2689                            lapack_int ldb, lapack_complex_float* x,
2690                            lapack_int ldx, float* ferr, float* berr );
2691 lapack_int LAPACKE_zporfs( int matrix_order, char uplo, lapack_int n,
2692                            lapack_int nrhs, const lapack_complex_double* a,
2693                            lapack_int lda, const lapack_complex_double* af,
2694                            lapack_int ldaf, const lapack_complex_double* b,
2695                            lapack_int ldb, lapack_complex_double* x,
2696                            lapack_int ldx, double* ferr, double* berr );
2697 
2698 lapack_int LAPACKE_sporfsx( int matrix_order, char uplo, char equed,
2699                             lapack_int n, lapack_int nrhs, const float* a,
2700                             lapack_int lda, const float* af, lapack_int ldaf,
2701                             const float* s, const float* b, lapack_int ldb,
2702                             float* x, lapack_int ldx, float* rcond, float* berr,
2703                             lapack_int n_err_bnds, float* err_bnds_norm,
2704                             float* err_bnds_comp, lapack_int nparams,
2705                             float* params );
2706 lapack_int LAPACKE_dporfsx( int matrix_order, char uplo, char equed,
2707                             lapack_int n, lapack_int nrhs, const double* a,
2708                             lapack_int lda, const double* af, lapack_int ldaf,
2709                             const double* s, const double* b, lapack_int ldb,
2710                             double* x, lapack_int ldx, double* rcond,
2711                             double* berr, lapack_int n_err_bnds,
2712                             double* err_bnds_norm, double* err_bnds_comp,
2713                             lapack_int nparams, double* params );
2714 lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed,
2715                             lapack_int n, lapack_int nrhs,
2716                             const lapack_complex_float* a, lapack_int lda,
2717                             const lapack_complex_float* af, lapack_int ldaf,
2718                             const float* s, const lapack_complex_float* b,
2719                             lapack_int ldb, lapack_complex_float* x,
2720                             lapack_int ldx, float* rcond, float* berr,
2721                             lapack_int n_err_bnds, float* err_bnds_norm,
2722                             float* err_bnds_comp, lapack_int nparams,
2723                             float* params );
2724 lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed,
2725                             lapack_int n, lapack_int nrhs,
2726                             const lapack_complex_double* a, lapack_int lda,
2727                             const lapack_complex_double* af, lapack_int ldaf,
2728                             const double* s, const lapack_complex_double* b,
2729                             lapack_int ldb, lapack_complex_double* x,
2730                             lapack_int ldx, double* rcond, double* berr,
2731                             lapack_int n_err_bnds, double* err_bnds_norm,
2732                             double* err_bnds_comp, lapack_int nparams,
2733                             double* params );
2734 
2735 lapack_int LAPACKE_sposv( int matrix_order, char uplo, lapack_int n,
2736                           lapack_int nrhs, float* a, lapack_int lda, float* b,
2737                           lapack_int ldb );
2738 lapack_int LAPACKE_dposv( int matrix_order, char uplo, lapack_int n,
2739                           lapack_int nrhs, double* a, lapack_int lda, double* b,
2740                           lapack_int ldb );
2741 lapack_int LAPACKE_cposv( int matrix_order, char uplo, lapack_int n,
2742                           lapack_int nrhs, lapack_complex_float* a,
2743                           lapack_int lda, lapack_complex_float* b,
2744                           lapack_int ldb );
2745 lapack_int LAPACKE_zposv( int matrix_order, char uplo, lapack_int n,
2746                           lapack_int nrhs, lapack_complex_double* a,
2747                           lapack_int lda, lapack_complex_double* b,
2748                           lapack_int ldb );
2749 lapack_int LAPACKE_dsposv( int matrix_order, char uplo, lapack_int n,
2750                            lapack_int nrhs, double* a, lapack_int lda,
2751                            double* b, lapack_int ldb, double* x, lapack_int ldx,
2752                            lapack_int* iter );
2753 lapack_int LAPACKE_zcposv( int matrix_order, char uplo, lapack_int n,
2754                            lapack_int nrhs, lapack_complex_double* a,
2755                            lapack_int lda, lapack_complex_double* b,
2756                            lapack_int ldb, lapack_complex_double* x,
2757                            lapack_int ldx, lapack_int* iter );
2758 
2759 lapack_int LAPACKE_sposvx( int matrix_order, char fact, char uplo, lapack_int n,
2760                            lapack_int nrhs, float* a, lapack_int lda, float* af,
2761                            lapack_int ldaf, char* equed, float* s, float* b,
2762                            lapack_int ldb, float* x, lapack_int ldx,
2763                            float* rcond, float* ferr, float* berr );
2764 lapack_int LAPACKE_dposvx( int matrix_order, char fact, char uplo, lapack_int n,
2765                            lapack_int nrhs, double* a, lapack_int lda,
2766                            double* af, lapack_int ldaf, char* equed, double* s,
2767                            double* b, lapack_int ldb, double* x, lapack_int ldx,
2768                            double* rcond, double* ferr, double* berr );
2769 lapack_int LAPACKE_cposvx( int matrix_order, char fact, char uplo, lapack_int n,
2770                            lapack_int nrhs, lapack_complex_float* a,
2771                            lapack_int lda, lapack_complex_float* af,
2772                            lapack_int ldaf, char* equed, float* s,
2773                            lapack_complex_float* b, lapack_int ldb,
2774                            lapack_complex_float* x, lapack_int ldx,
2775                            float* rcond, float* ferr, float* berr );
2776 lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n,
2777                            lapack_int nrhs, lapack_complex_double* a,
2778                            lapack_int lda, lapack_complex_double* af,
2779                            lapack_int ldaf, char* equed, double* s,
2780                            lapack_complex_double* b, lapack_int ldb,
2781                            lapack_complex_double* x, lapack_int ldx,
2782                            double* rcond, double* ferr, double* berr );
2783 
2784 lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo,
2785                             lapack_int n, lapack_int nrhs, float* a,
2786                             lapack_int lda, float* af, lapack_int ldaf,
2787                             char* equed, float* s, float* b, lapack_int ldb,
2788                             float* x, lapack_int ldx, float* rcond,
2789                             float* rpvgrw, float* berr, lapack_int n_err_bnds,
2790                             float* err_bnds_norm, float* err_bnds_comp,
2791                             lapack_int nparams, float* params );
2792 lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo,
2793                             lapack_int n, lapack_int nrhs, double* a,
2794                             lapack_int lda, double* af, lapack_int ldaf,
2795                             char* equed, double* s, double* b, lapack_int ldb,
2796                             double* x, lapack_int ldx, double* rcond,
2797                             double* rpvgrw, double* berr, lapack_int n_err_bnds,
2798                             double* err_bnds_norm, double* err_bnds_comp,
2799                             lapack_int nparams, double* params );
2800 lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo,
2801                             lapack_int n, lapack_int nrhs,
2802                             lapack_complex_float* a, lapack_int lda,
2803                             lapack_complex_float* af, lapack_int ldaf,
2804                             char* equed, float* s, lapack_complex_float* b,
2805                             lapack_int ldb, lapack_complex_float* x,
2806                             lapack_int ldx, float* rcond, float* rpvgrw,
2807                             float* berr, lapack_int n_err_bnds,
2808                             float* err_bnds_norm, float* err_bnds_comp,
2809                             lapack_int nparams, float* params );
2810 lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo,
2811                             lapack_int n, lapack_int nrhs,
2812                             lapack_complex_double* a, lapack_int lda,
2813                             lapack_complex_double* af, lapack_int ldaf,
2814                             char* equed, double* s, lapack_complex_double* b,
2815                             lapack_int ldb, lapack_complex_double* x,
2816                             lapack_int ldx, double* rcond, double* rpvgrw,
2817                             double* berr, lapack_int n_err_bnds,
2818                             double* err_bnds_norm, double* err_bnds_comp,
2819                             lapack_int nparams, double* params );
2820 
2821 lapack_int LAPACKE_spotrf( int matrix_order, char uplo, lapack_int n, float* a,
2822                            lapack_int lda );
2823 lapack_int LAPACKE_dpotrf( int matrix_order, char uplo, lapack_int n, double* a,
2824                            lapack_int lda );
2825 lapack_int LAPACKE_cpotrf( int matrix_order, char uplo, lapack_int n,
2826                            lapack_complex_float* a, lapack_int lda );
2827 lapack_int LAPACKE_zpotrf( int matrix_order, char uplo, lapack_int n,
2828                            lapack_complex_double* a, lapack_int lda );
2829 
2830 lapack_int LAPACKE_spotri( int matrix_order, char uplo, lapack_int n, float* a,
2831                            lapack_int lda );
2832 lapack_int LAPACKE_dpotri( int matrix_order, char uplo, lapack_int n, double* a,
2833                            lapack_int lda );
2834 lapack_int LAPACKE_cpotri( int matrix_order, char uplo, lapack_int n,
2835                            lapack_complex_float* a, lapack_int lda );
2836 lapack_int LAPACKE_zpotri( int matrix_order, char uplo, lapack_int n,
2837                            lapack_complex_double* a, lapack_int lda );
2838 
2839 lapack_int LAPACKE_spotrs( int matrix_order, char uplo, lapack_int n,
2840                            lapack_int nrhs, const float* a, lapack_int lda,
2841                            float* b, lapack_int ldb );
2842 lapack_int LAPACKE_dpotrs( int matrix_order, char uplo, lapack_int n,
2843                            lapack_int nrhs, const double* a, lapack_int lda,
2844                            double* b, lapack_int ldb );
2845 lapack_int LAPACKE_cpotrs( int matrix_order, char uplo, lapack_int n,
2846                            lapack_int nrhs, const lapack_complex_float* a,
2847                            lapack_int lda, lapack_complex_float* b,
2848                            lapack_int ldb );
2849 lapack_int LAPACKE_zpotrs( int matrix_order, char uplo, lapack_int n,
2850                            lapack_int nrhs, const lapack_complex_double* a,
2851                            lapack_int lda, lapack_complex_double* b,
2852                            lapack_int ldb );
2853 
2854 lapack_int LAPACKE_sppcon( int matrix_order, char uplo, lapack_int n,
2855                            const float* ap, float anorm, float* rcond );
2856 lapack_int LAPACKE_dppcon( int matrix_order, char uplo, lapack_int n,
2857                            const double* ap, double anorm, double* rcond );
2858 lapack_int LAPACKE_cppcon( int matrix_order, char uplo, lapack_int n,
2859                            const lapack_complex_float* ap, float anorm,
2860                            float* rcond );
2861 lapack_int LAPACKE_zppcon( int matrix_order, char uplo, lapack_int n,
2862                            const lapack_complex_double* ap, double anorm,
2863                            double* rcond );
2864 
2865 lapack_int LAPACKE_sppequ( int matrix_order, char uplo, lapack_int n,
2866                            const float* ap, float* s, float* scond,
2867                            float* amax );
2868 lapack_int LAPACKE_dppequ( int matrix_order, char uplo, lapack_int n,
2869                            const double* ap, double* s, double* scond,
2870                            double* amax );
2871 lapack_int LAPACKE_cppequ( int matrix_order, char uplo, lapack_int n,
2872                            const lapack_complex_float* ap, float* s,
2873                            float* scond, float* amax );
2874 lapack_int LAPACKE_zppequ( int matrix_order, char uplo, lapack_int n,
2875                            const lapack_complex_double* ap, double* s,
2876                            double* scond, double* amax );
2877 
2878 lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n,
2879                            lapack_int nrhs, const float* ap, const float* afp,
2880                            const float* b, lapack_int ldb, float* x,
2881                            lapack_int ldx, float* ferr, float* berr );
2882 lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n,
2883                            lapack_int nrhs, const double* ap, const double* afp,
2884                            const double* b, lapack_int ldb, double* x,
2885                            lapack_int ldx, double* ferr, double* berr );
2886 lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n,
2887                            lapack_int nrhs, const lapack_complex_float* ap,
2888                            const lapack_complex_float* afp,
2889                            const lapack_complex_float* b, lapack_int ldb,
2890                            lapack_complex_float* x, lapack_int ldx, float* ferr,
2891                            float* berr );
2892 lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n,
2893                            lapack_int nrhs, const lapack_complex_double* ap,
2894                            const lapack_complex_double* afp,
2895                            const lapack_complex_double* b, lapack_int ldb,
2896                            lapack_complex_double* x, lapack_int ldx,
2897                            double* ferr, double* berr );
2898 
2899 lapack_int LAPACKE_sppsv( int matrix_order, char uplo, lapack_int n,
2900                           lapack_int nrhs, float* ap, float* b,
2901                           lapack_int ldb );
2902 lapack_int LAPACKE_dppsv( int matrix_order, char uplo, lapack_int n,
2903                           lapack_int nrhs, double* ap, double* b,
2904                           lapack_int ldb );
2905 lapack_int LAPACKE_cppsv( int matrix_order, char uplo, lapack_int n,
2906                           lapack_int nrhs, lapack_complex_float* ap,
2907                           lapack_complex_float* b, lapack_int ldb );
2908 lapack_int LAPACKE_zppsv( int matrix_order, char uplo, lapack_int n,
2909                           lapack_int nrhs, lapack_complex_double* ap,
2910                           lapack_complex_double* b, lapack_int ldb );
2911 
2912 lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n,
2913                            lapack_int nrhs, float* ap, float* afp, char* equed,
2914                            float* s, float* b, lapack_int ldb, float* x,
2915                            lapack_int ldx, float* rcond, float* ferr,
2916                            float* berr );
2917 lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n,
2918                            lapack_int nrhs, double* ap, double* afp,
2919                            char* equed, double* s, double* b, lapack_int ldb,
2920                            double* x, lapack_int ldx, double* rcond,
2921                            double* ferr, double* berr );
2922 lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n,
2923                            lapack_int nrhs, lapack_complex_float* ap,
2924                            lapack_complex_float* afp, char* equed, float* s,
2925                            lapack_complex_float* b, lapack_int ldb,
2926                            lapack_complex_float* x, lapack_int ldx,
2927                            float* rcond, float* ferr, float* berr );
2928 lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n,
2929                            lapack_int nrhs, lapack_complex_double* ap,
2930                            lapack_complex_double* afp, char* equed, double* s,
2931                            lapack_complex_double* b, lapack_int ldb,
2932                            lapack_complex_double* x, lapack_int ldx,
2933                            double* rcond, double* ferr, double* berr );
2934 
2935 lapack_int LAPACKE_spptrf( int matrix_order, char uplo, lapack_int n,
2936                            float* ap );
2937 lapack_int LAPACKE_dpptrf( int matrix_order, char uplo, lapack_int n,
2938                            double* ap );
2939 lapack_int LAPACKE_cpptrf( int matrix_order, char uplo, lapack_int n,
2940                            lapack_complex_float* ap );
2941 lapack_int LAPACKE_zpptrf( int matrix_order, char uplo, lapack_int n,
2942                            lapack_complex_double* ap );
2943 
2944 lapack_int LAPACKE_spptri( int matrix_order, char uplo, lapack_int n,
2945                            float* ap );
2946 lapack_int LAPACKE_dpptri( int matrix_order, char uplo, lapack_int n,
2947                            double* ap );
2948 lapack_int LAPACKE_cpptri( int matrix_order, char uplo, lapack_int n,
2949                            lapack_complex_float* ap );
2950 lapack_int LAPACKE_zpptri( int matrix_order, char uplo, lapack_int n,
2951                            lapack_complex_double* ap );
2952 
2953 lapack_int LAPACKE_spptrs( int matrix_order, char uplo, lapack_int n,
2954                            lapack_int nrhs, const float* ap, float* b,
2955                            lapack_int ldb );
2956 lapack_int LAPACKE_dpptrs( int matrix_order, char uplo, lapack_int n,
2957                            lapack_int nrhs, const double* ap, double* b,
2958                            lapack_int ldb );
2959 lapack_int LAPACKE_cpptrs( int matrix_order, char uplo, lapack_int n,
2960                            lapack_int nrhs, const lapack_complex_float* ap,
2961                            lapack_complex_float* b, lapack_int ldb );
2962 lapack_int LAPACKE_zpptrs( int matrix_order, char uplo, lapack_int n,
2963                            lapack_int nrhs, const lapack_complex_double* ap,
2964                            lapack_complex_double* b, lapack_int ldb );
2965 
2966 lapack_int LAPACKE_spstrf( int matrix_order, char uplo, lapack_int n, float* a,
2967                            lapack_int lda, lapack_int* piv, lapack_int* rank,
2968                            float tol );
2969 lapack_int LAPACKE_dpstrf( int matrix_order, char uplo, lapack_int n, double* a,
2970                            lapack_int lda, lapack_int* piv, lapack_int* rank,
2971                            double tol );
2972 lapack_int LAPACKE_cpstrf( int matrix_order, char uplo, lapack_int n,
2973                            lapack_complex_float* a, lapack_int lda,
2974                            lapack_int* piv, lapack_int* rank, float tol );
2975 lapack_int LAPACKE_zpstrf( int matrix_order, char uplo, lapack_int n,
2976                            lapack_complex_double* a, lapack_int lda,
2977                            lapack_int* piv, lapack_int* rank, double tol );
2978 
2979 lapack_int LAPACKE_sptcon( lapack_int n, const float* d, const float* e,
2980                            float anorm, float* rcond );
2981 lapack_int LAPACKE_dptcon( lapack_int n, const double* d, const double* e,
2982                            double anorm, double* rcond );
2983 lapack_int LAPACKE_cptcon( lapack_int n, const float* d,
2984                            const lapack_complex_float* e, float anorm,
2985                            float* rcond );
2986 lapack_int LAPACKE_zptcon( lapack_int n, const double* d,
2987                            const lapack_complex_double* e, double anorm,
2988                            double* rcond );
2989 
2990 lapack_int LAPACKE_spteqr( int matrix_order, char compz, lapack_int n, float* d,
2991                            float* e, float* z, lapack_int ldz );
2992 lapack_int LAPACKE_dpteqr( int matrix_order, char compz, lapack_int n,
2993                            double* d, double* e, double* z, lapack_int ldz );
2994 lapack_int LAPACKE_cpteqr( int matrix_order, char compz, lapack_int n, float* d,
2995                            float* e, lapack_complex_float* z, lapack_int ldz );
2996 lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n,
2997                            double* d, double* e, lapack_complex_double* z,
2998                            lapack_int ldz );
2999 
3000 lapack_int LAPACKE_sptrfs( int matrix_order, lapack_int n, lapack_int nrhs,
3001                            const float* d, const float* e, const float* df,
3002                            const float* ef, const float* b, lapack_int ldb,
3003                            float* x, lapack_int ldx, float* ferr, float* berr );
3004 lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs,
3005                            const double* d, const double* e, const double* df,
3006                            const double* ef, const double* b, lapack_int ldb,
3007                            double* x, lapack_int ldx, double* ferr,
3008                            double* berr );
3009 lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n,
3010                            lapack_int nrhs, const float* d,
3011                            const lapack_complex_float* e, const float* df,
3012                            const lapack_complex_float* ef,
3013                            const lapack_complex_float* b, lapack_int ldb,
3014                            lapack_complex_float* x, lapack_int ldx, float* ferr,
3015                            float* berr );
3016 lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n,
3017                            lapack_int nrhs, const double* d,
3018                            const lapack_complex_double* e, const double* df,
3019                            const lapack_complex_double* ef,
3020                            const lapack_complex_double* b, lapack_int ldb,
3021                            lapack_complex_double* x, lapack_int ldx,
3022                            double* ferr, double* berr );
3023 
3024 lapack_int LAPACKE_sptsv( int matrix_order, lapack_int n, lapack_int nrhs,
3025                           float* d, float* e, float* b, lapack_int ldb );
3026 lapack_int LAPACKE_dptsv( int matrix_order, lapack_int n, lapack_int nrhs,
3027                           double* d, double* e, double* b, lapack_int ldb );
3028 lapack_int LAPACKE_cptsv( int matrix_order, lapack_int n, lapack_int nrhs,
3029                           float* d, lapack_complex_float* e,
3030                           lapack_complex_float* b, lapack_int ldb );
3031 lapack_int LAPACKE_zptsv( int matrix_order, lapack_int n, lapack_int nrhs,
3032                           double* d, lapack_complex_double* e,
3033                           lapack_complex_double* b, lapack_int ldb );
3034 
3035 lapack_int LAPACKE_sptsvx( int matrix_order, char fact, lapack_int n,
3036                            lapack_int nrhs, const float* d, const float* e,
3037                            float* df, float* ef, const float* b, lapack_int ldb,
3038                            float* x, lapack_int ldx, float* rcond, float* ferr,
3039                            float* berr );
3040 lapack_int LAPACKE_dptsvx( int matrix_order, char fact, lapack_int n,
3041                            lapack_int nrhs, const double* d, const double* e,
3042                            double* df, double* ef, const double* b,
3043                            lapack_int ldb, double* x, lapack_int ldx,
3044                            double* rcond, double* ferr, double* berr );
3045 lapack_int LAPACKE_cptsvx( int matrix_order, char fact, lapack_int n,
3046                            lapack_int nrhs, const float* d,
3047                            const lapack_complex_float* e, float* df,
3048                            lapack_complex_float* ef,
3049                            const lapack_complex_float* b, lapack_int ldb,
3050                            lapack_complex_float* x, lapack_int ldx,
3051                            float* rcond, float* ferr, float* berr );
3052 lapack_int LAPACKE_zptsvx( int matrix_order, char fact, lapack_int n,
3053                            lapack_int nrhs, const double* d,
3054                            const lapack_complex_double* e, double* df,
3055                            lapack_complex_double* ef,
3056                            const lapack_complex_double* b, lapack_int ldb,
3057                            lapack_complex_double* x, lapack_int ldx,
3058                            double* rcond, double* ferr, double* berr );
3059 
3060 lapack_int LAPACKE_spttrf( lapack_int n, float* d, float* e );
3061 lapack_int LAPACKE_dpttrf( lapack_int n, double* d, double* e );
3062 lapack_int LAPACKE_cpttrf( lapack_int n, float* d, lapack_complex_float* e );
3063 lapack_int LAPACKE_zpttrf( lapack_int n, double* d, lapack_complex_double* e );
3064 
3065 lapack_int LAPACKE_spttrs( int matrix_order, lapack_int n, lapack_int nrhs,
3066                            const float* d, const float* e, float* b,
3067                            lapack_int ldb );
3068 lapack_int LAPACKE_dpttrs( int matrix_order, lapack_int n, lapack_int nrhs,
3069                            const double* d, const double* e, double* b,
3070                            lapack_int ldb );
3071 lapack_int LAPACKE_cpttrs( int matrix_order, char uplo, lapack_int n,
3072                            lapack_int nrhs, const float* d,
3073                            const lapack_complex_float* e,
3074                            lapack_complex_float* b, lapack_int ldb );
3075 lapack_int LAPACKE_zpttrs( int matrix_order, char uplo, lapack_int n,
3076                            lapack_int nrhs, const double* d,
3077                            const lapack_complex_double* e,
3078                            lapack_complex_double* b, lapack_int ldb );
3079 
3080 lapack_int LAPACKE_ssbev( int matrix_order, char jobz, char uplo, lapack_int n,
3081                           lapack_int kd, float* ab, lapack_int ldab, float* w,
3082                           float* z, lapack_int ldz );
3083 lapack_int LAPACKE_dsbev( int matrix_order, char jobz, char uplo, lapack_int n,
3084                           lapack_int kd, double* ab, lapack_int ldab, double* w,
3085                           double* z, lapack_int ldz );
3086 
3087 lapack_int LAPACKE_ssbevd( int matrix_order, char jobz, char uplo, lapack_int n,
3088                            lapack_int kd, float* ab, lapack_int ldab, float* w,
3089                            float* z, lapack_int ldz );
3090 lapack_int LAPACKE_dsbevd( int matrix_order, char jobz, char uplo, lapack_int n,
3091                            lapack_int kd, double* ab, lapack_int ldab,
3092                            double* w, double* z, lapack_int ldz );
3093 
3094 lapack_int LAPACKE_ssbevx( int matrix_order, char jobz, char range, char uplo,
3095                            lapack_int n, lapack_int kd, float* ab,
3096                            lapack_int ldab, float* q, lapack_int ldq, float vl,
3097                            float vu, lapack_int il, lapack_int iu, float abstol,
3098                            lapack_int* m, float* w, float* z, lapack_int ldz,
3099                            lapack_int* ifail );
3100 lapack_int LAPACKE_dsbevx( int matrix_order, char jobz, char range, char uplo,
3101                            lapack_int n, lapack_int kd, double* ab,
3102                            lapack_int ldab, double* q, lapack_int ldq,
3103                            double vl, double vu, lapack_int il, lapack_int iu,
3104                            double abstol, lapack_int* m, double* w, double* z,
3105                            lapack_int ldz, lapack_int* ifail );
3106 
3107 lapack_int LAPACKE_ssbgst( int matrix_order, char vect, char uplo, lapack_int n,
3108                            lapack_int ka, lapack_int kb, float* ab,
3109                            lapack_int ldab, const float* bb, lapack_int ldbb,
3110                            float* x, lapack_int ldx );
3111 lapack_int LAPACKE_dsbgst( int matrix_order, char vect, char uplo, lapack_int n,
3112                            lapack_int ka, lapack_int kb, double* ab,
3113                            lapack_int ldab, const double* bb, lapack_int ldbb,
3114                            double* x, lapack_int ldx );
3115 
3116 lapack_int LAPACKE_ssbgv( int matrix_order, char jobz, char uplo, lapack_int n,
3117                           lapack_int ka, lapack_int kb, float* ab,
3118                           lapack_int ldab, float* bb, lapack_int ldbb, float* w,
3119                           float* z, lapack_int ldz );
3120 lapack_int LAPACKE_dsbgv( int matrix_order, char jobz, char uplo, lapack_int n,
3121                           lapack_int ka, lapack_int kb, double* ab,
3122                           lapack_int ldab, double* bb, lapack_int ldbb,
3123                           double* w, double* z, lapack_int ldz );
3124 
3125 lapack_int LAPACKE_ssbgvd( int matrix_order, char jobz, char uplo, lapack_int n,
3126                            lapack_int ka, lapack_int kb, float* ab,
3127                            lapack_int ldab, float* bb, lapack_int ldbb,
3128                            float* w, float* z, lapack_int ldz );
3129 lapack_int LAPACKE_dsbgvd( int matrix_order, char jobz, char uplo, lapack_int n,
3130                            lapack_int ka, lapack_int kb, double* ab,
3131                            lapack_int ldab, double* bb, lapack_int ldbb,
3132                            double* w, double* z, lapack_int ldz );
3133 
3134 lapack_int LAPACKE_ssbgvx( int matrix_order, char jobz, char range, char uplo,
3135                            lapack_int n, lapack_int ka, lapack_int kb,
3136                            float* ab, lapack_int ldab, float* bb,
3137                            lapack_int ldbb, float* q, lapack_int ldq, float vl,
3138                            float vu, lapack_int il, lapack_int iu, float abstol,
3139                            lapack_int* m, float* w, float* z, lapack_int ldz,
3140                            lapack_int* ifail );
3141 lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo,
3142                            lapack_int n, lapack_int ka, lapack_int kb,
3143                            double* ab, lapack_int ldab, double* bb,
3144                            lapack_int ldbb, double* q, lapack_int ldq,
3145                            double vl, double vu, lapack_int il, lapack_int iu,
3146                            double abstol, lapack_int* m, double* w, double* z,
3147                            lapack_int ldz, lapack_int* ifail );
3148 
3149 lapack_int LAPACKE_ssbtrd( int matrix_order, char vect, char uplo, lapack_int n,
3150                            lapack_int kd, float* ab, lapack_int ldab, float* d,
3151                            float* e, float* q, lapack_int ldq );
3152 lapack_int LAPACKE_dsbtrd( int matrix_order, char vect, char uplo, lapack_int n,
3153                            lapack_int kd, double* ab, lapack_int ldab,
3154                            double* d, double* e, double* q, lapack_int ldq );
3155 
3156 lapack_int LAPACKE_ssfrk( int matrix_order, char transr, char uplo, char trans,
3157                           lapack_int n, lapack_int k, float alpha,
3158                           const float* a, lapack_int lda, float beta,
3159                           float* c );
3160 lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans,
3161                           lapack_int n, lapack_int k, double alpha,
3162                           const double* a, lapack_int lda, double beta,
3163                           double* c );
3164 
3165 lapack_int LAPACKE_sspcon( int matrix_order, char uplo, lapack_int n,
3166                            const float* ap, const lapack_int* ipiv, float anorm,
3167                            float* rcond );
3168 lapack_int LAPACKE_dspcon( int matrix_order, char uplo, lapack_int n,
3169                            const double* ap, const lapack_int* ipiv,
3170                            double anorm, double* rcond );
3171 lapack_int LAPACKE_cspcon( int matrix_order, char uplo, lapack_int n,
3172                            const lapack_complex_float* ap,
3173                            const lapack_int* ipiv, float anorm, float* rcond );
3174 lapack_int LAPACKE_zspcon( int matrix_order, char uplo, lapack_int n,
3175                            const lapack_complex_double* ap,
3176                            const lapack_int* ipiv, double anorm,
3177                            double* rcond );
3178 
3179 lapack_int LAPACKE_sspev( int matrix_order, char jobz, char uplo, lapack_int n,
3180                           float* ap, float* w, float* z, lapack_int ldz );
3181 lapack_int LAPACKE_dspev( int matrix_order, char jobz, char uplo, lapack_int n,
3182                           double* ap, double* w, double* z, lapack_int ldz );
3183 
3184 lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n,
3185                            float* ap, float* w, float* z, lapack_int ldz );
3186 lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n,
3187                            double* ap, double* w, double* z, lapack_int ldz );
3188 
3189 lapack_int LAPACKE_sspevx( int matrix_order, char jobz, char range, char uplo,
3190                            lapack_int n, float* ap, float vl, float vu,
3191                            lapack_int il, lapack_int iu, float abstol,
3192                            lapack_int* m, float* w, float* z, lapack_int ldz,
3193                            lapack_int* ifail );
3194 lapack_int LAPACKE_dspevx( int matrix_order, char jobz, char range, char uplo,
3195                            lapack_int n, double* ap, double vl, double vu,
3196                            lapack_int il, lapack_int iu, double abstol,
3197                            lapack_int* m, double* w, double* z, lapack_int ldz,
3198                            lapack_int* ifail );
3199 
3200 lapack_int LAPACKE_sspgst( int matrix_order, lapack_int itype, char uplo,
3201                            lapack_int n, float* ap, const float* bp );
3202 lapack_int LAPACKE_dspgst( int matrix_order, lapack_int itype, char uplo,
3203                            lapack_int n, double* ap, const double* bp );
3204 
3205 lapack_int LAPACKE_sspgv( int matrix_order, lapack_int itype, char jobz,
3206                           char uplo, lapack_int n, float* ap, float* bp,
3207                           float* w, float* z, lapack_int ldz );
3208 lapack_int LAPACKE_dspgv( int matrix_order, lapack_int itype, char jobz,
3209                           char uplo, lapack_int n, double* ap, double* bp,
3210                           double* w, double* z, lapack_int ldz );
3211 
3212 lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz,
3213                            char uplo, lapack_int n, float* ap, float* bp,
3214                            float* w, float* z, lapack_int ldz );
3215 lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz,
3216                            char uplo, lapack_int n, double* ap, double* bp,
3217                            double* w, double* z, lapack_int ldz );
3218 
3219 lapack_int LAPACKE_sspgvx( int matrix_order, lapack_int itype, char jobz,
3220                            char range, char uplo, lapack_int n, float* ap,
3221                            float* bp, float vl, float vu, lapack_int il,
3222                            lapack_int iu, float abstol, lapack_int* m, float* w,
3223                            float* z, lapack_int ldz, lapack_int* ifail );
3224 lapack_int LAPACKE_dspgvx( int matrix_order, lapack_int itype, char jobz,
3225                            char range, char uplo, lapack_int n, double* ap,
3226                            double* bp, double vl, double vu, lapack_int il,
3227                            lapack_int iu, double abstol, lapack_int* m,
3228                            double* w, double* z, lapack_int ldz,
3229                            lapack_int* ifail );
3230 
3231 lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n,
3232                            lapack_int nrhs, const float* ap, const float* afp,
3233                            const lapack_int* ipiv, const float* b,
3234                            lapack_int ldb, float* x, lapack_int ldx,
3235                            float* ferr, float* berr );
3236 lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n,
3237                            lapack_int nrhs, const double* ap, const double* afp,
3238                            const lapack_int* ipiv, const double* b,
3239                            lapack_int ldb, double* x, lapack_int ldx,
3240                            double* ferr, double* berr );
3241 lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n,
3242                            lapack_int nrhs, const lapack_complex_float* ap,
3243                            const lapack_complex_float* afp,
3244                            const lapack_int* ipiv,
3245                            const lapack_complex_float* b, lapack_int ldb,
3246                            lapack_complex_float* x, lapack_int ldx, float* ferr,
3247                            float* berr );
3248 lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n,
3249                            lapack_int nrhs, const lapack_complex_double* ap,
3250                            const lapack_complex_double* afp,
3251                            const lapack_int* ipiv,
3252                            const lapack_complex_double* b, lapack_int ldb,
3253                            lapack_complex_double* x, lapack_int ldx,
3254                            double* ferr, double* berr );
3255 
3256 lapack_int LAPACKE_sspsv( int matrix_order, char uplo, lapack_int n,
3257                           lapack_int nrhs, float* ap, lapack_int* ipiv,
3258                           float* b, lapack_int ldb );
3259 lapack_int LAPACKE_dspsv( int matrix_order, char uplo, lapack_int n,
3260                           lapack_int nrhs, double* ap, lapack_int* ipiv,
3261                           double* b, lapack_int ldb );
3262 lapack_int LAPACKE_cspsv( int matrix_order, char uplo, lapack_int n,
3263                           lapack_int nrhs, lapack_complex_float* ap,
3264                           lapack_int* ipiv, lapack_complex_float* b,
3265                           lapack_int ldb );
3266 lapack_int LAPACKE_zspsv( int matrix_order, char uplo, lapack_int n,
3267                           lapack_int nrhs, lapack_complex_double* ap,
3268                           lapack_int* ipiv, lapack_complex_double* b,
3269                           lapack_int ldb );
3270 
3271 lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n,
3272                            lapack_int nrhs, const float* ap, float* afp,
3273                            lapack_int* ipiv, const float* b, lapack_int ldb,
3274                            float* x, lapack_int ldx, float* rcond, float* ferr,
3275                            float* berr );
3276 lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n,
3277                            lapack_int nrhs, const double* ap, double* afp,
3278                            lapack_int* ipiv, const double* b, lapack_int ldb,
3279                            double* x, lapack_int ldx, double* rcond,
3280                            double* ferr, double* berr );
3281 lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n,
3282                            lapack_int nrhs, const lapack_complex_float* ap,
3283                            lapack_complex_float* afp, lapack_int* ipiv,
3284                            const lapack_complex_float* b, lapack_int ldb,
3285                            lapack_complex_float* x, lapack_int ldx,
3286                            float* rcond, float* ferr, float* berr );
3287 lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n,
3288                            lapack_int nrhs, const lapack_complex_double* ap,
3289                            lapack_complex_double* afp, lapack_int* ipiv,
3290                            const lapack_complex_double* b, lapack_int ldb,
3291                            lapack_complex_double* x, lapack_int ldx,
3292                            double* rcond, double* ferr, double* berr );
3293 
3294 lapack_int LAPACKE_ssptrd( int matrix_order, char uplo, lapack_int n, float* ap,
3295                            float* d, float* e, float* tau );
3296 lapack_int LAPACKE_dsptrd( int matrix_order, char uplo, lapack_int n,
3297                            double* ap, double* d, double* e, double* tau );
3298 
3299 lapack_int LAPACKE_ssptrf( int matrix_order, char uplo, lapack_int n, float* ap,
3300                            lapack_int* ipiv );
3301 lapack_int LAPACKE_dsptrf( int matrix_order, char uplo, lapack_int n,
3302                            double* ap, lapack_int* ipiv );
3303 lapack_int LAPACKE_csptrf( int matrix_order, char uplo, lapack_int n,
3304                            lapack_complex_float* ap, lapack_int* ipiv );
3305 lapack_int LAPACKE_zsptrf( int matrix_order, char uplo, lapack_int n,
3306                            lapack_complex_double* ap, lapack_int* ipiv );
3307 
3308 lapack_int LAPACKE_ssptri( int matrix_order, char uplo, lapack_int n, float* ap,
3309                            const lapack_int* ipiv );
3310 lapack_int LAPACKE_dsptri( int matrix_order, char uplo, lapack_int n,
3311                            double* ap, const lapack_int* ipiv );
3312 lapack_int LAPACKE_csptri( int matrix_order, char uplo, lapack_int n,
3313                            lapack_complex_float* ap, const lapack_int* ipiv );
3314 lapack_int LAPACKE_zsptri( int matrix_order, char uplo, lapack_int n,
3315                            lapack_complex_double* ap, const lapack_int* ipiv );
3316 
3317 lapack_int LAPACKE_ssptrs( int matrix_order, char uplo, lapack_int n,
3318                            lapack_int nrhs, const float* ap,
3319                            const lapack_int* ipiv, float* b, lapack_int ldb );
3320 lapack_int LAPACKE_dsptrs( int matrix_order, char uplo, lapack_int n,
3321                            lapack_int nrhs, const double* ap,
3322                            const lapack_int* ipiv, double* b, lapack_int ldb );
3323 lapack_int LAPACKE_csptrs( int matrix_order, char uplo, lapack_int n,
3324                            lapack_int nrhs, const lapack_complex_float* ap,
3325                            const lapack_int* ipiv, lapack_complex_float* b,
3326                            lapack_int ldb );
3327 lapack_int LAPACKE_zsptrs( int matrix_order, char uplo, lapack_int n,
3328                            lapack_int nrhs, const lapack_complex_double* ap,
3329                            const lapack_int* ipiv, lapack_complex_double* b,
3330                            lapack_int ldb );
3331 
3332 lapack_int LAPACKE_sstebz( char range, char order, lapack_int n, float vl,
3333                            float vu, lapack_int il, lapack_int iu, float abstol,
3334                            const float* d, const float* e, lapack_int* m,
3335                            lapack_int* nsplit, float* w, lapack_int* iblock,
3336                            lapack_int* isplit );
3337 lapack_int LAPACKE_dstebz( char range, char order, lapack_int n, double vl,
3338                            double vu, lapack_int il, lapack_int iu,
3339                            double abstol, const double* d, const double* e,
3340                            lapack_int* m, lapack_int* nsplit, double* w,
3341                            lapack_int* iblock, lapack_int* isplit );
3342 
3343 lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d,
3344                            float* e, float* z, lapack_int ldz );
3345 lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n,
3346                            double* d, double* e, double* z, lapack_int ldz );
3347 lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d,
3348                            float* e, lapack_complex_float* z, lapack_int ldz );
3349 lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n,
3350                            double* d, double* e, lapack_complex_double* z,
3351                            lapack_int ldz );
3352 
3353 lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range,
3354                            lapack_int n, float* d, float* e, float vl, float vu,
3355                            lapack_int il, lapack_int iu, float abstol,
3356                            lapack_int* m, float* w, float* z, lapack_int ldz,
3357                            lapack_int* isuppz );
3358 lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range,
3359                            lapack_int n, double* d, double* e, double vl,
3360                            double vu, lapack_int il, lapack_int iu,
3361                            double abstol, lapack_int* m, double* w, double* z,
3362                            lapack_int ldz, lapack_int* isuppz );
3363 lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range,
3364                            lapack_int n, float* d, float* e, float vl, float vu,
3365                            lapack_int il, lapack_int iu, float abstol,
3366                            lapack_int* m, float* w, lapack_complex_float* z,
3367                            lapack_int ldz, lapack_int* isuppz );
3368 lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range,
3369                            lapack_int n, double* d, double* e, double vl,
3370                            double vu, lapack_int il, lapack_int iu,
3371                            double abstol, lapack_int* m, double* w,
3372                            lapack_complex_double* z, lapack_int ldz,
3373                            lapack_int* isuppz );
3374 
3375 lapack_int LAPACKE_sstein( int matrix_order, lapack_int n, const float* d,
3376                            const float* e, lapack_int m, const float* w,
3377                            const lapack_int* iblock, const lapack_int* isplit,
3378                            float* z, lapack_int ldz, lapack_int* ifailv );
3379 lapack_int LAPACKE_dstein( int matrix_order, lapack_int n, const double* d,
3380                            const double* e, lapack_int m, const double* w,
3381                            const lapack_int* iblock, const lapack_int* isplit,
3382                            double* z, lapack_int ldz, lapack_int* ifailv );
3383 lapack_int LAPACKE_cstein( int matrix_order, lapack_int n, const float* d,
3384                            const float* e, lapack_int m, const float* w,
3385                            const lapack_int* iblock, const lapack_int* isplit,
3386                            lapack_complex_float* z, lapack_int ldz,
3387                            lapack_int* ifailv );
3388 lapack_int LAPACKE_zstein( int matrix_order, lapack_int n, const double* d,
3389                            const double* e, lapack_int m, const double* w,
3390                            const lapack_int* iblock, const lapack_int* isplit,
3391                            lapack_complex_double* z, lapack_int ldz,
3392                            lapack_int* ifailv );
3393 
3394 lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range,
3395                            lapack_int n, float* d, float* e, float vl, float vu,
3396                            lapack_int il, lapack_int iu, lapack_int* m,
3397                            float* w, float* z, lapack_int ldz, lapack_int nzc,
3398                            lapack_int* isuppz, lapack_logical* tryrac );
3399 lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range,
3400                            lapack_int n, double* d, double* e, double vl,
3401                            double vu, lapack_int il, lapack_int iu,
3402                            lapack_int* m, double* w, double* z, lapack_int ldz,
3403                            lapack_int nzc, lapack_int* isuppz,
3404                            lapack_logical* tryrac );
3405 lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range,
3406                            lapack_int n, float* d, float* e, float vl, float vu,
3407                            lapack_int il, lapack_int iu, lapack_int* m,
3408                            float* w, lapack_complex_float* z, lapack_int ldz,
3409                            lapack_int nzc, lapack_int* isuppz,
3410                            lapack_logical* tryrac );
3411 lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range,
3412                            lapack_int n, double* d, double* e, double vl,
3413                            double vu, lapack_int il, lapack_int iu,
3414                            lapack_int* m, double* w, lapack_complex_double* z,
3415                            lapack_int ldz, lapack_int nzc, lapack_int* isuppz,
3416                            lapack_logical* tryrac );
3417 
3418 lapack_int LAPACKE_ssteqr( int matrix_order, char compz, lapack_int n, float* d,
3419                            float* e, float* z, lapack_int ldz );
3420 lapack_int LAPACKE_dsteqr( int matrix_order, char compz, lapack_int n,
3421                            double* d, double* e, double* z, lapack_int ldz );
3422 lapack_int LAPACKE_csteqr( int matrix_order, char compz, lapack_int n, float* d,
3423                            float* e, lapack_complex_float* z, lapack_int ldz );
3424 lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n,
3425                            double* d, double* e, lapack_complex_double* z,
3426                            lapack_int ldz );
3427 
3428 lapack_int LAPACKE_ssterf( lapack_int n, float* d, float* e );
3429 lapack_int LAPACKE_dsterf( lapack_int n, double* d, double* e );
3430 
3431 lapack_int LAPACKE_sstev( int matrix_order, char jobz, lapack_int n, float* d,
3432                           float* e, float* z, lapack_int ldz );
3433 lapack_int LAPACKE_dstev( int matrix_order, char jobz, lapack_int n, double* d,
3434                           double* e, double* z, lapack_int ldz );
3435 
3436 lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d,
3437                            float* e, float* z, lapack_int ldz );
3438 lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d,
3439                            double* e, double* z, lapack_int ldz );
3440 
3441 lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range,
3442                            lapack_int n, float* d, float* e, float vl, float vu,
3443                            lapack_int il, lapack_int iu, float abstol,
3444                            lapack_int* m, float* w, float* z, lapack_int ldz,
3445                            lapack_int* isuppz );
3446 lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range,
3447                            lapack_int n, double* d, double* e, double vl,
3448                            double vu, lapack_int il, lapack_int iu,
3449                            double abstol, lapack_int* m, double* w, double* z,
3450                            lapack_int ldz, lapack_int* isuppz );
3451 
3452 lapack_int LAPACKE_sstevx( int matrix_order, char jobz, char range,
3453                            lapack_int n, float* d, float* e, float vl, float vu,
3454                            lapack_int il, lapack_int iu, float abstol,
3455                            lapack_int* m, float* w, float* z, lapack_int ldz,
3456                            lapack_int* ifail );
3457 lapack_int LAPACKE_dstevx( int matrix_order, char jobz, char range,
3458                            lapack_int n, double* d, double* e, double vl,
3459                            double vu, lapack_int il, lapack_int iu,
3460                            double abstol, lapack_int* m, double* w, double* z,
3461                            lapack_int ldz, lapack_int* ifail );
3462 
3463 lapack_int LAPACKE_ssycon( int matrix_order, char uplo, lapack_int n,
3464                            const float* a, lapack_int lda,
3465                            const lapack_int* ipiv, float anorm, float* rcond );
3466 lapack_int LAPACKE_dsycon( int matrix_order, char uplo, lapack_int n,
3467                            const double* a, lapack_int lda,
3468                            const lapack_int* ipiv, double anorm,
3469                            double* rcond );
3470 lapack_int LAPACKE_csycon( int matrix_order, char uplo, lapack_int n,
3471                            const lapack_complex_float* a, lapack_int lda,
3472                            const lapack_int* ipiv, float anorm, float* rcond );
3473 lapack_int LAPACKE_zsycon( int matrix_order, char uplo, lapack_int n,
3474                            const lapack_complex_double* a, lapack_int lda,
3475                            const lapack_int* ipiv, double anorm,
3476                            double* rcond );
3477 
3478 lapack_int LAPACKE_ssyequb( int matrix_order, char uplo, lapack_int n,
3479                             const float* a, lapack_int lda, float* s,
3480                             float* scond, float* amax );
3481 lapack_int LAPACKE_dsyequb( int matrix_order, char uplo, lapack_int n,
3482                             const double* a, lapack_int lda, double* s,
3483                             double* scond, double* amax );
3484 lapack_int LAPACKE_csyequb( int matrix_order, char uplo, lapack_int n,
3485                             const lapack_complex_float* a, lapack_int lda,
3486                             float* s, float* scond, float* amax );
3487 lapack_int LAPACKE_zsyequb( int matrix_order, char uplo, lapack_int n,
3488                             const lapack_complex_double* a, lapack_int lda,
3489                             double* s, double* scond, double* amax );
3490 
3491 lapack_int LAPACKE_ssyev( int matrix_order, char jobz, char uplo, lapack_int n,
3492                           float* a, lapack_int lda, float* w );
3493 lapack_int LAPACKE_dsyev( int matrix_order, char jobz, char uplo, lapack_int n,
3494                           double* a, lapack_int lda, double* w );
3495 
3496 lapack_int LAPACKE_ssyevd( int matrix_order, char jobz, char uplo, lapack_int n,
3497                            float* a, lapack_int lda, float* w );
3498 lapack_int LAPACKE_dsyevd( int matrix_order, char jobz, char uplo, lapack_int n,
3499                            double* a, lapack_int lda, double* w );
3500 
3501 lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo,
3502                            lapack_int n, float* a, lapack_int lda, float vl,
3503                            float vu, lapack_int il, lapack_int iu, float abstol,
3504                            lapack_int* m, float* w, float* z, lapack_int ldz,
3505                            lapack_int* isuppz );
3506 lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo,
3507                            lapack_int n, double* a, lapack_int lda, double vl,
3508                            double vu, lapack_int il, lapack_int iu,
3509                            double abstol, lapack_int* m, double* w, double* z,
3510                            lapack_int ldz, lapack_int* isuppz );
3511 
3512 lapack_int LAPACKE_ssyevx( int matrix_order, char jobz, char range, char uplo,
3513                            lapack_int n, float* a, lapack_int lda, float vl,
3514                            float vu, lapack_int il, lapack_int iu, float abstol,
3515                            lapack_int* m, float* w, float* z, lapack_int ldz,
3516                            lapack_int* ifail );
3517 lapack_int LAPACKE_dsyevx( int matrix_order, char jobz, char range, char uplo,
3518                            lapack_int n, double* a, lapack_int lda, double vl,
3519                            double vu, lapack_int il, lapack_int iu,
3520                            double abstol, lapack_int* m, double* w, double* z,
3521                            lapack_int ldz, lapack_int* ifail );
3522 
3523 lapack_int LAPACKE_ssygst( int matrix_order, lapack_int itype, char uplo,
3524                            lapack_int n, float* a, lapack_int lda,
3525                            const float* b, lapack_int ldb );
3526 lapack_int LAPACKE_dsygst( int matrix_order, lapack_int itype, char uplo,
3527                            lapack_int n, double* a, lapack_int lda,
3528                            const double* b, lapack_int ldb );
3529 
3530 lapack_int LAPACKE_ssygv( int matrix_order, lapack_int itype, char jobz,
3531                           char uplo, lapack_int n, float* a, lapack_int lda,
3532                           float* b, lapack_int ldb, float* w );
3533 lapack_int LAPACKE_dsygv( int matrix_order, lapack_int itype, char jobz,
3534                           char uplo, lapack_int n, double* a, lapack_int lda,
3535                           double* b, lapack_int ldb, double* w );
3536 
3537 lapack_int LAPACKE_ssygvd( int matrix_order, lapack_int itype, char jobz,
3538                            char uplo, lapack_int n, float* a, lapack_int lda,
3539                            float* b, lapack_int ldb, float* w );
3540 lapack_int LAPACKE_dsygvd( int matrix_order, lapack_int itype, char jobz,
3541                            char uplo, lapack_int n, double* a, lapack_int lda,
3542                            double* b, lapack_int ldb, double* w );
3543 
3544 lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz,
3545                            char range, char uplo, lapack_int n, float* a,
3546                            lapack_int lda, float* b, lapack_int ldb, float vl,
3547                            float vu, lapack_int il, lapack_int iu, float abstol,
3548                            lapack_int* m, float* w, float* z, lapack_int ldz,
3549                            lapack_int* ifail );
3550 lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz,
3551                            char range, char uplo, lapack_int n, double* a,
3552                            lapack_int lda, double* b, lapack_int ldb, double vl,
3553                            double vu, lapack_int il, lapack_int iu,
3554                            double abstol, lapack_int* m, double* w, double* z,
3555                            lapack_int ldz, lapack_int* ifail );
3556 
3557 lapack_int LAPACKE_ssyrfs( int matrix_order, char uplo, lapack_int n,
3558                            lapack_int nrhs, const float* a, lapack_int lda,
3559                            const float* af, lapack_int ldaf,
3560                            const lapack_int* ipiv, const float* b,
3561                            lapack_int ldb, float* x, lapack_int ldx,
3562                            float* ferr, float* berr );
3563 lapack_int LAPACKE_dsyrfs( int matrix_order, char uplo, lapack_int n,
3564                            lapack_int nrhs, const double* a, lapack_int lda,
3565                            const double* af, lapack_int ldaf,
3566                            const lapack_int* ipiv, const double* b,
3567                            lapack_int ldb, double* x, lapack_int ldx,
3568                            double* ferr, double* berr );
3569 lapack_int LAPACKE_csyrfs( int matrix_order, char uplo, lapack_int n,
3570                            lapack_int nrhs, const lapack_complex_float* a,
3571                            lapack_int lda, const lapack_complex_float* af,
3572                            lapack_int ldaf, const lapack_int* ipiv,
3573                            const lapack_complex_float* b, lapack_int ldb,
3574                            lapack_complex_float* x, lapack_int ldx, float* ferr,
3575                            float* berr );
3576 lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n,
3577                            lapack_int nrhs, const lapack_complex_double* a,
3578                            lapack_int lda, const lapack_complex_double* af,
3579                            lapack_int ldaf, const lapack_int* ipiv,
3580                            const lapack_complex_double* b, lapack_int ldb,
3581                            lapack_complex_double* x, lapack_int ldx,
3582                            double* ferr, double* berr );
3583 
3584 lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed,
3585                             lapack_int n, lapack_int nrhs, const float* a,
3586                             lapack_int lda, const float* af, lapack_int ldaf,
3587                             const lapack_int* ipiv, const float* s,
3588                             const float* b, lapack_int ldb, float* x,
3589                             lapack_int ldx, float* rcond, float* berr,
3590                             lapack_int n_err_bnds, float* err_bnds_norm,
3591                             float* err_bnds_comp, lapack_int nparams,
3592                             float* params );
3593 lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed,
3594                             lapack_int n, lapack_int nrhs, const double* a,
3595                             lapack_int lda, const double* af, lapack_int ldaf,
3596                             const lapack_int* ipiv, const double* s,
3597                             const double* b, lapack_int ldb, double* x,
3598                             lapack_int ldx, double* rcond, double* berr,
3599                             lapack_int n_err_bnds, double* err_bnds_norm,
3600                             double* err_bnds_comp, lapack_int nparams,
3601                             double* params );
3602 lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed,
3603                             lapack_int n, lapack_int nrhs,
3604                             const lapack_complex_float* a, lapack_int lda,
3605                             const lapack_complex_float* af, lapack_int ldaf,
3606                             const lapack_int* ipiv, const float* s,
3607                             const lapack_complex_float* b, lapack_int ldb,
3608                             lapack_complex_float* x, lapack_int ldx,
3609                             float* rcond, float* berr, lapack_int n_err_bnds,
3610                             float* err_bnds_norm, float* err_bnds_comp,
3611                             lapack_int nparams, float* params );
3612 lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed,
3613                             lapack_int n, lapack_int nrhs,
3614                             const lapack_complex_double* a, lapack_int lda,
3615                             const lapack_complex_double* af, lapack_int ldaf,
3616                             const lapack_int* ipiv, const double* s,
3617                             const lapack_complex_double* b, lapack_int ldb,
3618                             lapack_complex_double* x, lapack_int ldx,
3619                             double* rcond, double* berr, lapack_int n_err_bnds,
3620                             double* err_bnds_norm, double* err_bnds_comp,
3621                             lapack_int nparams, double* params );
3622 
3623 lapack_int LAPACKE_ssysv( int matrix_order, char uplo, lapack_int n,
3624                           lapack_int nrhs, float* a, lapack_int lda,
3625                           lapack_int* ipiv, float* b, lapack_int ldb );
3626 lapack_int LAPACKE_dsysv( int matrix_order, char uplo, lapack_int n,
3627                           lapack_int nrhs, double* a, lapack_int lda,
3628                           lapack_int* ipiv, double* b, lapack_int ldb );
3629 lapack_int LAPACKE_csysv( int matrix_order, char uplo, lapack_int n,
3630                           lapack_int nrhs, lapack_complex_float* a,
3631                           lapack_int lda, lapack_int* ipiv,
3632                           lapack_complex_float* b, lapack_int ldb );
3633 lapack_int LAPACKE_zsysv( int matrix_order, char uplo, lapack_int n,
3634                           lapack_int nrhs, lapack_complex_double* a,
3635                           lapack_int lda, lapack_int* ipiv,
3636                           lapack_complex_double* b, lapack_int ldb );
3637 
3638 lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n,
3639                            lapack_int nrhs, const float* a, lapack_int lda,
3640                            float* af, lapack_int ldaf, lapack_int* ipiv,
3641                            const float* b, lapack_int ldb, float* x,
3642                            lapack_int ldx, float* rcond, float* ferr,
3643                            float* berr );
3644 lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n,
3645                            lapack_int nrhs, const double* a, lapack_int lda,
3646                            double* af, lapack_int ldaf, lapack_int* ipiv,
3647                            const double* b, lapack_int ldb, double* x,
3648                            lapack_int ldx, double* rcond, double* ferr,
3649                            double* berr );
3650 lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n,
3651                            lapack_int nrhs, const lapack_complex_float* a,
3652                            lapack_int lda, lapack_complex_float* af,
3653                            lapack_int ldaf, lapack_int* ipiv,
3654                            const lapack_complex_float* b, lapack_int ldb,
3655                            lapack_complex_float* x, lapack_int ldx,
3656                            float* rcond, float* ferr, float* berr );
3657 lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n,
3658                            lapack_int nrhs, const lapack_complex_double* a,
3659                            lapack_int lda, lapack_complex_double* af,
3660                            lapack_int ldaf, lapack_int* ipiv,
3661                            const lapack_complex_double* b, lapack_int ldb,
3662                            lapack_complex_double* x, lapack_int ldx,
3663                            double* rcond, double* ferr, double* berr );
3664 
3665 lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo,
3666                             lapack_int n, lapack_int nrhs, float* a,
3667                             lapack_int lda, float* af, lapack_int ldaf,
3668                             lapack_int* ipiv, char* equed, float* s, float* b,
3669                             lapack_int ldb, float* x, lapack_int ldx,
3670                             float* rcond, float* rpvgrw, float* berr,
3671                             lapack_int n_err_bnds, float* err_bnds_norm,
3672                             float* err_bnds_comp, lapack_int nparams,
3673                             float* params );
3674 lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo,
3675                             lapack_int n, lapack_int nrhs, double* a,
3676                             lapack_int lda, double* af, lapack_int ldaf,
3677                             lapack_int* ipiv, char* equed, double* s, double* b,
3678                             lapack_int ldb, double* x, lapack_int ldx,
3679                             double* rcond, double* rpvgrw, double* berr,
3680                             lapack_int n_err_bnds, double* err_bnds_norm,
3681                             double* err_bnds_comp, lapack_int nparams,
3682                             double* params );
3683 lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo,
3684                             lapack_int n, lapack_int nrhs,
3685                             lapack_complex_float* a, lapack_int lda,
3686                             lapack_complex_float* af, lapack_int ldaf,
3687                             lapack_int* ipiv, char* equed, float* s,
3688                             lapack_complex_float* b, lapack_int ldb,
3689                             lapack_complex_float* x, lapack_int ldx,
3690                             float* rcond, float* rpvgrw, float* berr,
3691                             lapack_int n_err_bnds, float* err_bnds_norm,
3692                             float* err_bnds_comp, lapack_int nparams,
3693                             float* params );
3694 lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo,
3695                             lapack_int n, lapack_int nrhs,
3696                             lapack_complex_double* a, lapack_int lda,
3697                             lapack_complex_double* af, lapack_int ldaf,
3698                             lapack_int* ipiv, char* equed, double* s,
3699                             lapack_complex_double* b, lapack_int ldb,
3700                             lapack_complex_double* x, lapack_int ldx,
3701                             double* rcond, double* rpvgrw, double* berr,
3702                             lapack_int n_err_bnds, double* err_bnds_norm,
3703                             double* err_bnds_comp, lapack_int nparams,
3704                             double* params );
3705 
3706 lapack_int LAPACKE_ssytrd( int matrix_order, char uplo, lapack_int n, float* a,
3707                            lapack_int lda, float* d, float* e, float* tau );
3708 lapack_int LAPACKE_dsytrd( int matrix_order, char uplo, lapack_int n, double* a,
3709                            lapack_int lda, double* d, double* e, double* tau );
3710 
3711 lapack_int LAPACKE_ssytrf( int matrix_order, char uplo, lapack_int n, float* a,
3712                            lapack_int lda, lapack_int* ipiv );
3713 lapack_int LAPACKE_dsytrf( int matrix_order, char uplo, lapack_int n, double* a,
3714                            lapack_int lda, lapack_int* ipiv );
3715 lapack_int LAPACKE_csytrf( int matrix_order, char uplo, lapack_int n,
3716                            lapack_complex_float* a, lapack_int lda,
3717                            lapack_int* ipiv );
3718 lapack_int LAPACKE_zsytrf( int matrix_order, char uplo, lapack_int n,
3719                            lapack_complex_double* a, lapack_int lda,
3720                            lapack_int* ipiv );
3721 
3722 lapack_int LAPACKE_ssytri( int matrix_order, char uplo, lapack_int n, float* a,
3723                            lapack_int lda, const lapack_int* ipiv );
3724 lapack_int LAPACKE_dsytri( int matrix_order, char uplo, lapack_int n, double* a,
3725                            lapack_int lda, const lapack_int* ipiv );
3726 lapack_int LAPACKE_csytri( int matrix_order, char uplo, lapack_int n,
3727                            lapack_complex_float* a, lapack_int lda,
3728                            const lapack_int* ipiv );
3729 lapack_int LAPACKE_zsytri( int matrix_order, char uplo, lapack_int n,
3730                            lapack_complex_double* a, lapack_int lda,
3731                            const lapack_int* ipiv );
3732 
3733 lapack_int LAPACKE_ssytrs( int matrix_order, char uplo, lapack_int n,
3734                            lapack_int nrhs, const float* a, lapack_int lda,
3735                            const lapack_int* ipiv, float* b, lapack_int ldb );
3736 lapack_int LAPACKE_dsytrs( int matrix_order, char uplo, lapack_int n,
3737                            lapack_int nrhs, const double* a, lapack_int lda,
3738                            const lapack_int* ipiv, double* b, lapack_int ldb );
3739 lapack_int LAPACKE_csytrs( int matrix_order, char uplo, lapack_int n,
3740                            lapack_int nrhs, const lapack_complex_float* a,
3741                            lapack_int lda, const lapack_int* ipiv,
3742                            lapack_complex_float* b, lapack_int ldb );
3743 lapack_int LAPACKE_zsytrs( int matrix_order, char uplo, lapack_int n,
3744                            lapack_int nrhs, const lapack_complex_double* a,
3745                            lapack_int lda, const lapack_int* ipiv,
3746                            lapack_complex_double* b, lapack_int ldb );
3747 
3748 lapack_int LAPACKE_stbcon( int matrix_order, char norm, char uplo, char diag,
3749                            lapack_int n, lapack_int kd, const float* ab,
3750                            lapack_int ldab, float* rcond );
3751 lapack_int LAPACKE_dtbcon( int matrix_order, char norm, char uplo, char diag,
3752                            lapack_int n, lapack_int kd, const double* ab,
3753                            lapack_int ldab, double* rcond );
3754 lapack_int LAPACKE_ctbcon( int matrix_order, char norm, char uplo, char diag,
3755                            lapack_int n, lapack_int kd,
3756                            const lapack_complex_float* ab, lapack_int ldab,
3757                            float* rcond );
3758 lapack_int LAPACKE_ztbcon( int matrix_order, char norm, char uplo, char diag,
3759                            lapack_int n, lapack_int kd,
3760                            const lapack_complex_double* ab, lapack_int ldab,
3761                            double* rcond );
3762 
3763 lapack_int LAPACKE_stbrfs( int matrix_order, char uplo, char trans, char diag,
3764                            lapack_int n, lapack_int kd, lapack_int nrhs,
3765                            const float* ab, lapack_int ldab, const float* b,
3766                            lapack_int ldb, const float* x, lapack_int ldx,
3767                            float* ferr, float* berr );
3768 lapack_int LAPACKE_dtbrfs( int matrix_order, char uplo, char trans, char diag,
3769                            lapack_int n, lapack_int kd, lapack_int nrhs,
3770                            const double* ab, lapack_int ldab, const double* b,
3771                            lapack_int ldb, const double* x, lapack_int ldx,
3772                            double* ferr, double* berr );
3773 lapack_int LAPACKE_ctbrfs( int matrix_order, char uplo, char trans, char diag,
3774                            lapack_int n, lapack_int kd, lapack_int nrhs,
3775                            const lapack_complex_float* ab, lapack_int ldab,
3776                            const lapack_complex_float* b, lapack_int ldb,
3777                            const lapack_complex_float* x, lapack_int ldx,
3778                            float* ferr, float* berr );
3779 lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag,
3780                            lapack_int n, lapack_int kd, lapack_int nrhs,
3781                            const lapack_complex_double* ab, lapack_int ldab,
3782                            const lapack_complex_double* b, lapack_int ldb,
3783                            const lapack_complex_double* x, lapack_int ldx,
3784                            double* ferr, double* berr );
3785 
3786 lapack_int LAPACKE_stbtrs( int matrix_order, char uplo, char trans, char diag,
3787                            lapack_int n, lapack_int kd, lapack_int nrhs,
3788                            const float* ab, lapack_int ldab, float* b,
3789                            lapack_int ldb );
3790 lapack_int LAPACKE_dtbtrs( int matrix_order, char uplo, char trans, char diag,
3791                            lapack_int n, lapack_int kd, lapack_int nrhs,
3792                            const double* ab, lapack_int ldab, double* b,
3793                            lapack_int ldb );
3794 lapack_int LAPACKE_ctbtrs( int matrix_order, char uplo, char trans, char diag,
3795                            lapack_int n, lapack_int kd, lapack_int nrhs,
3796                            const lapack_complex_float* ab, lapack_int ldab,
3797                            lapack_complex_float* b, lapack_int ldb );
3798 lapack_int LAPACKE_ztbtrs( int matrix_order, char uplo, char trans, char diag,
3799                            lapack_int n, lapack_int kd, lapack_int nrhs,
3800                            const lapack_complex_double* ab, lapack_int ldab,
3801                            lapack_complex_double* b, lapack_int ldb );
3802 
3803 lapack_int LAPACKE_stfsm( int matrix_order, char transr, char side, char uplo,
3804                           char trans, char diag, lapack_int m, lapack_int n,
3805                           float alpha, const float* a, float* b,
3806                           lapack_int ldb );
3807 lapack_int LAPACKE_dtfsm( int matrix_order, char transr, char side, char uplo,
3808                           char trans, char diag, lapack_int m, lapack_int n,
3809                           double alpha, const double* a, double* b,
3810                           lapack_int ldb );
3811 lapack_int LAPACKE_ctfsm( int matrix_order, char transr, char side, char uplo,
3812                           char trans, char diag, lapack_int m, lapack_int n,
3813                           lapack_complex_float alpha,
3814                           const lapack_complex_float* a,
3815                           lapack_complex_float* b, lapack_int ldb );
3816 lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo,
3817                           char trans, char diag, lapack_int m, lapack_int n,
3818                           lapack_complex_double alpha,
3819                           const lapack_complex_double* a,
3820                           lapack_complex_double* b, lapack_int ldb );
3821 
3822 lapack_int LAPACKE_stftri( int matrix_order, char transr, char uplo, char diag,
3823                            lapack_int n, float* a );
3824 lapack_int LAPACKE_dtftri( int matrix_order, char transr, char uplo, char diag,
3825                            lapack_int n, double* a );
3826 lapack_int LAPACKE_ctftri( int matrix_order, char transr, char uplo, char diag,
3827                            lapack_int n, lapack_complex_float* a );
3828 lapack_int LAPACKE_ztftri( int matrix_order, char transr, char uplo, char diag,
3829                            lapack_int n, lapack_complex_double* a );
3830 
3831 lapack_int LAPACKE_stfttp( int matrix_order, char transr, char uplo,
3832                            lapack_int n, const float* arf, float* ap );
3833 lapack_int LAPACKE_dtfttp( int matrix_order, char transr, char uplo,
3834                            lapack_int n, const double* arf, double* ap );
3835 lapack_int LAPACKE_ctfttp( int matrix_order, char transr, char uplo,
3836                            lapack_int n, const lapack_complex_float* arf,
3837                            lapack_complex_float* ap );
3838 lapack_int LAPACKE_ztfttp( int matrix_order, char transr, char uplo,
3839                            lapack_int n, const lapack_complex_double* arf,
3840                            lapack_complex_double* ap );
3841 
3842 lapack_int LAPACKE_stfttr( int matrix_order, char transr, char uplo,
3843                            lapack_int n, const float* arf, float* a,
3844                            lapack_int lda );
3845 lapack_int LAPACKE_dtfttr( int matrix_order, char transr, char uplo,
3846                            lapack_int n, const double* arf, double* a,
3847                            lapack_int lda );
3848 lapack_int LAPACKE_ctfttr( int matrix_order, char transr, char uplo,
3849                            lapack_int n, const lapack_complex_float* arf,
3850                            lapack_complex_float* a, lapack_int lda );
3851 lapack_int LAPACKE_ztfttr( int matrix_order, char transr, char uplo,
3852                            lapack_int n, const lapack_complex_double* arf,
3853                            lapack_complex_double* a, lapack_int lda );
3854 
3855 lapack_int LAPACKE_stgevc( int matrix_order, char side, char howmny,
3856                            const lapack_logical* select, lapack_int n,
3857                            const float* s, lapack_int lds, const float* p,
3858                            lapack_int ldp, float* vl, lapack_int ldvl,
3859                            float* vr, lapack_int ldvr, lapack_int mm,
3860                            lapack_int* m );
3861 lapack_int LAPACKE_dtgevc( int matrix_order, char side, char howmny,
3862                            const lapack_logical* select, lapack_int n,
3863                            const double* s, lapack_int lds, const double* p,
3864                            lapack_int ldp, double* vl, lapack_int ldvl,
3865                            double* vr, lapack_int ldvr, lapack_int mm,
3866                            lapack_int* m );
3867 lapack_int LAPACKE_ctgevc( int matrix_order, char side, char howmny,
3868                            const lapack_logical* select, lapack_int n,
3869                            const lapack_complex_float* s, lapack_int lds,
3870                            const lapack_complex_float* p, lapack_int ldp,
3871                            lapack_complex_float* vl, lapack_int ldvl,
3872                            lapack_complex_float* vr, lapack_int ldvr,
3873                            lapack_int mm, lapack_int* m );
3874 lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny,
3875                            const lapack_logical* select, lapack_int n,
3876                            const lapack_complex_double* s, lapack_int lds,
3877                            const lapack_complex_double* p, lapack_int ldp,
3878                            lapack_complex_double* vl, lapack_int ldvl,
3879                            lapack_complex_double* vr, lapack_int ldvr,
3880                            lapack_int mm, lapack_int* m );
3881 
3882 lapack_int LAPACKE_stgexc( int matrix_order, lapack_logical wantq,
3883                            lapack_logical wantz, lapack_int n, float* a,
3884                            lapack_int lda, float* b, lapack_int ldb, float* q,
3885                            lapack_int ldq, float* z, lapack_int ldz,
3886                            lapack_int* ifst, lapack_int* ilst );
3887 lapack_int LAPACKE_dtgexc( int matrix_order, lapack_logical wantq,
3888                            lapack_logical wantz, lapack_int n, double* a,
3889                            lapack_int lda, double* b, lapack_int ldb, double* q,
3890                            lapack_int ldq, double* z, lapack_int ldz,
3891                            lapack_int* ifst, lapack_int* ilst );
3892 lapack_int LAPACKE_ctgexc( int matrix_order, lapack_logical wantq,
3893                            lapack_logical wantz, lapack_int n,
3894                            lapack_complex_float* a, lapack_int lda,
3895                            lapack_complex_float* b, lapack_int ldb,
3896                            lapack_complex_float* q, lapack_int ldq,
3897                            lapack_complex_float* z, lapack_int ldz,
3898                            lapack_int ifst, lapack_int ilst );
3899 lapack_int LAPACKE_ztgexc( int matrix_order, lapack_logical wantq,
3900                            lapack_logical wantz, lapack_int n,
3901                            lapack_complex_double* a, lapack_int lda,
3902                            lapack_complex_double* b, lapack_int ldb,
3903                            lapack_complex_double* q, lapack_int ldq,
3904                            lapack_complex_double* z, lapack_int ldz,
3905                            lapack_int ifst, lapack_int ilst );
3906 
3907 lapack_int LAPACKE_stgsen( int matrix_order, lapack_int ijob,
3908                            lapack_logical wantq, lapack_logical wantz,
3909                            const lapack_logical* select, lapack_int n, float* a,
3910                            lapack_int lda, float* b, lapack_int ldb,
3911                            float* alphar, float* alphai, float* beta, float* q,
3912                            lapack_int ldq, float* z, lapack_int ldz,
3913                            lapack_int* m, float* pl, float* pr, float* dif );
3914 lapack_int LAPACKE_dtgsen( int matrix_order, lapack_int ijob,
3915                            lapack_logical wantq, lapack_logical wantz,
3916                            const lapack_logical* select, lapack_int n,
3917                            double* a, lapack_int lda, double* b, lapack_int ldb,
3918                            double* alphar, double* alphai, double* beta,
3919                            double* q, lapack_int ldq, double* z, lapack_int ldz,
3920                            lapack_int* m, double* pl, double* pr, double* dif );
3921 lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob,
3922                            lapack_logical wantq, lapack_logical wantz,
3923                            const lapack_logical* select, lapack_int n,
3924                            lapack_complex_float* a, lapack_int lda,
3925                            lapack_complex_float* b, lapack_int ldb,
3926                            lapack_complex_float* alpha,
3927                            lapack_complex_float* beta, lapack_complex_float* q,
3928                            lapack_int ldq, lapack_complex_float* z,
3929                            lapack_int ldz, lapack_int* m, float* pl, float* pr,
3930                            float* dif );
3931 lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob,
3932                            lapack_logical wantq, lapack_logical wantz,
3933                            const lapack_logical* select, lapack_int n,
3934                            lapack_complex_double* a, lapack_int lda,
3935                            lapack_complex_double* b, lapack_int ldb,
3936                            lapack_complex_double* alpha,
3937                            lapack_complex_double* beta,
3938                            lapack_complex_double* q, lapack_int ldq,
3939                            lapack_complex_double* z, lapack_int ldz,
3940                            lapack_int* m, double* pl, double* pr, double* dif );
3941 
3942 lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq,
3943                            lapack_int m, lapack_int p, lapack_int n,
3944                            lapack_int k, lapack_int l, float* a, lapack_int lda,
3945                            float* b, lapack_int ldb, float tola, float tolb,
3946                            float* alpha, float* beta, float* u, lapack_int ldu,
3947                            float* v, lapack_int ldv, float* q, lapack_int ldq,
3948                            lapack_int* ncycle );
3949 lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq,
3950                            lapack_int m, lapack_int p, lapack_int n,
3951                            lapack_int k, lapack_int l, double* a,
3952                            lapack_int lda, double* b, lapack_int ldb,
3953                            double tola, double tolb, double* alpha,
3954                            double* beta, double* u, lapack_int ldu, double* v,
3955                            lapack_int ldv, double* q, lapack_int ldq,
3956                            lapack_int* ncycle );
3957 lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq,
3958                            lapack_int m, lapack_int p, lapack_int n,
3959                            lapack_int k, lapack_int l, lapack_complex_float* a,
3960                            lapack_int lda, lapack_complex_float* b,
3961                            lapack_int ldb, float tola, float tolb, float* alpha,
3962                            float* beta, lapack_complex_float* u, lapack_int ldu,
3963                            lapack_complex_float* v, lapack_int ldv,
3964                            lapack_complex_float* q, lapack_int ldq,
3965                            lapack_int* ncycle );
3966 lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq,
3967                            lapack_int m, lapack_int p, lapack_int n,
3968                            lapack_int k, lapack_int l, lapack_complex_double* a,
3969                            lapack_int lda, lapack_complex_double* b,
3970                            lapack_int ldb, double tola, double tolb,
3971                            double* alpha, double* beta,
3972                            lapack_complex_double* u, lapack_int ldu,
3973                            lapack_complex_double* v, lapack_int ldv,
3974                            lapack_complex_double* q, lapack_int ldq,
3975                            lapack_int* ncycle );
3976 
3977 lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny,
3978                            const lapack_logical* select, lapack_int n,
3979                            const float* a, lapack_int lda, const float* b,
3980                            lapack_int ldb, const float* vl, lapack_int ldvl,
3981                            const float* vr, lapack_int ldvr, float* s,
3982                            float* dif, lapack_int mm, lapack_int* m );
3983 lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny,
3984                            const lapack_logical* select, lapack_int n,
3985                            const double* a, lapack_int lda, const double* b,
3986                            lapack_int ldb, const double* vl, lapack_int ldvl,
3987                            const double* vr, lapack_int ldvr, double* s,
3988                            double* dif, lapack_int mm, lapack_int* m );
3989 lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny,
3990                            const lapack_logical* select, lapack_int n,
3991                            const lapack_complex_float* a, lapack_int lda,
3992                            const lapack_complex_float* b, lapack_int ldb,
3993                            const lapack_complex_float* vl, lapack_int ldvl,
3994                            const lapack_complex_float* vr, lapack_int ldvr,
3995                            float* s, float* dif, lapack_int mm, lapack_int* m );
3996 lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny,
3997                            const lapack_logical* select, lapack_int n,
3998                            const lapack_complex_double* a, lapack_int lda,
3999                            const lapack_complex_double* b, lapack_int ldb,
4000                            const lapack_complex_double* vl, lapack_int ldvl,
4001                            const lapack_complex_double* vr, lapack_int ldvr,
4002                            double* s, double* dif, lapack_int mm,
4003                            lapack_int* m );
4004 
4005 lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob,
4006                            lapack_int m, lapack_int n, const float* a,
4007                            lapack_int lda, const float* b, lapack_int ldb,
4008                            float* c, lapack_int ldc, const float* d,
4009                            lapack_int ldd, const float* e, lapack_int lde,
4010                            float* f, lapack_int ldf, float* scale, float* dif );
4011 lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob,
4012                            lapack_int m, lapack_int n, const double* a,
4013                            lapack_int lda, const double* b, lapack_int ldb,
4014                            double* c, lapack_int ldc, const double* d,
4015                            lapack_int ldd, const double* e, lapack_int lde,
4016                            double* f, lapack_int ldf, double* scale,
4017                            double* dif );
4018 lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob,
4019                            lapack_int m, lapack_int n,
4020                            const lapack_complex_float* a, lapack_int lda,
4021                            const lapack_complex_float* b, lapack_int ldb,
4022                            lapack_complex_float* c, lapack_int ldc,
4023                            const lapack_complex_float* d, lapack_int ldd,
4024                            const lapack_complex_float* e, lapack_int lde,
4025                            lapack_complex_float* f, lapack_int ldf,
4026                            float* scale, float* dif );
4027 lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob,
4028                            lapack_int m, lapack_int n,
4029                            const lapack_complex_double* a, lapack_int lda,
4030                            const lapack_complex_double* b, lapack_int ldb,
4031                            lapack_complex_double* c, lapack_int ldc,
4032                            const lapack_complex_double* d, lapack_int ldd,
4033                            const lapack_complex_double* e, lapack_int lde,
4034                            lapack_complex_double* f, lapack_int ldf,
4035                            double* scale, double* dif );
4036 
4037 lapack_int LAPACKE_stpcon( int matrix_order, char norm, char uplo, char diag,
4038                            lapack_int n, const float* ap, float* rcond );
4039 lapack_int LAPACKE_dtpcon( int matrix_order, char norm, char uplo, char diag,
4040                            lapack_int n, const double* ap, double* rcond );
4041 lapack_int LAPACKE_ctpcon( int matrix_order, char norm, char uplo, char diag,
4042                            lapack_int n, const lapack_complex_float* ap,
4043                            float* rcond );
4044 lapack_int LAPACKE_ztpcon( int matrix_order, char norm, char uplo, char diag,
4045                            lapack_int n, const lapack_complex_double* ap,
4046                            double* rcond );
4047 
4048 lapack_int LAPACKE_stprfs( int matrix_order, char uplo, char trans, char diag,
4049                            lapack_int n, lapack_int nrhs, const float* ap,
4050                            const float* b, lapack_int ldb, const float* x,
4051                            lapack_int ldx, float* ferr, float* berr );
4052 lapack_int LAPACKE_dtprfs( int matrix_order, char uplo, char trans, char diag,
4053                            lapack_int n, lapack_int nrhs, const double* ap,
4054                            const double* b, lapack_int ldb, const double* x,
4055                            lapack_int ldx, double* ferr, double* berr );
4056 lapack_int LAPACKE_ctprfs( int matrix_order, char uplo, char trans, char diag,
4057                            lapack_int n, lapack_int nrhs,
4058                            const lapack_complex_float* ap,
4059                            const lapack_complex_float* b, lapack_int ldb,
4060                            const lapack_complex_float* x, lapack_int ldx,
4061                            float* ferr, float* berr );
4062 lapack_int LAPACKE_ztprfs( int matrix_order, char uplo, char trans, char diag,
4063                            lapack_int n, lapack_int nrhs,
4064                            const lapack_complex_double* ap,
4065                            const lapack_complex_double* b, lapack_int ldb,
4066                            const lapack_complex_double* x, lapack_int ldx,
4067                            double* ferr, double* berr );
4068 
4069 lapack_int LAPACKE_stptri( int matrix_order, char uplo, char diag, lapack_int n,
4070                            float* ap );
4071 lapack_int LAPACKE_dtptri( int matrix_order, char uplo, char diag, lapack_int n,
4072                            double* ap );
4073 lapack_int LAPACKE_ctptri( int matrix_order, char uplo, char diag, lapack_int n,
4074                            lapack_complex_float* ap );
4075 lapack_int LAPACKE_ztptri( int matrix_order, char uplo, char diag, lapack_int n,
4076                            lapack_complex_double* ap );
4077 
4078 lapack_int LAPACKE_stptrs( int matrix_order, char uplo, char trans, char diag,
4079                            lapack_int n, lapack_int nrhs, const float* ap,
4080                            float* b, lapack_int ldb );
4081 lapack_int LAPACKE_dtptrs( int matrix_order, char uplo, char trans, char diag,
4082                            lapack_int n, lapack_int nrhs, const double* ap,
4083                            double* b, lapack_int ldb );
4084 lapack_int LAPACKE_ctptrs( int matrix_order, char uplo, char trans, char diag,
4085                            lapack_int n, lapack_int nrhs,
4086                            const lapack_complex_float* ap,
4087                            lapack_complex_float* b, lapack_int ldb );
4088 lapack_int LAPACKE_ztptrs( int matrix_order, char uplo, char trans, char diag,
4089                            lapack_int n, lapack_int nrhs,
4090                            const lapack_complex_double* ap,
4091                            lapack_complex_double* b, lapack_int ldb );
4092 
4093 lapack_int LAPACKE_stpttf( int matrix_order, char transr, char uplo,
4094                            lapack_int n, const float* ap, float* arf );
4095 lapack_int LAPACKE_dtpttf( int matrix_order, char transr, char uplo,
4096                            lapack_int n, const double* ap, double* arf );
4097 lapack_int LAPACKE_ctpttf( int matrix_order, char transr, char uplo,
4098                            lapack_int n, const lapack_complex_float* ap,
4099                            lapack_complex_float* arf );
4100 lapack_int LAPACKE_ztpttf( int matrix_order, char transr, char uplo,
4101                            lapack_int n, const lapack_complex_double* ap,
4102                            lapack_complex_double* arf );
4103 
4104 lapack_int LAPACKE_stpttr( int matrix_order, char uplo, lapack_int n,
4105                            const float* ap, float* a, lapack_int lda );
4106 lapack_int LAPACKE_dtpttr( int matrix_order, char uplo, lapack_int n,
4107                            const double* ap, double* a, lapack_int lda );
4108 lapack_int LAPACKE_ctpttr( int matrix_order, char uplo, lapack_int n,
4109                            const lapack_complex_float* ap,
4110                            lapack_complex_float* a, lapack_int lda );
4111 lapack_int LAPACKE_ztpttr( int matrix_order, char uplo, lapack_int n,
4112                            const lapack_complex_double* ap,
4113                            lapack_complex_double* a, lapack_int lda );
4114 
4115 lapack_int LAPACKE_strcon( int matrix_order, char norm, char uplo, char diag,
4116                            lapack_int n, const float* a, lapack_int lda,
4117                            float* rcond );
4118 lapack_int LAPACKE_dtrcon( int matrix_order, char norm, char uplo, char diag,
4119                            lapack_int n, const double* a, lapack_int lda,
4120                            double* rcond );
4121 lapack_int LAPACKE_ctrcon( int matrix_order, char norm, char uplo, char diag,
4122                            lapack_int n, const lapack_complex_float* a,
4123                            lapack_int lda, float* rcond );
4124 lapack_int LAPACKE_ztrcon( int matrix_order, char norm, char uplo, char diag,
4125                            lapack_int n, const lapack_complex_double* a,
4126                            lapack_int lda, double* rcond );
4127 
4128 lapack_int LAPACKE_strevc( int matrix_order, char side, char howmny,
4129                            lapack_logical* select, lapack_int n, const float* t,
4130                            lapack_int ldt, float* vl, lapack_int ldvl,
4131                            float* vr, lapack_int ldvr, lapack_int mm,
4132                            lapack_int* m );
4133 lapack_int LAPACKE_dtrevc( int matrix_order, char side, char howmny,
4134                            lapack_logical* select, lapack_int n,
4135                            const double* t, lapack_int ldt, double* vl,
4136                            lapack_int ldvl, double* vr, lapack_int ldvr,
4137                            lapack_int mm, lapack_int* m );
4138 lapack_int LAPACKE_ctrevc( int matrix_order, char side, char howmny,
4139                            const lapack_logical* select, lapack_int n,
4140                            lapack_complex_float* t, lapack_int ldt,
4141                            lapack_complex_float* vl, lapack_int ldvl,
4142                            lapack_complex_float* vr, lapack_int ldvr,
4143                            lapack_int mm, lapack_int* m );
4144 lapack_int LAPACKE_ztrevc( int matrix_order, char side, char howmny,
4145                            const lapack_logical* select, lapack_int n,
4146                            lapack_complex_double* t, lapack_int ldt,
4147                            lapack_complex_double* vl, lapack_int ldvl,
4148                            lapack_complex_double* vr, lapack_int ldvr,
4149                            lapack_int mm, lapack_int* m );
4150 
4151 lapack_int LAPACKE_strexc( int matrix_order, char compq, lapack_int n, float* t,
4152                            lapack_int ldt, float* q, lapack_int ldq,
4153                            lapack_int* ifst, lapack_int* ilst );
4154 lapack_int LAPACKE_dtrexc( int matrix_order, char compq, lapack_int n,
4155                            double* t, lapack_int ldt, double* q, lapack_int ldq,
4156                            lapack_int* ifst, lapack_int* ilst );
4157 lapack_int LAPACKE_ctrexc( int matrix_order, char compq, lapack_int n,
4158                            lapack_complex_float* t, lapack_int ldt,
4159                            lapack_complex_float* q, lapack_int ldq,
4160                            lapack_int ifst, lapack_int ilst );
4161 lapack_int LAPACKE_ztrexc( int matrix_order, char compq, lapack_int n,
4162                            lapack_complex_double* t, lapack_int ldt,
4163                            lapack_complex_double* q, lapack_int ldq,
4164                            lapack_int ifst, lapack_int ilst );
4165 
4166 lapack_int LAPACKE_strrfs( int matrix_order, char uplo, char trans, char diag,
4167                            lapack_int n, lapack_int nrhs, const float* a,
4168                            lapack_int lda, const float* b, lapack_int ldb,
4169                            const float* x, lapack_int ldx, float* ferr,
4170                            float* berr );
4171 lapack_int LAPACKE_dtrrfs( int matrix_order, char uplo, char trans, char diag,
4172                            lapack_int n, lapack_int nrhs, const double* a,
4173                            lapack_int lda, const double* b, lapack_int ldb,
4174                            const double* x, lapack_int ldx, double* ferr,
4175                            double* berr );
4176 lapack_int LAPACKE_ctrrfs( int matrix_order, char uplo, char trans, char diag,
4177                            lapack_int n, lapack_int nrhs,
4178                            const lapack_complex_float* a, lapack_int lda,
4179                            const lapack_complex_float* b, lapack_int ldb,
4180                            const lapack_complex_float* x, lapack_int ldx,
4181                            float* ferr, float* berr );
4182 lapack_int LAPACKE_ztrrfs( int matrix_order, char uplo, char trans, char diag,
4183                            lapack_int n, lapack_int nrhs,
4184                            const lapack_complex_double* a, lapack_int lda,
4185                            const lapack_complex_double* b, lapack_int ldb,
4186                            const lapack_complex_double* x, lapack_int ldx,
4187                            double* ferr, double* berr );
4188 
4189 lapack_int LAPACKE_strsen( int matrix_order, char job, char compq,
4190                            const lapack_logical* select, lapack_int n, float* t,
4191                            lapack_int ldt, float* q, lapack_int ldq, float* wr,
4192                            float* wi, lapack_int* m, float* s, float* sep );
4193 lapack_int LAPACKE_dtrsen( int matrix_order, char job, char compq,
4194                            const lapack_logical* select, lapack_int n,
4195                            double* t, lapack_int ldt, double* q, lapack_int ldq,
4196                            double* wr, double* wi, lapack_int* m, double* s,
4197                            double* sep );
4198 lapack_int LAPACKE_ctrsen( int matrix_order, char job, char compq,
4199                            const lapack_logical* select, lapack_int n,
4200                            lapack_complex_float* t, lapack_int ldt,
4201                            lapack_complex_float* q, lapack_int ldq,
4202                            lapack_complex_float* w, lapack_int* m, float* s,
4203                            float* sep );
4204 lapack_int LAPACKE_ztrsen( int matrix_order, char job, char compq,
4205                            const lapack_logical* select, lapack_int n,
4206                            lapack_complex_double* t, lapack_int ldt,
4207                            lapack_complex_double* q, lapack_int ldq,
4208                            lapack_complex_double* w, lapack_int* m, double* s,
4209                            double* sep );
4210 
4211 lapack_int LAPACKE_strsna( int matrix_order, char job, char howmny,
4212                            const lapack_logical* select, lapack_int n,
4213                            const float* t, lapack_int ldt, const float* vl,
4214                            lapack_int ldvl, const float* vr, lapack_int ldvr,
4215                            float* s, float* sep, lapack_int mm, lapack_int* m );
4216 lapack_int LAPACKE_dtrsna( int matrix_order, char job, char howmny,
4217                            const lapack_logical* select, lapack_int n,
4218                            const double* t, lapack_int ldt, const double* vl,
4219                            lapack_int ldvl, const double* vr, lapack_int ldvr,
4220                            double* s, double* sep, lapack_int mm,
4221                            lapack_int* m );
4222 lapack_int LAPACKE_ctrsna( int matrix_order, char job, char howmny,
4223                            const lapack_logical* select, lapack_int n,
4224                            const lapack_complex_float* t, lapack_int ldt,
4225                            const lapack_complex_float* vl, lapack_int ldvl,
4226                            const lapack_complex_float* vr, lapack_int ldvr,
4227                            float* s, float* sep, lapack_int mm, lapack_int* m );
4228 lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny,
4229                            const lapack_logical* select, lapack_int n,
4230                            const lapack_complex_double* t, lapack_int ldt,
4231                            const lapack_complex_double* vl, lapack_int ldvl,
4232                            const lapack_complex_double* vr, lapack_int ldvr,
4233                            double* s, double* sep, lapack_int mm,
4234                            lapack_int* m );
4235 
4236 lapack_int LAPACKE_strsyl( int matrix_order, char trana, char tranb,
4237                            lapack_int isgn, lapack_int m, lapack_int n,
4238                            const float* a, lapack_int lda, const float* b,
4239                            lapack_int ldb, float* c, lapack_int ldc,
4240                            float* scale );
4241 lapack_int LAPACKE_dtrsyl( int matrix_order, char trana, char tranb,
4242                            lapack_int isgn, lapack_int m, lapack_int n,
4243                            const double* a, lapack_int lda, const double* b,
4244                            lapack_int ldb, double* c, lapack_int ldc,
4245                            double* scale );
4246 lapack_int LAPACKE_ctrsyl( int matrix_order, char trana, char tranb,
4247                            lapack_int isgn, lapack_int m, lapack_int n,
4248                            const lapack_complex_float* a, lapack_int lda,
4249                            const lapack_complex_float* b, lapack_int ldb,
4250                            lapack_complex_float* c, lapack_int ldc,
4251                            float* scale );
4252 lapack_int LAPACKE_ztrsyl( int matrix_order, char trana, char tranb,
4253                            lapack_int isgn, lapack_int m, lapack_int n,
4254                            const lapack_complex_double* a, lapack_int lda,
4255                            const lapack_complex_double* b, lapack_int ldb,
4256                            lapack_complex_double* c, lapack_int ldc,
4257                            double* scale );
4258 
4259 lapack_int LAPACKE_strtri( int matrix_order, char uplo, char diag, lapack_int n,
4260                            float* a, lapack_int lda );
4261 lapack_int LAPACKE_dtrtri( int matrix_order, char uplo, char diag, lapack_int n,
4262                            double* a, lapack_int lda );
4263 lapack_int LAPACKE_ctrtri( int matrix_order, char uplo, char diag, lapack_int n,
4264                            lapack_complex_float* a, lapack_int lda );
4265 lapack_int LAPACKE_ztrtri( int matrix_order, char uplo, char diag, lapack_int n,
4266                            lapack_complex_double* a, lapack_int lda );
4267 
4268 lapack_int LAPACKE_strtrs( int matrix_order, char uplo, char trans, char diag,
4269                            lapack_int n, lapack_int nrhs, const float* a,
4270                            lapack_int lda, float* b, lapack_int ldb );
4271 lapack_int LAPACKE_dtrtrs( int matrix_order, char uplo, char trans, char diag,
4272                            lapack_int n, lapack_int nrhs, const double* a,
4273                            lapack_int lda, double* b, lapack_int ldb );
4274 lapack_int LAPACKE_ctrtrs( int matrix_order, char uplo, char trans, char diag,
4275                            lapack_int n, lapack_int nrhs,
4276                            const lapack_complex_float* a, lapack_int lda,
4277                            lapack_complex_float* b, lapack_int ldb );
4278 lapack_int LAPACKE_ztrtrs( int matrix_order, char uplo, char trans, char diag,
4279                            lapack_int n, lapack_int nrhs,
4280                            const lapack_complex_double* a, lapack_int lda,
4281                            lapack_complex_double* b, lapack_int ldb );
4282 
4283 lapack_int LAPACKE_strttf( int matrix_order, char transr, char uplo,
4284                            lapack_int n, const float* a, lapack_int lda,
4285                            float* arf );
4286 lapack_int LAPACKE_dtrttf( int matrix_order, char transr, char uplo,
4287                            lapack_int n, const double* a, lapack_int lda,
4288                            double* arf );
4289 lapack_int LAPACKE_ctrttf( int matrix_order, char transr, char uplo,
4290                            lapack_int n, const lapack_complex_float* a,
4291                            lapack_int lda, lapack_complex_float* arf );
4292 lapack_int LAPACKE_ztrttf( int matrix_order, char transr, char uplo,
4293                            lapack_int n, const lapack_complex_double* a,
4294                            lapack_int lda, lapack_complex_double* arf );
4295 
4296 lapack_int LAPACKE_strttp( int matrix_order, char uplo, lapack_int n,
4297                            const float* a, lapack_int lda, float* ap );
4298 lapack_int LAPACKE_dtrttp( int matrix_order, char uplo, lapack_int n,
4299                            const double* a, lapack_int lda, double* ap );
4300 lapack_int LAPACKE_ctrttp( int matrix_order, char uplo, lapack_int n,
4301                            const lapack_complex_float* a, lapack_int lda,
4302                            lapack_complex_float* ap );
4303 lapack_int LAPACKE_ztrttp( int matrix_order, char uplo, lapack_int n,
4304                            const lapack_complex_double* a, lapack_int lda,
4305                            lapack_complex_double* ap );
4306 
4307 lapack_int LAPACKE_stzrzf( int matrix_order, lapack_int m, lapack_int n,
4308                            float* a, lapack_int lda, float* tau );
4309 lapack_int LAPACKE_dtzrzf( int matrix_order, lapack_int m, lapack_int n,
4310                            double* a, lapack_int lda, double* tau );
4311 lapack_int LAPACKE_ctzrzf( int matrix_order, lapack_int m, lapack_int n,
4312                            lapack_complex_float* a, lapack_int lda,
4313                            lapack_complex_float* tau );
4314 lapack_int LAPACKE_ztzrzf( int matrix_order, lapack_int m, lapack_int n,
4315                            lapack_complex_double* a, lapack_int lda,
4316                            lapack_complex_double* tau );
4317 
4318 lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m,
4319                            lapack_int n, lapack_int k, lapack_complex_float* a,
4320                            lapack_int lda, const lapack_complex_float* tau );
4321 lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m,
4322                            lapack_int n, lapack_int k, lapack_complex_double* a,
4323                            lapack_int lda, const lapack_complex_double* tau );
4324 
4325 lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo,
4326                            lapack_int ihi, lapack_complex_float* a,
4327                            lapack_int lda, const lapack_complex_float* tau );
4328 lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo,
4329                            lapack_int ihi, lapack_complex_double* a,
4330                            lapack_int lda, const lapack_complex_double* tau );
4331 
4332 lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n,
4333                            lapack_int k, lapack_complex_float* a,
4334                            lapack_int lda, const lapack_complex_float* tau );
4335 lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n,
4336                            lapack_int k, lapack_complex_double* a,
4337                            lapack_int lda, const lapack_complex_double* tau );
4338 
4339 lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n,
4340                            lapack_int k, lapack_complex_float* a,
4341                            lapack_int lda, const lapack_complex_float* tau );
4342 lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n,
4343                            lapack_int k, lapack_complex_double* a,
4344                            lapack_int lda, const lapack_complex_double* tau );
4345 
4346 lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n,
4347                            lapack_int k, lapack_complex_float* a,
4348                            lapack_int lda, const lapack_complex_float* tau );
4349 lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n,
4350                            lapack_int k, lapack_complex_double* a,
4351                            lapack_int lda, const lapack_complex_double* tau );
4352 
4353 lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n,
4354                            lapack_int k, lapack_complex_float* a,
4355                            lapack_int lda, const lapack_complex_float* tau );
4356 lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n,
4357                            lapack_int k, lapack_complex_double* a,
4358                            lapack_int lda, const lapack_complex_double* tau );
4359 
4360 lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n,
4361                            lapack_complex_float* a, lapack_int lda,
4362                            const lapack_complex_float* tau );
4363 lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n,
4364                            lapack_complex_double* a, lapack_int lda,
4365                            const lapack_complex_double* tau );
4366 
4367 lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans,
4368                            lapack_int m, lapack_int n, lapack_int k,
4369                            const lapack_complex_float* a, lapack_int lda,
4370                            const lapack_complex_float* tau,
4371                            lapack_complex_float* c, lapack_int ldc );
4372 lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans,
4373                            lapack_int m, lapack_int n, lapack_int k,
4374                            const lapack_complex_double* a, lapack_int lda,
4375                            const lapack_complex_double* tau,
4376                            lapack_complex_double* c, lapack_int ldc );
4377 
4378 lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans,
4379                            lapack_int m, lapack_int n, lapack_int ilo,
4380                            lapack_int ihi, const lapack_complex_float* a,
4381                            lapack_int lda, const lapack_complex_float* tau,
4382                            lapack_complex_float* c, lapack_int ldc );
4383 lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans,
4384                            lapack_int m, lapack_int n, lapack_int ilo,
4385                            lapack_int ihi, const lapack_complex_double* a,
4386                            lapack_int lda, const lapack_complex_double* tau,
4387                            lapack_complex_double* c, lapack_int ldc );
4388 
4389 lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans,
4390                            lapack_int m, lapack_int n, lapack_int k,
4391                            const lapack_complex_float* a, lapack_int lda,
4392                            const lapack_complex_float* tau,
4393                            lapack_complex_float* c, lapack_int ldc );
4394 lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans,
4395                            lapack_int m, lapack_int n, lapack_int k,
4396                            const lapack_complex_double* a, lapack_int lda,
4397                            const lapack_complex_double* tau,
4398                            lapack_complex_double* c, lapack_int ldc );
4399 
4400 lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans,
4401                            lapack_int m, lapack_int n, lapack_int k,
4402                            const lapack_complex_float* a, lapack_int lda,
4403                            const lapack_complex_float* tau,
4404                            lapack_complex_float* c, lapack_int ldc );
4405 lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans,
4406                            lapack_int m, lapack_int n, lapack_int k,
4407                            const lapack_complex_double* a, lapack_int lda,
4408                            const lapack_complex_double* tau,
4409                            lapack_complex_double* c, lapack_int ldc );
4410 
4411 lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans,
4412                            lapack_int m, lapack_int n, lapack_int k,
4413                            const lapack_complex_float* a, lapack_int lda,
4414                            const lapack_complex_float* tau,
4415                            lapack_complex_float* c, lapack_int ldc );
4416 lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans,
4417                            lapack_int m, lapack_int n, lapack_int k,
4418                            const lapack_complex_double* a, lapack_int lda,
4419                            const lapack_complex_double* tau,
4420                            lapack_complex_double* c, lapack_int ldc );
4421 
4422 lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans,
4423                            lapack_int m, lapack_int n, lapack_int k,
4424                            const lapack_complex_float* a, lapack_int lda,
4425                            const lapack_complex_float* tau,
4426                            lapack_complex_float* c, lapack_int ldc );
4427 lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans,
4428                            lapack_int m, lapack_int n, lapack_int k,
4429                            const lapack_complex_double* a, lapack_int lda,
4430                            const lapack_complex_double* tau,
4431                            lapack_complex_double* c, lapack_int ldc );
4432 
4433 lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans,
4434                            lapack_int m, lapack_int n, lapack_int k,
4435                            lapack_int l, const lapack_complex_float* a,
4436                            lapack_int lda, const lapack_complex_float* tau,
4437                            lapack_complex_float* c, lapack_int ldc );
4438 lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans,
4439                            lapack_int m, lapack_int n, lapack_int k,
4440                            lapack_int l, const lapack_complex_double* a,
4441                            lapack_int lda, const lapack_complex_double* tau,
4442                            lapack_complex_double* c, lapack_int ldc );
4443 
4444 lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans,
4445                            lapack_int m, lapack_int n,
4446                            const lapack_complex_float* a, lapack_int lda,
4447                            const lapack_complex_float* tau,
4448                            lapack_complex_float* c, lapack_int ldc );
4449 lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans,
4450                            lapack_int m, lapack_int n,
4451                            const lapack_complex_double* a, lapack_int lda,
4452                            const lapack_complex_double* tau,
4453                            lapack_complex_double* c, lapack_int ldc );
4454 
4455 lapack_int LAPACKE_cupgtr( int matrix_order, char uplo, lapack_int n,
4456                            const lapack_complex_float* ap,
4457                            const lapack_complex_float* tau,
4458                            lapack_complex_float* q, lapack_int ldq );
4459 lapack_int LAPACKE_zupgtr( int matrix_order, char uplo, lapack_int n,
4460                            const lapack_complex_double* ap,
4461                            const lapack_complex_double* tau,
4462                            lapack_complex_double* q, lapack_int ldq );
4463 
4464 lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans,
4465                            lapack_int m, lapack_int n,
4466                            const lapack_complex_float* ap,
4467                            const lapack_complex_float* tau,
4468                            lapack_complex_float* c, lapack_int ldc );
4469 lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans,
4470                            lapack_int m, lapack_int n,
4471                            const lapack_complex_double* ap,
4472                            const lapack_complex_double* tau,
4473                            lapack_complex_double* c, lapack_int ldc );
4474 
4475 lapack_int LAPACKE_sbdsdc_work( int matrix_order, char uplo, char compq,
4476                                 lapack_int n, float* d, float* e, float* u,
4477                                 lapack_int ldu, float* vt, lapack_int ldvt,
4478                                 float* q, lapack_int* iq, float* work,
4479                                 lapack_int* iwork );
4480 lapack_int LAPACKE_dbdsdc_work( int matrix_order, char uplo, char compq,
4481                                 lapack_int n, double* d, double* e, double* u,
4482                                 lapack_int ldu, double* vt, lapack_int ldvt,
4483                                 double* q, lapack_int* iq, double* work,
4484                                 lapack_int* iwork );
4485 
4486 lapack_int LAPACKE_sbdsqr_work( int matrix_order, char uplo, lapack_int n,
4487                                 lapack_int ncvt, lapack_int nru, lapack_int ncc,
4488                                 float* d, float* e, float* vt, lapack_int ldvt,
4489                                 float* u, lapack_int ldu, float* c,
4490                                 lapack_int ldc, float* work );
4491 lapack_int LAPACKE_dbdsqr_work( int matrix_order, char uplo, lapack_int n,
4492                                 lapack_int ncvt, lapack_int nru, lapack_int ncc,
4493                                 double* d, double* e, double* vt,
4494                                 lapack_int ldvt, double* u, lapack_int ldu,
4495                                 double* c, lapack_int ldc, double* work );
4496 lapack_int LAPACKE_cbdsqr_work( int matrix_order, char uplo, lapack_int n,
4497                                 lapack_int ncvt, lapack_int nru, lapack_int ncc,
4498                                 float* d, float* e, lapack_complex_float* vt,
4499                                 lapack_int ldvt, lapack_complex_float* u,
4500                                 lapack_int ldu, lapack_complex_float* c,
4501                                 lapack_int ldc, float* work );
4502 lapack_int LAPACKE_zbdsqr_work( int matrix_order, char uplo, lapack_int n,
4503                                 lapack_int ncvt, lapack_int nru, lapack_int ncc,
4504                                 double* d, double* e, lapack_complex_double* vt,
4505                                 lapack_int ldvt, lapack_complex_double* u,
4506                                 lapack_int ldu, lapack_complex_double* c,
4507                                 lapack_int ldc, double* work );
4508 
4509 lapack_int LAPACKE_sdisna_work( char job, lapack_int m, lapack_int n,
4510                                 const float* d, float* sep );
4511 lapack_int LAPACKE_ddisna_work( char job, lapack_int m, lapack_int n,
4512                                 const double* d, double* sep );
4513 
4514 lapack_int LAPACKE_sgbbrd_work( int matrix_order, char vect, lapack_int m,
4515                                 lapack_int n, lapack_int ncc, lapack_int kl,
4516                                 lapack_int ku, float* ab, lapack_int ldab,
4517                                 float* d, float* e, float* q, lapack_int ldq,
4518                                 float* pt, lapack_int ldpt, float* c,
4519                                 lapack_int ldc, float* work );
4520 lapack_int LAPACKE_dgbbrd_work( int matrix_order, char vect, lapack_int m,
4521                                 lapack_int n, lapack_int ncc, lapack_int kl,
4522                                 lapack_int ku, double* ab, lapack_int ldab,
4523                                 double* d, double* e, double* q, lapack_int ldq,
4524                                 double* pt, lapack_int ldpt, double* c,
4525                                 lapack_int ldc, double* work );
4526 lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m,
4527                                 lapack_int n, lapack_int ncc, lapack_int kl,
4528                                 lapack_int ku, lapack_complex_float* ab,
4529                                 lapack_int ldab, float* d, float* e,
4530                                 lapack_complex_float* q, lapack_int ldq,
4531                                 lapack_complex_float* pt, lapack_int ldpt,
4532                                 lapack_complex_float* c, lapack_int ldc,
4533                                 lapack_complex_float* work, float* rwork );
4534 lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m,
4535                                 lapack_int n, lapack_int ncc, lapack_int kl,
4536                                 lapack_int ku, lapack_complex_double* ab,
4537                                 lapack_int ldab, double* d, double* e,
4538                                 lapack_complex_double* q, lapack_int ldq,
4539                                 lapack_complex_double* pt, lapack_int ldpt,
4540                                 lapack_complex_double* c, lapack_int ldc,
4541                                 lapack_complex_double* work, double* rwork );
4542 
4543 lapack_int LAPACKE_sgbcon_work( int matrix_order, char norm, lapack_int n,
4544                                 lapack_int kl, lapack_int ku, const float* ab,
4545                                 lapack_int ldab, const lapack_int* ipiv,
4546                                 float anorm, float* rcond, float* work,
4547                                 lapack_int* iwork );
4548 lapack_int LAPACKE_dgbcon_work( int matrix_order, char norm, lapack_int n,
4549                                 lapack_int kl, lapack_int ku, const double* ab,
4550                                 lapack_int ldab, const lapack_int* ipiv,
4551                                 double anorm, double* rcond, double* work,
4552                                 lapack_int* iwork );
4553 lapack_int LAPACKE_cgbcon_work( int matrix_order, char norm, lapack_int n,
4554                                 lapack_int kl, lapack_int ku,
4555                                 const lapack_complex_float* ab, lapack_int ldab,
4556                                 const lapack_int* ipiv, float anorm,
4557                                 float* rcond, lapack_complex_float* work,
4558                                 float* rwork );
4559 lapack_int LAPACKE_zgbcon_work( int matrix_order, char norm, lapack_int n,
4560                                 lapack_int kl, lapack_int ku,
4561                                 const lapack_complex_double* ab,
4562                                 lapack_int ldab, const lapack_int* ipiv,
4563                                 double anorm, double* rcond,
4564                                 lapack_complex_double* work, double* rwork );
4565 
4566 lapack_int LAPACKE_sgbequ_work( int matrix_order, lapack_int m, lapack_int n,
4567                                 lapack_int kl, lapack_int ku, const float* ab,
4568                                 lapack_int ldab, float* r, float* c,
4569                                 float* rowcnd, float* colcnd, float* amax );
4570 lapack_int LAPACKE_dgbequ_work( int matrix_order, lapack_int m, lapack_int n,
4571                                 lapack_int kl, lapack_int ku, const double* ab,
4572                                 lapack_int ldab, double* r, double* c,
4573                                 double* rowcnd, double* colcnd, double* amax );
4574 lapack_int LAPACKE_cgbequ_work( int matrix_order, lapack_int m, lapack_int n,
4575                                 lapack_int kl, lapack_int ku,
4576                                 const lapack_complex_float* ab, lapack_int ldab,
4577                                 float* r, float* c, float* rowcnd,
4578                                 float* colcnd, float* amax );
4579 lapack_int LAPACKE_zgbequ_work( int matrix_order, lapack_int m, lapack_int n,
4580                                 lapack_int kl, lapack_int ku,
4581                                 const lapack_complex_double* ab,
4582                                 lapack_int ldab, double* r, double* c,
4583                                 double* rowcnd, double* colcnd, double* amax );
4584 
4585 lapack_int LAPACKE_sgbequb_work( int matrix_order, lapack_int m, lapack_int n,
4586                                  lapack_int kl, lapack_int ku, const float* ab,
4587                                  lapack_int ldab, float* r, float* c,
4588                                  float* rowcnd, float* colcnd, float* amax );
4589 lapack_int LAPACKE_dgbequb_work( int matrix_order, lapack_int m, lapack_int n,
4590                                  lapack_int kl, lapack_int ku, const double* ab,
4591                                  lapack_int ldab, double* r, double* c,
4592                                  double* rowcnd, double* colcnd, double* amax );
4593 lapack_int LAPACKE_cgbequb_work( int matrix_order, lapack_int m, lapack_int n,
4594                                  lapack_int kl, lapack_int ku,
4595                                  const lapack_complex_float* ab,
4596                                  lapack_int ldab, float* r, float* c,
4597                                  float* rowcnd, float* colcnd, float* amax );
4598 lapack_int LAPACKE_zgbequb_work( int matrix_order, lapack_int m, lapack_int n,
4599                                  lapack_int kl, lapack_int ku,
4600                                  const lapack_complex_double* ab,
4601                                  lapack_int ldab, double* r, double* c,
4602                                  double* rowcnd, double* colcnd, double* amax );
4603 
4604 lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n,
4605                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4606                                 const float* ab, lapack_int ldab,
4607                                 const float* afb, lapack_int ldafb,
4608                                 const lapack_int* ipiv, const float* b,
4609                                 lapack_int ldb, float* x, lapack_int ldx,
4610                                 float* ferr, float* berr, float* work,
4611                                 lapack_int* iwork );
4612 lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n,
4613                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4614                                 const double* ab, lapack_int ldab,
4615                                 const double* afb, lapack_int ldafb,
4616                                 const lapack_int* ipiv, const double* b,
4617                                 lapack_int ldb, double* x, lapack_int ldx,
4618                                 double* ferr, double* berr, double* work,
4619                                 lapack_int* iwork );
4620 lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n,
4621                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4622                                 const lapack_complex_float* ab, lapack_int ldab,
4623                                 const lapack_complex_float* afb,
4624                                 lapack_int ldafb, const lapack_int* ipiv,
4625                                 const lapack_complex_float* b, lapack_int ldb,
4626                                 lapack_complex_float* x, lapack_int ldx,
4627                                 float* ferr, float* berr,
4628                                 lapack_complex_float* work, float* rwork );
4629 lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n,
4630                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4631                                 const lapack_complex_double* ab,
4632                                 lapack_int ldab,
4633                                 const lapack_complex_double* afb,
4634                                 lapack_int ldafb, const lapack_int* ipiv,
4635                                 const lapack_complex_double* b, lapack_int ldb,
4636                                 lapack_complex_double* x, lapack_int ldx,
4637                                 double* ferr, double* berr,
4638                                 lapack_complex_double* work, double* rwork );
4639 
4640 lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed,
4641                                  lapack_int n, lapack_int kl, lapack_int ku,
4642                                  lapack_int nrhs, const float* ab,
4643                                  lapack_int ldab, const float* afb,
4644                                  lapack_int ldafb, const lapack_int* ipiv,
4645                                  const float* r, const float* c, const float* b,
4646                                  lapack_int ldb, float* x, lapack_int ldx,
4647                                  float* rcond, float* berr,
4648                                  lapack_int n_err_bnds, float* err_bnds_norm,
4649                                  float* err_bnds_comp, lapack_int nparams,
4650                                  float* params, float* work,
4651                                  lapack_int* iwork );
4652 lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed,
4653                                  lapack_int n, lapack_int kl, lapack_int ku,
4654                                  lapack_int nrhs, const double* ab,
4655                                  lapack_int ldab, const double* afb,
4656                                  lapack_int ldafb, const lapack_int* ipiv,
4657                                  const double* r, const double* c,
4658                                  const double* b, lapack_int ldb, double* x,
4659                                  lapack_int ldx, double* rcond, double* berr,
4660                                  lapack_int n_err_bnds, double* err_bnds_norm,
4661                                  double* err_bnds_comp, lapack_int nparams,
4662                                  double* params, double* work,
4663                                  lapack_int* iwork );
4664 lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed,
4665                                  lapack_int n, lapack_int kl, lapack_int ku,
4666                                  lapack_int nrhs,
4667                                  const lapack_complex_float* ab,
4668                                  lapack_int ldab,
4669                                  const lapack_complex_float* afb,
4670                                  lapack_int ldafb, const lapack_int* ipiv,
4671                                  const float* r, const float* c,
4672                                  const lapack_complex_float* b, lapack_int ldb,
4673                                  lapack_complex_float* x, lapack_int ldx,
4674                                  float* rcond, float* berr,
4675                                  lapack_int n_err_bnds, float* err_bnds_norm,
4676                                  float* err_bnds_comp, lapack_int nparams,
4677                                  float* params, lapack_complex_float* work,
4678                                  float* rwork );
4679 lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed,
4680                                  lapack_int n, lapack_int kl, lapack_int ku,
4681                                  lapack_int nrhs,
4682                                  const lapack_complex_double* ab,
4683                                  lapack_int ldab,
4684                                  const lapack_complex_double* afb,
4685                                  lapack_int ldafb, const lapack_int* ipiv,
4686                                  const double* r, const double* c,
4687                                  const lapack_complex_double* b, lapack_int ldb,
4688                                  lapack_complex_double* x, lapack_int ldx,
4689                                  double* rcond, double* berr,
4690                                  lapack_int n_err_bnds, double* err_bnds_norm,
4691                                  double* err_bnds_comp, lapack_int nparams,
4692                                  double* params, lapack_complex_double* work,
4693                                  double* rwork );
4694 
4695 lapack_int LAPACKE_sgbsv_work( int matrix_order, lapack_int n, lapack_int kl,
4696                                lapack_int ku, lapack_int nrhs, float* ab,
4697                                lapack_int ldab, lapack_int* ipiv, float* b,
4698                                lapack_int ldb );
4699 lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl,
4700                                lapack_int ku, lapack_int nrhs, double* ab,
4701                                lapack_int ldab, lapack_int* ipiv, double* b,
4702                                lapack_int ldb );
4703 lapack_int LAPACKE_cgbsv_work( int matrix_order, lapack_int n, lapack_int kl,
4704                                lapack_int ku, lapack_int nrhs,
4705                                lapack_complex_float* ab, lapack_int ldab,
4706                                lapack_int* ipiv, lapack_complex_float* b,
4707                                lapack_int ldb );
4708 lapack_int LAPACKE_zgbsv_work( int matrix_order, lapack_int n, lapack_int kl,
4709                                lapack_int ku, lapack_int nrhs,
4710                                lapack_complex_double* ab, lapack_int ldab,
4711                                lapack_int* ipiv, lapack_complex_double* b,
4712                                lapack_int ldb );
4713 
4714 lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans,
4715                                 lapack_int n, lapack_int kl, lapack_int ku,
4716                                 lapack_int nrhs, float* ab, lapack_int ldab,
4717                                 float* afb, lapack_int ldafb, lapack_int* ipiv,
4718                                 char* equed, float* r, float* c, float* b,
4719                                 lapack_int ldb, float* x, lapack_int ldx,
4720                                 float* rcond, float* ferr, float* berr,
4721                                 float* work, lapack_int* iwork );
4722 lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans,
4723                                 lapack_int n, lapack_int kl, lapack_int ku,
4724                                 lapack_int nrhs, double* ab, lapack_int ldab,
4725                                 double* afb, lapack_int ldafb, lapack_int* ipiv,
4726                                 char* equed, double* r, double* c, double* b,
4727                                 lapack_int ldb, double* x, lapack_int ldx,
4728                                 double* rcond, double* ferr, double* berr,
4729                                 double* work, lapack_int* iwork );
4730 lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans,
4731                                 lapack_int n, lapack_int kl, lapack_int ku,
4732                                 lapack_int nrhs, lapack_complex_float* ab,
4733                                 lapack_int ldab, lapack_complex_float* afb,
4734                                 lapack_int ldafb, lapack_int* ipiv, char* equed,
4735                                 float* r, float* c, lapack_complex_float* b,
4736                                 lapack_int ldb, lapack_complex_float* x,
4737                                 lapack_int ldx, float* rcond, float* ferr,
4738                                 float* berr, lapack_complex_float* work,
4739                                 float* rwork );
4740 lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans,
4741                                 lapack_int n, lapack_int kl, lapack_int ku,
4742                                 lapack_int nrhs, lapack_complex_double* ab,
4743                                 lapack_int ldab, lapack_complex_double* afb,
4744                                 lapack_int ldafb, lapack_int* ipiv, char* equed,
4745                                 double* r, double* c, lapack_complex_double* b,
4746                                 lapack_int ldb, lapack_complex_double* x,
4747                                 lapack_int ldx, double* rcond, double* ferr,
4748                                 double* berr, lapack_complex_double* work,
4749                                 double* rwork );
4750 
4751 lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans,
4752                                  lapack_int n, lapack_int kl, lapack_int ku,
4753                                  lapack_int nrhs, float* ab, lapack_int ldab,
4754                                  float* afb, lapack_int ldafb, lapack_int* ipiv,
4755                                  char* equed, float* r, float* c, float* b,
4756                                  lapack_int ldb, float* x, lapack_int ldx,
4757                                  float* rcond, float* rpvgrw, float* berr,
4758                                  lapack_int n_err_bnds, float* err_bnds_norm,
4759                                  float* err_bnds_comp, lapack_int nparams,
4760                                  float* params, float* work,
4761                                  lapack_int* iwork );
4762 lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans,
4763                                  lapack_int n, lapack_int kl, lapack_int ku,
4764                                  lapack_int nrhs, double* ab, lapack_int ldab,
4765                                  double* afb, lapack_int ldafb,
4766                                  lapack_int* ipiv, char* equed, double* r,
4767                                  double* c, double* b, lapack_int ldb,
4768                                  double* x, lapack_int ldx, double* rcond,
4769                                  double* rpvgrw, double* berr,
4770                                  lapack_int n_err_bnds, double* err_bnds_norm,
4771                                  double* err_bnds_comp, lapack_int nparams,
4772                                  double* params, double* work,
4773                                  lapack_int* iwork );
4774 lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans,
4775                                  lapack_int n, lapack_int kl, lapack_int ku,
4776                                  lapack_int nrhs, lapack_complex_float* ab,
4777                                  lapack_int ldab, lapack_complex_float* afb,
4778                                  lapack_int ldafb, lapack_int* ipiv,
4779                                  char* equed, float* r, float* c,
4780                                  lapack_complex_float* b, lapack_int ldb,
4781                                  lapack_complex_float* x, lapack_int ldx,
4782                                  float* rcond, float* rpvgrw, float* berr,
4783                                  lapack_int n_err_bnds, float* err_bnds_norm,
4784                                  float* err_bnds_comp, lapack_int nparams,
4785                                  float* params, lapack_complex_float* work,
4786                                  float* rwork );
4787 lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans,
4788                                  lapack_int n, lapack_int kl, lapack_int ku,
4789                                  lapack_int nrhs, lapack_complex_double* ab,
4790                                  lapack_int ldab, lapack_complex_double* afb,
4791                                  lapack_int ldafb, lapack_int* ipiv,
4792                                  char* equed, double* r, double* c,
4793                                  lapack_complex_double* b, lapack_int ldb,
4794                                  lapack_complex_double* x, lapack_int ldx,
4795                                  double* rcond, double* rpvgrw, double* berr,
4796                                  lapack_int n_err_bnds, double* err_bnds_norm,
4797                                  double* err_bnds_comp, lapack_int nparams,
4798                                  double* params, lapack_complex_double* work,
4799                                  double* rwork );
4800 
4801 lapack_int LAPACKE_sgbtrf_work( int matrix_order, lapack_int m, lapack_int n,
4802                                 lapack_int kl, lapack_int ku, float* ab,
4803                                 lapack_int ldab, lapack_int* ipiv );
4804 lapack_int LAPACKE_dgbtrf_work( int matrix_order, lapack_int m, lapack_int n,
4805                                 lapack_int kl, lapack_int ku, double* ab,
4806                                 lapack_int ldab, lapack_int* ipiv );
4807 lapack_int LAPACKE_cgbtrf_work( int matrix_order, lapack_int m, lapack_int n,
4808                                 lapack_int kl, lapack_int ku,
4809                                 lapack_complex_float* ab, lapack_int ldab,
4810                                 lapack_int* ipiv );
4811 lapack_int LAPACKE_zgbtrf_work( int matrix_order, lapack_int m, lapack_int n,
4812                                 lapack_int kl, lapack_int ku,
4813                                 lapack_complex_double* ab, lapack_int ldab,
4814                                 lapack_int* ipiv );
4815 
4816 lapack_int LAPACKE_sgbtrs_work( int matrix_order, char trans, lapack_int n,
4817                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4818                                 const float* ab, lapack_int ldab,
4819                                 const lapack_int* ipiv, float* b,
4820                                 lapack_int ldb );
4821 lapack_int LAPACKE_dgbtrs_work( int matrix_order, char trans, lapack_int n,
4822                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4823                                 const double* ab, lapack_int ldab,
4824                                 const lapack_int* ipiv, double* b,
4825                                 lapack_int ldb );
4826 lapack_int LAPACKE_cgbtrs_work( int matrix_order, char trans, lapack_int n,
4827                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4828                                 const lapack_complex_float* ab, lapack_int ldab,
4829                                 const lapack_int* ipiv, lapack_complex_float* b,
4830                                 lapack_int ldb );
4831 lapack_int LAPACKE_zgbtrs_work( int matrix_order, char trans, lapack_int n,
4832                                 lapack_int kl, lapack_int ku, lapack_int nrhs,
4833                                 const lapack_complex_double* ab,
4834                                 lapack_int ldab, const lapack_int* ipiv,
4835                                 lapack_complex_double* b, lapack_int ldb );
4836 
4837 lapack_int LAPACKE_sgebak_work( int matrix_order, char job, char side,
4838                                 lapack_int n, lapack_int ilo, lapack_int ihi,
4839                                 const float* scale, lapack_int m, float* v,
4840                                 lapack_int ldv );
4841 lapack_int LAPACKE_dgebak_work( int matrix_order, char job, char side,
4842                                 lapack_int n, lapack_int ilo, lapack_int ihi,
4843                                 const double* scale, lapack_int m, double* v,
4844                                 lapack_int ldv );
4845 lapack_int LAPACKE_cgebak_work( int matrix_order, char job, char side,
4846                                 lapack_int n, lapack_int ilo, lapack_int ihi,
4847                                 const float* scale, lapack_int m,
4848                                 lapack_complex_float* v, lapack_int ldv );
4849 lapack_int LAPACKE_zgebak_work( int matrix_order, char job, char side,
4850                                 lapack_int n, lapack_int ilo, lapack_int ihi,
4851                                 const double* scale, lapack_int m,
4852                                 lapack_complex_double* v, lapack_int ldv );
4853 
4854 lapack_int LAPACKE_sgebal_work( int matrix_order, char job, lapack_int n,
4855                                 float* a, lapack_int lda, lapack_int* ilo,
4856                                 lapack_int* ihi, float* scale );
4857 lapack_int LAPACKE_dgebal_work( int matrix_order, char job, lapack_int n,
4858                                 double* a, lapack_int lda, lapack_int* ilo,
4859                                 lapack_int* ihi, double* scale );
4860 lapack_int LAPACKE_cgebal_work( int matrix_order, char job, lapack_int n,
4861                                 lapack_complex_float* a, lapack_int lda,
4862                                 lapack_int* ilo, lapack_int* ihi,
4863                                 float* scale );
4864 lapack_int LAPACKE_zgebal_work( int matrix_order, char job, lapack_int n,
4865                                 lapack_complex_double* a, lapack_int lda,
4866                                 lapack_int* ilo, lapack_int* ihi,
4867                                 double* scale );
4868 
4869 lapack_int LAPACKE_sgebrd_work( int matrix_order, lapack_int m, lapack_int n,
4870                                 float* a, lapack_int lda, float* d, float* e,
4871                                 float* tauq, float* taup, float* work,
4872                                 lapack_int lwork );
4873 lapack_int LAPACKE_dgebrd_work( int matrix_order, lapack_int m, lapack_int n,
4874                                 double* a, lapack_int lda, double* d, double* e,
4875                                 double* tauq, double* taup, double* work,
4876                                 lapack_int lwork );
4877 lapack_int LAPACKE_cgebrd_work( int matrix_order, lapack_int m, lapack_int n,
4878                                 lapack_complex_float* a, lapack_int lda,
4879                                 float* d, float* e, lapack_complex_float* tauq,
4880                                 lapack_complex_float* taup,
4881                                 lapack_complex_float* work, lapack_int lwork );
4882 lapack_int LAPACKE_zgebrd_work( int matrix_order, lapack_int m, lapack_int n,
4883                                 lapack_complex_double* a, lapack_int lda,
4884                                 double* d, double* e,
4885                                 lapack_complex_double* tauq,
4886                                 lapack_complex_double* taup,
4887                                 lapack_complex_double* work, lapack_int lwork );
4888 
4889 lapack_int LAPACKE_sgecon_work( int matrix_order, char norm, lapack_int n,
4890                                 const float* a, lapack_int lda, float anorm,
4891                                 float* rcond, float* work, lapack_int* iwork );
4892 lapack_int LAPACKE_dgecon_work( int matrix_order, char norm, lapack_int n,
4893                                 const double* a, lapack_int lda, double anorm,
4894                                 double* rcond, double* work,
4895                                 lapack_int* iwork );
4896 lapack_int LAPACKE_cgecon_work( int matrix_order, char norm, lapack_int n,
4897                                 const lapack_complex_float* a, lapack_int lda,
4898                                 float anorm, float* rcond,
4899                                 lapack_complex_float* work, float* rwork );
4900 lapack_int LAPACKE_zgecon_work( int matrix_order, char norm, lapack_int n,
4901                                 const lapack_complex_double* a, lapack_int lda,
4902                                 double anorm, double* rcond,
4903                                 lapack_complex_double* work, double* rwork );
4904 
4905 lapack_int LAPACKE_sgeequ_work( int matrix_order, lapack_int m, lapack_int n,
4906                                 const float* a, lapack_int lda, float* r,
4907                                 float* c, float* rowcnd, float* colcnd,
4908                                 float* amax );
4909 lapack_int LAPACKE_dgeequ_work( int matrix_order, lapack_int m, lapack_int n,
4910                                 const double* a, lapack_int lda, double* r,
4911                                 double* c, double* rowcnd, double* colcnd,
4912                                 double* amax );
4913 lapack_int LAPACKE_cgeequ_work( int matrix_order, lapack_int m, lapack_int n,
4914                                 const lapack_complex_float* a, lapack_int lda,
4915                                 float* r, float* c, float* rowcnd,
4916                                 float* colcnd, float* amax );
4917 lapack_int LAPACKE_zgeequ_work( int matrix_order, lapack_int m, lapack_int n,
4918                                 const lapack_complex_double* a, lapack_int lda,
4919                                 double* r, double* c, double* rowcnd,
4920                                 double* colcnd, double* amax );
4921 
4922 lapack_int LAPACKE_sgeequb_work( int matrix_order, lapack_int m, lapack_int n,
4923                                  const float* a, lapack_int lda, float* r,
4924                                  float* c, float* rowcnd, float* colcnd,
4925                                  float* amax );
4926 lapack_int LAPACKE_dgeequb_work( int matrix_order, lapack_int m, lapack_int n,
4927                                  const double* a, lapack_int lda, double* r,
4928                                  double* c, double* rowcnd, double* colcnd,
4929                                  double* amax );
4930 lapack_int LAPACKE_cgeequb_work( int matrix_order, lapack_int m, lapack_int n,
4931                                  const lapack_complex_float* a, lapack_int lda,
4932                                  float* r, float* c, float* rowcnd,
4933                                  float* colcnd, float* amax );
4934 lapack_int LAPACKE_zgeequb_work( int matrix_order, lapack_int m, lapack_int n,
4935                                  const lapack_complex_double* a, lapack_int lda,
4936                                  double* r, double* c, double* rowcnd,
4937                                  double* colcnd, double* amax );
4938 
4939 lapack_int LAPACKE_sgees_work( int matrix_order, char jobvs, char sort,
4940                                LAPACK_S_SELECT2 select, lapack_int n, float* a,
4941                                lapack_int lda, lapack_int* sdim, float* wr,
4942                                float* wi, float* vs, lapack_int ldvs,
4943                                float* work, lapack_int lwork,
4944                                lapack_logical* bwork );
4945 lapack_int LAPACKE_dgees_work( int matrix_order, char jobvs, char sort,
4946                                LAPACK_D_SELECT2 select, lapack_int n, double* a,
4947                                lapack_int lda, lapack_int* sdim, double* wr,
4948                                double* wi, double* vs, lapack_int ldvs,
4949                                double* work, lapack_int lwork,
4950                                lapack_logical* bwork );
4951 lapack_int LAPACKE_cgees_work( int matrix_order, char jobvs, char sort,
4952                                LAPACK_C_SELECT1 select, lapack_int n,
4953                                lapack_complex_float* a, lapack_int lda,
4954                                lapack_int* sdim, lapack_complex_float* w,
4955                                lapack_complex_float* vs, lapack_int ldvs,
4956                                lapack_complex_float* work, lapack_int lwork,
4957                                float* rwork, lapack_logical* bwork );
4958 lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort,
4959                                LAPACK_Z_SELECT1 select, lapack_int n,
4960                                lapack_complex_double* a, lapack_int lda,
4961                                lapack_int* sdim, lapack_complex_double* w,
4962                                lapack_complex_double* vs, lapack_int ldvs,
4963                                lapack_complex_double* work, lapack_int lwork,
4964                                double* rwork, lapack_logical* bwork );
4965 
4966 lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort,
4967                                 LAPACK_S_SELECT2 select, char sense,
4968                                 lapack_int n, float* a, lapack_int lda,
4969                                 lapack_int* sdim, float* wr, float* wi,
4970                                 float* vs, lapack_int ldvs, float* rconde,
4971                                 float* rcondv, float* work, lapack_int lwork,
4972                                 lapack_int* iwork, lapack_int liwork,
4973                                 lapack_logical* bwork );
4974 lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort,
4975                                 LAPACK_D_SELECT2 select, char sense,
4976                                 lapack_int n, double* a, lapack_int lda,
4977                                 lapack_int* sdim, double* wr, double* wi,
4978                                 double* vs, lapack_int ldvs, double* rconde,
4979                                 double* rcondv, double* work, lapack_int lwork,
4980                                 lapack_int* iwork, lapack_int liwork,
4981                                 lapack_logical* bwork );
4982 lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort,
4983                                 LAPACK_C_SELECT1 select, char sense,
4984                                 lapack_int n, lapack_complex_float* a,
4985                                 lapack_int lda, lapack_int* sdim,
4986                                 lapack_complex_float* w,
4987                                 lapack_complex_float* vs, lapack_int ldvs,
4988                                 float* rconde, float* rcondv,
4989                                 lapack_complex_float* work, lapack_int lwork,
4990                                 float* rwork, lapack_logical* bwork );
4991 lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort,
4992                                 LAPACK_Z_SELECT1 select, char sense,
4993                                 lapack_int n, lapack_complex_double* a,
4994                                 lapack_int lda, lapack_int* sdim,
4995                                 lapack_complex_double* w,
4996                                 lapack_complex_double* vs, lapack_int ldvs,
4997                                 double* rconde, double* rcondv,
4998                                 lapack_complex_double* work, lapack_int lwork,
4999                                 double* rwork, lapack_logical* bwork );
5000 
5001 lapack_int LAPACKE_sgeev_work( int matrix_order, char jobvl, char jobvr,
5002                                lapack_int n, float* a, lapack_int lda,
5003                                float* wr, float* wi, float* vl, lapack_int ldvl,
5004                                float* vr, lapack_int ldvr, float* work,
5005                                lapack_int lwork );
5006 lapack_int LAPACKE_dgeev_work( int matrix_order, char jobvl, char jobvr,
5007                                lapack_int n, double* a, lapack_int lda,
5008                                double* wr, double* wi, double* vl,
5009                                lapack_int ldvl, double* vr, lapack_int ldvr,
5010                                double* work, lapack_int lwork );
5011 lapack_int LAPACKE_cgeev_work( int matrix_order, char jobvl, char jobvr,
5012                                lapack_int n, lapack_complex_float* a,
5013                                lapack_int lda, lapack_complex_float* w,
5014                                lapack_complex_float* vl, lapack_int ldvl,
5015                                lapack_complex_float* vr, lapack_int ldvr,
5016                                lapack_complex_float* work, lapack_int lwork,
5017                                float* rwork );
5018 lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr,
5019                                lapack_int n, lapack_complex_double* a,
5020                                lapack_int lda, lapack_complex_double* w,
5021                                lapack_complex_double* vl, lapack_int ldvl,
5022                                lapack_complex_double* vr, lapack_int ldvr,
5023                                lapack_complex_double* work, lapack_int lwork,
5024                                double* rwork );
5025 
5026 lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl,
5027                                 char jobvr, char sense, lapack_int n, float* a,
5028                                 lapack_int lda, float* wr, float* wi, float* vl,
5029                                 lapack_int ldvl, float* vr, lapack_int ldvr,
5030                                 lapack_int* ilo, lapack_int* ihi, float* scale,
5031                                 float* abnrm, float* rconde, float* rcondv,
5032                                 float* work, lapack_int lwork,
5033                                 lapack_int* iwork );
5034 lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl,
5035                                 char jobvr, char sense, lapack_int n, double* a,
5036                                 lapack_int lda, double* wr, double* wi,
5037                                 double* vl, lapack_int ldvl, double* vr,
5038                                 lapack_int ldvr, lapack_int* ilo,
5039                                 lapack_int* ihi, double* scale, double* abnrm,
5040                                 double* rconde, double* rcondv, double* work,
5041                                 lapack_int lwork, lapack_int* iwork );
5042 lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl,
5043                                 char jobvr, char sense, lapack_int n,
5044                                 lapack_complex_float* a, lapack_int lda,
5045                                 lapack_complex_float* w,
5046                                 lapack_complex_float* vl, lapack_int ldvl,
5047                                 lapack_complex_float* vr, lapack_int ldvr,
5048                                 lapack_int* ilo, lapack_int* ihi, float* scale,
5049                                 float* abnrm, float* rconde, float* rcondv,
5050                                 lapack_complex_float* work, lapack_int lwork,
5051                                 float* rwork );
5052 lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl,
5053                                 char jobvr, char sense, lapack_int n,
5054                                 lapack_complex_double* a, lapack_int lda,
5055                                 lapack_complex_double* w,
5056                                 lapack_complex_double* vl, lapack_int ldvl,
5057                                 lapack_complex_double* vr, lapack_int ldvr,
5058                                 lapack_int* ilo, lapack_int* ihi, double* scale,
5059                                 double* abnrm, double* rconde, double* rcondv,
5060                                 lapack_complex_double* work, lapack_int lwork,
5061                                 double* rwork );
5062 
5063 lapack_int LAPACKE_sgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,
5064                                 lapack_int ihi, float* a, lapack_int lda,
5065                                 float* tau, float* work, lapack_int lwork );
5066 lapack_int LAPACKE_dgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,
5067                                 lapack_int ihi, double* a, lapack_int lda,
5068                                 double* tau, double* work, lapack_int lwork );
5069 lapack_int LAPACKE_cgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,
5070                                 lapack_int ihi, lapack_complex_float* a,
5071                                 lapack_int lda, lapack_complex_float* tau,
5072                                 lapack_complex_float* work, lapack_int lwork );
5073 lapack_int LAPACKE_zgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,
5074                                 lapack_int ihi, lapack_complex_double* a,
5075                                 lapack_int lda, lapack_complex_double* tau,
5076                                 lapack_complex_double* work, lapack_int lwork );
5077 
5078 lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu,
5079                                 char jobv, char jobr, char jobt, char jobp,
5080                                 lapack_int m, lapack_int n, float* a,
5081                                 lapack_int lda, float* sva, float* u,
5082                                 lapack_int ldu, float* v, lapack_int ldv,
5083                                 float* work, lapack_int lwork,
5084                                 lapack_int* iwork );
5085 lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu,
5086                                 char jobv, char jobr, char jobt, char jobp,
5087                                 lapack_int m, lapack_int n, double* a,
5088                                 lapack_int lda, double* sva, double* u,
5089                                 lapack_int ldu, double* v, lapack_int ldv,
5090                                 double* work, lapack_int lwork,
5091                                 lapack_int* iwork );
5092 
5093 lapack_int LAPACKE_sgelq2_work( int matrix_order, lapack_int m, lapack_int n,
5094                                 float* a, lapack_int lda, float* tau,
5095                                 float* work );
5096 lapack_int LAPACKE_dgelq2_work( int matrix_order, lapack_int m, lapack_int n,
5097                                 double* a, lapack_int lda, double* tau,
5098                                 double* work );
5099 lapack_int LAPACKE_cgelq2_work( int matrix_order, lapack_int m, lapack_int n,
5100                                 lapack_complex_float* a, lapack_int lda,
5101                                 lapack_complex_float* tau,
5102                                 lapack_complex_float* work );
5103 lapack_int LAPACKE_zgelq2_work( int matrix_order, lapack_int m, lapack_int n,
5104                                 lapack_complex_double* a, lapack_int lda,
5105                                 lapack_complex_double* tau,
5106                                 lapack_complex_double* work );
5107 
5108 lapack_int LAPACKE_sgelqf_work( int matrix_order, lapack_int m, lapack_int n,
5109                                 float* a, lapack_int lda, float* tau,
5110                                 float* work, lapack_int lwork );
5111 lapack_int LAPACKE_dgelqf_work( int matrix_order, lapack_int m, lapack_int n,
5112                                 double* a, lapack_int lda, double* tau,
5113                                 double* work, lapack_int lwork );
5114 lapack_int LAPACKE_cgelqf_work( int matrix_order, lapack_int m, lapack_int n,
5115                                 lapack_complex_float* a, lapack_int lda,
5116                                 lapack_complex_float* tau,
5117                                 lapack_complex_float* work, lapack_int lwork );
5118 lapack_int LAPACKE_zgelqf_work( int matrix_order, lapack_int m, lapack_int n,
5119                                 lapack_complex_double* a, lapack_int lda,
5120                                 lapack_complex_double* tau,
5121                                 lapack_complex_double* work, lapack_int lwork );
5122 
5123 lapack_int LAPACKE_sgels_work( int matrix_order, char trans, lapack_int m,
5124                                lapack_int n, lapack_int nrhs, float* a,
5125                                lapack_int lda, float* b, lapack_int ldb,
5126                                float* work, lapack_int lwork );
5127 lapack_int LAPACKE_dgels_work( int matrix_order, char trans, lapack_int m,
5128                                lapack_int n, lapack_int nrhs, double* a,
5129                                lapack_int lda, double* b, lapack_int ldb,
5130                                double* work, lapack_int lwork );
5131 lapack_int LAPACKE_cgels_work( int matrix_order, char trans, lapack_int m,
5132                                lapack_int n, lapack_int nrhs,
5133                                lapack_complex_float* a, lapack_int lda,
5134                                lapack_complex_float* b, lapack_int ldb,
5135                                lapack_complex_float* work, lapack_int lwork );
5136 lapack_int LAPACKE_zgels_work( int matrix_order, char trans, lapack_int m,
5137                                lapack_int n, lapack_int nrhs,
5138                                lapack_complex_double* a, lapack_int lda,
5139                                lapack_complex_double* b, lapack_int ldb,
5140                                lapack_complex_double* work, lapack_int lwork );
5141 
5142 lapack_int LAPACKE_sgelsd_work( int matrix_order, lapack_int m, lapack_int n,
5143                                 lapack_int nrhs, float* a, lapack_int lda,
5144                                 float* b, lapack_int ldb, float* s, float rcond,
5145                                 lapack_int* rank, float* work, lapack_int lwork,
5146                                 lapack_int* iwork );
5147 lapack_int LAPACKE_dgelsd_work( int matrix_order, lapack_int m, lapack_int n,
5148                                 lapack_int nrhs, double* a, lapack_int lda,
5149                                 double* b, lapack_int ldb, double* s,
5150                                 double rcond, lapack_int* rank, double* work,
5151                                 lapack_int lwork, lapack_int* iwork );
5152 lapack_int LAPACKE_cgelsd_work( int matrix_order, lapack_int m, lapack_int n,
5153                                 lapack_int nrhs, lapack_complex_float* a,
5154                                 lapack_int lda, lapack_complex_float* b,
5155                                 lapack_int ldb, float* s, float rcond,
5156                                 lapack_int* rank, lapack_complex_float* work,
5157                                 lapack_int lwork, float* rwork,
5158                                 lapack_int* iwork );
5159 lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n,
5160                                 lapack_int nrhs, lapack_complex_double* a,
5161                                 lapack_int lda, lapack_complex_double* b,
5162                                 lapack_int ldb, double* s, double rcond,
5163                                 lapack_int* rank, lapack_complex_double* work,
5164                                 lapack_int lwork, double* rwork,
5165                                 lapack_int* iwork );
5166 
5167 lapack_int LAPACKE_sgelss_work( int matrix_order, lapack_int m, lapack_int n,
5168                                 lapack_int nrhs, float* a, lapack_int lda,
5169                                 float* b, lapack_int ldb, float* s, float rcond,
5170                                 lapack_int* rank, float* work,
5171                                 lapack_int lwork );
5172 lapack_int LAPACKE_dgelss_work( int matrix_order, lapack_int m, lapack_int n,
5173                                 lapack_int nrhs, double* a, lapack_int lda,
5174                                 double* b, lapack_int ldb, double* s,
5175                                 double rcond, lapack_int* rank, double* work,
5176                                 lapack_int lwork );
5177 lapack_int LAPACKE_cgelss_work( int matrix_order, lapack_int m, lapack_int n,
5178                                 lapack_int nrhs, lapack_complex_float* a,
5179                                 lapack_int lda, lapack_complex_float* b,
5180                                 lapack_int ldb, float* s, float rcond,
5181                                 lapack_int* rank, lapack_complex_float* work,
5182                                 lapack_int lwork, float* rwork );
5183 lapack_int LAPACKE_zgelss_work( int matrix_order, lapack_int m, lapack_int n,
5184                                 lapack_int nrhs, lapack_complex_double* a,
5185                                 lapack_int lda, lapack_complex_double* b,
5186                                 lapack_int ldb, double* s, double rcond,
5187                                 lapack_int* rank, lapack_complex_double* work,
5188                                 lapack_int lwork, double* rwork );
5189 
5190 lapack_int LAPACKE_sgelsy_work( int matrix_order, lapack_int m, lapack_int n,
5191                                 lapack_int nrhs, float* a, lapack_int lda,
5192                                 float* b, lapack_int ldb, lapack_int* jpvt,
5193                                 float rcond, lapack_int* rank, float* work,
5194                                 lapack_int lwork );
5195 lapack_int LAPACKE_dgelsy_work( int matrix_order, lapack_int m, lapack_int n,
5196                                 lapack_int nrhs, double* a, lapack_int lda,
5197                                 double* b, lapack_int ldb, lapack_int* jpvt,
5198                                 double rcond, lapack_int* rank, double* work,
5199                                 lapack_int lwork );
5200 lapack_int LAPACKE_cgelsy_work( int matrix_order, lapack_int m, lapack_int n,
5201                                 lapack_int nrhs, lapack_complex_float* a,
5202                                 lapack_int lda, lapack_complex_float* b,
5203                                 lapack_int ldb, lapack_int* jpvt, float rcond,
5204                                 lapack_int* rank, lapack_complex_float* work,
5205                                 lapack_int lwork, float* rwork );
5206 lapack_int LAPACKE_zgelsy_work( int matrix_order, lapack_int m, lapack_int n,
5207                                 lapack_int nrhs, lapack_complex_double* a,
5208                                 lapack_int lda, lapack_complex_double* b,
5209                                 lapack_int ldb, lapack_int* jpvt, double rcond,
5210                                 lapack_int* rank, lapack_complex_double* work,
5211                                 lapack_int lwork, double* rwork );
5212 
5213 lapack_int LAPACKE_sgeqlf_work( int matrix_order, lapack_int m, lapack_int n,
5214                                 float* a, lapack_int lda, float* tau,
5215                                 float* work, lapack_int lwork );
5216 lapack_int LAPACKE_dgeqlf_work( int matrix_order, lapack_int m, lapack_int n,
5217                                 double* a, lapack_int lda, double* tau,
5218                                 double* work, lapack_int lwork );
5219 lapack_int LAPACKE_cgeqlf_work( int matrix_order, lapack_int m, lapack_int n,
5220                                 lapack_complex_float* a, lapack_int lda,
5221                                 lapack_complex_float* tau,
5222                                 lapack_complex_float* work, lapack_int lwork );
5223 lapack_int LAPACKE_zgeqlf_work( int matrix_order, lapack_int m, lapack_int n,
5224                                 lapack_complex_double* a, lapack_int lda,
5225                                 lapack_complex_double* tau,
5226                                 lapack_complex_double* work, lapack_int lwork );
5227 
5228 lapack_int LAPACKE_sgeqp3_work( int matrix_order, lapack_int m, lapack_int n,
5229                                 float* a, lapack_int lda, lapack_int* jpvt,
5230                                 float* tau, float* work, lapack_int lwork );
5231 lapack_int LAPACKE_dgeqp3_work( int matrix_order, lapack_int m, lapack_int n,
5232                                 double* a, lapack_int lda, lapack_int* jpvt,
5233                                 double* tau, double* work, lapack_int lwork );
5234 lapack_int LAPACKE_cgeqp3_work( int matrix_order, lapack_int m, lapack_int n,
5235                                 lapack_complex_float* a, lapack_int lda,
5236                                 lapack_int* jpvt, lapack_complex_float* tau,
5237                                 lapack_complex_float* work, lapack_int lwork,
5238                                 float* rwork );
5239 lapack_int LAPACKE_zgeqp3_work( int matrix_order, lapack_int m, lapack_int n,
5240                                 lapack_complex_double* a, lapack_int lda,
5241                                 lapack_int* jpvt, lapack_complex_double* tau,
5242                                 lapack_complex_double* work, lapack_int lwork,
5243                                 double* rwork );
5244 
5245 lapack_int LAPACKE_sgeqpf_work( int matrix_order, lapack_int m, lapack_int n,
5246                                 float* a, lapack_int lda, lapack_int* jpvt,
5247                                 float* tau, float* work );
5248 lapack_int LAPACKE_dgeqpf_work( int matrix_order, lapack_int m, lapack_int n,
5249                                 double* a, lapack_int lda, lapack_int* jpvt,
5250                                 double* tau, double* work );
5251 lapack_int LAPACKE_cgeqpf_work( int matrix_order, lapack_int m, lapack_int n,
5252                                 lapack_complex_float* a, lapack_int lda,
5253                                 lapack_int* jpvt, lapack_complex_float* tau,
5254                                 lapack_complex_float* work, float* rwork );
5255 lapack_int LAPACKE_zgeqpf_work( int matrix_order, lapack_int m, lapack_int n,
5256                                 lapack_complex_double* a, lapack_int lda,
5257                                 lapack_int* jpvt, lapack_complex_double* tau,
5258                                 lapack_complex_double* work, double* rwork );
5259 
5260 lapack_int LAPACKE_sgeqr2_work( int matrix_order, lapack_int m, lapack_int n,
5261                                 float* a, lapack_int lda, float* tau,
5262                                 float* work );
5263 lapack_int LAPACKE_dgeqr2_work( int matrix_order, lapack_int m, lapack_int n,
5264                                 double* a, lapack_int lda, double* tau,
5265                                 double* work );
5266 lapack_int LAPACKE_cgeqr2_work( int matrix_order, lapack_int m, lapack_int n,
5267                                 lapack_complex_float* a, lapack_int lda,
5268                                 lapack_complex_float* tau,
5269                                 lapack_complex_float* work );
5270 lapack_int LAPACKE_zgeqr2_work( int matrix_order, lapack_int m, lapack_int n,
5271                                 lapack_complex_double* a, lapack_int lda,
5272                                 lapack_complex_double* tau,
5273                                 lapack_complex_double* work );
5274 
5275 lapack_int LAPACKE_sgeqrf_work( int matrix_order, lapack_int m, lapack_int n,
5276                                 float* a, lapack_int lda, float* tau,
5277                                 float* work, lapack_int lwork );
5278 lapack_int LAPACKE_dgeqrf_work( int matrix_order, lapack_int m, lapack_int n,
5279                                 double* a, lapack_int lda, double* tau,
5280                                 double* work, lapack_int lwork );
5281 lapack_int LAPACKE_cgeqrf_work( int matrix_order, lapack_int m, lapack_int n,
5282                                 lapack_complex_float* a, lapack_int lda,
5283                                 lapack_complex_float* tau,
5284                                 lapack_complex_float* work, lapack_int lwork );
5285 lapack_int LAPACKE_zgeqrf_work( int matrix_order, lapack_int m, lapack_int n,
5286                                 lapack_complex_double* a, lapack_int lda,
5287                                 lapack_complex_double* tau,
5288                                 lapack_complex_double* work, lapack_int lwork );
5289 
5290 lapack_int LAPACKE_sgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,
5291                                  float* a, lapack_int lda, float* tau,
5292                                  float* work, lapack_int lwork );
5293 lapack_int LAPACKE_dgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,
5294                                  double* a, lapack_int lda, double* tau,
5295                                  double* work, lapack_int lwork );
5296 lapack_int LAPACKE_cgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,
5297                                  lapack_complex_float* a, lapack_int lda,
5298                                  lapack_complex_float* tau,
5299                                  lapack_complex_float* work, lapack_int lwork );
5300 lapack_int LAPACKE_zgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,
5301                                  lapack_complex_double* a, lapack_int lda,
5302                                  lapack_complex_double* tau,
5303                                  lapack_complex_double* work,
5304                                  lapack_int lwork );
5305 
5306 lapack_int LAPACKE_sgerfs_work( int matrix_order, char trans, lapack_int n,
5307                                 lapack_int nrhs, const float* a, lapack_int lda,
5308                                 const float* af, lapack_int ldaf,
5309                                 const lapack_int* ipiv, const float* b,
5310                                 lapack_int ldb, float* x, lapack_int ldx,
5311                                 float* ferr, float* berr, float* work,
5312                                 lapack_int* iwork );
5313 lapack_int LAPACKE_dgerfs_work( int matrix_order, char trans, lapack_int n,
5314                                 lapack_int nrhs, const double* a,
5315                                 lapack_int lda, const double* af,
5316                                 lapack_int ldaf, const lapack_int* ipiv,
5317                                 const double* b, lapack_int ldb, double* x,
5318                                 lapack_int ldx, double* ferr, double* berr,
5319                                 double* work, lapack_int* iwork );
5320 lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n,
5321                                 lapack_int nrhs, const lapack_complex_float* a,
5322                                 lapack_int lda, const lapack_complex_float* af,
5323                                 lapack_int ldaf, const lapack_int* ipiv,
5324                                 const lapack_complex_float* b, lapack_int ldb,
5325                                 lapack_complex_float* x, lapack_int ldx,
5326                                 float* ferr, float* berr,
5327                                 lapack_complex_float* work, float* rwork );
5328 lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n,
5329                                 lapack_int nrhs, const lapack_complex_double* a,
5330                                 lapack_int lda, const lapack_complex_double* af,
5331                                 lapack_int ldaf, const lapack_int* ipiv,
5332                                 const lapack_complex_double* b, lapack_int ldb,
5333                                 lapack_complex_double* x, lapack_int ldx,
5334                                 double* ferr, double* berr,
5335                                 lapack_complex_double* work, double* rwork );
5336 
5337 lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed,
5338                                  lapack_int n, lapack_int nrhs, const float* a,
5339                                  lapack_int lda, const float* af,
5340                                  lapack_int ldaf, const lapack_int* ipiv,
5341                                  const float* r, const float* c, const float* b,
5342                                  lapack_int ldb, float* x, lapack_int ldx,
5343                                  float* rcond, float* berr,
5344                                  lapack_int n_err_bnds, float* err_bnds_norm,
5345                                  float* err_bnds_comp, lapack_int nparams,
5346                                  float* params, float* work,
5347                                  lapack_int* iwork );
5348 lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed,
5349                                  lapack_int n, lapack_int nrhs, const double* a,
5350                                  lapack_int lda, const double* af,
5351                                  lapack_int ldaf, const lapack_int* ipiv,
5352                                  const double* r, const double* c,
5353                                  const double* b, lapack_int ldb, double* x,
5354                                  lapack_int ldx, double* rcond, double* berr,
5355                                  lapack_int n_err_bnds, double* err_bnds_norm,
5356                                  double* err_bnds_comp, lapack_int nparams,
5357                                  double* params, double* work,
5358                                  lapack_int* iwork );
5359 lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed,
5360                                  lapack_int n, lapack_int nrhs,
5361                                  const lapack_complex_float* a, lapack_int lda,
5362                                  const lapack_complex_float* af,
5363                                  lapack_int ldaf, const lapack_int* ipiv,
5364                                  const float* r, const float* c,
5365                                  const lapack_complex_float* b, lapack_int ldb,
5366                                  lapack_complex_float* x, lapack_int ldx,
5367                                  float* rcond, float* berr,
5368                                  lapack_int n_err_bnds, float* err_bnds_norm,
5369                                  float* err_bnds_comp, lapack_int nparams,
5370                                  float* params, lapack_complex_float* work,
5371                                  float* rwork );
5372 lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed,
5373                                  lapack_int n, lapack_int nrhs,
5374                                  const lapack_complex_double* a, lapack_int lda,
5375                                  const lapack_complex_double* af,
5376                                  lapack_int ldaf, const lapack_int* ipiv,
5377                                  const double* r, const double* c,
5378                                  const lapack_complex_double* b, lapack_int ldb,
5379                                  lapack_complex_double* x, lapack_int ldx,
5380                                  double* rcond, double* berr,
5381                                  lapack_int n_err_bnds, double* err_bnds_norm,
5382                                  double* err_bnds_comp, lapack_int nparams,
5383                                  double* params, lapack_complex_double* work,
5384                                  double* rwork );
5385 
5386 lapack_int LAPACKE_sgerqf_work( int matrix_order, lapack_int m, lapack_int n,
5387                                 float* a, lapack_int lda, float* tau,
5388                                 float* work, lapack_int lwork );
5389 lapack_int LAPACKE_dgerqf_work( int matrix_order, lapack_int m, lapack_int n,
5390                                 double* a, lapack_int lda, double* tau,
5391                                 double* work, lapack_int lwork );
5392 lapack_int LAPACKE_cgerqf_work( int matrix_order, lapack_int m, lapack_int n,
5393                                 lapack_complex_float* a, lapack_int lda,
5394                                 lapack_complex_float* tau,
5395                                 lapack_complex_float* work, lapack_int lwork );
5396 lapack_int LAPACKE_zgerqf_work( int matrix_order, lapack_int m, lapack_int n,
5397                                 lapack_complex_double* a, lapack_int lda,
5398                                 lapack_complex_double* tau,
5399                                 lapack_complex_double* work, lapack_int lwork );
5400 
5401 lapack_int LAPACKE_sgesdd_work( int matrix_order, char jobz, lapack_int m,
5402                                 lapack_int n, float* a, lapack_int lda,
5403                                 float* s, float* u, lapack_int ldu, float* vt,
5404                                 lapack_int ldvt, float* work, lapack_int lwork,
5405                                 lapack_int* iwork );
5406 lapack_int LAPACKE_dgesdd_work( int matrix_order, char jobz, lapack_int m,
5407                                 lapack_int n, double* a, lapack_int lda,
5408                                 double* s, double* u, lapack_int ldu,
5409                                 double* vt, lapack_int ldvt, double* work,
5410                                 lapack_int lwork, lapack_int* iwork );
5411 lapack_int LAPACKE_cgesdd_work( int matrix_order, char jobz, lapack_int m,
5412                                 lapack_int n, lapack_complex_float* a,
5413                                 lapack_int lda, float* s,
5414                                 lapack_complex_float* u, lapack_int ldu,
5415                                 lapack_complex_float* vt, lapack_int ldvt,
5416                                 lapack_complex_float* work, lapack_int lwork,
5417                                 float* rwork, lapack_int* iwork );
5418 lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m,
5419                                 lapack_int n, lapack_complex_double* a,
5420                                 lapack_int lda, double* s,
5421                                 lapack_complex_double* u, lapack_int ldu,
5422                                 lapack_complex_double* vt, lapack_int ldvt,
5423                                 lapack_complex_double* work, lapack_int lwork,
5424                                 double* rwork, lapack_int* iwork );
5425 
5426 lapack_int LAPACKE_sgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,
5427                                float* a, lapack_int lda, lapack_int* ipiv,
5428                                float* b, lapack_int ldb );
5429 lapack_int LAPACKE_dgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,
5430                                double* a, lapack_int lda, lapack_int* ipiv,
5431                                double* b, lapack_int ldb );
5432 lapack_int LAPACKE_cgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,
5433                                lapack_complex_float* a, lapack_int lda,
5434                                lapack_int* ipiv, lapack_complex_float* b,
5435                                lapack_int ldb );
5436 lapack_int LAPACKE_zgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,
5437                                lapack_complex_double* a, lapack_int lda,
5438                                lapack_int* ipiv, lapack_complex_double* b,
5439                                lapack_int ldb );
5440 lapack_int LAPACKE_dsgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,
5441                                 double* a, lapack_int lda, lapack_int* ipiv,
5442                                 double* b, lapack_int ldb, double* x,
5443                                 lapack_int ldx, double* work, float* swork,
5444                                 lapack_int* iter );
5445 lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,
5446                                 lapack_complex_double* a, lapack_int lda,
5447                                 lapack_int* ipiv, lapack_complex_double* b,
5448                                 lapack_int ldb, lapack_complex_double* x,
5449                                 lapack_int ldx, lapack_complex_double* work,
5450                                 lapack_complex_float* swork, double* rwork,
5451                                 lapack_int* iter );
5452 
5453 lapack_int LAPACKE_sgesvd_work( int matrix_order, char jobu, char jobvt,
5454                                 lapack_int m, lapack_int n, float* a,
5455                                 lapack_int lda, float* s, float* u,
5456                                 lapack_int ldu, float* vt, lapack_int ldvt,
5457                                 float* work, lapack_int lwork );
5458 lapack_int LAPACKE_dgesvd_work( int matrix_order, char jobu, char jobvt,
5459                                 lapack_int m, lapack_int n, double* a,
5460                                 lapack_int lda, double* s, double* u,
5461                                 lapack_int ldu, double* vt, lapack_int ldvt,
5462                                 double* work, lapack_int lwork );
5463 lapack_int LAPACKE_cgesvd_work( int matrix_order, char jobu, char jobvt,
5464                                 lapack_int m, lapack_int n,
5465                                 lapack_complex_float* a, lapack_int lda,
5466                                 float* s, lapack_complex_float* u,
5467                                 lapack_int ldu, lapack_complex_float* vt,
5468                                 lapack_int ldvt, lapack_complex_float* work,
5469                                 lapack_int lwork, float* rwork );
5470 lapack_int LAPACKE_zgesvd_work( int matrix_order, char jobu, char jobvt,
5471                                 lapack_int m, lapack_int n,
5472                                 lapack_complex_double* a, lapack_int lda,
5473                                 double* s, lapack_complex_double* u,
5474                                 lapack_int ldu, lapack_complex_double* vt,
5475                                 lapack_int ldvt, lapack_complex_double* work,
5476                                 lapack_int lwork, double* rwork );
5477 
5478 lapack_int LAPACKE_sgesvj_work( int matrix_order, char joba, char jobu,
5479                                 char jobv, lapack_int m, lapack_int n, float* a,
5480                                 lapack_int lda, float* sva, lapack_int mv,
5481                                 float* v, lapack_int ldv, float* work,
5482                                 lapack_int lwork );
5483 lapack_int LAPACKE_dgesvj_work( int matrix_order, char joba, char jobu,
5484                                 char jobv, lapack_int m, lapack_int n,
5485                                 double* a, lapack_int lda, double* sva,
5486                                 lapack_int mv, double* v, lapack_int ldv,
5487                                 double* work, lapack_int lwork );
5488 
5489 lapack_int LAPACKE_sgesvx_work( int matrix_order, char fact, char trans,
5490                                 lapack_int n, lapack_int nrhs, float* a,
5491                                 lapack_int lda, float* af, lapack_int ldaf,
5492                                 lapack_int* ipiv, char* equed, float* r,
5493                                 float* c, float* b, lapack_int ldb, float* x,
5494                                 lapack_int ldx, float* rcond, float* ferr,
5495                                 float* berr, float* work, lapack_int* iwork );
5496 lapack_int LAPACKE_dgesvx_work( int matrix_order, char fact, char trans,
5497                                 lapack_int n, lapack_int nrhs, double* a,
5498                                 lapack_int lda, double* af, lapack_int ldaf,
5499                                 lapack_int* ipiv, char* equed, double* r,
5500                                 double* c, double* b, lapack_int ldb, double* x,
5501                                 lapack_int ldx, double* rcond, double* ferr,
5502                                 double* berr, double* work, lapack_int* iwork );
5503 lapack_int LAPACKE_cgesvx_work( int matrix_order, char fact, char trans,
5504                                 lapack_int n, lapack_int nrhs,
5505                                 lapack_complex_float* a, lapack_int lda,
5506                                 lapack_complex_float* af, lapack_int ldaf,
5507                                 lapack_int* ipiv, char* equed, float* r,
5508                                 float* c, lapack_complex_float* b,
5509                                 lapack_int ldb, lapack_complex_float* x,
5510                                 lapack_int ldx, float* rcond, float* ferr,
5511                                 float* berr, lapack_complex_float* work,
5512                                 float* rwork );
5513 lapack_int LAPACKE_zgesvx_work( int matrix_order, char fact, char trans,
5514                                 lapack_int n, lapack_int nrhs,
5515                                 lapack_complex_double* a, lapack_int lda,
5516                                 lapack_complex_double* af, lapack_int ldaf,
5517                                 lapack_int* ipiv, char* equed, double* r,
5518                                 double* c, lapack_complex_double* b,
5519                                 lapack_int ldb, lapack_complex_double* x,
5520                                 lapack_int ldx, double* rcond, double* ferr,
5521                                 double* berr, lapack_complex_double* work,
5522                                 double* rwork );
5523 
5524 lapack_int LAPACKE_sgesvxx_work( int matrix_order, char fact, char trans,
5525                                  lapack_int n, lapack_int nrhs, float* a,
5526                                  lapack_int lda, float* af, lapack_int ldaf,
5527                                  lapack_int* ipiv, char* equed, float* r,
5528                                  float* c, float* b, lapack_int ldb, float* x,
5529                                  lapack_int ldx, float* rcond, float* rpvgrw,
5530                                  float* berr, lapack_int n_err_bnds,
5531                                  float* err_bnds_norm, float* err_bnds_comp,
5532                                  lapack_int nparams, float* params, float* work,
5533                                  lapack_int* iwork );
5534 lapack_int LAPACKE_dgesvxx_work( int matrix_order, char fact, char trans,
5535                                  lapack_int n, lapack_int nrhs, double* a,
5536                                  lapack_int lda, double* af, lapack_int ldaf,
5537                                  lapack_int* ipiv, char* equed, double* r,
5538                                  double* c, double* b, lapack_int ldb,
5539                                  double* x, lapack_int ldx, double* rcond,
5540                                  double* rpvgrw, double* berr,
5541                                  lapack_int n_err_bnds, double* err_bnds_norm,
5542                                  double* err_bnds_comp, lapack_int nparams,
5543                                  double* params, double* work,
5544                                  lapack_int* iwork );
5545 lapack_int LAPACKE_cgesvxx_work( int matrix_order, char fact, char trans,
5546                                  lapack_int n, lapack_int nrhs,
5547                                  lapack_complex_float* a, lapack_int lda,
5548                                  lapack_complex_float* af, lapack_int ldaf,
5549                                  lapack_int* ipiv, char* equed, float* r,
5550                                  float* c, lapack_complex_float* b,
5551                                  lapack_int ldb, lapack_complex_float* x,
5552                                  lapack_int ldx, float* rcond, float* rpvgrw,
5553                                  float* berr, lapack_int n_err_bnds,
5554                                  float* err_bnds_norm, float* err_bnds_comp,
5555                                  lapack_int nparams, float* params,
5556                                  lapack_complex_float* work, float* rwork );
5557 lapack_int LAPACKE_zgesvxx_work( int matrix_order, char fact, char trans,
5558                                  lapack_int n, lapack_int nrhs,
5559                                  lapack_complex_double* a, lapack_int lda,
5560                                  lapack_complex_double* af, lapack_int ldaf,
5561                                  lapack_int* ipiv, char* equed, double* r,
5562                                  double* c, lapack_complex_double* b,
5563                                  lapack_int ldb, lapack_complex_double* x,
5564                                  lapack_int ldx, double* rcond, double* rpvgrw,
5565                                  double* berr, lapack_int n_err_bnds,
5566                                  double* err_bnds_norm, double* err_bnds_comp,
5567                                  lapack_int nparams, double* params,
5568                                  lapack_complex_double* work, double* rwork );
5569 
5570 lapack_int LAPACKE_sgetf2_work( int matrix_order, lapack_int m, lapack_int n,
5571                                 float* a, lapack_int lda, lapack_int* ipiv );
5572 lapack_int LAPACKE_dgetf2_work( int matrix_order, lapack_int m, lapack_int n,
5573                                 double* a, lapack_int lda, lapack_int* ipiv );
5574 lapack_int LAPACKE_cgetf2_work( int matrix_order, lapack_int m, lapack_int n,
5575                                 lapack_complex_float* a, lapack_int lda,
5576                                 lapack_int* ipiv );
5577 lapack_int LAPACKE_zgetf2_work( int matrix_order, lapack_int m, lapack_int n,
5578                                 lapack_complex_double* a, lapack_int lda,
5579                                 lapack_int* ipiv );
5580 
5581 lapack_int LAPACKE_sgetrf_work( int matrix_order, lapack_int m, lapack_int n,
5582                                 float* a, lapack_int lda, lapack_int* ipiv );
5583 lapack_int LAPACKE_dgetrf_work( int matrix_order, lapack_int m, lapack_int n,
5584                                 double* a, lapack_int lda, lapack_int* ipiv );
5585 lapack_int LAPACKE_cgetrf_work( int matrix_order, lapack_int m, lapack_int n,
5586                                 lapack_complex_float* a, lapack_int lda,
5587                                 lapack_int* ipiv );
5588 lapack_int LAPACKE_zgetrf_work( int matrix_order, lapack_int m, lapack_int n,
5589                                 lapack_complex_double* a, lapack_int lda,
5590                                 lapack_int* ipiv );
5591 
5592 lapack_int LAPACKE_sgetri_work( int matrix_order, lapack_int n, float* a,
5593                                 lapack_int lda, const lapack_int* ipiv,
5594                                 float* work, lapack_int lwork );
5595 lapack_int LAPACKE_dgetri_work( int matrix_order, lapack_int n, double* a,
5596                                 lapack_int lda, const lapack_int* ipiv,
5597                                 double* work, lapack_int lwork );
5598 lapack_int LAPACKE_cgetri_work( int matrix_order, lapack_int n,
5599                                 lapack_complex_float* a, lapack_int lda,
5600                                 const lapack_int* ipiv,
5601                                 lapack_complex_float* work, lapack_int lwork );
5602 lapack_int LAPACKE_zgetri_work( int matrix_order, lapack_int n,
5603                                 lapack_complex_double* a, lapack_int lda,
5604                                 const lapack_int* ipiv,
5605                                 lapack_complex_double* work, lapack_int lwork );
5606 
5607 lapack_int LAPACKE_sgetrs_work( int matrix_order, char trans, lapack_int n,
5608                                 lapack_int nrhs, const float* a, lapack_int lda,
5609                                 const lapack_int* ipiv, float* b,
5610                                 lapack_int ldb );
5611 lapack_int LAPACKE_dgetrs_work( int matrix_order, char trans, lapack_int n,
5612                                 lapack_int nrhs, const double* a,
5613                                 lapack_int lda, const lapack_int* ipiv,
5614                                 double* b, lapack_int ldb );
5615 lapack_int LAPACKE_cgetrs_work( int matrix_order, char trans, lapack_int n,
5616                                 lapack_int nrhs, const lapack_complex_float* a,
5617                                 lapack_int lda, const lapack_int* ipiv,
5618                                 lapack_complex_float* b, lapack_int ldb );
5619 lapack_int LAPACKE_zgetrs_work( int matrix_order, char trans, lapack_int n,
5620                                 lapack_int nrhs, const lapack_complex_double* a,
5621                                 lapack_int lda, const lapack_int* ipiv,
5622                                 lapack_complex_double* b, lapack_int ldb );
5623 
5624 lapack_int LAPACKE_sggbak_work( int matrix_order, char job, char side,
5625                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5626                                 const float* lscale, const float* rscale,
5627                                 lapack_int m, float* v, lapack_int ldv );
5628 lapack_int LAPACKE_dggbak_work( int matrix_order, char job, char side,
5629                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5630                                 const double* lscale, const double* rscale,
5631                                 lapack_int m, double* v, lapack_int ldv );
5632 lapack_int LAPACKE_cggbak_work( int matrix_order, char job, char side,
5633                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5634                                 const float* lscale, const float* rscale,
5635                                 lapack_int m, lapack_complex_float* v,
5636                                 lapack_int ldv );
5637 lapack_int LAPACKE_zggbak_work( int matrix_order, char job, char side,
5638                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5639                                 const double* lscale, const double* rscale,
5640                                 lapack_int m, lapack_complex_double* v,
5641                                 lapack_int ldv );
5642 
5643 lapack_int LAPACKE_sggbal_work( int matrix_order, char job, lapack_int n,
5644                                 float* a, lapack_int lda, float* b,
5645                                 lapack_int ldb, lapack_int* ilo,
5646                                 lapack_int* ihi, float* lscale, float* rscale,
5647                                 float* work );
5648 lapack_int LAPACKE_dggbal_work( int matrix_order, char job, lapack_int n,
5649                                 double* a, lapack_int lda, double* b,
5650                                 lapack_int ldb, lapack_int* ilo,
5651                                 lapack_int* ihi, double* lscale, double* rscale,
5652                                 double* work );
5653 lapack_int LAPACKE_cggbal_work( int matrix_order, char job, lapack_int n,
5654                                 lapack_complex_float* a, lapack_int lda,
5655                                 lapack_complex_float* b, lapack_int ldb,
5656                                 lapack_int* ilo, lapack_int* ihi, float* lscale,
5657                                 float* rscale, float* work );
5658 lapack_int LAPACKE_zggbal_work( int matrix_order, char job, lapack_int n,
5659                                 lapack_complex_double* a, lapack_int lda,
5660                                 lapack_complex_double* b, lapack_int ldb,
5661                                 lapack_int* ilo, lapack_int* ihi,
5662                                 double* lscale, double* rscale, double* work );
5663 
5664 lapack_int LAPACKE_sgges_work( int matrix_order, char jobvsl, char jobvsr,
5665                                char sort, LAPACK_S_SELECT3 selctg, lapack_int n,
5666                                float* a, lapack_int lda, float* b,
5667                                lapack_int ldb, lapack_int* sdim, float* alphar,
5668                                float* alphai, float* beta, float* vsl,
5669                                lapack_int ldvsl, float* vsr, lapack_int ldvsr,
5670                                float* work, lapack_int lwork,
5671                                lapack_logical* bwork );
5672 lapack_int LAPACKE_dgges_work( int matrix_order, char jobvsl, char jobvsr,
5673                                char sort, LAPACK_D_SELECT3 selctg, lapack_int n,
5674                                double* a, lapack_int lda, double* b,
5675                                lapack_int ldb, lapack_int* sdim, double* alphar,
5676                                double* alphai, double* beta, double* vsl,
5677                                lapack_int ldvsl, double* vsr, lapack_int ldvsr,
5678                                double* work, lapack_int lwork,
5679                                lapack_logical* bwork );
5680 lapack_int LAPACKE_cgges_work( int matrix_order, char jobvsl, char jobvsr,
5681                                char sort, LAPACK_C_SELECT2 selctg, lapack_int n,
5682                                lapack_complex_float* a, lapack_int lda,
5683                                lapack_complex_float* b, lapack_int ldb,
5684                                lapack_int* sdim, lapack_complex_float* alpha,
5685                                lapack_complex_float* beta,
5686                                lapack_complex_float* vsl, lapack_int ldvsl,
5687                                lapack_complex_float* vsr, lapack_int ldvsr,
5688                                lapack_complex_float* work, lapack_int lwork,
5689                                float* rwork, lapack_logical* bwork );
5690 lapack_int LAPACKE_zgges_work( int matrix_order, char jobvsl, char jobvsr,
5691                                char sort, LAPACK_Z_SELECT2 selctg, lapack_int n,
5692                                lapack_complex_double* a, lapack_int lda,
5693                                lapack_complex_double* b, lapack_int ldb,
5694                                lapack_int* sdim, lapack_complex_double* alpha,
5695                                lapack_complex_double* beta,
5696                                lapack_complex_double* vsl, lapack_int ldvsl,
5697                                lapack_complex_double* vsr, lapack_int ldvsr,
5698                                lapack_complex_double* work, lapack_int lwork,
5699                                double* rwork, lapack_logical* bwork );
5700 
5701 lapack_int LAPACKE_sggesx_work( int matrix_order, char jobvsl, char jobvsr,
5702                                 char sort, LAPACK_S_SELECT3 selctg, char sense,
5703                                 lapack_int n, float* a, lapack_int lda,
5704                                 float* b, lapack_int ldb, lapack_int* sdim,
5705                                 float* alphar, float* alphai, float* beta,
5706                                 float* vsl, lapack_int ldvsl, float* vsr,
5707                                 lapack_int ldvsr, float* rconde, float* rcondv,
5708                                 float* work, lapack_int lwork,
5709                                 lapack_int* iwork, lapack_int liwork,
5710                                 lapack_logical* bwork );
5711 lapack_int LAPACKE_dggesx_work( int matrix_order, char jobvsl, char jobvsr,
5712                                 char sort, LAPACK_D_SELECT3 selctg, char sense,
5713                                 lapack_int n, double* a, lapack_int lda,
5714                                 double* b, lapack_int ldb, lapack_int* sdim,
5715                                 double* alphar, double* alphai, double* beta,
5716                                 double* vsl, lapack_int ldvsl, double* vsr,
5717                                 lapack_int ldvsr, double* rconde,
5718                                 double* rcondv, double* work, lapack_int lwork,
5719                                 lapack_int* iwork, lapack_int liwork,
5720                                 lapack_logical* bwork );
5721 lapack_int LAPACKE_cggesx_work( int matrix_order, char jobvsl, char jobvsr,
5722                                 char sort, LAPACK_C_SELECT2 selctg, char sense,
5723                                 lapack_int n, lapack_complex_float* a,
5724                                 lapack_int lda, lapack_complex_float* b,
5725                                 lapack_int ldb, lapack_int* sdim,
5726                                 lapack_complex_float* alpha,
5727                                 lapack_complex_float* beta,
5728                                 lapack_complex_float* vsl, lapack_int ldvsl,
5729                                 lapack_complex_float* vsr, lapack_int ldvsr,
5730                                 float* rconde, float* rcondv,
5731                                 lapack_complex_float* work, lapack_int lwork,
5732                                 float* rwork, lapack_int* iwork,
5733                                 lapack_int liwork, lapack_logical* bwork );
5734 lapack_int LAPACKE_zggesx_work( int matrix_order, char jobvsl, char jobvsr,
5735                                 char sort, LAPACK_Z_SELECT2 selctg, char sense,
5736                                 lapack_int n, lapack_complex_double* a,
5737                                 lapack_int lda, lapack_complex_double* b,
5738                                 lapack_int ldb, lapack_int* sdim,
5739                                 lapack_complex_double* alpha,
5740                                 lapack_complex_double* beta,
5741                                 lapack_complex_double* vsl, lapack_int ldvsl,
5742                                 lapack_complex_double* vsr, lapack_int ldvsr,
5743                                 double* rconde, double* rcondv,
5744                                 lapack_complex_double* work, lapack_int lwork,
5745                                 double* rwork, lapack_int* iwork,
5746                                 lapack_int liwork, lapack_logical* bwork );
5747 
5748 lapack_int LAPACKE_sggev_work( int matrix_order, char jobvl, char jobvr,
5749                                lapack_int n, float* a, lapack_int lda, float* b,
5750                                lapack_int ldb, float* alphar, float* alphai,
5751                                float* beta, float* vl, lapack_int ldvl,
5752                                float* vr, lapack_int ldvr, float* work,
5753                                lapack_int lwork );
5754 lapack_int LAPACKE_dggev_work( int matrix_order, char jobvl, char jobvr,
5755                                lapack_int n, double* a, lapack_int lda,
5756                                double* b, lapack_int ldb, double* alphar,
5757                                double* alphai, double* beta, double* vl,
5758                                lapack_int ldvl, double* vr, lapack_int ldvr,
5759                                double* work, lapack_int lwork );
5760 lapack_int LAPACKE_cggev_work( int matrix_order, char jobvl, char jobvr,
5761                                lapack_int n, lapack_complex_float* a,
5762                                lapack_int lda, lapack_complex_float* b,
5763                                lapack_int ldb, lapack_complex_float* alpha,
5764                                lapack_complex_float* beta,
5765                                lapack_complex_float* vl, lapack_int ldvl,
5766                                lapack_complex_float* vr, lapack_int ldvr,
5767                                lapack_complex_float* work, lapack_int lwork,
5768                                float* rwork );
5769 lapack_int LAPACKE_zggev_work( int matrix_order, char jobvl, char jobvr,
5770                                lapack_int n, lapack_complex_double* a,
5771                                lapack_int lda, lapack_complex_double* b,
5772                                lapack_int ldb, lapack_complex_double* alpha,
5773                                lapack_complex_double* beta,
5774                                lapack_complex_double* vl, lapack_int ldvl,
5775                                lapack_complex_double* vr, lapack_int ldvr,
5776                                lapack_complex_double* work, lapack_int lwork,
5777                                double* rwork );
5778 
5779 lapack_int LAPACKE_sggevx_work( int matrix_order, char balanc, char jobvl,
5780                                 char jobvr, char sense, lapack_int n, float* a,
5781                                 lapack_int lda, float* b, lapack_int ldb,
5782                                 float* alphar, float* alphai, float* beta,
5783                                 float* vl, lapack_int ldvl, float* vr,
5784                                 lapack_int ldvr, lapack_int* ilo,
5785                                 lapack_int* ihi, float* lscale, float* rscale,
5786                                 float* abnrm, float* bbnrm, float* rconde,
5787                                 float* rcondv, float* work, lapack_int lwork,
5788                                 lapack_int* iwork, lapack_logical* bwork );
5789 lapack_int LAPACKE_dggevx_work( int matrix_order, char balanc, char jobvl,
5790                                 char jobvr, char sense, lapack_int n, double* a,
5791                                 lapack_int lda, double* b, lapack_int ldb,
5792                                 double* alphar, double* alphai, double* beta,
5793                                 double* vl, lapack_int ldvl, double* vr,
5794                                 lapack_int ldvr, lapack_int* ilo,
5795                                 lapack_int* ihi, double* lscale, double* rscale,
5796                                 double* abnrm, double* bbnrm, double* rconde,
5797                                 double* rcondv, double* work, lapack_int lwork,
5798                                 lapack_int* iwork, lapack_logical* bwork );
5799 lapack_int LAPACKE_cggevx_work( int matrix_order, char balanc, char jobvl,
5800                                 char jobvr, char sense, lapack_int n,
5801                                 lapack_complex_float* a, lapack_int lda,
5802                                 lapack_complex_float* b, lapack_int ldb,
5803                                 lapack_complex_float* alpha,
5804                                 lapack_complex_float* beta,
5805                                 lapack_complex_float* vl, lapack_int ldvl,
5806                                 lapack_complex_float* vr, lapack_int ldvr,
5807                                 lapack_int* ilo, lapack_int* ihi, float* lscale,
5808                                 float* rscale, float* abnrm, float* bbnrm,
5809                                 float* rconde, float* rcondv,
5810                                 lapack_complex_float* work, lapack_int lwork,
5811                                 float* rwork, lapack_int* iwork,
5812                                 lapack_logical* bwork );
5813 lapack_int LAPACKE_zggevx_work( int matrix_order, char balanc, char jobvl,
5814                                 char jobvr, char sense, lapack_int n,
5815                                 lapack_complex_double* a, lapack_int lda,
5816                                 lapack_complex_double* b, lapack_int ldb,
5817                                 lapack_complex_double* alpha,
5818                                 lapack_complex_double* beta,
5819                                 lapack_complex_double* vl, lapack_int ldvl,
5820                                 lapack_complex_double* vr, lapack_int ldvr,
5821                                 lapack_int* ilo, lapack_int* ihi,
5822                                 double* lscale, double* rscale, double* abnrm,
5823                                 double* bbnrm, double* rconde, double* rcondv,
5824                                 lapack_complex_double* work, lapack_int lwork,
5825                                 double* rwork, lapack_int* iwork,
5826                                 lapack_logical* bwork );
5827 
5828 lapack_int LAPACKE_sggglm_work( int matrix_order, lapack_int n, lapack_int m,
5829                                 lapack_int p, float* a, lapack_int lda,
5830                                 float* b, lapack_int ldb, float* d, float* x,
5831                                 float* y, float* work, lapack_int lwork );
5832 lapack_int LAPACKE_dggglm_work( int matrix_order, lapack_int n, lapack_int m,
5833                                 lapack_int p, double* a, lapack_int lda,
5834                                 double* b, lapack_int ldb, double* d, double* x,
5835                                 double* y, double* work, lapack_int lwork );
5836 lapack_int LAPACKE_cggglm_work( int matrix_order, lapack_int n, lapack_int m,
5837                                 lapack_int p, lapack_complex_float* a,
5838                                 lapack_int lda, lapack_complex_float* b,
5839                                 lapack_int ldb, lapack_complex_float* d,
5840                                 lapack_complex_float* x,
5841                                 lapack_complex_float* y,
5842                                 lapack_complex_float* work, lapack_int lwork );
5843 lapack_int LAPACKE_zggglm_work( int matrix_order, lapack_int n, lapack_int m,
5844                                 lapack_int p, lapack_complex_double* a,
5845                                 lapack_int lda, lapack_complex_double* b,
5846                                 lapack_int ldb, lapack_complex_double* d,
5847                                 lapack_complex_double* x,
5848                                 lapack_complex_double* y,
5849                                 lapack_complex_double* work, lapack_int lwork );
5850 
5851 lapack_int LAPACKE_sgghrd_work( int matrix_order, char compq, char compz,
5852                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5853                                 float* a, lapack_int lda, float* b,
5854                                 lapack_int ldb, float* q, lapack_int ldq,
5855                                 float* z, lapack_int ldz );
5856 lapack_int LAPACKE_dgghrd_work( int matrix_order, char compq, char compz,
5857                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5858                                 double* a, lapack_int lda, double* b,
5859                                 lapack_int ldb, double* q, lapack_int ldq,
5860                                 double* z, lapack_int ldz );
5861 lapack_int LAPACKE_cgghrd_work( int matrix_order, char compq, char compz,
5862                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5863                                 lapack_complex_float* a, lapack_int lda,
5864                                 lapack_complex_float* b, lapack_int ldb,
5865                                 lapack_complex_float* q, lapack_int ldq,
5866                                 lapack_complex_float* z, lapack_int ldz );
5867 lapack_int LAPACKE_zgghrd_work( int matrix_order, char compq, char compz,
5868                                 lapack_int n, lapack_int ilo, lapack_int ihi,
5869                                 lapack_complex_double* a, lapack_int lda,
5870                                 lapack_complex_double* b, lapack_int ldb,
5871                                 lapack_complex_double* q, lapack_int ldq,
5872                                 lapack_complex_double* z, lapack_int ldz );
5873 
5874 lapack_int LAPACKE_sgglse_work( int matrix_order, lapack_int m, lapack_int n,
5875                                 lapack_int p, float* a, lapack_int lda,
5876                                 float* b, lapack_int ldb, float* c, float* d,
5877                                 float* x, float* work, lapack_int lwork );
5878 lapack_int LAPACKE_dgglse_work( int matrix_order, lapack_int m, lapack_int n,
5879                                 lapack_int p, double* a, lapack_int lda,
5880                                 double* b, lapack_int ldb, double* c, double* d,
5881                                 double* x, double* work, lapack_int lwork );
5882 lapack_int LAPACKE_cgglse_work( int matrix_order, lapack_int m, lapack_int n,
5883                                 lapack_int p, lapack_complex_float* a,
5884                                 lapack_int lda, lapack_complex_float* b,
5885                                 lapack_int ldb, lapack_complex_float* c,
5886                                 lapack_complex_float* d,
5887                                 lapack_complex_float* x,
5888                                 lapack_complex_float* work, lapack_int lwork );
5889 lapack_int LAPACKE_zgglse_work( int matrix_order, lapack_int m, lapack_int n,
5890                                 lapack_int p, lapack_complex_double* a,
5891                                 lapack_int lda, lapack_complex_double* b,
5892                                 lapack_int ldb, lapack_complex_double* c,
5893                                 lapack_complex_double* d,
5894                                 lapack_complex_double* x,
5895                                 lapack_complex_double* work, lapack_int lwork );
5896 
5897 lapack_int LAPACKE_sggqrf_work( int matrix_order, lapack_int n, lapack_int m,
5898                                 lapack_int p, float* a, lapack_int lda,
5899                                 float* taua, float* b, lapack_int ldb,
5900                                 float* taub, float* work, lapack_int lwork );
5901 lapack_int LAPACKE_dggqrf_work( int matrix_order, lapack_int n, lapack_int m,
5902                                 lapack_int p, double* a, lapack_int lda,
5903                                 double* taua, double* b, lapack_int ldb,
5904                                 double* taub, double* work, lapack_int lwork );
5905 lapack_int LAPACKE_cggqrf_work( int matrix_order, lapack_int n, lapack_int m,
5906                                 lapack_int p, lapack_complex_float* a,
5907                                 lapack_int lda, lapack_complex_float* taua,
5908                                 lapack_complex_float* b, lapack_int ldb,
5909                                 lapack_complex_float* taub,
5910                                 lapack_complex_float* work, lapack_int lwork );
5911 lapack_int LAPACKE_zggqrf_work( int matrix_order, lapack_int n, lapack_int m,
5912                                 lapack_int p, lapack_complex_double* a,
5913                                 lapack_int lda, lapack_complex_double* taua,
5914                                 lapack_complex_double* b, lapack_int ldb,
5915                                 lapack_complex_double* taub,
5916                                 lapack_complex_double* work, lapack_int lwork );
5917 
5918 lapack_int LAPACKE_sggrqf_work( int matrix_order, lapack_int m, lapack_int p,
5919                                 lapack_int n, float* a, lapack_int lda,
5920                                 float* taua, float* b, lapack_int ldb,
5921                                 float* taub, float* work, lapack_int lwork );
5922 lapack_int LAPACKE_dggrqf_work( int matrix_order, lapack_int m, lapack_int p,
5923                                 lapack_int n, double* a, lapack_int lda,
5924                                 double* taua, double* b, lapack_int ldb,
5925                                 double* taub, double* work, lapack_int lwork );
5926 lapack_int LAPACKE_cggrqf_work( int matrix_order, lapack_int m, lapack_int p,
5927                                 lapack_int n, lapack_complex_float* a,
5928                                 lapack_int lda, lapack_complex_float* taua,
5929                                 lapack_complex_float* b, lapack_int ldb,
5930                                 lapack_complex_float* taub,
5931                                 lapack_complex_float* work, lapack_int lwork );
5932 lapack_int LAPACKE_zggrqf_work( int matrix_order, lapack_int m, lapack_int p,
5933                                 lapack_int n, lapack_complex_double* a,
5934                                 lapack_int lda, lapack_complex_double* taua,
5935                                 lapack_complex_double* b, lapack_int ldb,
5936                                 lapack_complex_double* taub,
5937                                 lapack_complex_double* work, lapack_int lwork );
5938 
5939 lapack_int LAPACKE_sggsvd_work( int matrix_order, char jobu, char jobv,
5940                                 char jobq, lapack_int m, lapack_int n,
5941                                 lapack_int p, lapack_int* k, lapack_int* l,
5942                                 float* a, lapack_int lda, float* b,
5943                                 lapack_int ldb, float* alpha, float* beta,
5944                                 float* u, lapack_int ldu, float* v,
5945                                 lapack_int ldv, float* q, lapack_int ldq,
5946                                 float* work, lapack_int* iwork );
5947 lapack_int LAPACKE_dggsvd_work( int matrix_order, char jobu, char jobv,
5948                                 char jobq, lapack_int m, lapack_int n,
5949                                 lapack_int p, lapack_int* k, lapack_int* l,
5950                                 double* a, lapack_int lda, double* b,
5951                                 lapack_int ldb, double* alpha, double* beta,
5952                                 double* u, lapack_int ldu, double* v,
5953                                 lapack_int ldv, double* q, lapack_int ldq,
5954                                 double* work, lapack_int* iwork );
5955 lapack_int LAPACKE_cggsvd_work( int matrix_order, char jobu, char jobv,
5956                                 char jobq, lapack_int m, lapack_int n,
5957                                 lapack_int p, lapack_int* k, lapack_int* l,
5958                                 lapack_complex_float* a, lapack_int lda,
5959                                 lapack_complex_float* b, lapack_int ldb,
5960                                 float* alpha, float* beta,
5961                                 lapack_complex_float* u, lapack_int ldu,
5962                                 lapack_complex_float* v, lapack_int ldv,
5963                                 lapack_complex_float* q, lapack_int ldq,
5964                                 lapack_complex_float* work, float* rwork,
5965                                 lapack_int* iwork );
5966 lapack_int LAPACKE_zggsvd_work( int matrix_order, char jobu, char jobv,
5967                                 char jobq, lapack_int m, lapack_int n,
5968                                 lapack_int p, lapack_int* k, lapack_int* l,
5969                                 lapack_complex_double* a, lapack_int lda,
5970                                 lapack_complex_double* b, lapack_int ldb,
5971                                 double* alpha, double* beta,
5972                                 lapack_complex_double* u, lapack_int ldu,
5973                                 lapack_complex_double* v, lapack_int ldv,
5974                                 lapack_complex_double* q, lapack_int ldq,
5975                                 lapack_complex_double* work, double* rwork,
5976                                 lapack_int* iwork );
5977 
5978 lapack_int LAPACKE_sggsvp_work( int matrix_order, char jobu, char jobv,
5979                                 char jobq, lapack_int m, lapack_int p,
5980                                 lapack_int n, float* a, lapack_int lda,
5981                                 float* b, lapack_int ldb, float tola,
5982                                 float tolb, lapack_int* k, lapack_int* l,
5983                                 float* u, lapack_int ldu, float* v,
5984                                 lapack_int ldv, float* q, lapack_int ldq,
5985                                 lapack_int* iwork, float* tau, float* work );
5986 lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv,
5987                                 char jobq, lapack_int m, lapack_int p,
5988                                 lapack_int n, double* a, lapack_int lda,
5989                                 double* b, lapack_int ldb, double tola,
5990                                 double tolb, lapack_int* k, lapack_int* l,
5991                                 double* u, lapack_int ldu, double* v,
5992                                 lapack_int ldv, double* q, lapack_int ldq,
5993                                 lapack_int* iwork, double* tau, double* work );
5994 lapack_int LAPACKE_cggsvp_work( int matrix_order, char jobu, char jobv,
5995                                 char jobq, lapack_int m, lapack_int p,
5996                                 lapack_int n, lapack_complex_float* a,
5997                                 lapack_int lda, lapack_complex_float* b,
5998                                 lapack_int ldb, float tola, float tolb,
5999                                 lapack_int* k, lapack_int* l,
6000                                 lapack_complex_float* u, lapack_int ldu,
6001                                 lapack_complex_float* v, lapack_int ldv,
6002                                 lapack_complex_float* q, lapack_int ldq,
6003                                 lapack_int* iwork, float* rwork,
6004                                 lapack_complex_float* tau,
6005                                 lapack_complex_float* work );
6006 lapack_int LAPACKE_zggsvp_work( int matrix_order, char jobu, char jobv,
6007                                 char jobq, lapack_int m, lapack_int p,
6008                                 lapack_int n, lapack_complex_double* a,
6009                                 lapack_int lda, lapack_complex_double* b,
6010                                 lapack_int ldb, double tola, double tolb,
6011                                 lapack_int* k, lapack_int* l,
6012                                 lapack_complex_double* u, lapack_int ldu,
6013                                 lapack_complex_double* v, lapack_int ldv,
6014                                 lapack_complex_double* q, lapack_int ldq,
6015                                 lapack_int* iwork, double* rwork,
6016                                 lapack_complex_double* tau,
6017                                 lapack_complex_double* work );
6018 
6019 lapack_int LAPACKE_sgtcon_work( char norm, lapack_int n, const float* dl,
6020                                 const float* d, const float* du,
6021                                 const float* du2, const lapack_int* ipiv,
6022                                 float anorm, float* rcond, float* work,
6023                                 lapack_int* iwork );
6024 lapack_int LAPACKE_dgtcon_work( char norm, lapack_int n, const double* dl,
6025                                 const double* d, const double* du,
6026                                 const double* du2, const lapack_int* ipiv,
6027                                 double anorm, double* rcond, double* work,
6028                                 lapack_int* iwork );
6029 lapack_int LAPACKE_cgtcon_work( char norm, lapack_int n,
6030                                 const lapack_complex_float* dl,
6031                                 const lapack_complex_float* d,
6032                                 const lapack_complex_float* du,
6033                                 const lapack_complex_float* du2,
6034                                 const lapack_int* ipiv, float anorm,
6035                                 float* rcond, lapack_complex_float* work );
6036 lapack_int LAPACKE_zgtcon_work( char norm, lapack_int n,
6037                                 const lapack_complex_double* dl,
6038                                 const lapack_complex_double* d,
6039                                 const lapack_complex_double* du,
6040                                 const lapack_complex_double* du2,
6041                                 const lapack_int* ipiv, double anorm,
6042                                 double* rcond, lapack_complex_double* work );
6043 
6044 lapack_int LAPACKE_sgtrfs_work( int matrix_order, char trans, lapack_int n,
6045                                 lapack_int nrhs, const float* dl,
6046                                 const float* d, const float* du,
6047                                 const float* dlf, const float* df,
6048                                 const float* duf, const float* du2,
6049                                 const lapack_int* ipiv, const float* b,
6050                                 lapack_int ldb, float* x, lapack_int ldx,
6051                                 float* ferr, float* berr, float* work,
6052                                 lapack_int* iwork );
6053 lapack_int LAPACKE_dgtrfs_work( int matrix_order, char trans, lapack_int n,
6054                                 lapack_int nrhs, const double* dl,
6055                                 const double* d, const double* du,
6056                                 const double* dlf, const double* df,
6057                                 const double* duf, const double* du2,
6058                                 const lapack_int* ipiv, const double* b,
6059                                 lapack_int ldb, double* x, lapack_int ldx,
6060                                 double* ferr, double* berr, double* work,
6061                                 lapack_int* iwork );
6062 lapack_int LAPACKE_cgtrfs_work( int matrix_order, char trans, lapack_int n,
6063                                 lapack_int nrhs, const lapack_complex_float* dl,
6064                                 const lapack_complex_float* d,
6065                                 const lapack_complex_float* du,
6066                                 const lapack_complex_float* dlf,
6067                                 const lapack_complex_float* df,
6068                                 const lapack_complex_float* duf,
6069                                 const lapack_complex_float* du2,
6070                                 const lapack_int* ipiv,
6071                                 const lapack_complex_float* b, lapack_int ldb,
6072                                 lapack_complex_float* x, lapack_int ldx,
6073                                 float* ferr, float* berr,
6074                                 lapack_complex_float* work, float* rwork );
6075 lapack_int LAPACKE_zgtrfs_work( int matrix_order, char trans, lapack_int n,
6076                                 lapack_int nrhs,
6077                                 const lapack_complex_double* dl,
6078                                 const lapack_complex_double* d,
6079                                 const lapack_complex_double* du,
6080                                 const lapack_complex_double* dlf,
6081                                 const lapack_complex_double* df,
6082                                 const lapack_complex_double* duf,
6083                                 const lapack_complex_double* du2,
6084                                 const lapack_int* ipiv,
6085                                 const lapack_complex_double* b, lapack_int ldb,
6086                                 lapack_complex_double* x, lapack_int ldx,
6087                                 double* ferr, double* berr,
6088                                 lapack_complex_double* work, double* rwork );
6089 
6090 lapack_int LAPACKE_sgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
6091                                float* dl, float* d, float* du, float* b,
6092                                lapack_int ldb );
6093 lapack_int LAPACKE_dgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
6094                                double* dl, double* d, double* du, double* b,
6095                                lapack_int ldb );
6096 lapack_int LAPACKE_cgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
6097                                lapack_complex_float* dl,
6098                                lapack_complex_float* d,
6099                                lapack_complex_float* du,
6100                                lapack_complex_float* b, lapack_int ldb );
6101 lapack_int LAPACKE_zgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
6102                                lapack_complex_double* dl,
6103                                lapack_complex_double* d,
6104                                lapack_complex_double* du,
6105                                lapack_complex_double* b, lapack_int ldb );
6106 
6107 lapack_int LAPACKE_sgtsvx_work( int matrix_order, char fact, char trans,
6108                                 lapack_int n, lapack_int nrhs, const float* dl,
6109                                 const float* d, const float* du, float* dlf,
6110                                 float* df, float* duf, float* du2,
6111                                 lapack_int* ipiv, const float* b,
6112                                 lapack_int ldb, float* x, lapack_int ldx,
6113                                 float* rcond, float* ferr, float* berr,
6114                                 float* work, lapack_int* iwork );
6115 lapack_int LAPACKE_dgtsvx_work( int matrix_order, char fact, char trans,
6116                                 lapack_int n, lapack_int nrhs, const double* dl,
6117                                 const double* d, const double* du, double* dlf,
6118                                 double* df, double* duf, double* du2,
6119                                 lapack_int* ipiv, const double* b,
6120                                 lapack_int ldb, double* x, lapack_int ldx,
6121                                 double* rcond, double* ferr, double* berr,
6122                                 double* work, lapack_int* iwork );
6123 lapack_int LAPACKE_cgtsvx_work( int matrix_order, char fact, char trans,
6124                                 lapack_int n, lapack_int nrhs,
6125                                 const lapack_complex_float* dl,
6126                                 const lapack_complex_float* d,
6127                                 const lapack_complex_float* du,
6128                                 lapack_complex_float* dlf,
6129                                 lapack_complex_float* df,
6130                                 lapack_complex_float* duf,
6131                                 lapack_complex_float* du2, lapack_int* ipiv,
6132                                 const lapack_complex_float* b, lapack_int ldb,
6133                                 lapack_complex_float* x, lapack_int ldx,
6134                                 float* rcond, float* ferr, float* berr,
6135                                 lapack_complex_float* work, float* rwork );
6136 lapack_int LAPACKE_zgtsvx_work( int matrix_order, char fact, char trans,
6137                                 lapack_int n, lapack_int nrhs,
6138                                 const lapack_complex_double* dl,
6139                                 const lapack_complex_double* d,
6140                                 const lapack_complex_double* du,
6141                                 lapack_complex_double* dlf,
6142                                 lapack_complex_double* df,
6143                                 lapack_complex_double* duf,
6144                                 lapack_complex_double* du2, lapack_int* ipiv,
6145                                 const lapack_complex_double* b, lapack_int ldb,
6146                                 lapack_complex_double* x, lapack_int ldx,
6147                                 double* rcond, double* ferr, double* berr,
6148                                 lapack_complex_double* work, double* rwork );
6149 
6150 lapack_int LAPACKE_sgttrf_work( lapack_int n, float* dl, float* d, float* du,
6151                                 float* du2, lapack_int* ipiv );
6152 lapack_int LAPACKE_dgttrf_work( lapack_int n, double* dl, double* d, double* du,
6153                                 double* du2, lapack_int* ipiv );
6154 lapack_int LAPACKE_cgttrf_work( lapack_int n, lapack_complex_float* dl,
6155                                 lapack_complex_float* d,
6156                                 lapack_complex_float* du,
6157                                 lapack_complex_float* du2, lapack_int* ipiv );
6158 lapack_int LAPACKE_zgttrf_work( lapack_int n, lapack_complex_double* dl,
6159                                 lapack_complex_double* d,
6160                                 lapack_complex_double* du,
6161                                 lapack_complex_double* du2, lapack_int* ipiv );
6162 
6163 lapack_int LAPACKE_sgttrs_work( int matrix_order, char trans, lapack_int n,
6164                                 lapack_int nrhs, const float* dl,
6165                                 const float* d, const float* du,
6166                                 const float* du2, const lapack_int* ipiv,
6167                                 float* b, lapack_int ldb );
6168 lapack_int LAPACKE_dgttrs_work( int matrix_order, char trans, lapack_int n,
6169                                 lapack_int nrhs, const double* dl,
6170                                 const double* d, const double* du,
6171                                 const double* du2, const lapack_int* ipiv,
6172                                 double* b, lapack_int ldb );
6173 lapack_int LAPACKE_cgttrs_work( int matrix_order, char trans, lapack_int n,
6174                                 lapack_int nrhs, const lapack_complex_float* dl,
6175                                 const lapack_complex_float* d,
6176                                 const lapack_complex_float* du,
6177                                 const lapack_complex_float* du2,
6178                                 const lapack_int* ipiv, lapack_complex_float* b,
6179                                 lapack_int ldb );
6180 lapack_int LAPACKE_zgttrs_work( int matrix_order, char trans, lapack_int n,
6181                                 lapack_int nrhs,
6182                                 const lapack_complex_double* dl,
6183                                 const lapack_complex_double* d,
6184                                 const lapack_complex_double* du,
6185                                 const lapack_complex_double* du2,
6186                                 const lapack_int* ipiv,
6187                                 lapack_complex_double* b, lapack_int ldb );
6188 
6189 lapack_int LAPACKE_chbev_work( int matrix_order, char jobz, char uplo,
6190                                lapack_int n, lapack_int kd,
6191                                lapack_complex_float* ab, lapack_int ldab,
6192                                float* w, lapack_complex_float* z,
6193                                lapack_int ldz, lapack_complex_float* work,
6194                                float* rwork );
6195 lapack_int LAPACKE_zhbev_work( int matrix_order, char jobz, char uplo,
6196                                lapack_int n, lapack_int kd,
6197                                lapack_complex_double* ab, lapack_int ldab,
6198                                double* w, lapack_complex_double* z,
6199                                lapack_int ldz, lapack_complex_double* work,
6200                                double* rwork );
6201 
6202 lapack_int LAPACKE_chbevd_work( int matrix_order, char jobz, char uplo,
6203                                 lapack_int n, lapack_int kd,
6204                                 lapack_complex_float* ab, lapack_int ldab,
6205                                 float* w, lapack_complex_float* z,
6206                                 lapack_int ldz, lapack_complex_float* work,
6207                                 lapack_int lwork, float* rwork,
6208                                 lapack_int lrwork, lapack_int* iwork,
6209                                 lapack_int liwork );
6210 lapack_int LAPACKE_zhbevd_work( int matrix_order, char jobz, char uplo,
6211                                 lapack_int n, lapack_int kd,
6212                                 lapack_complex_double* ab, lapack_int ldab,
6213                                 double* w, lapack_complex_double* z,
6214                                 lapack_int ldz, lapack_complex_double* work,
6215                                 lapack_int lwork, double* rwork,
6216                                 lapack_int lrwork, lapack_int* iwork,
6217                                 lapack_int liwork );
6218 
6219 lapack_int LAPACKE_chbevx_work( int matrix_order, char jobz, char range,
6220                                 char uplo, lapack_int n, lapack_int kd,
6221                                 lapack_complex_float* ab, lapack_int ldab,
6222                                 lapack_complex_float* q, lapack_int ldq,
6223                                 float vl, float vu, lapack_int il,
6224                                 lapack_int iu, float abstol, lapack_int* m,
6225                                 float* w, lapack_complex_float* z,
6226                                 lapack_int ldz, lapack_complex_float* work,
6227                                 float* rwork, lapack_int* iwork,
6228                                 lapack_int* ifail );
6229 lapack_int LAPACKE_zhbevx_work( int matrix_order, char jobz, char range,
6230                                 char uplo, lapack_int n, lapack_int kd,
6231                                 lapack_complex_double* ab, lapack_int ldab,
6232                                 lapack_complex_double* q, lapack_int ldq,
6233                                 double vl, double vu, lapack_int il,
6234                                 lapack_int iu, double abstol, lapack_int* m,
6235                                 double* w, lapack_complex_double* z,
6236                                 lapack_int ldz, lapack_complex_double* work,
6237                                 double* rwork, lapack_int* iwork,
6238                                 lapack_int* ifail );
6239 
6240 lapack_int LAPACKE_chbgst_work( int matrix_order, char vect, char uplo,
6241                                 lapack_int n, lapack_int ka, lapack_int kb,
6242                                 lapack_complex_float* ab, lapack_int ldab,
6243                                 const lapack_complex_float* bb, lapack_int ldbb,
6244                                 lapack_complex_float* x, lapack_int ldx,
6245                                 lapack_complex_float* work, float* rwork );
6246 lapack_int LAPACKE_zhbgst_work( int matrix_order, char vect, char uplo,
6247                                 lapack_int n, lapack_int ka, lapack_int kb,
6248                                 lapack_complex_double* ab, lapack_int ldab,
6249                                 const lapack_complex_double* bb,
6250                                 lapack_int ldbb, lapack_complex_double* x,
6251                                 lapack_int ldx, lapack_complex_double* work,
6252                                 double* rwork );
6253 
6254 lapack_int LAPACKE_chbgv_work( int matrix_order, char jobz, char uplo,
6255                                lapack_int n, lapack_int ka, lapack_int kb,
6256                                lapack_complex_float* ab, lapack_int ldab,
6257                                lapack_complex_float* bb, lapack_int ldbb,
6258                                float* w, lapack_complex_float* z,
6259                                lapack_int ldz, lapack_complex_float* work,
6260                                float* rwork );
6261 lapack_int LAPACKE_zhbgv_work( int matrix_order, char jobz, char uplo,
6262                                lapack_int n, lapack_int ka, lapack_int kb,
6263                                lapack_complex_double* ab, lapack_int ldab,
6264                                lapack_complex_double* bb, lapack_int ldbb,
6265                                double* w, lapack_complex_double* z,
6266                                lapack_int ldz, lapack_complex_double* work,
6267                                double* rwork );
6268 
6269 lapack_int LAPACKE_chbgvd_work( int matrix_order, char jobz, char uplo,
6270                                 lapack_int n, lapack_int ka, lapack_int kb,
6271                                 lapack_complex_float* ab, lapack_int ldab,
6272                                 lapack_complex_float* bb, lapack_int ldbb,
6273                                 float* w, lapack_complex_float* z,
6274                                 lapack_int ldz, lapack_complex_float* work,
6275                                 lapack_int lwork, float* rwork,
6276                                 lapack_int lrwork, lapack_int* iwork,
6277                                 lapack_int liwork );
6278 lapack_int LAPACKE_zhbgvd_work( int matrix_order, char jobz, char uplo,
6279                                 lapack_int n, lapack_int ka, lapack_int kb,
6280                                 lapack_complex_double* ab, lapack_int ldab,
6281                                 lapack_complex_double* bb, lapack_int ldbb,
6282                                 double* w, lapack_complex_double* z,
6283                                 lapack_int ldz, lapack_complex_double* work,
6284                                 lapack_int lwork, double* rwork,
6285                                 lapack_int lrwork, lapack_int* iwork,
6286                                 lapack_int liwork );
6287 
6288 lapack_int LAPACKE_chbgvx_work( int matrix_order, char jobz, char range,
6289                                 char uplo, lapack_int n, lapack_int ka,
6290                                 lapack_int kb, lapack_complex_float* ab,
6291                                 lapack_int ldab, lapack_complex_float* bb,
6292                                 lapack_int ldbb, lapack_complex_float* q,
6293                                 lapack_int ldq, float vl, float vu,
6294                                 lapack_int il, lapack_int iu, float abstol,
6295                                 lapack_int* m, float* w,
6296                                 lapack_complex_float* z, lapack_int ldz,
6297                                 lapack_complex_float* work, float* rwork,
6298                                 lapack_int* iwork, lapack_int* ifail );
6299 lapack_int LAPACKE_zhbgvx_work( int matrix_order, char jobz, char range,
6300                                 char uplo, lapack_int n, lapack_int ka,
6301                                 lapack_int kb, lapack_complex_double* ab,
6302                                 lapack_int ldab, lapack_complex_double* bb,
6303                                 lapack_int ldbb, lapack_complex_double* q,
6304                                 lapack_int ldq, double vl, double vu,
6305                                 lapack_int il, lapack_int iu, double abstol,
6306                                 lapack_int* m, double* w,
6307                                 lapack_complex_double* z, lapack_int ldz,
6308                                 lapack_complex_double* work, double* rwork,
6309                                 lapack_int* iwork, lapack_int* ifail );
6310 
6311 lapack_int LAPACKE_chbtrd_work( int matrix_order, char vect, char uplo,
6312                                 lapack_int n, lapack_int kd,
6313                                 lapack_complex_float* ab, lapack_int ldab,
6314                                 float* d, float* e, lapack_complex_float* q,
6315                                 lapack_int ldq, lapack_complex_float* work );
6316 lapack_int LAPACKE_zhbtrd_work( int matrix_order, char vect, char uplo,
6317                                 lapack_int n, lapack_int kd,
6318                                 lapack_complex_double* ab, lapack_int ldab,
6319                                 double* d, double* e, lapack_complex_double* q,
6320                                 lapack_int ldq, lapack_complex_double* work );
6321 
6322 lapack_int LAPACKE_checon_work( int matrix_order, char uplo, lapack_int n,
6323                                 const lapack_complex_float* a, lapack_int lda,
6324                                 const lapack_int* ipiv, float anorm,
6325                                 float* rcond, lapack_complex_float* work );
6326 lapack_int LAPACKE_zhecon_work( int matrix_order, char uplo, lapack_int n,
6327                                 const lapack_complex_double* a, lapack_int lda,
6328                                 const lapack_int* ipiv, double anorm,
6329                                 double* rcond, lapack_complex_double* work );
6330 
6331 lapack_int LAPACKE_cheequb_work( int matrix_order, char uplo, lapack_int n,
6332                                  const lapack_complex_float* a, lapack_int lda,
6333                                  float* s, float* scond, float* amax,
6334                                  lapack_complex_float* work );
6335 lapack_int LAPACKE_zheequb_work( int matrix_order, char uplo, lapack_int n,
6336                                  const lapack_complex_double* a, lapack_int lda,
6337                                  double* s, double* scond, double* amax,
6338                                  lapack_complex_double* work );
6339 
6340 lapack_int LAPACKE_cheev_work( int matrix_order, char jobz, char uplo,
6341                                lapack_int n, lapack_complex_float* a,
6342                                lapack_int lda, float* w,
6343                                lapack_complex_float* work, lapack_int lwork,
6344                                float* rwork );
6345 lapack_int LAPACKE_zheev_work( int matrix_order, char jobz, char uplo,
6346                                lapack_int n, lapack_complex_double* a,
6347                                lapack_int lda, double* w,
6348                                lapack_complex_double* work, lapack_int lwork,
6349                                double* rwork );
6350 
6351 lapack_int LAPACKE_cheevd_work( int matrix_order, char jobz, char uplo,
6352                                 lapack_int n, lapack_complex_float* a,
6353                                 lapack_int lda, float* w,
6354                                 lapack_complex_float* work, lapack_int lwork,
6355                                 float* rwork, lapack_int lrwork,
6356                                 lapack_int* iwork, lapack_int liwork );
6357 lapack_int LAPACKE_zheevd_work( int matrix_order, char jobz, char uplo,
6358                                 lapack_int n, lapack_complex_double* a,
6359                                 lapack_int lda, double* w,
6360                                 lapack_complex_double* work, lapack_int lwork,
6361                                 double* rwork, lapack_int lrwork,
6362                                 lapack_int* iwork, lapack_int liwork );
6363 
6364 lapack_int LAPACKE_cheevr_work( int matrix_order, char jobz, char range,
6365                                 char uplo, lapack_int n,
6366                                 lapack_complex_float* a, lapack_int lda,
6367                                 float vl, float vu, lapack_int il,
6368                                 lapack_int iu, float abstol, lapack_int* m,
6369                                 float* w, lapack_complex_float* z,
6370                                 lapack_int ldz, lapack_int* isuppz,
6371                                 lapack_complex_float* work, lapack_int lwork,
6372                                 float* rwork, lapack_int lrwork,
6373                                 lapack_int* iwork, lapack_int liwork );
6374 lapack_int LAPACKE_zheevr_work( int matrix_order, char jobz, char range,
6375                                 char uplo, lapack_int n,
6376                                 lapack_complex_double* a, lapack_int lda,
6377                                 double vl, double vu, lapack_int il,
6378                                 lapack_int iu, double abstol, lapack_int* m,
6379                                 double* w, lapack_complex_double* z,
6380                                 lapack_int ldz, lapack_int* isuppz,
6381                                 lapack_complex_double* work, lapack_int lwork,
6382                                 double* rwork, lapack_int lrwork,
6383                                 lapack_int* iwork, lapack_int liwork );
6384 
6385 lapack_int LAPACKE_cheevx_work( int matrix_order, char jobz, char range,
6386                                 char uplo, lapack_int n,
6387                                 lapack_complex_float* a, lapack_int lda,
6388                                 float vl, float vu, lapack_int il,
6389                                 lapack_int iu, float abstol, lapack_int* m,
6390                                 float* w, lapack_complex_float* z,
6391                                 lapack_int ldz, lapack_complex_float* work,
6392                                 lapack_int lwork, float* rwork,
6393                                 lapack_int* iwork, lapack_int* ifail );
6394 lapack_int LAPACKE_zheevx_work( int matrix_order, char jobz, char range,
6395                                 char uplo, lapack_int n,
6396                                 lapack_complex_double* a, lapack_int lda,
6397                                 double vl, double vu, lapack_int il,
6398                                 lapack_int iu, double abstol, lapack_int* m,
6399                                 double* w, lapack_complex_double* z,
6400                                 lapack_int ldz, lapack_complex_double* work,
6401                                 lapack_int lwork, double* rwork,
6402                                 lapack_int* iwork, lapack_int* ifail );
6403 
6404 lapack_int LAPACKE_chegst_work( int matrix_order, lapack_int itype, char uplo,
6405                                 lapack_int n, lapack_complex_float* a,
6406                                 lapack_int lda, const lapack_complex_float* b,
6407                                 lapack_int ldb );
6408 lapack_int LAPACKE_zhegst_work( int matrix_order, lapack_int itype, char uplo,
6409                                 lapack_int n, lapack_complex_double* a,
6410                                 lapack_int lda, const lapack_complex_double* b,
6411                                 lapack_int ldb );
6412 
6413 lapack_int LAPACKE_chegv_work( int matrix_order, lapack_int itype, char jobz,
6414                                char uplo, lapack_int n, lapack_complex_float* a,
6415                                lapack_int lda, lapack_complex_float* b,
6416                                lapack_int ldb, float* w,
6417                                lapack_complex_float* work, lapack_int lwork,
6418                                float* rwork );
6419 lapack_int LAPACKE_zhegv_work( int matrix_order, lapack_int itype, char jobz,
6420                                char uplo, lapack_int n,
6421                                lapack_complex_double* a, lapack_int lda,
6422                                lapack_complex_double* b, lapack_int ldb,
6423                                double* w, lapack_complex_double* work,
6424                                lapack_int lwork, double* rwork );
6425 
6426 lapack_int LAPACKE_chegvd_work( int matrix_order, lapack_int itype, char jobz,
6427                                 char uplo, lapack_int n,
6428                                 lapack_complex_float* a, lapack_int lda,
6429                                 lapack_complex_float* b, lapack_int ldb,
6430                                 float* w, lapack_complex_float* work,
6431                                 lapack_int lwork, float* rwork,
6432                                 lapack_int lrwork, lapack_int* iwork,
6433                                 lapack_int liwork );
6434 lapack_int LAPACKE_zhegvd_work( int matrix_order, lapack_int itype, char jobz,
6435                                 char uplo, lapack_int n,
6436                                 lapack_complex_double* a, lapack_int lda,
6437                                 lapack_complex_double* b, lapack_int ldb,
6438                                 double* w, lapack_complex_double* work,
6439                                 lapack_int lwork, double* rwork,
6440                                 lapack_int lrwork, lapack_int* iwork,
6441                                 lapack_int liwork );
6442 
6443 lapack_int LAPACKE_chegvx_work( int matrix_order, lapack_int itype, char jobz,
6444                                 char range, char uplo, lapack_int n,
6445                                 lapack_complex_float* a, lapack_int lda,
6446                                 lapack_complex_float* b, lapack_int ldb,
6447                                 float vl, float vu, lapack_int il,
6448                                 lapack_int iu, float abstol, lapack_int* m,
6449                                 float* w, lapack_complex_float* z,
6450                                 lapack_int ldz, lapack_complex_float* work,
6451                                 lapack_int lwork, float* rwork,
6452                                 lapack_int* iwork, lapack_int* ifail );
6453 lapack_int LAPACKE_zhegvx_work( int matrix_order, lapack_int itype, char jobz,
6454                                 char range, char uplo, lapack_int n,
6455                                 lapack_complex_double* a, lapack_int lda,
6456                                 lapack_complex_double* b, lapack_int ldb,
6457                                 double vl, double vu, lapack_int il,
6458                                 lapack_int iu, double abstol, lapack_int* m,
6459                                 double* w, lapack_complex_double* z,
6460                                 lapack_int ldz, lapack_complex_double* work,
6461                                 lapack_int lwork, double* rwork,
6462                                 lapack_int* iwork, lapack_int* ifail );
6463 
6464 lapack_int LAPACKE_cherfs_work( int matrix_order, char uplo, lapack_int n,
6465                                 lapack_int nrhs, const lapack_complex_float* a,
6466                                 lapack_int lda, const lapack_complex_float* af,
6467                                 lapack_int ldaf, const lapack_int* ipiv,
6468                                 const lapack_complex_float* b, lapack_int ldb,
6469                                 lapack_complex_float* x, lapack_int ldx,
6470                                 float* ferr, float* berr,
6471                                 lapack_complex_float* work, float* rwork );
6472 lapack_int LAPACKE_zherfs_work( int matrix_order, char uplo, lapack_int n,
6473                                 lapack_int nrhs, const lapack_complex_double* a,
6474                                 lapack_int lda, const lapack_complex_double* af,
6475                                 lapack_int ldaf, const lapack_int* ipiv,
6476                                 const lapack_complex_double* b, lapack_int ldb,
6477                                 lapack_complex_double* x, lapack_int ldx,
6478                                 double* ferr, double* berr,
6479                                 lapack_complex_double* work, double* rwork );
6480 
6481 lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed,
6482                                  lapack_int n, lapack_int nrhs,
6483                                  const lapack_complex_float* a, lapack_int lda,
6484                                  const lapack_complex_float* af,
6485                                  lapack_int ldaf, const lapack_int* ipiv,
6486                                  const float* s, const lapack_complex_float* b,
6487                                  lapack_int ldb, lapack_complex_float* x,
6488                                  lapack_int ldx, float* rcond, float* berr,
6489                                  lapack_int n_err_bnds, float* err_bnds_norm,
6490                                  float* err_bnds_comp, lapack_int nparams,
6491                                  float* params, lapack_complex_float* work,
6492                                  float* rwork );
6493 lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed,
6494                                  lapack_int n, lapack_int nrhs,
6495                                  const lapack_complex_double* a, lapack_int lda,
6496                                  const lapack_complex_double* af,
6497                                  lapack_int ldaf, const lapack_int* ipiv,
6498                                  const double* s,
6499                                  const lapack_complex_double* b, lapack_int ldb,
6500                                  lapack_complex_double* x, lapack_int ldx,
6501                                  double* rcond, double* berr,
6502                                  lapack_int n_err_bnds, double* err_bnds_norm,
6503                                  double* err_bnds_comp, lapack_int nparams,
6504                                  double* params, lapack_complex_double* work,
6505                                  double* rwork );
6506 
6507 lapack_int LAPACKE_chesv_work( int matrix_order, char uplo, lapack_int n,
6508                                lapack_int nrhs, lapack_complex_float* a,
6509                                lapack_int lda, lapack_int* ipiv,
6510                                lapack_complex_float* b, lapack_int ldb,
6511                                lapack_complex_float* work, lapack_int lwork );
6512 lapack_int LAPACKE_zhesv_work( int matrix_order, char uplo, lapack_int n,
6513                                lapack_int nrhs, lapack_complex_double* a,
6514                                lapack_int lda, lapack_int* ipiv,
6515                                lapack_complex_double* b, lapack_int ldb,
6516                                lapack_complex_double* work, lapack_int lwork );
6517 
6518 lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo,
6519                                 lapack_int n, lapack_int nrhs,
6520                                 const lapack_complex_float* a, lapack_int lda,
6521                                 lapack_complex_float* af, lapack_int ldaf,
6522                                 lapack_int* ipiv, const lapack_complex_float* b,
6523                                 lapack_int ldb, lapack_complex_float* x,
6524                                 lapack_int ldx, float* rcond, float* ferr,
6525                                 float* berr, lapack_complex_float* work,
6526                                 lapack_int lwork, float* rwork );
6527 lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo,
6528                                 lapack_int n, lapack_int nrhs,
6529                                 const lapack_complex_double* a, lapack_int lda,
6530                                 lapack_complex_double* af, lapack_int ldaf,
6531                                 lapack_int* ipiv,
6532                                 const lapack_complex_double* b, lapack_int ldb,
6533                                 lapack_complex_double* x, lapack_int ldx,
6534                                 double* rcond, double* ferr, double* berr,
6535                                 lapack_complex_double* work, lapack_int lwork,
6536                                 double* rwork );
6537 
6538 lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo,
6539                                  lapack_int n, lapack_int nrhs,
6540                                  lapack_complex_float* a, lapack_int lda,
6541                                  lapack_complex_float* af, lapack_int ldaf,
6542                                  lapack_int* ipiv, char* equed, float* s,
6543                                  lapack_complex_float* b, lapack_int ldb,
6544                                  lapack_complex_float* x, lapack_int ldx,
6545                                  float* rcond, float* rpvgrw, float* berr,
6546                                  lapack_int n_err_bnds, float* err_bnds_norm,
6547                                  float* err_bnds_comp, lapack_int nparams,
6548                                  float* params, lapack_complex_float* work,
6549                                  float* rwork );
6550 lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo,
6551                                  lapack_int n, lapack_int nrhs,
6552                                  lapack_complex_double* a, lapack_int lda,
6553                                  lapack_complex_double* af, lapack_int ldaf,
6554                                  lapack_int* ipiv, char* equed, double* s,
6555                                  lapack_complex_double* b, lapack_int ldb,
6556                                  lapack_complex_double* x, lapack_int ldx,
6557                                  double* rcond, double* rpvgrw, double* berr,
6558                                  lapack_int n_err_bnds, double* err_bnds_norm,
6559                                  double* err_bnds_comp, lapack_int nparams,
6560                                  double* params, lapack_complex_double* work,
6561                                  double* rwork );
6562 
6563 lapack_int LAPACKE_chetrd_work( int matrix_order, char uplo, lapack_int n,
6564                                 lapack_complex_float* a, lapack_int lda,
6565                                 float* d, float* e, lapack_complex_float* tau,
6566                                 lapack_complex_float* work, lapack_int lwork );
6567 lapack_int LAPACKE_zhetrd_work( int matrix_order, char uplo, lapack_int n,
6568                                 lapack_complex_double* a, lapack_int lda,
6569                                 double* d, double* e,
6570                                 lapack_complex_double* tau,
6571                                 lapack_complex_double* work, lapack_int lwork );
6572 
6573 lapack_int LAPACKE_chetrf_work( int matrix_order, char uplo, lapack_int n,
6574                                 lapack_complex_float* a, lapack_int lda,
6575                                 lapack_int* ipiv, lapack_complex_float* work,
6576                                 lapack_int lwork );
6577 lapack_int LAPACKE_zhetrf_work( int matrix_order, char uplo, lapack_int n,
6578                                 lapack_complex_double* a, lapack_int lda,
6579                                 lapack_int* ipiv, lapack_complex_double* work,
6580                                 lapack_int lwork );
6581 
6582 lapack_int LAPACKE_chetri_work( int matrix_order, char uplo, lapack_int n,
6583                                 lapack_complex_float* a, lapack_int lda,
6584                                 const lapack_int* ipiv,
6585                                 lapack_complex_float* work );
6586 lapack_int LAPACKE_zhetri_work( int matrix_order, char uplo, lapack_int n,
6587                                 lapack_complex_double* a, lapack_int lda,
6588                                 const lapack_int* ipiv,
6589                                 lapack_complex_double* work );
6590 
6591 lapack_int LAPACKE_chetrs_work( int matrix_order, char uplo, lapack_int n,
6592                                 lapack_int nrhs, const lapack_complex_float* a,
6593                                 lapack_int lda, const lapack_int* ipiv,
6594                                 lapack_complex_float* b, lapack_int ldb );
6595 lapack_int LAPACKE_zhetrs_work( int matrix_order, char uplo, lapack_int n,
6596                                 lapack_int nrhs, const lapack_complex_double* a,
6597                                 lapack_int lda, const lapack_int* ipiv,
6598                                 lapack_complex_double* b, lapack_int ldb );
6599 
6600 lapack_int LAPACKE_chfrk_work( int matrix_order, char transr, char uplo,
6601                                char trans, lapack_int n, lapack_int k,
6602                                float alpha, const lapack_complex_float* a,
6603                                lapack_int lda, float beta,
6604                                lapack_complex_float* c );
6605 lapack_int LAPACKE_zhfrk_work( int matrix_order, char transr, char uplo,
6606                                char trans, lapack_int n, lapack_int k,
6607                                double alpha, const lapack_complex_double* a,
6608                                lapack_int lda, double beta,
6609                                lapack_complex_double* c );
6610 
6611 lapack_int LAPACKE_shgeqz_work( int matrix_order, char job, char compq,
6612                                 char compz, lapack_int n, lapack_int ilo,
6613                                 lapack_int ihi, float* h, lapack_int ldh,
6614                                 float* t, lapack_int ldt, float* alphar,
6615                                 float* alphai, float* beta, float* q,
6616                                 lapack_int ldq, float* z, lapack_int ldz,
6617                                 float* work, lapack_int lwork );
6618 lapack_int LAPACKE_dhgeqz_work( int matrix_order, char job, char compq,
6619                                 char compz, lapack_int n, lapack_int ilo,
6620                                 lapack_int ihi, double* h, lapack_int ldh,
6621                                 double* t, lapack_int ldt, double* alphar,
6622                                 double* alphai, double* beta, double* q,
6623                                 lapack_int ldq, double* z, lapack_int ldz,
6624                                 double* work, lapack_int lwork );
6625 lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq,
6626                                 char compz, lapack_int n, lapack_int ilo,
6627                                 lapack_int ihi, lapack_complex_float* h,
6628                                 lapack_int ldh, lapack_complex_float* t,
6629                                 lapack_int ldt, lapack_complex_float* alpha,
6630                                 lapack_complex_float* beta,
6631                                 lapack_complex_float* q, lapack_int ldq,
6632                                 lapack_complex_float* z, lapack_int ldz,
6633                                 lapack_complex_float* work, lapack_int lwork,
6634                                 float* rwork );
6635 lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq,
6636                                 char compz, lapack_int n, lapack_int ilo,
6637                                 lapack_int ihi, lapack_complex_double* h,
6638                                 lapack_int ldh, lapack_complex_double* t,
6639                                 lapack_int ldt, lapack_complex_double* alpha,
6640                                 lapack_complex_double* beta,
6641                                 lapack_complex_double* q, lapack_int ldq,
6642                                 lapack_complex_double* z, lapack_int ldz,
6643                                 lapack_complex_double* work, lapack_int lwork,
6644                                 double* rwork );
6645 
6646 lapack_int LAPACKE_chpcon_work( int matrix_order, char uplo, lapack_int n,
6647                                 const lapack_complex_float* ap,
6648                                 const lapack_int* ipiv, float anorm,
6649                                 float* rcond, lapack_complex_float* work );
6650 lapack_int LAPACKE_zhpcon_work( int matrix_order, char uplo, lapack_int n,
6651                                 const lapack_complex_double* ap,
6652                                 const lapack_int* ipiv, double anorm,
6653                                 double* rcond, lapack_complex_double* work );
6654 
6655 lapack_int LAPACKE_chpev_work( int matrix_order, char jobz, char uplo,
6656                                lapack_int n, lapack_complex_float* ap, float* w,
6657                                lapack_complex_float* z, lapack_int ldz,
6658                                lapack_complex_float* work, float* rwork );
6659 lapack_int LAPACKE_zhpev_work( int matrix_order, char jobz, char uplo,
6660                                lapack_int n, lapack_complex_double* ap,
6661                                double* w, lapack_complex_double* z,
6662                                lapack_int ldz, lapack_complex_double* work,
6663                                double* rwork );
6664 
6665 lapack_int LAPACKE_chpevd_work( int matrix_order, char jobz, char uplo,
6666                                 lapack_int n, lapack_complex_float* ap,
6667                                 float* w, lapack_complex_float* z,
6668                                 lapack_int ldz, lapack_complex_float* work,
6669                                 lapack_int lwork, float* rwork,
6670                                 lapack_int lrwork, lapack_int* iwork,
6671                                 lapack_int liwork );
6672 lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo,
6673                                 lapack_int n, lapack_complex_double* ap,
6674                                 double* w, lapack_complex_double* z,
6675                                 lapack_int ldz, lapack_complex_double* work,
6676                                 lapack_int lwork, double* rwork,
6677                                 lapack_int lrwork, lapack_int* iwork,
6678                                 lapack_int liwork );
6679 
6680 lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range,
6681                                 char uplo, lapack_int n,
6682                                 lapack_complex_float* ap, float vl, float vu,
6683                                 lapack_int il, lapack_int iu, float abstol,
6684                                 lapack_int* m, float* w,
6685                                 lapack_complex_float* z, lapack_int ldz,
6686                                 lapack_complex_float* work, float* rwork,
6687                                 lapack_int* iwork, lapack_int* ifail );
6688 lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range,
6689                                 char uplo, lapack_int n,
6690                                 lapack_complex_double* ap, double vl, double vu,
6691                                 lapack_int il, lapack_int iu, double abstol,
6692                                 lapack_int* m, double* w,
6693                                 lapack_complex_double* z, lapack_int ldz,
6694                                 lapack_complex_double* work, double* rwork,
6695                                 lapack_int* iwork, lapack_int* ifail );
6696 
6697 lapack_int LAPACKE_chpgst_work( int matrix_order, lapack_int itype, char uplo,
6698                                 lapack_int n, lapack_complex_float* ap,
6699                                 const lapack_complex_float* bp );
6700 lapack_int LAPACKE_zhpgst_work( int matrix_order, lapack_int itype, char uplo,
6701                                 lapack_int n, lapack_complex_double* ap,
6702                                 const lapack_complex_double* bp );
6703 
6704 lapack_int LAPACKE_chpgv_work( int matrix_order, lapack_int itype, char jobz,
6705                                char uplo, lapack_int n,
6706                                lapack_complex_float* ap,
6707                                lapack_complex_float* bp, float* w,
6708                                lapack_complex_float* z, lapack_int ldz,
6709                                lapack_complex_float* work, float* rwork );
6710 lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz,
6711                                char uplo, lapack_int n,
6712                                lapack_complex_double* ap,
6713                                lapack_complex_double* bp, double* w,
6714                                lapack_complex_double* z, lapack_int ldz,
6715                                lapack_complex_double* work, double* rwork );
6716 
6717 lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz,
6718                                 char uplo, lapack_int n,
6719                                 lapack_complex_float* ap,
6720                                 lapack_complex_float* bp, float* w,
6721                                 lapack_complex_float* z, lapack_int ldz,
6722                                 lapack_complex_float* work, lapack_int lwork,
6723                                 float* rwork, lapack_int lrwork,
6724                                 lapack_int* iwork, lapack_int liwork );
6725 lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz,
6726                                 char uplo, lapack_int n,
6727                                 lapack_complex_double* ap,
6728                                 lapack_complex_double* bp, double* w,
6729                                 lapack_complex_double* z, lapack_int ldz,
6730                                 lapack_complex_double* work, lapack_int lwork,
6731                                 double* rwork, lapack_int lrwork,
6732                                 lapack_int* iwork, lapack_int liwork );
6733 
6734 lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz,
6735                                 char range, char uplo, lapack_int n,
6736                                 lapack_complex_float* ap,
6737                                 lapack_complex_float* bp, float vl, float vu,
6738                                 lapack_int il, lapack_int iu, float abstol,
6739                                 lapack_int* m, float* w,
6740                                 lapack_complex_float* z, lapack_int ldz,
6741                                 lapack_complex_float* work, float* rwork,
6742                                 lapack_int* iwork, lapack_int* ifail );
6743 lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz,
6744                                 char range, char uplo, lapack_int n,
6745                                 lapack_complex_double* ap,
6746                                 lapack_complex_double* bp, double vl, double vu,
6747                                 lapack_int il, lapack_int iu, double abstol,
6748                                 lapack_int* m, double* w,
6749                                 lapack_complex_double* z, lapack_int ldz,
6750                                 lapack_complex_double* work, double* rwork,
6751                                 lapack_int* iwork, lapack_int* ifail );
6752 
6753 lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n,
6754                                 lapack_int nrhs, const lapack_complex_float* ap,
6755                                 const lapack_complex_float* afp,
6756                                 const lapack_int* ipiv,
6757                                 const lapack_complex_float* b, lapack_int ldb,
6758                                 lapack_complex_float* x, lapack_int ldx,
6759                                 float* ferr, float* berr,
6760                                 lapack_complex_float* work, float* rwork );
6761 lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n,
6762                                 lapack_int nrhs,
6763                                 const lapack_complex_double* ap,
6764                                 const lapack_complex_double* afp,
6765                                 const lapack_int* ipiv,
6766                                 const lapack_complex_double* b, lapack_int ldb,
6767                                 lapack_complex_double* x, lapack_int ldx,
6768                                 double* ferr, double* berr,
6769                                 lapack_complex_double* work, double* rwork );
6770 
6771 lapack_int LAPACKE_chpsv_work( int matrix_order, char uplo, lapack_int n,
6772                                lapack_int nrhs, lapack_complex_float* ap,
6773                                lapack_int* ipiv, lapack_complex_float* b,
6774                                lapack_int ldb );
6775 lapack_int LAPACKE_zhpsv_work( int matrix_order, char uplo, lapack_int n,
6776                                lapack_int nrhs, lapack_complex_double* ap,
6777                                lapack_int* ipiv, lapack_complex_double* b,
6778                                lapack_int ldb );
6779 
6780 lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo,
6781                                 lapack_int n, lapack_int nrhs,
6782                                 const lapack_complex_float* ap,
6783                                 lapack_complex_float* afp, lapack_int* ipiv,
6784                                 const lapack_complex_float* b, lapack_int ldb,
6785                                 lapack_complex_float* x, lapack_int ldx,
6786                                 float* rcond, float* ferr, float* berr,
6787                                 lapack_complex_float* work, float* rwork );
6788 lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo,
6789                                 lapack_int n, lapack_int nrhs,
6790                                 const lapack_complex_double* ap,
6791                                 lapack_complex_double* afp, lapack_int* ipiv,
6792                                 const lapack_complex_double* b, lapack_int ldb,
6793                                 lapack_complex_double* x, lapack_int ldx,
6794                                 double* rcond, double* ferr, double* berr,
6795                                 lapack_complex_double* work, double* rwork );
6796 
6797 lapack_int LAPACKE_chptrd_work( int matrix_order, char uplo, lapack_int n,
6798                                 lapack_complex_float* ap, float* d, float* e,
6799                                 lapack_complex_float* tau );
6800 lapack_int LAPACKE_zhptrd_work( int matrix_order, char uplo, lapack_int n,
6801                                 lapack_complex_double* ap, double* d, double* e,
6802                                 lapack_complex_double* tau );
6803 
6804 lapack_int LAPACKE_chptrf_work( int matrix_order, char uplo, lapack_int n,
6805                                 lapack_complex_float* ap, lapack_int* ipiv );
6806 lapack_int LAPACKE_zhptrf_work( int matrix_order, char uplo, lapack_int n,
6807                                 lapack_complex_double* ap, lapack_int* ipiv );
6808 
6809 lapack_int LAPACKE_chptri_work( int matrix_order, char uplo, lapack_int n,
6810                                 lapack_complex_float* ap,
6811                                 const lapack_int* ipiv,
6812                                 lapack_complex_float* work );
6813 lapack_int LAPACKE_zhptri_work( int matrix_order, char uplo, lapack_int n,
6814                                 lapack_complex_double* ap,
6815                                 const lapack_int* ipiv,
6816                                 lapack_complex_double* work );
6817 
6818 lapack_int LAPACKE_chptrs_work( int matrix_order, char uplo, lapack_int n,
6819                                 lapack_int nrhs, const lapack_complex_float* ap,
6820                                 const lapack_int* ipiv, lapack_complex_float* b,
6821                                 lapack_int ldb );
6822 lapack_int LAPACKE_zhptrs_work( int matrix_order, char uplo, lapack_int n,
6823                                 lapack_int nrhs,
6824                                 const lapack_complex_double* ap,
6825                                 const lapack_int* ipiv,
6826                                 lapack_complex_double* b, lapack_int ldb );
6827 
6828 lapack_int LAPACKE_shsein_work( int matrix_order, char job, char eigsrc,
6829                                 char initv, lapack_logical* select,
6830                                 lapack_int n, const float* h, lapack_int ldh,
6831                                 float* wr, const float* wi, float* vl,
6832                                 lapack_int ldvl, float* vr, lapack_int ldvr,
6833                                 lapack_int mm, lapack_int* m, float* work,
6834                                 lapack_int* ifaill, lapack_int* ifailr );
6835 lapack_int LAPACKE_dhsein_work( int matrix_order, char job, char eigsrc,
6836                                 char initv, lapack_logical* select,
6837                                 lapack_int n, const double* h, lapack_int ldh,
6838                                 double* wr, const double* wi, double* vl,
6839                                 lapack_int ldvl, double* vr, lapack_int ldvr,
6840                                 lapack_int mm, lapack_int* m, double* work,
6841                                 lapack_int* ifaill, lapack_int* ifailr );
6842 lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc,
6843                                 char initv, const lapack_logical* select,
6844                                 lapack_int n, const lapack_complex_float* h,
6845                                 lapack_int ldh, lapack_complex_float* w,
6846                                 lapack_complex_float* vl, lapack_int ldvl,
6847                                 lapack_complex_float* vr, lapack_int ldvr,
6848                                 lapack_int mm, lapack_int* m,
6849                                 lapack_complex_float* work, float* rwork,
6850                                 lapack_int* ifaill, lapack_int* ifailr );
6851 lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc,
6852                                 char initv, const lapack_logical* select,
6853                                 lapack_int n, const lapack_complex_double* h,
6854                                 lapack_int ldh, lapack_complex_double* w,
6855                                 lapack_complex_double* vl, lapack_int ldvl,
6856                                 lapack_complex_double* vr, lapack_int ldvr,
6857                                 lapack_int mm, lapack_int* m,
6858                                 lapack_complex_double* work, double* rwork,
6859                                 lapack_int* ifaill, lapack_int* ifailr );
6860 
6861 lapack_int LAPACKE_shseqr_work( int matrix_order, char job, char compz,
6862                                 lapack_int n, lapack_int ilo, lapack_int ihi,
6863                                 float* h, lapack_int ldh, float* wr, float* wi,
6864                                 float* z, lapack_int ldz, float* work,
6865                                 lapack_int lwork );
6866 lapack_int LAPACKE_dhseqr_work( int matrix_order, char job, char compz,
6867                                 lapack_int n, lapack_int ilo, lapack_int ihi,
6868                                 double* h, lapack_int ldh, double* wr,
6869                                 double* wi, double* z, lapack_int ldz,
6870                                 double* work, lapack_int lwork );
6871 lapack_int LAPACKE_chseqr_work( int matrix_order, char job, char compz,
6872                                 lapack_int n, lapack_int ilo, lapack_int ihi,
6873                                 lapack_complex_float* h, lapack_int ldh,
6874                                 lapack_complex_float* w,
6875                                 lapack_complex_float* z, lapack_int ldz,
6876                                 lapack_complex_float* work, lapack_int lwork );
6877 lapack_int LAPACKE_zhseqr_work( int matrix_order, char job, char compz,
6878                                 lapack_int n, lapack_int ilo, lapack_int ihi,
6879                                 lapack_complex_double* h, lapack_int ldh,
6880                                 lapack_complex_double* w,
6881                                 lapack_complex_double* z, lapack_int ldz,
6882                                 lapack_complex_double* work, lapack_int lwork );
6883 
6884 lapack_int LAPACKE_clacgv_work( lapack_int n, lapack_complex_float* x,
6885                                 lapack_int incx );
6886 lapack_int LAPACKE_zlacgv_work( lapack_int n, lapack_complex_double* x,
6887                                 lapack_int incx );
6888 
6889 lapack_int LAPACKE_slacpy_work( int matrix_order, char uplo, lapack_int m,
6890                                 lapack_int n, const float* a, lapack_int lda,
6891                                 float* b, lapack_int ldb );
6892 lapack_int LAPACKE_dlacpy_work( int matrix_order, char uplo, lapack_int m,
6893                                 lapack_int n, const double* a, lapack_int lda,
6894                                 double* b, lapack_int ldb );
6895 lapack_int LAPACKE_clacpy_work( int matrix_order, char uplo, lapack_int m,
6896                                 lapack_int n, const lapack_complex_float* a,
6897                                 lapack_int lda, lapack_complex_float* b,
6898                                 lapack_int ldb );
6899 lapack_int LAPACKE_zlacpy_work( int matrix_order, char uplo, lapack_int m,
6900                                 lapack_int n, const lapack_complex_double* a,
6901                                 lapack_int lda, lapack_complex_double* b,
6902                                 lapack_int ldb );
6903 
6904 lapack_int LAPACKE_zlag2c_work( int matrix_order, lapack_int m, lapack_int n,
6905                                 const lapack_complex_double* a, lapack_int lda,
6906                                 lapack_complex_float* sa, lapack_int ldsa );
6907 
6908 lapack_int LAPACKE_slag2d_work( int matrix_order, lapack_int m, lapack_int n,
6909                                 const float* sa, lapack_int ldsa, double* a,
6910                                 lapack_int lda );
6911 
6912 lapack_int LAPACKE_dlag2s_work( int matrix_order, lapack_int m, lapack_int n,
6913                                 const double* a, lapack_int lda, float* sa,
6914                                 lapack_int ldsa );
6915 
6916 lapack_int LAPACKE_clag2z_work( int matrix_order, lapack_int m, lapack_int n,
6917                                 const lapack_complex_float* sa, lapack_int ldsa,
6918                                 lapack_complex_double* a, lapack_int lda );
6919 
6920 lapack_int LAPACKE_slagge_work( int matrix_order, lapack_int m, lapack_int n,
6921                                 lapack_int kl, lapack_int ku, const float* d,
6922                                 float* a, lapack_int lda, lapack_int* iseed,
6923                                 float* work );
6924 lapack_int LAPACKE_dlagge_work( int matrix_order, lapack_int m, lapack_int n,
6925                                 lapack_int kl, lapack_int ku, const double* d,
6926                                 double* a, lapack_int lda, lapack_int* iseed,
6927                                 double* work );
6928 lapack_int LAPACKE_clagge_work( int matrix_order, lapack_int m, lapack_int n,
6929                                 lapack_int kl, lapack_int ku, const float* d,
6930                                 lapack_complex_float* a, lapack_int lda,
6931                                 lapack_int* iseed, lapack_complex_float* work );
6932 lapack_int LAPACKE_zlagge_work( int matrix_order, lapack_int m, lapack_int n,
6933                                 lapack_int kl, lapack_int ku, const double* d,
6934                                 lapack_complex_double* a, lapack_int lda,
6935                                 lapack_int* iseed,
6936                                 lapack_complex_double* work );
6937 
6938 lapack_int LAPACKE_claghe_work( int matrix_order, lapack_int n, lapack_int k,
6939                                 const float* d, lapack_complex_float* a,
6940                                 lapack_int lda, lapack_int* iseed,
6941                                 lapack_complex_float* work );
6942 lapack_int LAPACKE_zlaghe_work( int matrix_order, lapack_int n, lapack_int k,
6943                                 const double* d, lapack_complex_double* a,
6944                                 lapack_int lda, lapack_int* iseed,
6945                                 lapack_complex_double* work );
6946 
6947 lapack_int LAPACKE_slagsy_work( int matrix_order, lapack_int n, lapack_int k,
6948                                 const float* d, float* a, lapack_int lda,
6949                                 lapack_int* iseed, float* work );
6950 lapack_int LAPACKE_dlagsy_work( int matrix_order, lapack_int n, lapack_int k,
6951                                 const double* d, double* a, lapack_int lda,
6952                                 lapack_int* iseed, double* work );
6953 lapack_int LAPACKE_clagsy_work( int matrix_order, lapack_int n, lapack_int k,
6954                                 const float* d, lapack_complex_float* a,
6955                                 lapack_int lda, lapack_int* iseed,
6956                                 lapack_complex_float* work );
6957 lapack_int LAPACKE_zlagsy_work( int matrix_order, lapack_int n, lapack_int k,
6958                                 const double* d, lapack_complex_double* a,
6959                                 lapack_int lda, lapack_int* iseed,
6960                                 lapack_complex_double* work );
6961 
6962 lapack_int LAPACKE_slapmr_work( int matrix_order, lapack_logical forwrd,
6963                                 lapack_int m, lapack_int n, float* x,
6964                                 lapack_int ldx, lapack_int* k );
6965 lapack_int LAPACKE_dlapmr_work( int matrix_order, lapack_logical forwrd,
6966                                 lapack_int m, lapack_int n, double* x,
6967                                 lapack_int ldx, lapack_int* k );
6968 lapack_int LAPACKE_clapmr_work( int matrix_order, lapack_logical forwrd,
6969                                 lapack_int m, lapack_int n,
6970                                 lapack_complex_float* x, lapack_int ldx,
6971                                 lapack_int* k );
6972 lapack_int LAPACKE_zlapmr_work( int matrix_order, lapack_logical forwrd,
6973                                 lapack_int m, lapack_int n,
6974                                 lapack_complex_double* x, lapack_int ldx,
6975                                 lapack_int* k );
6976 
6977 lapack_int LAPACKE_slartgp_work( float f, float g, float* cs, float* sn,
6978                                  float* r );
6979 lapack_int LAPACKE_dlartgp_work( double f, double g, double* cs, double* sn,
6980                                  double* r );
6981 
6982 lapack_int LAPACKE_slartgs_work( float x, float y, float sigma, float* cs,
6983                                  float* sn );
6984 lapack_int LAPACKE_dlartgs_work( double x, double y, double sigma, double* cs,
6985                                  double* sn );
6986 
6987 float LAPACKE_slapy2_work( float x, float y );
6988 double LAPACKE_dlapy2_work( double x, double y );
6989 
6990 float LAPACKE_slapy3_work( float x, float y, float z );
6991 double LAPACKE_dlapy3_work( double x, double y, double z );
6992 
6993 float LAPACKE_slamch_work( char cmach );
6994 double LAPACKE_dlamch_work( char cmach );
6995 
6996 float LAPACKE_slange_work( int matrix_order, char norm, lapack_int m,
6997                                 lapack_int n, const float* a, lapack_int lda,
6998                                 float* work );
6999 double LAPACKE_dlange_work( int matrix_order, char norm, lapack_int m,
7000                                 lapack_int n, const double* a, lapack_int lda,
7001                                 double* work );
7002 float LAPACKE_clange_work( int matrix_order, char norm, lapack_int m,
7003                                 lapack_int n, const lapack_complex_float* a,
7004                                 lapack_int lda, float* work );
7005 double LAPACKE_zlange_work( int matrix_order, char norm, lapack_int m,
7006                                 lapack_int n, const lapack_complex_double* a,
7007                                 lapack_int lda, double* work );
7008 
7009 float LAPACKE_clanhe_work( int matrix_order, char norm, char uplo,
7010                                 lapack_int n, const lapack_complex_float* a,
7011                                 lapack_int lda, float* work );
7012 double LAPACKE_zlanhe_work( int matrix_order, char norm, char uplo,
7013                                 lapack_int n, const lapack_complex_double* a,
7014                                 lapack_int lda, double* work );
7015 
7016 float LAPACKE_slansy_work( int matrix_order, char norm, char uplo,
7017                                 lapack_int n, const float* a, lapack_int lda,
7018                                 float* work );
7019 double LAPACKE_dlansy_work( int matrix_order, char norm, char uplo,
7020                                 lapack_int n, const double* a, lapack_int lda,
7021                                 double* work );
7022 float LAPACKE_clansy_work( int matrix_order, char norm, char uplo,
7023                                 lapack_int n, const lapack_complex_float* a,
7024                                 lapack_int lda, float* work );
7025 double LAPACKE_zlansy_work( int matrix_order, char norm, char uplo,
7026                                 lapack_int n, const lapack_complex_double* a,
7027                                 lapack_int lda, double* work );
7028 
7029 float LAPACKE_slantr_work( int matrix_order, char norm, char uplo,
7030                                 char diag, lapack_int m, lapack_int n, const float* a,
7031                                 lapack_int lda, float* work );
7032 double LAPACKE_dlantr_work( int matrix_order, char norm, char uplo,
7033                                 char diag, lapack_int m, lapack_int n,
7034                                 const double* a, lapack_int lda, double* work );
7035 float LAPACKE_clantr_work( int matrix_order, char norm, char uplo,
7036                                 char diag, lapack_int m, lapack_int n,
7037                                 const lapack_complex_float* a, lapack_int lda,
7038                                 float* work );
7039 double LAPACKE_zlantr_work( int matrix_order, char norm, char uplo,
7040                                 char diag, lapack_int m, lapack_int n,
7041                                 const lapack_complex_double* a, lapack_int lda,
7042                                 double* work );
7043 
7044 lapack_int LAPACKE_slarfb_work( int matrix_order, char side, char trans,
7045                                 char direct, char storev, lapack_int m,
7046                                 lapack_int n, lapack_int k, const float* v,
7047                                 lapack_int ldv, const float* t, lapack_int ldt,
7048                                 float* c, lapack_int ldc, float* work,
7049                                 lapack_int ldwork );
7050 lapack_int LAPACKE_dlarfb_work( int matrix_order, char side, char trans,
7051                                 char direct, char storev, lapack_int m,
7052                                 lapack_int n, lapack_int k, const double* v,
7053                                 lapack_int ldv, const double* t, lapack_int ldt,
7054                                 double* c, lapack_int ldc, double* work,
7055                                 lapack_int ldwork );
7056 lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans,
7057                                 char direct, char storev, lapack_int m,
7058                                 lapack_int n, lapack_int k,
7059                                 const lapack_complex_float* v, lapack_int ldv,
7060                                 const lapack_complex_float* t, lapack_int ldt,
7061                                 lapack_complex_float* c, lapack_int ldc,
7062                                 lapack_complex_float* work, lapack_int ldwork );
7063 lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans,
7064                                 char direct, char storev, lapack_int m,
7065                                 lapack_int n, lapack_int k,
7066                                 const lapack_complex_double* v, lapack_int ldv,
7067                                 const lapack_complex_double* t, lapack_int ldt,
7068                                 lapack_complex_double* c, lapack_int ldc,
7069                                 lapack_complex_double* work,
7070                                 lapack_int ldwork );
7071 
7072 lapack_int LAPACKE_slarfg_work( lapack_int n, float* alpha, float* x,
7073                                 lapack_int incx, float* tau );
7074 lapack_int LAPACKE_dlarfg_work( lapack_int n, double* alpha, double* x,
7075                                 lapack_int incx, double* tau );
7076 lapack_int LAPACKE_clarfg_work( lapack_int n, lapack_complex_float* alpha,
7077                                 lapack_complex_float* x, lapack_int incx,
7078                                 lapack_complex_float* tau );
7079 lapack_int LAPACKE_zlarfg_work( lapack_int n, lapack_complex_double* alpha,
7080                                 lapack_complex_double* x, lapack_int incx,
7081                                 lapack_complex_double* tau );
7082 
7083 lapack_int LAPACKE_slarft_work( int matrix_order, char direct, char storev,
7084                                 lapack_int n, lapack_int k, const float* v,
7085                                 lapack_int ldv, const float* tau, float* t,
7086                                 lapack_int ldt );
7087 lapack_int LAPACKE_dlarft_work( int matrix_order, char direct, char storev,
7088                                 lapack_int n, lapack_int k, const double* v,
7089                                 lapack_int ldv, const double* tau, double* t,
7090                                 lapack_int ldt );
7091 lapack_int LAPACKE_clarft_work( int matrix_order, char direct, char storev,
7092                                 lapack_int n, lapack_int k,
7093                                 const lapack_complex_float* v, lapack_int ldv,
7094                                 const lapack_complex_float* tau,
7095                                 lapack_complex_float* t, lapack_int ldt );
7096 lapack_int LAPACKE_zlarft_work( int matrix_order, char direct, char storev,
7097                                 lapack_int n, lapack_int k,
7098                                 const lapack_complex_double* v, lapack_int ldv,
7099                                 const lapack_complex_double* tau,
7100                                 lapack_complex_double* t, lapack_int ldt );
7101 
7102 lapack_int LAPACKE_slarfx_work( int matrix_order, char side, lapack_int m,
7103                                 lapack_int n, const float* v, float tau,
7104                                 float* c, lapack_int ldc, float* work );
7105 lapack_int LAPACKE_dlarfx_work( int matrix_order, char side, lapack_int m,
7106                                 lapack_int n, const double* v, double tau,
7107                                 double* c, lapack_int ldc, double* work );
7108 lapack_int LAPACKE_clarfx_work( int matrix_order, char side, lapack_int m,
7109                                 lapack_int n, const lapack_complex_float* v,
7110                                 lapack_complex_float tau,
7111                                 lapack_complex_float* c, lapack_int ldc,
7112                                 lapack_complex_float* work );
7113 lapack_int LAPACKE_zlarfx_work( int matrix_order, char side, lapack_int m,
7114                                 lapack_int n, const lapack_complex_double* v,
7115                                 lapack_complex_double tau,
7116                                 lapack_complex_double* c, lapack_int ldc,
7117                                 lapack_complex_double* work );
7118 
7119 lapack_int LAPACKE_slarnv_work( lapack_int idist, lapack_int* iseed,
7120                                 lapack_int n, float* x );
7121 lapack_int LAPACKE_dlarnv_work( lapack_int idist, lapack_int* iseed,
7122                                 lapack_int n, double* x );
7123 lapack_int LAPACKE_clarnv_work( lapack_int idist, lapack_int* iseed,
7124                                 lapack_int n, lapack_complex_float* x );
7125 lapack_int LAPACKE_zlarnv_work( lapack_int idist, lapack_int* iseed,
7126                                 lapack_int n, lapack_complex_double* x );
7127 
7128 lapack_int LAPACKE_slaset_work( int matrix_order, char uplo, lapack_int m,
7129                                 lapack_int n, float alpha, float beta, float* a,
7130                                 lapack_int lda );
7131 lapack_int LAPACKE_dlaset_work( int matrix_order, char uplo, lapack_int m,
7132                                 lapack_int n, double alpha, double beta,
7133                                 double* a, lapack_int lda );
7134 lapack_int LAPACKE_claset_work( int matrix_order, char uplo, lapack_int m,
7135                                 lapack_int n, lapack_complex_float alpha,
7136                                 lapack_complex_float beta,
7137                                 lapack_complex_float* a, lapack_int lda );
7138 lapack_int LAPACKE_zlaset_work( int matrix_order, char uplo, lapack_int m,
7139                                 lapack_int n, lapack_complex_double alpha,
7140                                 lapack_complex_double beta,
7141                                 lapack_complex_double* a, lapack_int lda );
7142 
7143 lapack_int LAPACKE_slasrt_work( char id, lapack_int n, float* d );
7144 lapack_int LAPACKE_dlasrt_work( char id, lapack_int n, double* d );
7145 
7146 lapack_int LAPACKE_slaswp_work( int matrix_order, lapack_int n, float* a,
7147                                 lapack_int lda, lapack_int k1, lapack_int k2,
7148                                 const lapack_int* ipiv, lapack_int incx );
7149 lapack_int LAPACKE_dlaswp_work( int matrix_order, lapack_int n, double* a,
7150                                 lapack_int lda, lapack_int k1, lapack_int k2,
7151                                 const lapack_int* ipiv, lapack_int incx );
7152 lapack_int LAPACKE_claswp_work( int matrix_order, lapack_int n,
7153                                 lapack_complex_float* a, lapack_int lda,
7154                                 lapack_int k1, lapack_int k2,
7155                                 const lapack_int* ipiv, lapack_int incx );
7156 lapack_int LAPACKE_zlaswp_work( int matrix_order, lapack_int n,
7157                                 lapack_complex_double* a, lapack_int lda,
7158                                 lapack_int k1, lapack_int k2,
7159                                 const lapack_int* ipiv, lapack_int incx );
7160 
7161 lapack_int LAPACKE_slatms_work( int matrix_order, lapack_int m, lapack_int n,
7162                                 char dist, lapack_int* iseed, char sym,
7163                                 float* d, lapack_int mode, float cond,
7164                                 float dmax, lapack_int kl, lapack_int ku,
7165                                 char pack, float* a, lapack_int lda,
7166                                 float* work );
7167 lapack_int LAPACKE_dlatms_work( int matrix_order, lapack_int m, lapack_int n,
7168                                 char dist, lapack_int* iseed, char sym,
7169                                 double* d, lapack_int mode, double cond,
7170                                 double dmax, lapack_int kl, lapack_int ku,
7171                                 char pack, double* a, lapack_int lda,
7172                                 double* work );
7173 lapack_int LAPACKE_clatms_work( int matrix_order, lapack_int m, lapack_int n,
7174                                 char dist, lapack_int* iseed, char sym,
7175                                 float* d, lapack_int mode, float cond,
7176                                 float dmax, lapack_int kl, lapack_int ku,
7177                                 char pack, lapack_complex_float* a,
7178                                 lapack_int lda, lapack_complex_float* work );
7179 lapack_int LAPACKE_zlatms_work( int matrix_order, lapack_int m, lapack_int n,
7180                                 char dist, lapack_int* iseed, char sym,
7181                                 double* d, lapack_int mode, double cond,
7182                                 double dmax, lapack_int kl, lapack_int ku,
7183                                 char pack, lapack_complex_double* a,
7184                                 lapack_int lda, lapack_complex_double* work );
7185 
7186 lapack_int LAPACKE_slauum_work( int matrix_order, char uplo, lapack_int n,
7187                                 float* a, lapack_int lda );
7188 lapack_int LAPACKE_dlauum_work( int matrix_order, char uplo, lapack_int n,
7189                                 double* a, lapack_int lda );
7190 lapack_int LAPACKE_clauum_work( int matrix_order, char uplo, lapack_int n,
7191                                 lapack_complex_float* a, lapack_int lda );
7192 lapack_int LAPACKE_zlauum_work( int matrix_order, char uplo, lapack_int n,
7193                                 lapack_complex_double* a, lapack_int lda );
7194 
7195 lapack_int LAPACKE_sopgtr_work( int matrix_order, char uplo, lapack_int n,
7196                                 const float* ap, const float* tau, float* q,
7197                                 lapack_int ldq, float* work );
7198 lapack_int LAPACKE_dopgtr_work( int matrix_order, char uplo, lapack_int n,
7199                                 const double* ap, const double* tau, double* q,
7200                                 lapack_int ldq, double* work );
7201 
7202 lapack_int LAPACKE_sopmtr_work( int matrix_order, char side, char uplo,
7203                                 char trans, lapack_int m, lapack_int n,
7204                                 const float* ap, const float* tau, float* c,
7205                                 lapack_int ldc, float* work );
7206 lapack_int LAPACKE_dopmtr_work( int matrix_order, char side, char uplo,
7207                                 char trans, lapack_int m, lapack_int n,
7208                                 const double* ap, const double* tau, double* c,
7209                                 lapack_int ldc, double* work );
7210 
7211 lapack_int LAPACKE_sorgbr_work( int matrix_order, char vect, lapack_int m,
7212                                 lapack_int n, lapack_int k, float* a,
7213                                 lapack_int lda, const float* tau, float* work,
7214                                 lapack_int lwork );
7215 lapack_int LAPACKE_dorgbr_work( int matrix_order, char vect, lapack_int m,
7216                                 lapack_int n, lapack_int k, double* a,
7217                                 lapack_int lda, const double* tau, double* work,
7218                                 lapack_int lwork );
7219 
7220 lapack_int LAPACKE_sorghr_work( int matrix_order, lapack_int n, lapack_int ilo,
7221                                 lapack_int ihi, float* a, lapack_int lda,
7222                                 const float* tau, float* work,
7223                                 lapack_int lwork );
7224 lapack_int LAPACKE_dorghr_work( int matrix_order, lapack_int n, lapack_int ilo,
7225                                 lapack_int ihi, double* a, lapack_int lda,
7226                                 const double* tau, double* work,
7227                                 lapack_int lwork );
7228 
7229 lapack_int LAPACKE_sorglq_work( int matrix_order, lapack_int m, lapack_int n,
7230                                 lapack_int k, float* a, lapack_int lda,
7231                                 const float* tau, float* work,
7232                                 lapack_int lwork );
7233 lapack_int LAPACKE_dorglq_work( int matrix_order, lapack_int m, lapack_int n,
7234                                 lapack_int k, double* a, lapack_int lda,
7235                                 const double* tau, double* work,
7236                                 lapack_int lwork );
7237 
7238 lapack_int LAPACKE_sorgql_work( int matrix_order, lapack_int m, lapack_int n,
7239                                 lapack_int k, float* a, lapack_int lda,
7240                                 const float* tau, float* work,
7241                                 lapack_int lwork );
7242 lapack_int LAPACKE_dorgql_work( int matrix_order, lapack_int m, lapack_int n,
7243                                 lapack_int k, double* a, lapack_int lda,
7244                                 const double* tau, double* work,
7245                                 lapack_int lwork );
7246 
7247 lapack_int LAPACKE_sorgqr_work( int matrix_order, lapack_int m, lapack_int n,
7248                                 lapack_int k, float* a, lapack_int lda,
7249                                 const float* tau, float* work,
7250                                 lapack_int lwork );
7251 lapack_int LAPACKE_dorgqr_work( int matrix_order, lapack_int m, lapack_int n,
7252                                 lapack_int k, double* a, lapack_int lda,
7253                                 const double* tau, double* work,
7254                                 lapack_int lwork );
7255 
7256 lapack_int LAPACKE_sorgrq_work( int matrix_order, lapack_int m, lapack_int n,
7257                                 lapack_int k, float* a, lapack_int lda,
7258                                 const float* tau, float* work,
7259                                 lapack_int lwork );
7260 lapack_int LAPACKE_dorgrq_work( int matrix_order, lapack_int m, lapack_int n,
7261                                 lapack_int k, double* a, lapack_int lda,
7262                                 const double* tau, double* work,
7263                                 lapack_int lwork );
7264 
7265 lapack_int LAPACKE_sorgtr_work( int matrix_order, char uplo, lapack_int n,
7266                                 float* a, lapack_int lda, const float* tau,
7267                                 float* work, lapack_int lwork );
7268 lapack_int LAPACKE_dorgtr_work( int matrix_order, char uplo, lapack_int n,
7269                                 double* a, lapack_int lda, const double* tau,
7270                                 double* work, lapack_int lwork );
7271 
7272 lapack_int LAPACKE_sormbr_work( int matrix_order, char vect, char side,
7273                                 char trans, lapack_int m, lapack_int n,
7274                                 lapack_int k, const float* a, lapack_int lda,
7275                                 const float* tau, float* c, lapack_int ldc,
7276                                 float* work, lapack_int lwork );
7277 lapack_int LAPACKE_dormbr_work( int matrix_order, char vect, char side,
7278                                 char trans, lapack_int m, lapack_int n,
7279                                 lapack_int k, const double* a, lapack_int lda,
7280                                 const double* tau, double* c, lapack_int ldc,
7281                                 double* work, lapack_int lwork );
7282 
7283 lapack_int LAPACKE_sormhr_work( int matrix_order, char side, char trans,
7284                                 lapack_int m, lapack_int n, lapack_int ilo,
7285                                 lapack_int ihi, const float* a, lapack_int lda,
7286                                 const float* tau, float* c, lapack_int ldc,
7287                                 float* work, lapack_int lwork );
7288 lapack_int LAPACKE_dormhr_work( int matrix_order, char side, char trans,
7289                                 lapack_int m, lapack_int n, lapack_int ilo,
7290                                 lapack_int ihi, const double* a, lapack_int lda,
7291                                 const double* tau, double* c, lapack_int ldc,
7292                                 double* work, lapack_int lwork );
7293 
7294 lapack_int LAPACKE_sormlq_work( int matrix_order, char side, char trans,
7295                                 lapack_int m, lapack_int n, lapack_int k,
7296                                 const float* a, lapack_int lda,
7297                                 const float* tau, float* c, lapack_int ldc,
7298                                 float* work, lapack_int lwork );
7299 lapack_int LAPACKE_dormlq_work( int matrix_order, char side, char trans,
7300                                 lapack_int m, lapack_int n, lapack_int k,
7301                                 const double* a, lapack_int lda,
7302                                 const double* tau, double* c, lapack_int ldc,
7303                                 double* work, lapack_int lwork );
7304 
7305 lapack_int LAPACKE_sormql_work( int matrix_order, char side, char trans,
7306                                 lapack_int m, lapack_int n, lapack_int k,
7307                                 const float* a, lapack_int lda,
7308                                 const float* tau, float* c, lapack_int ldc,
7309                                 float* work, lapack_int lwork );
7310 lapack_int LAPACKE_dormql_work( int matrix_order, char side, char trans,
7311                                 lapack_int m, lapack_int n, lapack_int k,
7312                                 const double* a, lapack_int lda,
7313                                 const double* tau, double* c, lapack_int ldc,
7314                                 double* work, lapack_int lwork );
7315 
7316 lapack_int LAPACKE_sormqr_work( int matrix_order, char side, char trans,
7317                                 lapack_int m, lapack_int n, lapack_int k,
7318                                 const float* a, lapack_int lda,
7319                                 const float* tau, float* c, lapack_int ldc,
7320                                 float* work, lapack_int lwork );
7321 lapack_int LAPACKE_dormqr_work( int matrix_order, char side, char trans,
7322                                 lapack_int m, lapack_int n, lapack_int k,
7323                                 const double* a, lapack_int lda,
7324                                 const double* tau, double* c, lapack_int ldc,
7325                                 double* work, lapack_int lwork );
7326 
7327 lapack_int LAPACKE_sormrq_work( int matrix_order, char side, char trans,
7328                                 lapack_int m, lapack_int n, lapack_int k,
7329                                 const float* a, lapack_int lda,
7330                                 const float* tau, float* c, lapack_int ldc,
7331                                 float* work, lapack_int lwork );
7332 lapack_int LAPACKE_dormrq_work( int matrix_order, char side, char trans,
7333                                 lapack_int m, lapack_int n, lapack_int k,
7334                                 const double* a, lapack_int lda,
7335                                 const double* tau, double* c, lapack_int ldc,
7336                                 double* work, lapack_int lwork );
7337 
7338 lapack_int LAPACKE_sormrz_work( int matrix_order, char side, char trans,
7339                                 lapack_int m, lapack_int n, lapack_int k,
7340                                 lapack_int l, const float* a, lapack_int lda,
7341                                 const float* tau, float* c, lapack_int ldc,
7342                                 float* work, lapack_int lwork );
7343 lapack_int LAPACKE_dormrz_work( int matrix_order, char side, char trans,
7344                                 lapack_int m, lapack_int n, lapack_int k,
7345                                 lapack_int l, const double* a, lapack_int lda,
7346                                 const double* tau, double* c, lapack_int ldc,
7347                                 double* work, lapack_int lwork );
7348 
7349 lapack_int LAPACKE_sormtr_work( int matrix_order, char side, char uplo,
7350                                 char trans, lapack_int m, lapack_int n,
7351                                 const float* a, lapack_int lda,
7352                                 const float* tau, float* c, lapack_int ldc,
7353                                 float* work, lapack_int lwork );
7354 lapack_int LAPACKE_dormtr_work( int matrix_order, char side, char uplo,
7355                                 char trans, lapack_int m, lapack_int n,
7356                                 const double* a, lapack_int lda,
7357                                 const double* tau, double* c, lapack_int ldc,
7358                                 double* work, lapack_int lwork );
7359 
7360 lapack_int LAPACKE_spbcon_work( int matrix_order, char uplo, lapack_int n,
7361                                 lapack_int kd, const float* ab, lapack_int ldab,
7362                                 float anorm, float* rcond, float* work,
7363                                 lapack_int* iwork );
7364 lapack_int LAPACKE_dpbcon_work( int matrix_order, char uplo, lapack_int n,
7365                                 lapack_int kd, const double* ab,
7366                                 lapack_int ldab, double anorm, double* rcond,
7367                                 double* work, lapack_int* iwork );
7368 lapack_int LAPACKE_cpbcon_work( int matrix_order, char uplo, lapack_int n,
7369                                 lapack_int kd, const lapack_complex_float* ab,
7370                                 lapack_int ldab, float anorm, float* rcond,
7371                                 lapack_complex_float* work, float* rwork );
7372 lapack_int LAPACKE_zpbcon_work( int matrix_order, char uplo, lapack_int n,
7373                                 lapack_int kd, const lapack_complex_double* ab,
7374                                 lapack_int ldab, double anorm, double* rcond,
7375                                 lapack_complex_double* work, double* rwork );
7376 
7377 lapack_int LAPACKE_spbequ_work( int matrix_order, char uplo, lapack_int n,
7378                                 lapack_int kd, const float* ab, lapack_int ldab,
7379                                 float* s, float* scond, float* amax );
7380 lapack_int LAPACKE_dpbequ_work( int matrix_order, char uplo, lapack_int n,
7381                                 lapack_int kd, const double* ab,
7382                                 lapack_int ldab, double* s, double* scond,
7383                                 double* amax );
7384 lapack_int LAPACKE_cpbequ_work( int matrix_order, char uplo, lapack_int n,
7385                                 lapack_int kd, const lapack_complex_float* ab,
7386                                 lapack_int ldab, float* s, float* scond,
7387                                 float* amax );
7388 lapack_int LAPACKE_zpbequ_work( int matrix_order, char uplo, lapack_int n,
7389                                 lapack_int kd, const lapack_complex_double* ab,
7390                                 lapack_int ldab, double* s, double* scond,
7391                                 double* amax );
7392 
7393 lapack_int LAPACKE_spbrfs_work( int matrix_order, char uplo, lapack_int n,
7394                                 lapack_int kd, lapack_int nrhs, const float* ab,
7395                                 lapack_int ldab, const float* afb,
7396                                 lapack_int ldafb, const float* b,
7397                                 lapack_int ldb, float* x, lapack_int ldx,
7398                                 float* ferr, float* berr, float* work,
7399                                 lapack_int* iwork );
7400 lapack_int LAPACKE_dpbrfs_work( int matrix_order, char uplo, lapack_int n,
7401                                 lapack_int kd, lapack_int nrhs,
7402                                 const double* ab, lapack_int ldab,
7403                                 const double* afb, lapack_int ldafb,
7404                                 const double* b, lapack_int ldb, double* x,
7405                                 lapack_int ldx, double* ferr, double* berr,
7406                                 double* work, lapack_int* iwork );
7407 lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n,
7408                                 lapack_int kd, lapack_int nrhs,
7409                                 const lapack_complex_float* ab, lapack_int ldab,
7410                                 const lapack_complex_float* afb,
7411                                 lapack_int ldafb, const lapack_complex_float* b,
7412                                 lapack_int ldb, lapack_complex_float* x,
7413                                 lapack_int ldx, float* ferr, float* berr,
7414                                 lapack_complex_float* work, float* rwork );
7415 lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n,
7416                                 lapack_int kd, lapack_int nrhs,
7417                                 const lapack_complex_double* ab,
7418                                 lapack_int ldab,
7419                                 const lapack_complex_double* afb,
7420                                 lapack_int ldafb,
7421                                 const lapack_complex_double* b, lapack_int ldb,
7422                                 lapack_complex_double* x, lapack_int ldx,
7423                                 double* ferr, double* berr,
7424                                 lapack_complex_double* work, double* rwork );
7425 
7426 lapack_int LAPACKE_spbstf_work( int matrix_order, char uplo, lapack_int n,
7427                                 lapack_int kb, float* bb, lapack_int ldbb );
7428 lapack_int LAPACKE_dpbstf_work( int matrix_order, char uplo, lapack_int n,
7429                                 lapack_int kb, double* bb, lapack_int ldbb );
7430 lapack_int LAPACKE_cpbstf_work( int matrix_order, char uplo, lapack_int n,
7431                                 lapack_int kb, lapack_complex_float* bb,
7432                                 lapack_int ldbb );
7433 lapack_int LAPACKE_zpbstf_work( int matrix_order, char uplo, lapack_int n,
7434                                 lapack_int kb, lapack_complex_double* bb,
7435                                 lapack_int ldbb );
7436 
7437 lapack_int LAPACKE_spbsv_work( int matrix_order, char uplo, lapack_int n,
7438                                lapack_int kd, lapack_int nrhs, float* ab,
7439                                lapack_int ldab, float* b, lapack_int ldb );
7440 lapack_int LAPACKE_dpbsv_work( int matrix_order, char uplo, lapack_int n,
7441                                lapack_int kd, lapack_int nrhs, double* ab,
7442                                lapack_int ldab, double* b, lapack_int ldb );
7443 lapack_int LAPACKE_cpbsv_work( int matrix_order, char uplo, lapack_int n,
7444                                lapack_int kd, lapack_int nrhs,
7445                                lapack_complex_float* ab, lapack_int ldab,
7446                                lapack_complex_float* b, lapack_int ldb );
7447 lapack_int LAPACKE_zpbsv_work( int matrix_order, char uplo, lapack_int n,
7448                                lapack_int kd, lapack_int nrhs,
7449                                lapack_complex_double* ab, lapack_int ldab,
7450                                lapack_complex_double* b, lapack_int ldb );
7451 
7452 lapack_int LAPACKE_spbsvx_work( int matrix_order, char fact, char uplo,
7453                                 lapack_int n, lapack_int kd, lapack_int nrhs,
7454                                 float* ab, lapack_int ldab, float* afb,
7455                                 lapack_int ldafb, char* equed, float* s,
7456                                 float* b, lapack_int ldb, float* x,
7457                                 lapack_int ldx, float* rcond, float* ferr,
7458                                 float* berr, float* work, lapack_int* iwork );
7459 lapack_int LAPACKE_dpbsvx_work( int matrix_order, char fact, char uplo,
7460                                 lapack_int n, lapack_int kd, lapack_int nrhs,
7461                                 double* ab, lapack_int ldab, double* afb,
7462                                 lapack_int ldafb, char* equed, double* s,
7463                                 double* b, lapack_int ldb, double* x,
7464                                 lapack_int ldx, double* rcond, double* ferr,
7465                                 double* berr, double* work, lapack_int* iwork );
7466 lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo,
7467                                 lapack_int n, lapack_int kd, lapack_int nrhs,
7468                                 lapack_complex_float* ab, lapack_int ldab,
7469                                 lapack_complex_float* afb, lapack_int ldafb,
7470                                 char* equed, float* s, lapack_complex_float* b,
7471                                 lapack_int ldb, lapack_complex_float* x,
7472                                 lapack_int ldx, float* rcond, float* ferr,
7473                                 float* berr, lapack_complex_float* work,
7474                                 float* rwork );
7475 lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo,
7476                                 lapack_int n, lapack_int kd, lapack_int nrhs,
7477                                 lapack_complex_double* ab, lapack_int ldab,
7478                                 lapack_complex_double* afb, lapack_int ldafb,
7479                                 char* equed, double* s,
7480                                 lapack_complex_double* b, lapack_int ldb,
7481                                 lapack_complex_double* x, lapack_int ldx,
7482                                 double* rcond, double* ferr, double* berr,
7483                                 lapack_complex_double* work, double* rwork );
7484 
7485 lapack_int LAPACKE_spbtrf_work( int matrix_order, char uplo, lapack_int n,
7486                                 lapack_int kd, float* ab, lapack_int ldab );
7487 lapack_int LAPACKE_dpbtrf_work( int matrix_order, char uplo, lapack_int n,
7488                                 lapack_int kd, double* ab, lapack_int ldab );
7489 lapack_int LAPACKE_cpbtrf_work( int matrix_order, char uplo, lapack_int n,
7490                                 lapack_int kd, lapack_complex_float* ab,
7491                                 lapack_int ldab );
7492 lapack_int LAPACKE_zpbtrf_work( int matrix_order, char uplo, lapack_int n,
7493                                 lapack_int kd, lapack_complex_double* ab,
7494                                 lapack_int ldab );
7495 
7496 lapack_int LAPACKE_spbtrs_work( int matrix_order, char uplo, lapack_int n,
7497                                 lapack_int kd, lapack_int nrhs, const float* ab,
7498                                 lapack_int ldab, float* b, lapack_int ldb );
7499 lapack_int LAPACKE_dpbtrs_work( int matrix_order, char uplo, lapack_int n,
7500                                 lapack_int kd, lapack_int nrhs,
7501                                 const double* ab, lapack_int ldab, double* b,
7502                                 lapack_int ldb );
7503 lapack_int LAPACKE_cpbtrs_work( int matrix_order, char uplo, lapack_int n,
7504                                 lapack_int kd, lapack_int nrhs,
7505                                 const lapack_complex_float* ab, lapack_int ldab,
7506                                 lapack_complex_float* b, lapack_int ldb );
7507 lapack_int LAPACKE_zpbtrs_work( int matrix_order, char uplo, lapack_int n,
7508                                 lapack_int kd, lapack_int nrhs,
7509                                 const lapack_complex_double* ab,
7510                                 lapack_int ldab, lapack_complex_double* b,
7511                                 lapack_int ldb );
7512 
7513 lapack_int LAPACKE_spftrf_work( int matrix_order, char transr, char uplo,
7514                                 lapack_int n, float* a );
7515 lapack_int LAPACKE_dpftrf_work( int matrix_order, char transr, char uplo,
7516                                 lapack_int n, double* a );
7517 lapack_int LAPACKE_cpftrf_work( int matrix_order, char transr, char uplo,
7518                                 lapack_int n, lapack_complex_float* a );
7519 lapack_int LAPACKE_zpftrf_work( int matrix_order, char transr, char uplo,
7520                                 lapack_int n, lapack_complex_double* a );
7521 
7522 lapack_int LAPACKE_spftri_work( int matrix_order, char transr, char uplo,
7523                                 lapack_int n, float* a );
7524 lapack_int LAPACKE_dpftri_work( int matrix_order, char transr, char uplo,
7525                                 lapack_int n, double* a );
7526 lapack_int LAPACKE_cpftri_work( int matrix_order, char transr, char uplo,
7527                                 lapack_int n, lapack_complex_float* a );
7528 lapack_int LAPACKE_zpftri_work( int matrix_order, char transr, char uplo,
7529                                 lapack_int n, lapack_complex_double* a );
7530 
7531 lapack_int LAPACKE_spftrs_work( int matrix_order, char transr, char uplo,
7532                                 lapack_int n, lapack_int nrhs, const float* a,
7533                                 float* b, lapack_int ldb );
7534 lapack_int LAPACKE_dpftrs_work( int matrix_order, char transr, char uplo,
7535                                 lapack_int n, lapack_int nrhs, const double* a,
7536                                 double* b, lapack_int ldb );
7537 lapack_int LAPACKE_cpftrs_work( int matrix_order, char transr, char uplo,
7538                                 lapack_int n, lapack_int nrhs,
7539                                 const lapack_complex_float* a,
7540                                 lapack_complex_float* b, lapack_int ldb );
7541 lapack_int LAPACKE_zpftrs_work( int matrix_order, char transr, char uplo,
7542                                 lapack_int n, lapack_int nrhs,
7543                                 const lapack_complex_double* a,
7544                                 lapack_complex_double* b, lapack_int ldb );
7545 
7546 lapack_int LAPACKE_spocon_work( int matrix_order, char uplo, lapack_int n,
7547                                 const float* a, lapack_int lda, float anorm,
7548                                 float* rcond, float* work, lapack_int* iwork );
7549 lapack_int LAPACKE_dpocon_work( int matrix_order, char uplo, lapack_int n,
7550                                 const double* a, lapack_int lda, double anorm,
7551                                 double* rcond, double* work,
7552                                 lapack_int* iwork );
7553 lapack_int LAPACKE_cpocon_work( int matrix_order, char uplo, lapack_int n,
7554                                 const lapack_complex_float* a, lapack_int lda,
7555                                 float anorm, float* rcond,
7556                                 lapack_complex_float* work, float* rwork );
7557 lapack_int LAPACKE_zpocon_work( int matrix_order, char uplo, lapack_int n,
7558                                 const lapack_complex_double* a, lapack_int lda,
7559                                 double anorm, double* rcond,
7560                                 lapack_complex_double* work, double* rwork );
7561 
7562 lapack_int LAPACKE_spoequ_work( int matrix_order, lapack_int n, const float* a,
7563                                 lapack_int lda, float* s, float* scond,
7564                                 float* amax );
7565 lapack_int LAPACKE_dpoequ_work( int matrix_order, lapack_int n, const double* a,
7566                                 lapack_int lda, double* s, double* scond,
7567                                 double* amax );
7568 lapack_int LAPACKE_cpoequ_work( int matrix_order, lapack_int n,
7569                                 const lapack_complex_float* a, lapack_int lda,
7570                                 float* s, float* scond, float* amax );
7571 lapack_int LAPACKE_zpoequ_work( int matrix_order, lapack_int n,
7572                                 const lapack_complex_double* a, lapack_int lda,
7573                                 double* s, double* scond, double* amax );
7574 
7575 lapack_int LAPACKE_spoequb_work( int matrix_order, lapack_int n, const float* a,
7576                                  lapack_int lda, float* s, float* scond,
7577                                  float* amax );
7578 lapack_int LAPACKE_dpoequb_work( int matrix_order, lapack_int n,
7579                                  const double* a, lapack_int lda, double* s,
7580                                  double* scond, double* amax );
7581 lapack_int LAPACKE_cpoequb_work( int matrix_order, lapack_int n,
7582                                  const lapack_complex_float* a, lapack_int lda,
7583                                  float* s, float* scond, float* amax );
7584 lapack_int LAPACKE_zpoequb_work( int matrix_order, lapack_int n,
7585                                  const lapack_complex_double* a, lapack_int lda,
7586                                  double* s, double* scond, double* amax );
7587 
7588 lapack_int LAPACKE_sporfs_work( int matrix_order, char uplo, lapack_int n,
7589                                 lapack_int nrhs, const float* a, lapack_int lda,
7590                                 const float* af, lapack_int ldaf,
7591                                 const float* b, lapack_int ldb, float* x,
7592                                 lapack_int ldx, float* ferr, float* berr,
7593                                 float* work, lapack_int* iwork );
7594 lapack_int LAPACKE_dporfs_work( int matrix_order, char uplo, lapack_int n,
7595                                 lapack_int nrhs, const double* a,
7596                                 lapack_int lda, const double* af,
7597                                 lapack_int ldaf, const double* b,
7598                                 lapack_int ldb, double* x, lapack_int ldx,
7599                                 double* ferr, double* berr, double* work,
7600                                 lapack_int* iwork );
7601 lapack_int LAPACKE_cporfs_work( int matrix_order, char uplo, lapack_int n,
7602                                 lapack_int nrhs, const lapack_complex_float* a,
7603                                 lapack_int lda, const lapack_complex_float* af,
7604                                 lapack_int ldaf, const lapack_complex_float* b,
7605                                 lapack_int ldb, lapack_complex_float* x,
7606                                 lapack_int ldx, float* ferr, float* berr,
7607                                 lapack_complex_float* work, float* rwork );
7608 lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n,
7609                                 lapack_int nrhs, const lapack_complex_double* a,
7610                                 lapack_int lda, const lapack_complex_double* af,
7611                                 lapack_int ldaf, const lapack_complex_double* b,
7612                                 lapack_int ldb, lapack_complex_double* x,
7613                                 lapack_int ldx, double* ferr, double* berr,
7614                                 lapack_complex_double* work, double* rwork );
7615 
7616 lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed,
7617                                  lapack_int n, lapack_int nrhs, const float* a,
7618                                  lapack_int lda, const float* af,
7619                                  lapack_int ldaf, const float* s,
7620                                  const float* b, lapack_int ldb, float* x,
7621                                  lapack_int ldx, float* rcond, float* berr,
7622                                  lapack_int n_err_bnds, float* err_bnds_norm,
7623                                  float* err_bnds_comp, lapack_int nparams,
7624                                  float* params, float* work,
7625                                  lapack_int* iwork );
7626 lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed,
7627                                  lapack_int n, lapack_int nrhs, const double* a,
7628                                  lapack_int lda, const double* af,
7629                                  lapack_int ldaf, const double* s,
7630                                  const double* b, lapack_int ldb, double* x,
7631                                  lapack_int ldx, double* rcond, double* berr,
7632                                  lapack_int n_err_bnds, double* err_bnds_norm,
7633                                  double* err_bnds_comp, lapack_int nparams,
7634                                  double* params, double* work,
7635                                  lapack_int* iwork );
7636 lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed,
7637                                  lapack_int n, lapack_int nrhs,
7638                                  const lapack_complex_float* a, lapack_int lda,
7639                                  const lapack_complex_float* af,
7640                                  lapack_int ldaf, const float* s,
7641                                  const lapack_complex_float* b, lapack_int ldb,
7642                                  lapack_complex_float* x, lapack_int ldx,
7643                                  float* rcond, float* berr,
7644                                  lapack_int n_err_bnds, float* err_bnds_norm,
7645                                  float* err_bnds_comp, lapack_int nparams,
7646                                  float* params, lapack_complex_float* work,
7647                                  float* rwork );
7648 lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed,
7649                                  lapack_int n, lapack_int nrhs,
7650                                  const lapack_complex_double* a, lapack_int lda,
7651                                  const lapack_complex_double* af,
7652                                  lapack_int ldaf, const double* s,
7653                                  const lapack_complex_double* b, lapack_int ldb,
7654                                  lapack_complex_double* x, lapack_int ldx,
7655                                  double* rcond, double* berr,
7656                                  lapack_int n_err_bnds, double* err_bnds_norm,
7657                                  double* err_bnds_comp, lapack_int nparams,
7658                                  double* params, lapack_complex_double* work,
7659                                  double* rwork );
7660 
7661 lapack_int LAPACKE_sposv_work( int matrix_order, char uplo, lapack_int n,
7662                                lapack_int nrhs, float* a, lapack_int lda,
7663                                float* b, lapack_int ldb );
7664 lapack_int LAPACKE_dposv_work( int matrix_order, char uplo, lapack_int n,
7665                                lapack_int nrhs, double* a, lapack_int lda,
7666                                double* b, lapack_int ldb );
7667 lapack_int LAPACKE_cposv_work( int matrix_order, char uplo, lapack_int n,
7668                                lapack_int nrhs, lapack_complex_float* a,
7669                                lapack_int lda, lapack_complex_float* b,
7670                                lapack_int ldb );
7671 lapack_int LAPACKE_zposv_work( int matrix_order, char uplo, lapack_int n,
7672                                lapack_int nrhs, lapack_complex_double* a,
7673                                lapack_int lda, lapack_complex_double* b,
7674                                lapack_int ldb );
7675 lapack_int LAPACKE_dsposv_work( int matrix_order, char uplo, lapack_int n,
7676                                 lapack_int nrhs, double* a, lapack_int lda,
7677                                 double* b, lapack_int ldb, double* x,
7678                                 lapack_int ldx, double* work, float* swork,
7679                                 lapack_int* iter );
7680 lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n,
7681                                 lapack_int nrhs, lapack_complex_double* a,
7682                                 lapack_int lda, lapack_complex_double* b,
7683                                 lapack_int ldb, lapack_complex_double* x,
7684                                 lapack_int ldx, lapack_complex_double* work,
7685                                 lapack_complex_float* swork, double* rwork,
7686                                 lapack_int* iter );
7687 
7688 lapack_int LAPACKE_sposvx_work( int matrix_order, char fact, char uplo,
7689                                 lapack_int n, lapack_int nrhs, float* a,
7690                                 lapack_int lda, float* af, lapack_int ldaf,
7691                                 char* equed, float* s, float* b, lapack_int ldb,
7692                                 float* x, lapack_int ldx, float* rcond,
7693                                 float* ferr, float* berr, float* work,
7694                                 lapack_int* iwork );
7695 lapack_int LAPACKE_dposvx_work( int matrix_order, char fact, char uplo,
7696                                 lapack_int n, lapack_int nrhs, double* a,
7697                                 lapack_int lda, double* af, lapack_int ldaf,
7698                                 char* equed, double* s, double* b,
7699                                 lapack_int ldb, double* x, lapack_int ldx,
7700                                 double* rcond, double* ferr, double* berr,
7701                                 double* work, lapack_int* iwork );
7702 lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo,
7703                                 lapack_int n, lapack_int nrhs,
7704                                 lapack_complex_float* a, lapack_int lda,
7705                                 lapack_complex_float* af, lapack_int ldaf,
7706                                 char* equed, float* s, lapack_complex_float* b,
7707                                 lapack_int ldb, lapack_complex_float* x,
7708                                 lapack_int ldx, float* rcond, float* ferr,
7709                                 float* berr, lapack_complex_float* work,
7710                                 float* rwork );
7711 lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo,
7712                                 lapack_int n, lapack_int nrhs,
7713                                 lapack_complex_double* a, lapack_int lda,
7714                                 lapack_complex_double* af, lapack_int ldaf,
7715                                 char* equed, double* s,
7716                                 lapack_complex_double* b, lapack_int ldb,
7717                                 lapack_complex_double* x, lapack_int ldx,
7718                                 double* rcond, double* ferr, double* berr,
7719                                 lapack_complex_double* work, double* rwork );
7720 
7721 lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo,
7722                                  lapack_int n, lapack_int nrhs, float* a,
7723                                  lapack_int lda, float* af, lapack_int ldaf,
7724                                  char* equed, float* s, float* b,
7725                                  lapack_int ldb, float* x, lapack_int ldx,
7726                                  float* rcond, float* rpvgrw, float* berr,
7727                                  lapack_int n_err_bnds, float* err_bnds_norm,
7728                                  float* err_bnds_comp, lapack_int nparams,
7729                                  float* params, float* work,
7730                                  lapack_int* iwork );
7731 lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo,
7732                                  lapack_int n, lapack_int nrhs, double* a,
7733                                  lapack_int lda, double* af, lapack_int ldaf,
7734                                  char* equed, double* s, double* b,
7735                                  lapack_int ldb, double* x, lapack_int ldx,
7736                                  double* rcond, double* rpvgrw, double* berr,
7737                                  lapack_int n_err_bnds, double* err_bnds_norm,
7738                                  double* err_bnds_comp, lapack_int nparams,
7739                                  double* params, double* work,
7740                                  lapack_int* iwork );
7741 lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo,
7742                                  lapack_int n, lapack_int nrhs,
7743                                  lapack_complex_float* a, lapack_int lda,
7744                                  lapack_complex_float* af, lapack_int ldaf,
7745                                  char* equed, float* s, lapack_complex_float* b,
7746                                  lapack_int ldb, lapack_complex_float* x,
7747                                  lapack_int ldx, float* rcond, float* rpvgrw,
7748                                  float* berr, lapack_int n_err_bnds,
7749                                  float* err_bnds_norm, float* err_bnds_comp,
7750                                  lapack_int nparams, float* params,
7751                                  lapack_complex_float* work, float* rwork );
7752 lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo,
7753                                  lapack_int n, lapack_int nrhs,
7754                                  lapack_complex_double* a, lapack_int lda,
7755                                  lapack_complex_double* af, lapack_int ldaf,
7756                                  char* equed, double* s,
7757                                  lapack_complex_double* b, lapack_int ldb,
7758                                  lapack_complex_double* x, lapack_int ldx,
7759                                  double* rcond, double* rpvgrw, double* berr,
7760                                  lapack_int n_err_bnds, double* err_bnds_norm,
7761                                  double* err_bnds_comp, lapack_int nparams,
7762                                  double* params, lapack_complex_double* work,
7763                                  double* rwork );
7764 
7765 lapack_int LAPACKE_spotrf_work( int matrix_order, char uplo, lapack_int n,
7766                                 float* a, lapack_int lda );
7767 lapack_int LAPACKE_dpotrf_work( int matrix_order, char uplo, lapack_int n,
7768                                 double* a, lapack_int lda );
7769 lapack_int LAPACKE_cpotrf_work( int matrix_order, char uplo, lapack_int n,
7770                                 lapack_complex_float* a, lapack_int lda );
7771 lapack_int LAPACKE_zpotrf_work( int matrix_order, char uplo, lapack_int n,
7772                                 lapack_complex_double* a, lapack_int lda );
7773 
7774 lapack_int LAPACKE_spotri_work( int matrix_order, char uplo, lapack_int n,
7775                                 float* a, lapack_int lda );
7776 lapack_int LAPACKE_dpotri_work( int matrix_order, char uplo, lapack_int n,
7777                                 double* a, lapack_int lda );
7778 lapack_int LAPACKE_cpotri_work( int matrix_order, char uplo, lapack_int n,
7779                                 lapack_complex_float* a, lapack_int lda );
7780 lapack_int LAPACKE_zpotri_work( int matrix_order, char uplo, lapack_int n,
7781                                 lapack_complex_double* a, lapack_int lda );
7782 
7783 lapack_int LAPACKE_spotrs_work( int matrix_order, char uplo, lapack_int n,
7784                                 lapack_int nrhs, const float* a, lapack_int lda,
7785                                 float* b, lapack_int ldb );
7786 lapack_int LAPACKE_dpotrs_work( int matrix_order, char uplo, lapack_int n,
7787                                 lapack_int nrhs, const double* a,
7788                                 lapack_int lda, double* b, lapack_int ldb );
7789 lapack_int LAPACKE_cpotrs_work( int matrix_order, char uplo, lapack_int n,
7790                                 lapack_int nrhs, const lapack_complex_float* a,
7791                                 lapack_int lda, lapack_complex_float* b,
7792                                 lapack_int ldb );
7793 lapack_int LAPACKE_zpotrs_work( int matrix_order, char uplo, lapack_int n,
7794                                 lapack_int nrhs, const lapack_complex_double* a,
7795                                 lapack_int lda, lapack_complex_double* b,
7796                                 lapack_int ldb );
7797 
7798 lapack_int LAPACKE_sppcon_work( int matrix_order, char uplo, lapack_int n,
7799                                 const float* ap, float anorm, float* rcond,
7800                                 float* work, lapack_int* iwork );
7801 lapack_int LAPACKE_dppcon_work( int matrix_order, char uplo, lapack_int n,
7802                                 const double* ap, double anorm, double* rcond,
7803                                 double* work, lapack_int* iwork );
7804 lapack_int LAPACKE_cppcon_work( int matrix_order, char uplo, lapack_int n,
7805                                 const lapack_complex_float* ap, float anorm,
7806                                 float* rcond, lapack_complex_float* work,
7807                                 float* rwork );
7808 lapack_int LAPACKE_zppcon_work( int matrix_order, char uplo, lapack_int n,
7809                                 const lapack_complex_double* ap, double anorm,
7810                                 double* rcond, lapack_complex_double* work,
7811                                 double* rwork );
7812 
7813 lapack_int LAPACKE_sppequ_work( int matrix_order, char uplo, lapack_int n,
7814                                 const float* ap, float* s, float* scond,
7815                                 float* amax );
7816 lapack_int LAPACKE_dppequ_work( int matrix_order, char uplo, lapack_int n,
7817                                 const double* ap, double* s, double* scond,
7818                                 double* amax );
7819 lapack_int LAPACKE_cppequ_work( int matrix_order, char uplo, lapack_int n,
7820                                 const lapack_complex_float* ap, float* s,
7821                                 float* scond, float* amax );
7822 lapack_int LAPACKE_zppequ_work( int matrix_order, char uplo, lapack_int n,
7823                                 const lapack_complex_double* ap, double* s,
7824                                 double* scond, double* amax );
7825 
7826 lapack_int LAPACKE_spprfs_work( int matrix_order, char uplo, lapack_int n,
7827                                 lapack_int nrhs, const float* ap,
7828                                 const float* afp, const float* b,
7829                                 lapack_int ldb, float* x, lapack_int ldx,
7830                                 float* ferr, float* berr, float* work,
7831                                 lapack_int* iwork );
7832 lapack_int LAPACKE_dpprfs_work( int matrix_order, char uplo, lapack_int n,
7833                                 lapack_int nrhs, const double* ap,
7834                                 const double* afp, const double* b,
7835                                 lapack_int ldb, double* x, lapack_int ldx,
7836                                 double* ferr, double* berr, double* work,
7837                                 lapack_int* iwork );
7838 lapack_int LAPACKE_cpprfs_work( int matrix_order, char uplo, lapack_int n,
7839                                 lapack_int nrhs, const lapack_complex_float* ap,
7840                                 const lapack_complex_float* afp,
7841                                 const lapack_complex_float* b, lapack_int ldb,
7842                                 lapack_complex_float* x, lapack_int ldx,
7843                                 float* ferr, float* berr,
7844                                 lapack_complex_float* work, float* rwork );
7845 lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n,
7846                                 lapack_int nrhs,
7847                                 const lapack_complex_double* ap,
7848                                 const lapack_complex_double* afp,
7849                                 const lapack_complex_double* b, lapack_int ldb,
7850                                 lapack_complex_double* x, lapack_int ldx,
7851                                 double* ferr, double* berr,
7852                                 lapack_complex_double* work, double* rwork );
7853 
7854 lapack_int LAPACKE_sppsv_work( int matrix_order, char uplo, lapack_int n,
7855                                lapack_int nrhs, float* ap, float* b,
7856                                lapack_int ldb );
7857 lapack_int LAPACKE_dppsv_work( int matrix_order, char uplo, lapack_int n,
7858                                lapack_int nrhs, double* ap, double* b,
7859                                lapack_int ldb );
7860 lapack_int LAPACKE_cppsv_work( int matrix_order, char uplo, lapack_int n,
7861                                lapack_int nrhs, lapack_complex_float* ap,
7862                                lapack_complex_float* b, lapack_int ldb );
7863 lapack_int LAPACKE_zppsv_work( int matrix_order, char uplo, lapack_int n,
7864                                lapack_int nrhs, lapack_complex_double* ap,
7865                                lapack_complex_double* b, lapack_int ldb );
7866 
7867 lapack_int LAPACKE_sppsvx_work( int matrix_order, char fact, char uplo,
7868                                 lapack_int n, lapack_int nrhs, float* ap,
7869                                 float* afp, char* equed, float* s, float* b,
7870                                 lapack_int ldb, float* x, lapack_int ldx,
7871                                 float* rcond, float* ferr, float* berr,
7872                                 float* work, lapack_int* iwork );
7873 lapack_int LAPACKE_dppsvx_work( int matrix_order, char fact, char uplo,
7874                                 lapack_int n, lapack_int nrhs, double* ap,
7875                                 double* afp, char* equed, double* s, double* b,
7876                                 lapack_int ldb, double* x, lapack_int ldx,
7877                                 double* rcond, double* ferr, double* berr,
7878                                 double* work, lapack_int* iwork );
7879 lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo,
7880                                 lapack_int n, lapack_int nrhs,
7881                                 lapack_complex_float* ap,
7882                                 lapack_complex_float* afp, char* equed,
7883                                 float* s, lapack_complex_float* b,
7884                                 lapack_int ldb, lapack_complex_float* x,
7885                                 lapack_int ldx, float* rcond, float* ferr,
7886                                 float* berr, lapack_complex_float* work,
7887                                 float* rwork );
7888 lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo,
7889                                 lapack_int n, lapack_int nrhs,
7890                                 lapack_complex_double* ap,
7891                                 lapack_complex_double* afp, char* equed,
7892                                 double* s, lapack_complex_double* b,
7893                                 lapack_int ldb, lapack_complex_double* x,
7894                                 lapack_int ldx, double* rcond, double* ferr,
7895                                 double* berr, lapack_complex_double* work,
7896                                 double* rwork );
7897 
7898 lapack_int LAPACKE_spptrf_work( int matrix_order, char uplo, lapack_int n,
7899                                 float* ap );
7900 lapack_int LAPACKE_dpptrf_work( int matrix_order, char uplo, lapack_int n,
7901                                 double* ap );
7902 lapack_int LAPACKE_cpptrf_work( int matrix_order, char uplo, lapack_int n,
7903                                 lapack_complex_float* ap );
7904 lapack_int LAPACKE_zpptrf_work( int matrix_order, char uplo, lapack_int n,
7905                                 lapack_complex_double* ap );
7906 
7907 lapack_int LAPACKE_spptri_work( int matrix_order, char uplo, lapack_int n,
7908                                 float* ap );
7909 lapack_int LAPACKE_dpptri_work( int matrix_order, char uplo, lapack_int n,
7910                                 double* ap );
7911 lapack_int LAPACKE_cpptri_work( int matrix_order, char uplo, lapack_int n,
7912                                 lapack_complex_float* ap );
7913 lapack_int LAPACKE_zpptri_work( int matrix_order, char uplo, lapack_int n,
7914                                 lapack_complex_double* ap );
7915 
7916 lapack_int LAPACKE_spptrs_work( int matrix_order, char uplo, lapack_int n,
7917                                 lapack_int nrhs, const float* ap, float* b,
7918                                 lapack_int ldb );
7919 lapack_int LAPACKE_dpptrs_work( int matrix_order, char uplo, lapack_int n,
7920                                 lapack_int nrhs, const double* ap, double* b,
7921                                 lapack_int ldb );
7922 lapack_int LAPACKE_cpptrs_work( int matrix_order, char uplo, lapack_int n,
7923                                 lapack_int nrhs, const lapack_complex_float* ap,
7924                                 lapack_complex_float* b, lapack_int ldb );
7925 lapack_int LAPACKE_zpptrs_work( int matrix_order, char uplo, lapack_int n,
7926                                 lapack_int nrhs,
7927                                 const lapack_complex_double* ap,
7928                                 lapack_complex_double* b, lapack_int ldb );
7929 
7930 lapack_int LAPACKE_spstrf_work( int matrix_order, char uplo, lapack_int n,
7931                                 float* a, lapack_int lda, lapack_int* piv,
7932                                 lapack_int* rank, float tol, float* work );
7933 lapack_int LAPACKE_dpstrf_work( int matrix_order, char uplo, lapack_int n,
7934                                 double* a, lapack_int lda, lapack_int* piv,
7935                                 lapack_int* rank, double tol, double* work );
7936 lapack_int LAPACKE_cpstrf_work( int matrix_order, char uplo, lapack_int n,
7937                                 lapack_complex_float* a, lapack_int lda,
7938                                 lapack_int* piv, lapack_int* rank, float tol,
7939                                 float* work );
7940 lapack_int LAPACKE_zpstrf_work( int matrix_order, char uplo, lapack_int n,
7941                                 lapack_complex_double* a, lapack_int lda,
7942                                 lapack_int* piv, lapack_int* rank, double tol,
7943                                 double* work );
7944 
7945 lapack_int LAPACKE_sptcon_work( lapack_int n, const float* d, const float* e,
7946                                 float anorm, float* rcond, float* work );
7947 lapack_int LAPACKE_dptcon_work( lapack_int n, const double* d, const double* e,
7948                                 double anorm, double* rcond, double* work );
7949 lapack_int LAPACKE_cptcon_work( lapack_int n, const float* d,
7950                                 const lapack_complex_float* e, float anorm,
7951                                 float* rcond, float* work );
7952 lapack_int LAPACKE_zptcon_work( lapack_int n, const double* d,
7953                                 const lapack_complex_double* e, double anorm,
7954                                 double* rcond, double* work );
7955 
7956 lapack_int LAPACKE_spteqr_work( int matrix_order, char compz, lapack_int n,
7957                                 float* d, float* e, float* z, lapack_int ldz,
7958                                 float* work );
7959 lapack_int LAPACKE_dpteqr_work( int matrix_order, char compz, lapack_int n,
7960                                 double* d, double* e, double* z, lapack_int ldz,
7961                                 double* work );
7962 lapack_int LAPACKE_cpteqr_work( int matrix_order, char compz, lapack_int n,
7963                                 float* d, float* e, lapack_complex_float* z,
7964                                 lapack_int ldz, float* work );
7965 lapack_int LAPACKE_zpteqr_work( int matrix_order, char compz, lapack_int n,
7966                                 double* d, double* e, lapack_complex_double* z,
7967                                 lapack_int ldz, double* work );
7968 
7969 lapack_int LAPACKE_sptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs,
7970                                 const float* d, const float* e, const float* df,
7971                                 const float* ef, const float* b, lapack_int ldb,
7972                                 float* x, lapack_int ldx, float* ferr,
7973                                 float* berr, float* work );
7974 lapack_int LAPACKE_dptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs,
7975                                 const double* d, const double* e,
7976                                 const double* df, const double* ef,
7977                                 const double* b, lapack_int ldb, double* x,
7978                                 lapack_int ldx, double* ferr, double* berr,
7979                                 double* work );
7980 lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n,
7981                                 lapack_int nrhs, const float* d,
7982                                 const lapack_complex_float* e, const float* df,
7983                                 const lapack_complex_float* ef,
7984                                 const lapack_complex_float* b, lapack_int ldb,
7985                                 lapack_complex_float* x, lapack_int ldx,
7986                                 float* ferr, float* berr,
7987                                 lapack_complex_float* work, float* rwork );
7988 lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n,
7989                                 lapack_int nrhs, const double* d,
7990                                 const lapack_complex_double* e,
7991                                 const double* df,
7992                                 const lapack_complex_double* ef,
7993                                 const lapack_complex_double* b, lapack_int ldb,
7994                                 lapack_complex_double* x, lapack_int ldx,
7995                                 double* ferr, double* berr,
7996                                 lapack_complex_double* work, double* rwork );
7997 
7998 lapack_int LAPACKE_sptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
7999                                float* d, float* e, float* b, lapack_int ldb );
8000 lapack_int LAPACKE_dptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
8001                                double* d, double* e, double* b,
8002                                lapack_int ldb );
8003 lapack_int LAPACKE_cptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
8004                                float* d, lapack_complex_float* e,
8005                                lapack_complex_float* b, lapack_int ldb );
8006 lapack_int LAPACKE_zptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,
8007                                double* d, lapack_complex_double* e,
8008                                lapack_complex_double* b, lapack_int ldb );
8009 
8010 lapack_int LAPACKE_sptsvx_work( int matrix_order, char fact, lapack_int n,
8011                                 lapack_int nrhs, const float* d, const float* e,
8012                                 float* df, float* ef, const float* b,
8013                                 lapack_int ldb, float* x, lapack_int ldx,
8014                                 float* rcond, float* ferr, float* berr,
8015                                 float* work );
8016 lapack_int LAPACKE_dptsvx_work( int matrix_order, char fact, lapack_int n,
8017                                 lapack_int nrhs, const double* d,
8018                                 const double* e, double* df, double* ef,
8019                                 const double* b, lapack_int ldb, double* x,
8020                                 lapack_int ldx, double* rcond, double* ferr,
8021                                 double* berr, double* work );
8022 lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n,
8023                                 lapack_int nrhs, const float* d,
8024                                 const lapack_complex_float* e, float* df,
8025                                 lapack_complex_float* ef,
8026                                 const lapack_complex_float* b, lapack_int ldb,
8027                                 lapack_complex_float* x, lapack_int ldx,
8028                                 float* rcond, float* ferr, float* berr,
8029                                 lapack_complex_float* work, float* rwork );
8030 lapack_int LAPACKE_zptsvx_work( int matrix_order, char fact, lapack_int n,
8031                                 lapack_int nrhs, const double* d,
8032                                 const lapack_complex_double* e, double* df,
8033                                 lapack_complex_double* ef,
8034                                 const lapack_complex_double* b, lapack_int ldb,
8035                                 lapack_complex_double* x, lapack_int ldx,
8036                                 double* rcond, double* ferr, double* berr,
8037                                 lapack_complex_double* work, double* rwork );
8038 
8039 lapack_int LAPACKE_spttrf_work( lapack_int n, float* d, float* e );
8040 lapack_int LAPACKE_dpttrf_work( lapack_int n, double* d, double* e );
8041 lapack_int LAPACKE_cpttrf_work( lapack_int n, float* d,
8042                                 lapack_complex_float* e );
8043 lapack_int LAPACKE_zpttrf_work( lapack_int n, double* d,
8044                                 lapack_complex_double* e );
8045 
8046 lapack_int LAPACKE_spttrs_work( int matrix_order, lapack_int n, lapack_int nrhs,
8047                                 const float* d, const float* e, float* b,
8048                                 lapack_int ldb );
8049 lapack_int LAPACKE_dpttrs_work( int matrix_order, lapack_int n, lapack_int nrhs,
8050                                 const double* d, const double* e, double* b,
8051                                 lapack_int ldb );
8052 lapack_int LAPACKE_cpttrs_work( int matrix_order, char uplo, lapack_int n,
8053                                 lapack_int nrhs, const float* d,
8054                                 const lapack_complex_float* e,
8055                                 lapack_complex_float* b, lapack_int ldb );
8056 lapack_int LAPACKE_zpttrs_work( int matrix_order, char uplo, lapack_int n,
8057                                 lapack_int nrhs, const double* d,
8058                                 const lapack_complex_double* e,
8059                                 lapack_complex_double* b, lapack_int ldb );
8060 
8061 lapack_int LAPACKE_ssbev_work( int matrix_order, char jobz, char uplo,
8062                                lapack_int n, lapack_int kd, float* ab,
8063                                lapack_int ldab, float* w, float* z,
8064                                lapack_int ldz, float* work );
8065 lapack_int LAPACKE_dsbev_work( int matrix_order, char jobz, char uplo,
8066                                lapack_int n, lapack_int kd, double* ab,
8067                                lapack_int ldab, double* w, double* z,
8068                                lapack_int ldz, double* work );
8069 
8070 lapack_int LAPACKE_ssbevd_work( int matrix_order, char jobz, char uplo,
8071                                 lapack_int n, lapack_int kd, float* ab,
8072                                 lapack_int ldab, float* w, float* z,
8073                                 lapack_int ldz, float* work, lapack_int lwork,
8074                                 lapack_int* iwork, lapack_int liwork );
8075 lapack_int LAPACKE_dsbevd_work( int matrix_order, char jobz, char uplo,
8076                                 lapack_int n, lapack_int kd, double* ab,
8077                                 lapack_int ldab, double* w, double* z,
8078                                 lapack_int ldz, double* work, lapack_int lwork,
8079                                 lapack_int* iwork, lapack_int liwork );
8080 
8081 lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range,
8082                                 char uplo, lapack_int n, lapack_int kd,
8083                                 float* ab, lapack_int ldab, float* q,
8084                                 lapack_int ldq, float vl, float vu,
8085                                 lapack_int il, lapack_int iu, float abstol,
8086                                 lapack_int* m, float* w, float* z,
8087                                 lapack_int ldz, float* work, lapack_int* iwork,
8088                                 lapack_int* ifail );
8089 lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range,
8090                                 char uplo, lapack_int n, lapack_int kd,
8091                                 double* ab, lapack_int ldab, double* q,
8092                                 lapack_int ldq, double vl, double vu,
8093                                 lapack_int il, lapack_int iu, double abstol,
8094                                 lapack_int* m, double* w, double* z,
8095                                 lapack_int ldz, double* work, lapack_int* iwork,
8096                                 lapack_int* ifail );
8097 
8098 lapack_int LAPACKE_ssbgst_work( int matrix_order, char vect, char uplo,
8099                                 lapack_int n, lapack_int ka, lapack_int kb,
8100                                 float* ab, lapack_int ldab, const float* bb,
8101                                 lapack_int ldbb, float* x, lapack_int ldx,
8102                                 float* work );
8103 lapack_int LAPACKE_dsbgst_work( int matrix_order, char vect, char uplo,
8104                                 lapack_int n, lapack_int ka, lapack_int kb,
8105                                 double* ab, lapack_int ldab, const double* bb,
8106                                 lapack_int ldbb, double* x, lapack_int ldx,
8107                                 double* work );
8108 
8109 lapack_int LAPACKE_ssbgv_work( int matrix_order, char jobz, char uplo,
8110                                lapack_int n, lapack_int ka, lapack_int kb,
8111                                float* ab, lapack_int ldab, float* bb,
8112                                lapack_int ldbb, float* w, float* z,
8113                                lapack_int ldz, float* work );
8114 lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo,
8115                                lapack_int n, lapack_int ka, lapack_int kb,
8116                                double* ab, lapack_int ldab, double* bb,
8117                                lapack_int ldbb, double* w, double* z,
8118                                lapack_int ldz, double* work );
8119 
8120 lapack_int LAPACKE_ssbgvd_work( int matrix_order, char jobz, char uplo,
8121                                 lapack_int n, lapack_int ka, lapack_int kb,
8122                                 float* ab, lapack_int ldab, float* bb,
8123                                 lapack_int ldbb, float* w, float* z,
8124                                 lapack_int ldz, float* work, lapack_int lwork,
8125                                 lapack_int* iwork, lapack_int liwork );
8126 lapack_int LAPACKE_dsbgvd_work( int matrix_order, char jobz, char uplo,
8127                                 lapack_int n, lapack_int ka, lapack_int kb,
8128                                 double* ab, lapack_int ldab, double* bb,
8129                                 lapack_int ldbb, double* w, double* z,
8130                                 lapack_int ldz, double* work, lapack_int lwork,
8131                                 lapack_int* iwork, lapack_int liwork );
8132 
8133 lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range,
8134                                 char uplo, lapack_int n, lapack_int ka,
8135                                 lapack_int kb, float* ab, lapack_int ldab,
8136                                 float* bb, lapack_int ldbb, float* q,
8137                                 lapack_int ldq, float vl, float vu,
8138                                 lapack_int il, lapack_int iu, float abstol,
8139                                 lapack_int* m, float* w, float* z,
8140                                 lapack_int ldz, float* work, lapack_int* iwork,
8141                                 lapack_int* ifail );
8142 lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range,
8143                                 char uplo, lapack_int n, lapack_int ka,
8144                                 lapack_int kb, double* ab, lapack_int ldab,
8145                                 double* bb, lapack_int ldbb, double* q,
8146                                 lapack_int ldq, double vl, double vu,
8147                                 lapack_int il, lapack_int iu, double abstol,
8148                                 lapack_int* m, double* w, double* z,
8149                                 lapack_int ldz, double* work, lapack_int* iwork,
8150                                 lapack_int* ifail );
8151 
8152 lapack_int LAPACKE_ssbtrd_work( int matrix_order, char vect, char uplo,
8153                                 lapack_int n, lapack_int kd, float* ab,
8154                                 lapack_int ldab, float* d, float* e, float* q,
8155                                 lapack_int ldq, float* work );
8156 lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo,
8157                                 lapack_int n, lapack_int kd, double* ab,
8158                                 lapack_int ldab, double* d, double* e,
8159                                 double* q, lapack_int ldq, double* work );
8160 
8161 lapack_int LAPACKE_ssfrk_work( int matrix_order, char transr, char uplo,
8162                                char trans, lapack_int n, lapack_int k,
8163                                float alpha, const float* a, lapack_int lda,
8164                                float beta, float* c );
8165 lapack_int LAPACKE_dsfrk_work( int matrix_order, char transr, char uplo,
8166                                char trans, lapack_int n, lapack_int k,
8167                                double alpha, const double* a, lapack_int lda,
8168                                double beta, double* c );
8169 
8170 lapack_int LAPACKE_sspcon_work( int matrix_order, char uplo, lapack_int n,
8171                                 const float* ap, const lapack_int* ipiv,
8172                                 float anorm, float* rcond, float* work,
8173                                 lapack_int* iwork );
8174 lapack_int LAPACKE_dspcon_work( int matrix_order, char uplo, lapack_int n,
8175                                 const double* ap, const lapack_int* ipiv,
8176                                 double anorm, double* rcond, double* work,
8177                                 lapack_int* iwork );
8178 lapack_int LAPACKE_cspcon_work( int matrix_order, char uplo, lapack_int n,
8179                                 const lapack_complex_float* ap,
8180                                 const lapack_int* ipiv, float anorm,
8181                                 float* rcond, lapack_complex_float* work );
8182 lapack_int LAPACKE_zspcon_work( int matrix_order, char uplo, lapack_int n,
8183                                 const lapack_complex_double* ap,
8184                                 const lapack_int* ipiv, double anorm,
8185                                 double* rcond, lapack_complex_double* work );
8186 
8187 lapack_int LAPACKE_sspev_work( int matrix_order, char jobz, char uplo,
8188                                lapack_int n, float* ap, float* w, float* z,
8189                                lapack_int ldz, float* work );
8190 lapack_int LAPACKE_dspev_work( int matrix_order, char jobz, char uplo,
8191                                lapack_int n, double* ap, double* w, double* z,
8192                                lapack_int ldz, double* work );
8193 
8194 lapack_int LAPACKE_sspevd_work( int matrix_order, char jobz, char uplo,
8195                                 lapack_int n, float* ap, float* w, float* z,
8196                                 lapack_int ldz, float* work, lapack_int lwork,
8197                                 lapack_int* iwork, lapack_int liwork );
8198 lapack_int LAPACKE_dspevd_work( int matrix_order, char jobz, char uplo,
8199                                 lapack_int n, double* ap, double* w, double* z,
8200                                 lapack_int ldz, double* work, lapack_int lwork,
8201                                 lapack_int* iwork, lapack_int liwork );
8202 
8203 lapack_int LAPACKE_sspevx_work( int matrix_order, char jobz, char range,
8204                                 char uplo, lapack_int n, float* ap, float vl,
8205                                 float vu, lapack_int il, lapack_int iu,
8206                                 float abstol, lapack_int* m, float* w, float* z,
8207                                 lapack_int ldz, float* work, lapack_int* iwork,
8208                                 lapack_int* ifail );
8209 lapack_int LAPACKE_dspevx_work( int matrix_order, char jobz, char range,
8210                                 char uplo, lapack_int n, double* ap, double vl,
8211                                 double vu, lapack_int il, lapack_int iu,
8212                                 double abstol, lapack_int* m, double* w,
8213                                 double* z, lapack_int ldz, double* work,
8214                                 lapack_int* iwork, lapack_int* ifail );
8215 
8216 lapack_int LAPACKE_sspgst_work( int matrix_order, lapack_int itype, char uplo,
8217                                 lapack_int n, float* ap, const float* bp );
8218 lapack_int LAPACKE_dspgst_work( int matrix_order, lapack_int itype, char uplo,
8219                                 lapack_int n, double* ap, const double* bp );
8220 
8221 lapack_int LAPACKE_sspgv_work( int matrix_order, lapack_int itype, char jobz,
8222                                char uplo, lapack_int n, float* ap, float* bp,
8223                                float* w, float* z, lapack_int ldz,
8224                                float* work );
8225 lapack_int LAPACKE_dspgv_work( int matrix_order, lapack_int itype, char jobz,
8226                                char uplo, lapack_int n, double* ap, double* bp,
8227                                double* w, double* z, lapack_int ldz,
8228                                double* work );
8229 
8230 lapack_int LAPACKE_sspgvd_work( int matrix_order, lapack_int itype, char jobz,
8231                                 char uplo, lapack_int n, float* ap, float* bp,
8232                                 float* w, float* z, lapack_int ldz, float* work,
8233                                 lapack_int lwork, lapack_int* iwork,
8234                                 lapack_int liwork );
8235 lapack_int LAPACKE_dspgvd_work( int matrix_order, lapack_int itype, char jobz,
8236                                 char uplo, lapack_int n, double* ap, double* bp,
8237                                 double* w, double* z, lapack_int ldz,
8238                                 double* work, lapack_int lwork,
8239                                 lapack_int* iwork, lapack_int liwork );
8240 
8241 lapack_int LAPACKE_sspgvx_work( int matrix_order, lapack_int itype, char jobz,
8242                                 char range, char uplo, lapack_int n, float* ap,
8243                                 float* bp, float vl, float vu, lapack_int il,
8244                                 lapack_int iu, float abstol, lapack_int* m,
8245                                 float* w, float* z, lapack_int ldz, float* work,
8246                                 lapack_int* iwork, lapack_int* ifail );
8247 lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz,
8248                                 char range, char uplo, lapack_int n, double* ap,
8249                                 double* bp, double vl, double vu, lapack_int il,
8250                                 lapack_int iu, double abstol, lapack_int* m,
8251                                 double* w, double* z, lapack_int ldz,
8252                                 double* work, lapack_int* iwork,
8253                                 lapack_int* ifail );
8254 
8255 lapack_int LAPACKE_ssprfs_work( int matrix_order, char uplo, lapack_int n,
8256                                 lapack_int nrhs, const float* ap,
8257                                 const float* afp, const lapack_int* ipiv,
8258                                 const float* b, lapack_int ldb, float* x,
8259                                 lapack_int ldx, float* ferr, float* berr,
8260                                 float* work, lapack_int* iwork );
8261 lapack_int LAPACKE_dsprfs_work( int matrix_order, char uplo, lapack_int n,
8262                                 lapack_int nrhs, const double* ap,
8263                                 const double* afp, const lapack_int* ipiv,
8264                                 const double* b, lapack_int ldb, double* x,
8265                                 lapack_int ldx, double* ferr, double* berr,
8266                                 double* work, lapack_int* iwork );
8267 lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n,
8268                                 lapack_int nrhs, const lapack_complex_float* ap,
8269                                 const lapack_complex_float* afp,
8270                                 const lapack_int* ipiv,
8271                                 const lapack_complex_float* b, lapack_int ldb,
8272                                 lapack_complex_float* x, lapack_int ldx,
8273                                 float* ferr, float* berr,
8274                                 lapack_complex_float* work, float* rwork );
8275 lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n,
8276                                 lapack_int nrhs,
8277                                 const lapack_complex_double* ap,
8278                                 const lapack_complex_double* afp,
8279                                 const lapack_int* ipiv,
8280                                 const lapack_complex_double* b, lapack_int ldb,
8281                                 lapack_complex_double* x, lapack_int ldx,
8282                                 double* ferr, double* berr,
8283                                 lapack_complex_double* work, double* rwork );
8284 
8285 lapack_int LAPACKE_sspsv_work( int matrix_order, char uplo, lapack_int n,
8286                                lapack_int nrhs, float* ap, lapack_int* ipiv,
8287                                float* b, lapack_int ldb );
8288 lapack_int LAPACKE_dspsv_work( int matrix_order, char uplo, lapack_int n,
8289                                lapack_int nrhs, double* ap, lapack_int* ipiv,
8290                                double* b, lapack_int ldb );
8291 lapack_int LAPACKE_cspsv_work( int matrix_order, char uplo, lapack_int n,
8292                                lapack_int nrhs, lapack_complex_float* ap,
8293                                lapack_int* ipiv, lapack_complex_float* b,
8294                                lapack_int ldb );
8295 lapack_int LAPACKE_zspsv_work( int matrix_order, char uplo, lapack_int n,
8296                                lapack_int nrhs, lapack_complex_double* ap,
8297                                lapack_int* ipiv, lapack_complex_double* b,
8298                                lapack_int ldb );
8299 
8300 lapack_int LAPACKE_sspsvx_work( int matrix_order, char fact, char uplo,
8301                                 lapack_int n, lapack_int nrhs, const float* ap,
8302                                 float* afp, lapack_int* ipiv, const float* b,
8303                                 lapack_int ldb, float* x, lapack_int ldx,
8304                                 float* rcond, float* ferr, float* berr,
8305                                 float* work, lapack_int* iwork );
8306 lapack_int LAPACKE_dspsvx_work( int matrix_order, char fact, char uplo,
8307                                 lapack_int n, lapack_int nrhs, const double* ap,
8308                                 double* afp, lapack_int* ipiv, const double* b,
8309                                 lapack_int ldb, double* x, lapack_int ldx,
8310                                 double* rcond, double* ferr, double* berr,
8311                                 double* work, lapack_int* iwork );
8312 lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo,
8313                                 lapack_int n, lapack_int nrhs,
8314                                 const lapack_complex_float* ap,
8315                                 lapack_complex_float* afp, lapack_int* ipiv,
8316                                 const lapack_complex_float* b, lapack_int ldb,
8317                                 lapack_complex_float* x, lapack_int ldx,
8318                                 float* rcond, float* ferr, float* berr,
8319                                 lapack_complex_float* work, float* rwork );
8320 lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo,
8321                                 lapack_int n, lapack_int nrhs,
8322                                 const lapack_complex_double* ap,
8323                                 lapack_complex_double* afp, lapack_int* ipiv,
8324                                 const lapack_complex_double* b, lapack_int ldb,
8325                                 lapack_complex_double* x, lapack_int ldx,
8326                                 double* rcond, double* ferr, double* berr,
8327                                 lapack_complex_double* work, double* rwork );
8328 
8329 lapack_int LAPACKE_ssptrd_work( int matrix_order, char uplo, lapack_int n,
8330                                 float* ap, float* d, float* e, float* tau );
8331 lapack_int LAPACKE_dsptrd_work( int matrix_order, char uplo, lapack_int n,
8332                                 double* ap, double* d, double* e, double* tau );
8333 
8334 lapack_int LAPACKE_ssptrf_work( int matrix_order, char uplo, lapack_int n,
8335                                 float* ap, lapack_int* ipiv );
8336 lapack_int LAPACKE_dsptrf_work( int matrix_order, char uplo, lapack_int n,
8337                                 double* ap, lapack_int* ipiv );
8338 lapack_int LAPACKE_csptrf_work( int matrix_order, char uplo, lapack_int n,
8339                                 lapack_complex_float* ap, lapack_int* ipiv );
8340 lapack_int LAPACKE_zsptrf_work( int matrix_order, char uplo, lapack_int n,
8341                                 lapack_complex_double* ap, lapack_int* ipiv );
8342 
8343 lapack_int LAPACKE_ssptri_work( int matrix_order, char uplo, lapack_int n,
8344                                 float* ap, const lapack_int* ipiv,
8345                                 float* work );
8346 lapack_int LAPACKE_dsptri_work( int matrix_order, char uplo, lapack_int n,
8347                                 double* ap, const lapack_int* ipiv,
8348                                 double* work );
8349 lapack_int LAPACKE_csptri_work( int matrix_order, char uplo, lapack_int n,
8350                                 lapack_complex_float* ap,
8351                                 const lapack_int* ipiv,
8352                                 lapack_complex_float* work );
8353 lapack_int LAPACKE_zsptri_work( int matrix_order, char uplo, lapack_int n,
8354                                 lapack_complex_double* ap,
8355                                 const lapack_int* ipiv,
8356                                 lapack_complex_double* work );
8357 
8358 lapack_int LAPACKE_ssptrs_work( int matrix_order, char uplo, lapack_int n,
8359                                 lapack_int nrhs, const float* ap,
8360                                 const lapack_int* ipiv, float* b,
8361                                 lapack_int ldb );
8362 lapack_int LAPACKE_dsptrs_work( int matrix_order, char uplo, lapack_int n,
8363                                 lapack_int nrhs, const double* ap,
8364                                 const lapack_int* ipiv, double* b,
8365                                 lapack_int ldb );
8366 lapack_int LAPACKE_csptrs_work( int matrix_order, char uplo, lapack_int n,
8367                                 lapack_int nrhs, const lapack_complex_float* ap,
8368                                 const lapack_int* ipiv, lapack_complex_float* b,
8369                                 lapack_int ldb );
8370 lapack_int LAPACKE_zsptrs_work( int matrix_order, char uplo, lapack_int n,
8371                                 lapack_int nrhs,
8372                                 const lapack_complex_double* ap,
8373                                 const lapack_int* ipiv,
8374                                 lapack_complex_double* b, lapack_int ldb );
8375 
8376 lapack_int LAPACKE_sstebz_work( char range, char order, lapack_int n, float vl,
8377                                 float vu, lapack_int il, lapack_int iu,
8378                                 float abstol, const float* d, const float* e,
8379                                 lapack_int* m, lapack_int* nsplit, float* w,
8380                                 lapack_int* iblock, lapack_int* isplit,
8381                                 float* work, lapack_int* iwork );
8382 lapack_int LAPACKE_dstebz_work( char range, char order, lapack_int n, double vl,
8383                                 double vu, lapack_int il, lapack_int iu,
8384                                 double abstol, const double* d, const double* e,
8385                                 lapack_int* m, lapack_int* nsplit, double* w,
8386                                 lapack_int* iblock, lapack_int* isplit,
8387                                 double* work, lapack_int* iwork );
8388 
8389 lapack_int LAPACKE_sstedc_work( int matrix_order, char compz, lapack_int n,
8390                                 float* d, float* e, float* z, lapack_int ldz,
8391                                 float* work, lapack_int lwork,
8392                                 lapack_int* iwork, lapack_int liwork );
8393 lapack_int LAPACKE_dstedc_work( int matrix_order, char compz, lapack_int n,
8394                                 double* d, double* e, double* z, lapack_int ldz,
8395                                 double* work, lapack_int lwork,
8396                                 lapack_int* iwork, lapack_int liwork );
8397 lapack_int LAPACKE_cstedc_work( int matrix_order, char compz, lapack_int n,
8398                                 float* d, float* e, lapack_complex_float* z,
8399                                 lapack_int ldz, lapack_complex_float* work,
8400                                 lapack_int lwork, float* rwork,
8401                                 lapack_int lrwork, lapack_int* iwork,
8402                                 lapack_int liwork );
8403 lapack_int LAPACKE_zstedc_work( int matrix_order, char compz, lapack_int n,
8404                                 double* d, double* e, lapack_complex_double* z,
8405                                 lapack_int ldz, lapack_complex_double* work,
8406                                 lapack_int lwork, double* rwork,
8407                                 lapack_int lrwork, lapack_int* iwork,
8408                                 lapack_int liwork );
8409 
8410 lapack_int LAPACKE_sstegr_work( int matrix_order, char jobz, char range,
8411                                 lapack_int n, float* d, float* e, float vl,
8412                                 float vu, lapack_int il, lapack_int iu,
8413                                 float abstol, lapack_int* m, float* w, float* z,
8414                                 lapack_int ldz, lapack_int* isuppz, float* work,
8415                                 lapack_int lwork, lapack_int* iwork,
8416                                 lapack_int liwork );
8417 lapack_int LAPACKE_dstegr_work( int matrix_order, char jobz, char range,
8418                                 lapack_int n, double* d, double* e, double vl,
8419                                 double vu, lapack_int il, lapack_int iu,
8420                                 double abstol, lapack_int* m, double* w,
8421                                 double* z, lapack_int ldz, lapack_int* isuppz,
8422                                 double* work, lapack_int lwork,
8423                                 lapack_int* iwork, lapack_int liwork );
8424 lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range,
8425                                 lapack_int n, float* d, float* e, float vl,
8426                                 float vu, lapack_int il, lapack_int iu,
8427                                 float abstol, lapack_int* m, float* w,
8428                                 lapack_complex_float* z, lapack_int ldz,
8429                                 lapack_int* isuppz, float* work,
8430                                 lapack_int lwork, lapack_int* iwork,
8431                                 lapack_int liwork );
8432 lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range,
8433                                 lapack_int n, double* d, double* e, double vl,
8434                                 double vu, lapack_int il, lapack_int iu,
8435                                 double abstol, lapack_int* m, double* w,
8436                                 lapack_complex_double* z, lapack_int ldz,
8437                                 lapack_int* isuppz, double* work,
8438                                 lapack_int lwork, lapack_int* iwork,
8439                                 lapack_int liwork );
8440 
8441 lapack_int LAPACKE_sstein_work( int matrix_order, lapack_int n, const float* d,
8442                                 const float* e, lapack_int m, const float* w,
8443                                 const lapack_int* iblock,
8444                                 const lapack_int* isplit, float* z,
8445                                 lapack_int ldz, float* work, lapack_int* iwork,
8446                                 lapack_int* ifailv );
8447 lapack_int LAPACKE_dstein_work( int matrix_order, lapack_int n, const double* d,
8448                                 const double* e, lapack_int m, const double* w,
8449                                 const lapack_int* iblock,
8450                                 const lapack_int* isplit, double* z,
8451                                 lapack_int ldz, double* work, lapack_int* iwork,
8452                                 lapack_int* ifailv );
8453 lapack_int LAPACKE_cstein_work( int matrix_order, lapack_int n, const float* d,
8454                                 const float* e, lapack_int m, const float* w,
8455                                 const lapack_int* iblock,
8456                                 const lapack_int* isplit,
8457                                 lapack_complex_float* z, lapack_int ldz,
8458                                 float* work, lapack_int* iwork,
8459                                 lapack_int* ifailv );
8460 lapack_int LAPACKE_zstein_work( int matrix_order, lapack_int n, const double* d,
8461                                 const double* e, lapack_int m, const double* w,
8462                                 const lapack_int* iblock,
8463                                 const lapack_int* isplit,
8464                                 lapack_complex_double* z, lapack_int ldz,
8465                                 double* work, lapack_int* iwork,
8466                                 lapack_int* ifailv );
8467 
8468 lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range,
8469                                 lapack_int n, float* d, float* e, float vl,
8470                                 float vu, lapack_int il, lapack_int iu,
8471                                 lapack_int* m, float* w, float* z,
8472                                 lapack_int ldz, lapack_int nzc,
8473                                 lapack_int* isuppz, lapack_logical* tryrac,
8474                                 float* work, lapack_int lwork,
8475                                 lapack_int* iwork, lapack_int liwork );
8476 lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range,
8477                                 lapack_int n, double* d, double* e, double vl,
8478                                 double vu, lapack_int il, lapack_int iu,
8479                                 lapack_int* m, double* w, double* z,
8480                                 lapack_int ldz, lapack_int nzc,
8481                                 lapack_int* isuppz, lapack_logical* tryrac,
8482                                 double* work, lapack_int lwork,
8483                                 lapack_int* iwork, lapack_int liwork );
8484 lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range,
8485                                 lapack_int n, float* d, float* e, float vl,
8486                                 float vu, lapack_int il, lapack_int iu,
8487                                 lapack_int* m, float* w,
8488                                 lapack_complex_float* z, lapack_int ldz,
8489                                 lapack_int nzc, lapack_int* isuppz,
8490                                 lapack_logical* tryrac, float* work,
8491                                 lapack_int lwork, lapack_int* iwork,
8492                                 lapack_int liwork );
8493 lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range,
8494                                 lapack_int n, double* d, double* e, double vl,
8495                                 double vu, lapack_int il, lapack_int iu,
8496                                 lapack_int* m, double* w,
8497                                 lapack_complex_double* z, lapack_int ldz,
8498                                 lapack_int nzc, lapack_int* isuppz,
8499                                 lapack_logical* tryrac, double* work,
8500                                 lapack_int lwork, lapack_int* iwork,
8501                                 lapack_int liwork );
8502 
8503 lapack_int LAPACKE_ssteqr_work( int matrix_order, char compz, lapack_int n,
8504                                 float* d, float* e, float* z, lapack_int ldz,
8505                                 float* work );
8506 lapack_int LAPACKE_dsteqr_work( int matrix_order, char compz, lapack_int n,
8507                                 double* d, double* e, double* z, lapack_int ldz,
8508                                 double* work );
8509 lapack_int LAPACKE_csteqr_work( int matrix_order, char compz, lapack_int n,
8510                                 float* d, float* e, lapack_complex_float* z,
8511                                 lapack_int ldz, float* work );
8512 lapack_int LAPACKE_zsteqr_work( int matrix_order, char compz, lapack_int n,
8513                                 double* d, double* e, lapack_complex_double* z,
8514                                 lapack_int ldz, double* work );
8515 
8516 lapack_int LAPACKE_ssterf_work( lapack_int n, float* d, float* e );
8517 lapack_int LAPACKE_dsterf_work( lapack_int n, double* d, double* e );
8518 
8519 lapack_int LAPACKE_sstev_work( int matrix_order, char jobz, lapack_int n,
8520                                float* d, float* e, float* z, lapack_int ldz,
8521                                float* work );
8522 lapack_int LAPACKE_dstev_work( int matrix_order, char jobz, lapack_int n,
8523                                double* d, double* e, double* z, lapack_int ldz,
8524                                double* work );
8525 
8526 lapack_int LAPACKE_sstevd_work( int matrix_order, char jobz, lapack_int n,
8527                                 float* d, float* e, float* z, lapack_int ldz,
8528                                 float* work, lapack_int lwork,
8529                                 lapack_int* iwork, lapack_int liwork );
8530 lapack_int LAPACKE_dstevd_work( int matrix_order, char jobz, lapack_int n,
8531                                 double* d, double* e, double* z, lapack_int ldz,
8532                                 double* work, lapack_int lwork,
8533                                 lapack_int* iwork, lapack_int liwork );
8534 
8535 lapack_int LAPACKE_sstevr_work( int matrix_order, char jobz, char range,
8536                                 lapack_int n, float* d, float* e, float vl,
8537                                 float vu, lapack_int il, lapack_int iu,
8538                                 float abstol, lapack_int* m, float* w, float* z,
8539                                 lapack_int ldz, lapack_int* isuppz, float* work,
8540                                 lapack_int lwork, lapack_int* iwork,
8541                                 lapack_int liwork );
8542 lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range,
8543                                 lapack_int n, double* d, double* e, double vl,
8544                                 double vu, lapack_int il, lapack_int iu,
8545                                 double abstol, lapack_int* m, double* w,
8546                                 double* z, lapack_int ldz, lapack_int* isuppz,
8547                                 double* work, lapack_int lwork,
8548                                 lapack_int* iwork, lapack_int liwork );
8549 
8550 lapack_int LAPACKE_sstevx_work( int matrix_order, char jobz, char range,
8551                                 lapack_int n, float* d, float* e, float vl,
8552                                 float vu, lapack_int il, lapack_int iu,
8553                                 float abstol, lapack_int* m, float* w, float* z,
8554                                 lapack_int ldz, float* work, lapack_int* iwork,
8555                                 lapack_int* ifail );
8556 lapack_int LAPACKE_dstevx_work( int matrix_order, char jobz, char range,
8557                                 lapack_int n, double* d, double* e, double vl,
8558                                 double vu, lapack_int il, lapack_int iu,
8559                                 double abstol, lapack_int* m, double* w,
8560                                 double* z, lapack_int ldz, double* work,
8561                                 lapack_int* iwork, lapack_int* ifail );
8562 
8563 lapack_int LAPACKE_ssycon_work( int matrix_order, char uplo, lapack_int n,
8564                                 const float* a, lapack_int lda,
8565                                 const lapack_int* ipiv, float anorm,
8566                                 float* rcond, float* work, lapack_int* iwork );
8567 lapack_int LAPACKE_dsycon_work( int matrix_order, char uplo, lapack_int n,
8568                                 const double* a, lapack_int lda,
8569                                 const lapack_int* ipiv, double anorm,
8570                                 double* rcond, double* work,
8571                                 lapack_int* iwork );
8572 lapack_int LAPACKE_csycon_work( int matrix_order, char uplo, lapack_int n,
8573                                 const lapack_complex_float* a, lapack_int lda,
8574                                 const lapack_int* ipiv, float anorm,
8575                                 float* rcond, lapack_complex_float* work );
8576 lapack_int LAPACKE_zsycon_work( int matrix_order, char uplo, lapack_int n,
8577                                 const lapack_complex_double* a, lapack_int lda,
8578                                 const lapack_int* ipiv, double anorm,
8579                                 double* rcond, lapack_complex_double* work );
8580 
8581 lapack_int LAPACKE_ssyequb_work( int matrix_order, char uplo, lapack_int n,
8582                                  const float* a, lapack_int lda, float* s,
8583                                  float* scond, float* amax, float* work );
8584 lapack_int LAPACKE_dsyequb_work( int matrix_order, char uplo, lapack_int n,
8585                                  const double* a, lapack_int lda, double* s,
8586                                  double* scond, double* amax, double* work );
8587 lapack_int LAPACKE_csyequb_work( int matrix_order, char uplo, lapack_int n,
8588                                  const lapack_complex_float* a, lapack_int lda,
8589                                  float* s, float* scond, float* amax,
8590                                  lapack_complex_float* work );
8591 lapack_int LAPACKE_zsyequb_work( int matrix_order, char uplo, lapack_int n,
8592                                  const lapack_complex_double* a, lapack_int lda,
8593                                  double* s, double* scond, double* amax,
8594                                  lapack_complex_double* work );
8595 
8596 lapack_int LAPACKE_ssyev_work( int matrix_order, char jobz, char uplo,
8597                                lapack_int n, float* a, lapack_int lda, float* w,
8598                                float* work, lapack_int lwork );
8599 lapack_int LAPACKE_dsyev_work( int matrix_order, char jobz, char uplo,
8600                                lapack_int n, double* a, lapack_int lda,
8601                                double* w, double* work, lapack_int lwork );
8602 
8603 lapack_int LAPACKE_ssyevd_work( int matrix_order, char jobz, char uplo,
8604                                 lapack_int n, float* a, lapack_int lda,
8605                                 float* w, float* work, lapack_int lwork,
8606                                 lapack_int* iwork, lapack_int liwork );
8607 lapack_int LAPACKE_dsyevd_work( int matrix_order, char jobz, char uplo,
8608                                 lapack_int n, double* a, lapack_int lda,
8609                                 double* w, double* work, lapack_int lwork,
8610                                 lapack_int* iwork, lapack_int liwork );
8611 
8612 lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range,
8613                                 char uplo, lapack_int n, float* a,
8614                                 lapack_int lda, float vl, float vu,
8615                                 lapack_int il, lapack_int iu, float abstol,
8616                                 lapack_int* m, float* w, float* z,
8617                                 lapack_int ldz, lapack_int* isuppz, float* work,
8618                                 lapack_int lwork, lapack_int* iwork,
8619                                 lapack_int liwork );
8620 lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range,
8621                                 char uplo, lapack_int n, double* a,
8622                                 lapack_int lda, double vl, double vu,
8623                                 lapack_int il, lapack_int iu, double abstol,
8624                                 lapack_int* m, double* w, double* z,
8625                                 lapack_int ldz, lapack_int* isuppz,
8626                                 double* work, lapack_int lwork,
8627                                 lapack_int* iwork, lapack_int liwork );
8628 
8629 lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range,
8630                                 char uplo, lapack_int n, float* a,
8631                                 lapack_int lda, float vl, float vu,
8632                                 lapack_int il, lapack_int iu, float abstol,
8633                                 lapack_int* m, float* w, float* z,
8634                                 lapack_int ldz, float* work, lapack_int lwork,
8635                                 lapack_int* iwork, lapack_int* ifail );
8636 lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range,
8637                                 char uplo, lapack_int n, double* a,
8638                                 lapack_int lda, double vl, double vu,
8639                                 lapack_int il, lapack_int iu, double abstol,
8640                                 lapack_int* m, double* w, double* z,
8641                                 lapack_int ldz, double* work, lapack_int lwork,
8642                                 lapack_int* iwork, lapack_int* ifail );
8643 
8644 lapack_int LAPACKE_ssygst_work( int matrix_order, lapack_int itype, char uplo,
8645                                 lapack_int n, float* a, lapack_int lda,
8646                                 const float* b, lapack_int ldb );
8647 lapack_int LAPACKE_dsygst_work( int matrix_order, lapack_int itype, char uplo,
8648                                 lapack_int n, double* a, lapack_int lda,
8649                                 const double* b, lapack_int ldb );
8650 
8651 lapack_int LAPACKE_ssygv_work( int matrix_order, lapack_int itype, char jobz,
8652                                char uplo, lapack_int n, float* a,
8653                                lapack_int lda, float* b, lapack_int ldb,
8654                                float* w, float* work, lapack_int lwork );
8655 lapack_int LAPACKE_dsygv_work( int matrix_order, lapack_int itype, char jobz,
8656                                char uplo, lapack_int n, double* a,
8657                                lapack_int lda, double* b, lapack_int ldb,
8658                                double* w, double* work, lapack_int lwork );
8659 
8660 lapack_int LAPACKE_ssygvd_work( int matrix_order, lapack_int itype, char jobz,
8661                                 char uplo, lapack_int n, float* a,
8662                                 lapack_int lda, float* b, lapack_int ldb,
8663                                 float* w, float* work, lapack_int lwork,
8664                                 lapack_int* iwork, lapack_int liwork );
8665 lapack_int LAPACKE_dsygvd_work( int matrix_order, lapack_int itype, char jobz,
8666                                 char uplo, lapack_int n, double* a,
8667                                 lapack_int lda, double* b, lapack_int ldb,
8668                                 double* w, double* work, lapack_int lwork,
8669                                 lapack_int* iwork, lapack_int liwork );
8670 
8671 lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz,
8672                                 char range, char uplo, lapack_int n, float* a,
8673                                 lapack_int lda, float* b, lapack_int ldb,
8674                                 float vl, float vu, lapack_int il,
8675                                 lapack_int iu, float abstol, lapack_int* m,
8676                                 float* w, float* z, lapack_int ldz, float* work,
8677                                 lapack_int lwork, lapack_int* iwork,
8678                                 lapack_int* ifail );
8679 lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz,
8680                                 char range, char uplo, lapack_int n, double* a,
8681                                 lapack_int lda, double* b, lapack_int ldb,
8682                                 double vl, double vu, lapack_int il,
8683                                 lapack_int iu, double abstol, lapack_int* m,
8684                                 double* w, double* z, lapack_int ldz,
8685                                 double* work, lapack_int lwork,
8686                                 lapack_int* iwork, lapack_int* ifail );
8687 
8688 lapack_int LAPACKE_ssyrfs_work( int matrix_order, char uplo, lapack_int n,
8689                                 lapack_int nrhs, const float* a, lapack_int lda,
8690                                 const float* af, lapack_int ldaf,
8691                                 const lapack_int* ipiv, const float* b,
8692                                 lapack_int ldb, float* x, lapack_int ldx,
8693                                 float* ferr, float* berr, float* work,
8694                                 lapack_int* iwork );
8695 lapack_int LAPACKE_dsyrfs_work( int matrix_order, char uplo, lapack_int n,
8696                                 lapack_int nrhs, const double* a,
8697                                 lapack_int lda, const double* af,
8698                                 lapack_int ldaf, const lapack_int* ipiv,
8699                                 const double* b, lapack_int ldb, double* x,
8700                                 lapack_int ldx, double* ferr, double* berr,
8701                                 double* work, lapack_int* iwork );
8702 lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n,
8703                                 lapack_int nrhs, const lapack_complex_float* a,
8704                                 lapack_int lda, const lapack_complex_float* af,
8705                                 lapack_int ldaf, const lapack_int* ipiv,
8706                                 const lapack_complex_float* b, lapack_int ldb,
8707                                 lapack_complex_float* x, lapack_int ldx,
8708                                 float* ferr, float* berr,
8709                                 lapack_complex_float* work, float* rwork );
8710 lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n,
8711                                 lapack_int nrhs, const lapack_complex_double* a,
8712                                 lapack_int lda, const lapack_complex_double* af,
8713                                 lapack_int ldaf, const lapack_int* ipiv,
8714                                 const lapack_complex_double* b, lapack_int ldb,
8715                                 lapack_complex_double* x, lapack_int ldx,
8716                                 double* ferr, double* berr,
8717                                 lapack_complex_double* work, double* rwork );
8718 
8719 lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed,
8720                                  lapack_int n, lapack_int nrhs, const float* a,
8721                                  lapack_int lda, const float* af,
8722                                  lapack_int ldaf, const lapack_int* ipiv,
8723                                  const float* s, const float* b, lapack_int ldb,
8724                                  float* x, lapack_int ldx, float* rcond,
8725                                  float* berr, lapack_int n_err_bnds,
8726                                  float* err_bnds_norm, float* err_bnds_comp,
8727                                  lapack_int nparams, float* params, float* work,
8728                                  lapack_int* iwork );
8729 lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed,
8730                                  lapack_int n, lapack_int nrhs, const double* a,
8731                                  lapack_int lda, const double* af,
8732                                  lapack_int ldaf, const lapack_int* ipiv,
8733                                  const double* s, const double* b,
8734                                  lapack_int ldb, double* x, lapack_int ldx,
8735                                  double* rcond, double* berr,
8736                                  lapack_int n_err_bnds, double* err_bnds_norm,
8737                                  double* err_bnds_comp, lapack_int nparams,
8738                                  double* params, double* work,
8739                                  lapack_int* iwork );
8740 lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed,
8741                                  lapack_int n, lapack_int nrhs,
8742                                  const lapack_complex_float* a, lapack_int lda,
8743                                  const lapack_complex_float* af,
8744                                  lapack_int ldaf, const lapack_int* ipiv,
8745                                  const float* s, const lapack_complex_float* b,
8746                                  lapack_int ldb, lapack_complex_float* x,
8747                                  lapack_int ldx, float* rcond, float* berr,
8748                                  lapack_int n_err_bnds, float* err_bnds_norm,
8749                                  float* err_bnds_comp, lapack_int nparams,
8750                                  float* params, lapack_complex_float* work,
8751                                  float* rwork );
8752 lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed,
8753                                  lapack_int n, lapack_int nrhs,
8754                                  const lapack_complex_double* a, lapack_int lda,
8755                                  const lapack_complex_double* af,
8756                                  lapack_int ldaf, const lapack_int* ipiv,
8757                                  const double* s,
8758                                  const lapack_complex_double* b, lapack_int ldb,
8759                                  lapack_complex_double* x, lapack_int ldx,
8760                                  double* rcond, double* berr,
8761                                  lapack_int n_err_bnds, double* err_bnds_norm,
8762                                  double* err_bnds_comp, lapack_int nparams,
8763                                  double* params, lapack_complex_double* work,
8764                                  double* rwork );
8765 
8766 lapack_int LAPACKE_ssysv_work( int matrix_order, char uplo, lapack_int n,
8767                                lapack_int nrhs, float* a, lapack_int lda,
8768                                lapack_int* ipiv, float* b, lapack_int ldb,
8769                                float* work, lapack_int lwork );
8770 lapack_int LAPACKE_dsysv_work( int matrix_order, char uplo, lapack_int n,
8771                                lapack_int nrhs, double* a, lapack_int lda,
8772                                lapack_int* ipiv, double* b, lapack_int ldb,
8773                                double* work, lapack_int lwork );
8774 lapack_int LAPACKE_csysv_work( int matrix_order, char uplo, lapack_int n,
8775                                lapack_int nrhs, lapack_complex_float* a,
8776                                lapack_int lda, lapack_int* ipiv,
8777                                lapack_complex_float* b, lapack_int ldb,
8778                                lapack_complex_float* work, lapack_int lwork );
8779 lapack_int LAPACKE_zsysv_work( int matrix_order, char uplo, lapack_int n,
8780                                lapack_int nrhs, lapack_complex_double* a,
8781                                lapack_int lda, lapack_int* ipiv,
8782                                lapack_complex_double* b, lapack_int ldb,
8783                                lapack_complex_double* work, lapack_int lwork );
8784 
8785 lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo,
8786                                 lapack_int n, lapack_int nrhs, const float* a,
8787                                 lapack_int lda, float* af, lapack_int ldaf,
8788                                 lapack_int* ipiv, const float* b,
8789                                 lapack_int ldb, float* x, lapack_int ldx,
8790                                 float* rcond, float* ferr, float* berr,
8791                                 float* work, lapack_int lwork,
8792                                 lapack_int* iwork );
8793 lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo,
8794                                 lapack_int n, lapack_int nrhs, const double* a,
8795                                 lapack_int lda, double* af, lapack_int ldaf,
8796                                 lapack_int* ipiv, const double* b,
8797                                 lapack_int ldb, double* x, lapack_int ldx,
8798                                 double* rcond, double* ferr, double* berr,
8799                                 double* work, lapack_int lwork,
8800                                 lapack_int* iwork );
8801 lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo,
8802                                 lapack_int n, lapack_int nrhs,
8803                                 const lapack_complex_float* a, lapack_int lda,
8804                                 lapack_complex_float* af, lapack_int ldaf,
8805                                 lapack_int* ipiv, const lapack_complex_float* b,
8806                                 lapack_int ldb, lapack_complex_float* x,
8807                                 lapack_int ldx, float* rcond, float* ferr,
8808                                 float* berr, lapack_complex_float* work,
8809                                 lapack_int lwork, float* rwork );
8810 lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo,
8811                                 lapack_int n, lapack_int nrhs,
8812                                 const lapack_complex_double* a, lapack_int lda,
8813                                 lapack_complex_double* af, lapack_int ldaf,
8814                                 lapack_int* ipiv,
8815                                 const lapack_complex_double* b, lapack_int ldb,
8816                                 lapack_complex_double* x, lapack_int ldx,
8817                                 double* rcond, double* ferr, double* berr,
8818                                 lapack_complex_double* work, lapack_int lwork,
8819                                 double* rwork );
8820 
8821 lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo,
8822                                  lapack_int n, lapack_int nrhs, float* a,
8823                                  lapack_int lda, float* af, lapack_int ldaf,
8824                                  lapack_int* ipiv, char* equed, float* s,
8825                                  float* b, lapack_int ldb, float* x,
8826                                  lapack_int ldx, float* rcond, float* rpvgrw,
8827                                  float* berr, lapack_int n_err_bnds,
8828                                  float* err_bnds_norm, float* err_bnds_comp,
8829                                  lapack_int nparams, float* params, float* work,
8830                                  lapack_int* iwork );
8831 lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo,
8832                                  lapack_int n, lapack_int nrhs, double* a,
8833                                  lapack_int lda, double* af, lapack_int ldaf,
8834                                  lapack_int* ipiv, char* equed, double* s,
8835                                  double* b, lapack_int ldb, double* x,
8836                                  lapack_int ldx, double* rcond, double* rpvgrw,
8837                                  double* berr, lapack_int n_err_bnds,
8838                                  double* err_bnds_norm, double* err_bnds_comp,
8839                                  lapack_int nparams, double* params,
8840                                  double* work, lapack_int* iwork );
8841 lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo,
8842                                  lapack_int n, lapack_int nrhs,
8843                                  lapack_complex_float* a, lapack_int lda,
8844                                  lapack_complex_float* af, lapack_int ldaf,
8845                                  lapack_int* ipiv, char* equed, float* s,
8846                                  lapack_complex_float* b, lapack_int ldb,
8847                                  lapack_complex_float* x, lapack_int ldx,
8848                                  float* rcond, float* rpvgrw, float* berr,
8849                                  lapack_int n_err_bnds, float* err_bnds_norm,
8850                                  float* err_bnds_comp, lapack_int nparams,
8851                                  float* params, lapack_complex_float* work,
8852                                  float* rwork );
8853 lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo,
8854                                  lapack_int n, lapack_int nrhs,
8855                                  lapack_complex_double* a, lapack_int lda,
8856                                  lapack_complex_double* af, lapack_int ldaf,
8857                                  lapack_int* ipiv, char* equed, double* s,
8858                                  lapack_complex_double* b, lapack_int ldb,
8859                                  lapack_complex_double* x, lapack_int ldx,
8860                                  double* rcond, double* rpvgrw, double* berr,
8861                                  lapack_int n_err_bnds, double* err_bnds_norm,
8862                                  double* err_bnds_comp, lapack_int nparams,
8863                                  double* params, lapack_complex_double* work,
8864                                  double* rwork );
8865 
8866 lapack_int LAPACKE_ssytrd_work( int matrix_order, char uplo, lapack_int n,
8867                                 float* a, lapack_int lda, float* d, float* e,
8868                                 float* tau, float* work, lapack_int lwork );
8869 lapack_int LAPACKE_dsytrd_work( int matrix_order, char uplo, lapack_int n,
8870                                 double* a, lapack_int lda, double* d, double* e,
8871                                 double* tau, double* work, lapack_int lwork );
8872 
8873 lapack_int LAPACKE_ssytrf_work( int matrix_order, char uplo, lapack_int n,
8874                                 float* a, lapack_int lda, lapack_int* ipiv,
8875                                 float* work, lapack_int lwork );
8876 lapack_int LAPACKE_dsytrf_work( int matrix_order, char uplo, lapack_int n,
8877                                 double* a, lapack_int lda, lapack_int* ipiv,
8878                                 double* work, lapack_int lwork );
8879 lapack_int LAPACKE_csytrf_work( int matrix_order, char uplo, lapack_int n,
8880                                 lapack_complex_float* a, lapack_int lda,
8881                                 lapack_int* ipiv, lapack_complex_float* work,
8882                                 lapack_int lwork );
8883 lapack_int LAPACKE_zsytrf_work( int matrix_order, char uplo, lapack_int n,
8884                                 lapack_complex_double* a, lapack_int lda,
8885                                 lapack_int* ipiv, lapack_complex_double* work,
8886                                 lapack_int lwork );
8887 
8888 lapack_int LAPACKE_ssytri_work( int matrix_order, char uplo, lapack_int n,
8889                                 float* a, lapack_int lda,
8890                                 const lapack_int* ipiv, float* work );
8891 lapack_int LAPACKE_dsytri_work( int matrix_order, char uplo, lapack_int n,
8892                                 double* a, lapack_int lda,
8893                                 const lapack_int* ipiv, double* work );
8894 lapack_int LAPACKE_csytri_work( int matrix_order, char uplo, lapack_int n,
8895                                 lapack_complex_float* a, lapack_int lda,
8896                                 const lapack_int* ipiv,
8897                                 lapack_complex_float* work );
8898 lapack_int LAPACKE_zsytri_work( int matrix_order, char uplo, lapack_int n,
8899                                 lapack_complex_double* a, lapack_int lda,
8900                                 const lapack_int* ipiv,
8901                                 lapack_complex_double* work );
8902 
8903 lapack_int LAPACKE_ssytrs_work( int matrix_order, char uplo, lapack_int n,
8904                                 lapack_int nrhs, const float* a, lapack_int lda,
8905                                 const lapack_int* ipiv, float* b,
8906                                 lapack_int ldb );
8907 lapack_int LAPACKE_dsytrs_work( int matrix_order, char uplo, lapack_int n,
8908                                 lapack_int nrhs, const double* a,
8909                                 lapack_int lda, const lapack_int* ipiv,
8910                                 double* b, lapack_int ldb );
8911 lapack_int LAPACKE_csytrs_work( int matrix_order, char uplo, lapack_int n,
8912                                 lapack_int nrhs, const lapack_complex_float* a,
8913                                 lapack_int lda, const lapack_int* ipiv,
8914                                 lapack_complex_float* b, lapack_int ldb );
8915 lapack_int LAPACKE_zsytrs_work( int matrix_order, char uplo, lapack_int n,
8916                                 lapack_int nrhs, const lapack_complex_double* a,
8917                                 lapack_int lda, const lapack_int* ipiv,
8918                                 lapack_complex_double* b, lapack_int ldb );
8919 
8920 lapack_int LAPACKE_stbcon_work( int matrix_order, char norm, char uplo,
8921                                 char diag, lapack_int n, lapack_int kd,
8922                                 const float* ab, lapack_int ldab, float* rcond,
8923                                 float* work, lapack_int* iwork );
8924 lapack_int LAPACKE_dtbcon_work( int matrix_order, char norm, char uplo,
8925                                 char diag, lapack_int n, lapack_int kd,
8926                                 const double* ab, lapack_int ldab,
8927                                 double* rcond, double* work,
8928                                 lapack_int* iwork );
8929 lapack_int LAPACKE_ctbcon_work( int matrix_order, char norm, char uplo,
8930                                 char diag, lapack_int n, lapack_int kd,
8931                                 const lapack_complex_float* ab, lapack_int ldab,
8932                                 float* rcond, lapack_complex_float* work,
8933                                 float* rwork );
8934 lapack_int LAPACKE_ztbcon_work( int matrix_order, char norm, char uplo,
8935                                 char diag, lapack_int n, lapack_int kd,
8936                                 const lapack_complex_double* ab,
8937                                 lapack_int ldab, double* rcond,
8938                                 lapack_complex_double* work, double* rwork );
8939 
8940 lapack_int LAPACKE_stbrfs_work( int matrix_order, char uplo, char trans,
8941                                 char diag, lapack_int n, lapack_int kd,
8942                                 lapack_int nrhs, const float* ab,
8943                                 lapack_int ldab, const float* b, lapack_int ldb,
8944                                 const float* x, lapack_int ldx, float* ferr,
8945                                 float* berr, float* work, lapack_int* iwork );
8946 lapack_int LAPACKE_dtbrfs_work( int matrix_order, char uplo, char trans,
8947                                 char diag, lapack_int n, lapack_int kd,
8948                                 lapack_int nrhs, const double* ab,
8949                                 lapack_int ldab, const double* b,
8950                                 lapack_int ldb, const double* x, lapack_int ldx,
8951                                 double* ferr, double* berr, double* work,
8952                                 lapack_int* iwork );
8953 lapack_int LAPACKE_ctbrfs_work( int matrix_order, char uplo, char trans,
8954                                 char diag, lapack_int n, lapack_int kd,
8955                                 lapack_int nrhs, const lapack_complex_float* ab,
8956                                 lapack_int ldab, const lapack_complex_float* b,
8957                                 lapack_int ldb, const lapack_complex_float* x,
8958                                 lapack_int ldx, float* ferr, float* berr,
8959                                 lapack_complex_float* work, float* rwork );
8960 lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans,
8961                                 char diag, lapack_int n, lapack_int kd,
8962                                 lapack_int nrhs,
8963                                 const lapack_complex_double* ab,
8964                                 lapack_int ldab, const lapack_complex_double* b,
8965                                 lapack_int ldb, const lapack_complex_double* x,
8966                                 lapack_int ldx, double* ferr, double* berr,
8967                                 lapack_complex_double* work, double* rwork );
8968 
8969 lapack_int LAPACKE_stbtrs_work( int matrix_order, char uplo, char trans,
8970                                 char diag, lapack_int n, lapack_int kd,
8971                                 lapack_int nrhs, const float* ab,
8972                                 lapack_int ldab, float* b, lapack_int ldb );
8973 lapack_int LAPACKE_dtbtrs_work( int matrix_order, char uplo, char trans,
8974                                 char diag, lapack_int n, lapack_int kd,
8975                                 lapack_int nrhs, const double* ab,
8976                                 lapack_int ldab, double* b, lapack_int ldb );
8977 lapack_int LAPACKE_ctbtrs_work( int matrix_order, char uplo, char trans,
8978                                 char diag, lapack_int n, lapack_int kd,
8979                                 lapack_int nrhs, const lapack_complex_float* ab,
8980                                 lapack_int ldab, lapack_complex_float* b,
8981                                 lapack_int ldb );
8982 lapack_int LAPACKE_ztbtrs_work( int matrix_order, char uplo, char trans,
8983                                 char diag, lapack_int n, lapack_int kd,
8984                                 lapack_int nrhs,
8985                                 const lapack_complex_double* ab,
8986                                 lapack_int ldab, lapack_complex_double* b,
8987                                 lapack_int ldb );
8988 
8989 lapack_int LAPACKE_stfsm_work( int matrix_order, char transr, char side,
8990                                char uplo, char trans, char diag, lapack_int m,
8991                                lapack_int n, float alpha, const float* a,
8992                                float* b, lapack_int ldb );
8993 lapack_int LAPACKE_dtfsm_work( int matrix_order, char transr, char side,
8994                                char uplo, char trans, char diag, lapack_int m,
8995                                lapack_int n, double alpha, const double* a,
8996                                double* b, lapack_int ldb );
8997 lapack_int LAPACKE_ctfsm_work( int matrix_order, char transr, char side,
8998                                char uplo, char trans, char diag, lapack_int m,
8999                                lapack_int n, lapack_complex_float alpha,
9000                                const lapack_complex_float* a,
9001                                lapack_complex_float* b, lapack_int ldb );
9002 lapack_int LAPACKE_ztfsm_work( int matrix_order, char transr, char side,
9003                                char uplo, char trans, char diag, lapack_int m,
9004                                lapack_int n, lapack_complex_double alpha,
9005                                const lapack_complex_double* a,
9006                                lapack_complex_double* b, lapack_int ldb );
9007 
9008 lapack_int LAPACKE_stftri_work( int matrix_order, char transr, char uplo,
9009                                 char diag, lapack_int n, float* a );
9010 lapack_int LAPACKE_dtftri_work( int matrix_order, char transr, char uplo,
9011                                 char diag, lapack_int n, double* a );
9012 lapack_int LAPACKE_ctftri_work( int matrix_order, char transr, char uplo,
9013                                 char diag, lapack_int n,
9014                                 lapack_complex_float* a );
9015 lapack_int LAPACKE_ztftri_work( int matrix_order, char transr, char uplo,
9016                                 char diag, lapack_int n,
9017                                 lapack_complex_double* a );
9018 
9019 lapack_int LAPACKE_stfttp_work( int matrix_order, char transr, char uplo,
9020                                 lapack_int n, const float* arf, float* ap );
9021 lapack_int LAPACKE_dtfttp_work( int matrix_order, char transr, char uplo,
9022                                 lapack_int n, const double* arf, double* ap );
9023 lapack_int LAPACKE_ctfttp_work( int matrix_order, char transr, char uplo,
9024                                 lapack_int n, const lapack_complex_float* arf,
9025                                 lapack_complex_float* ap );
9026 lapack_int LAPACKE_ztfttp_work( int matrix_order, char transr, char uplo,
9027                                 lapack_int n, const lapack_complex_double* arf,
9028                                 lapack_complex_double* ap );
9029 
9030 lapack_int LAPACKE_stfttr_work( int matrix_order, char transr, char uplo,
9031                                 lapack_int n, const float* arf, float* a,
9032                                 lapack_int lda );
9033 lapack_int LAPACKE_dtfttr_work( int matrix_order, char transr, char uplo,
9034                                 lapack_int n, const double* arf, double* a,
9035                                 lapack_int lda );
9036 lapack_int LAPACKE_ctfttr_work( int matrix_order, char transr, char uplo,
9037                                 lapack_int n, const lapack_complex_float* arf,
9038                                 lapack_complex_float* a, lapack_int lda );
9039 lapack_int LAPACKE_ztfttr_work( int matrix_order, char transr, char uplo,
9040                                 lapack_int n, const lapack_complex_double* arf,
9041                                 lapack_complex_double* a, lapack_int lda );
9042 
9043 lapack_int LAPACKE_stgevc_work( int matrix_order, char side, char howmny,
9044                                 const lapack_logical* select, lapack_int n,
9045                                 const float* s, lapack_int lds, const float* p,
9046                                 lapack_int ldp, float* vl, lapack_int ldvl,
9047                                 float* vr, lapack_int ldvr, lapack_int mm,
9048                                 lapack_int* m, float* work );
9049 lapack_int LAPACKE_dtgevc_work( int matrix_order, char side, char howmny,
9050                                 const lapack_logical* select, lapack_int n,
9051                                 const double* s, lapack_int lds,
9052                                 const double* p, lapack_int ldp, double* vl,
9053                                 lapack_int ldvl, double* vr, lapack_int ldvr,
9054                                 lapack_int mm, lapack_int* m, double* work );
9055 lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny,
9056                                 const lapack_logical* select, lapack_int n,
9057                                 const lapack_complex_float* s, lapack_int lds,
9058                                 const lapack_complex_float* p, lapack_int ldp,
9059                                 lapack_complex_float* vl, lapack_int ldvl,
9060                                 lapack_complex_float* vr, lapack_int ldvr,
9061                                 lapack_int mm, lapack_int* m,
9062                                 lapack_complex_float* work, float* rwork );
9063 lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny,
9064                                 const lapack_logical* select, lapack_int n,
9065                                 const lapack_complex_double* s, lapack_int lds,
9066                                 const lapack_complex_double* p, lapack_int ldp,
9067                                 lapack_complex_double* vl, lapack_int ldvl,
9068                                 lapack_complex_double* vr, lapack_int ldvr,
9069                                 lapack_int mm, lapack_int* m,
9070                                 lapack_complex_double* work, double* rwork );
9071 
9072 lapack_int LAPACKE_stgexc_work( int matrix_order, lapack_logical wantq,
9073                                 lapack_logical wantz, lapack_int n, float* a,
9074                                 lapack_int lda, float* b, lapack_int ldb,
9075                                 float* q, lapack_int ldq, float* z,
9076                                 lapack_int ldz, lapack_int* ifst,
9077                                 lapack_int* ilst, float* work,
9078                                 lapack_int lwork );
9079 lapack_int LAPACKE_dtgexc_work( int matrix_order, lapack_logical wantq,
9080                                 lapack_logical wantz, lapack_int n, double* a,
9081                                 lapack_int lda, double* b, lapack_int ldb,
9082                                 double* q, lapack_int ldq, double* z,
9083                                 lapack_int ldz, lapack_int* ifst,
9084                                 lapack_int* ilst, double* work,
9085                                 lapack_int lwork );
9086 lapack_int LAPACKE_ctgexc_work( int matrix_order, lapack_logical wantq,
9087                                 lapack_logical wantz, lapack_int n,
9088                                 lapack_complex_float* a, lapack_int lda,
9089                                 lapack_complex_float* b, lapack_int ldb,
9090                                 lapack_complex_float* q, lapack_int ldq,
9091                                 lapack_complex_float* z, lapack_int ldz,
9092                                 lapack_int ifst, lapack_int ilst );
9093 lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq,
9094                                 lapack_logical wantz, lapack_int n,
9095                                 lapack_complex_double* a, lapack_int lda,
9096                                 lapack_complex_double* b, lapack_int ldb,
9097                                 lapack_complex_double* q, lapack_int ldq,
9098                                 lapack_complex_double* z, lapack_int ldz,
9099                                 lapack_int ifst, lapack_int ilst );
9100 
9101 lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob,
9102                                 lapack_logical wantq, lapack_logical wantz,
9103                                 const lapack_logical* select, lapack_int n,
9104                                 float* a, lapack_int lda, float* b,
9105                                 lapack_int ldb, float* alphar, float* alphai,
9106                                 float* beta, float* q, lapack_int ldq, float* z,
9107                                 lapack_int ldz, lapack_int* m, float* pl,
9108                                 float* pr, float* dif, float* work,
9109                                 lapack_int lwork, lapack_int* iwork,
9110                                 lapack_int liwork );
9111 lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob,
9112                                 lapack_logical wantq, lapack_logical wantz,
9113                                 const lapack_logical* select, lapack_int n,
9114                                 double* a, lapack_int lda, double* b,
9115                                 lapack_int ldb, double* alphar, double* alphai,
9116                                 double* beta, double* q, lapack_int ldq,
9117                                 double* z, lapack_int ldz, lapack_int* m,
9118                                 double* pl, double* pr, double* dif,
9119                                 double* work, lapack_int lwork,
9120                                 lapack_int* iwork, lapack_int liwork );
9121 lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob,
9122                                 lapack_logical wantq, lapack_logical wantz,
9123                                 const lapack_logical* select, lapack_int n,
9124                                 lapack_complex_float* a, lapack_int lda,
9125                                 lapack_complex_float* b, lapack_int ldb,
9126                                 lapack_complex_float* alpha,
9127                                 lapack_complex_float* beta,
9128                                 lapack_complex_float* q, lapack_int ldq,
9129                                 lapack_complex_float* z, lapack_int ldz,
9130                                 lapack_int* m, float* pl, float* pr, float* dif,
9131                                 lapack_complex_float* work, lapack_int lwork,
9132                                 lapack_int* iwork, lapack_int liwork );
9133 lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob,
9134                                 lapack_logical wantq, lapack_logical wantz,
9135                                 const lapack_logical* select, lapack_int n,
9136                                 lapack_complex_double* a, lapack_int lda,
9137                                 lapack_complex_double* b, lapack_int ldb,
9138                                 lapack_complex_double* alpha,
9139                                 lapack_complex_double* beta,
9140                                 lapack_complex_double* q, lapack_int ldq,
9141                                 lapack_complex_double* z, lapack_int ldz,
9142                                 lapack_int* m, double* pl, double* pr,
9143                                 double* dif, lapack_complex_double* work,
9144                                 lapack_int lwork, lapack_int* iwork,
9145                                 lapack_int liwork );
9146 
9147 lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv,
9148                                 char jobq, lapack_int m, lapack_int p,
9149                                 lapack_int n, lapack_int k, lapack_int l,
9150                                 float* a, lapack_int lda, float* b,
9151                                 lapack_int ldb, float tola, float tolb,
9152                                 float* alpha, float* beta, float* u,
9153                                 lapack_int ldu, float* v, lapack_int ldv,
9154                                 float* q, lapack_int ldq, float* work,
9155                                 lapack_int* ncycle );
9156 lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv,
9157                                 char jobq, lapack_int m, lapack_int p,
9158                                 lapack_int n, lapack_int k, lapack_int l,
9159                                 double* a, lapack_int lda, double* b,
9160                                 lapack_int ldb, double tola, double tolb,
9161                                 double* alpha, double* beta, double* u,
9162                                 lapack_int ldu, double* v, lapack_int ldv,
9163                                 double* q, lapack_int ldq, double* work,
9164                                 lapack_int* ncycle );
9165 lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv,
9166                                 char jobq, lapack_int m, lapack_int p,
9167                                 lapack_int n, lapack_int k, lapack_int l,
9168                                 lapack_complex_float* a, lapack_int lda,
9169                                 lapack_complex_float* b, lapack_int ldb,
9170                                 float tola, float tolb, float* alpha,
9171                                 float* beta, lapack_complex_float* u,
9172                                 lapack_int ldu, lapack_complex_float* v,
9173                                 lapack_int ldv, lapack_complex_float* q,
9174                                 lapack_int ldq, lapack_complex_float* work,
9175                                 lapack_int* ncycle );
9176 lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv,
9177                                 char jobq, lapack_int m, lapack_int p,
9178                                 lapack_int n, lapack_int k, lapack_int l,
9179                                 lapack_complex_double* a, lapack_int lda,
9180                                 lapack_complex_double* b, lapack_int ldb,
9181                                 double tola, double tolb, double* alpha,
9182                                 double* beta, lapack_complex_double* u,
9183                                 lapack_int ldu, lapack_complex_double* v,
9184                                 lapack_int ldv, lapack_complex_double* q,
9185                                 lapack_int ldq, lapack_complex_double* work,
9186                                 lapack_int* ncycle );
9187 
9188 lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny,
9189                                 const lapack_logical* select, lapack_int n,
9190                                 const float* a, lapack_int lda, const float* b,
9191                                 lapack_int ldb, const float* vl,
9192                                 lapack_int ldvl, const float* vr,
9193                                 lapack_int ldvr, float* s, float* dif,
9194                                 lapack_int mm, lapack_int* m, float* work,
9195                                 lapack_int lwork, lapack_int* iwork );
9196 lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny,
9197                                 const lapack_logical* select, lapack_int n,
9198                                 const double* a, lapack_int lda,
9199                                 const double* b, lapack_int ldb,
9200                                 const double* vl, lapack_int ldvl,
9201                                 const double* vr, lapack_int ldvr, double* s,
9202                                 double* dif, lapack_int mm, lapack_int* m,
9203                                 double* work, lapack_int lwork,
9204                                 lapack_int* iwork );
9205 lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny,
9206                                 const lapack_logical* select, lapack_int n,
9207                                 const lapack_complex_float* a, lapack_int lda,
9208                                 const lapack_complex_float* b, lapack_int ldb,
9209                                 const lapack_complex_float* vl, lapack_int ldvl,
9210                                 const lapack_complex_float* vr, lapack_int ldvr,
9211                                 float* s, float* dif, lapack_int mm,
9212                                 lapack_int* m, lapack_complex_float* work,
9213                                 lapack_int lwork, lapack_int* iwork );
9214 lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny,
9215                                 const lapack_logical* select, lapack_int n,
9216                                 const lapack_complex_double* a, lapack_int lda,
9217                                 const lapack_complex_double* b, lapack_int ldb,
9218                                 const lapack_complex_double* vl,
9219                                 lapack_int ldvl,
9220                                 const lapack_complex_double* vr,
9221                                 lapack_int ldvr, double* s, double* dif,
9222                                 lapack_int mm, lapack_int* m,
9223                                 lapack_complex_double* work, lapack_int lwork,
9224                                 lapack_int* iwork );
9225 
9226 lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob,
9227                                 lapack_int m, lapack_int n, const float* a,
9228                                 lapack_int lda, const float* b, lapack_int ldb,
9229                                 float* c, lapack_int ldc, const float* d,
9230                                 lapack_int ldd, const float* e, lapack_int lde,
9231                                 float* f, lapack_int ldf, float* scale,
9232                                 float* dif, float* work, lapack_int lwork,
9233                                 lapack_int* iwork );
9234 lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob,
9235                                 lapack_int m, lapack_int n, const double* a,
9236                                 lapack_int lda, const double* b, lapack_int ldb,
9237                                 double* c, lapack_int ldc, const double* d,
9238                                 lapack_int ldd, const double* e, lapack_int lde,
9239                                 double* f, lapack_int ldf, double* scale,
9240                                 double* dif, double* work, lapack_int lwork,
9241                                 lapack_int* iwork );
9242 lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob,
9243                                 lapack_int m, lapack_int n,
9244                                 const lapack_complex_float* a, lapack_int lda,
9245                                 const lapack_complex_float* b, lapack_int ldb,
9246                                 lapack_complex_float* c, lapack_int ldc,
9247                                 const lapack_complex_float* d, lapack_int ldd,
9248                                 const lapack_complex_float* e, lapack_int lde,
9249                                 lapack_complex_float* f, lapack_int ldf,
9250                                 float* scale, float* dif,
9251                                 lapack_complex_float* work, lapack_int lwork,
9252                                 lapack_int* iwork );
9253 lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob,
9254                                 lapack_int m, lapack_int n,
9255                                 const lapack_complex_double* a, lapack_int lda,
9256                                 const lapack_complex_double* b, lapack_int ldb,
9257                                 lapack_complex_double* c, lapack_int ldc,
9258                                 const lapack_complex_double* d, lapack_int ldd,
9259                                 const lapack_complex_double* e, lapack_int lde,
9260                                 lapack_complex_double* f, lapack_int ldf,
9261                                 double* scale, double* dif,
9262                                 lapack_complex_double* work, lapack_int lwork,
9263                                 lapack_int* iwork );
9264 
9265 lapack_int LAPACKE_stpcon_work( int matrix_order, char norm, char uplo,
9266                                 char diag, lapack_int n, const float* ap,
9267                                 float* rcond, float* work, lapack_int* iwork );
9268 lapack_int LAPACKE_dtpcon_work( int matrix_order, char norm, char uplo,
9269                                 char diag, lapack_int n, const double* ap,
9270                                 double* rcond, double* work,
9271                                 lapack_int* iwork );
9272 lapack_int LAPACKE_ctpcon_work( int matrix_order, char norm, char uplo,
9273                                 char diag, lapack_int n,
9274                                 const lapack_complex_float* ap, float* rcond,
9275                                 lapack_complex_float* work, float* rwork );
9276 lapack_int LAPACKE_ztpcon_work( int matrix_order, char norm, char uplo,
9277                                 char diag, lapack_int n,
9278                                 const lapack_complex_double* ap, double* rcond,
9279                                 lapack_complex_double* work, double* rwork );
9280 
9281 lapack_int LAPACKE_stprfs_work( int matrix_order, char uplo, char trans,
9282                                 char diag, lapack_int n, lapack_int nrhs,
9283                                 const float* ap, const float* b, lapack_int ldb,
9284                                 const float* x, lapack_int ldx, float* ferr,
9285                                 float* berr, float* work, lapack_int* iwork );
9286 lapack_int LAPACKE_dtprfs_work( int matrix_order, char uplo, char trans,
9287                                 char diag, lapack_int n, lapack_int nrhs,
9288                                 const double* ap, const double* b,
9289                                 lapack_int ldb, const double* x, lapack_int ldx,
9290                                 double* ferr, double* berr, double* work,
9291                                 lapack_int* iwork );
9292 lapack_int LAPACKE_ctprfs_work( int matrix_order, char uplo, char trans,
9293                                 char diag, lapack_int n, lapack_int nrhs,
9294                                 const lapack_complex_float* ap,
9295                                 const lapack_complex_float* b, lapack_int ldb,
9296                                 const lapack_complex_float* x, lapack_int ldx,
9297                                 float* ferr, float* berr,
9298                                 lapack_complex_float* work, float* rwork );
9299 lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans,
9300                                 char diag, lapack_int n, lapack_int nrhs,
9301                                 const lapack_complex_double* ap,
9302                                 const lapack_complex_double* b, lapack_int ldb,
9303                                 const lapack_complex_double* x, lapack_int ldx,
9304                                 double* ferr, double* berr,
9305                                 lapack_complex_double* work, double* rwork );
9306 
9307 lapack_int LAPACKE_stptri_work( int matrix_order, char uplo, char diag,
9308                                 lapack_int n, float* ap );
9309 lapack_int LAPACKE_dtptri_work( int matrix_order, char uplo, char diag,
9310                                 lapack_int n, double* ap );
9311 lapack_int LAPACKE_ctptri_work( int matrix_order, char uplo, char diag,
9312                                 lapack_int n, lapack_complex_float* ap );
9313 lapack_int LAPACKE_ztptri_work( int matrix_order, char uplo, char diag,
9314                                 lapack_int n, lapack_complex_double* ap );
9315 
9316 lapack_int LAPACKE_stptrs_work( int matrix_order, char uplo, char trans,
9317                                 char diag, lapack_int n, lapack_int nrhs,
9318                                 const float* ap, float* b, lapack_int ldb );
9319 lapack_int LAPACKE_dtptrs_work( int matrix_order, char uplo, char trans,
9320                                 char diag, lapack_int n, lapack_int nrhs,
9321                                 const double* ap, double* b, lapack_int ldb );
9322 lapack_int LAPACKE_ctptrs_work( int matrix_order, char uplo, char trans,
9323                                 char diag, lapack_int n, lapack_int nrhs,
9324                                 const lapack_complex_float* ap,
9325                                 lapack_complex_float* b, lapack_int ldb );
9326 lapack_int LAPACKE_ztptrs_work( int matrix_order, char uplo, char trans,
9327                                 char diag, lapack_int n, lapack_int nrhs,
9328                                 const lapack_complex_double* ap,
9329                                 lapack_complex_double* b, lapack_int ldb );
9330 
9331 lapack_int LAPACKE_stpttf_work( int matrix_order, char transr, char uplo,
9332                                 lapack_int n, const float* ap, float* arf );
9333 lapack_int LAPACKE_dtpttf_work( int matrix_order, char transr, char uplo,
9334                                 lapack_int n, const double* ap, double* arf );
9335 lapack_int LAPACKE_ctpttf_work( int matrix_order, char transr, char uplo,
9336                                 lapack_int n, const lapack_complex_float* ap,
9337                                 lapack_complex_float* arf );
9338 lapack_int LAPACKE_ztpttf_work( int matrix_order, char transr, char uplo,
9339                                 lapack_int n, const lapack_complex_double* ap,
9340                                 lapack_complex_double* arf );
9341 
9342 lapack_int LAPACKE_stpttr_work( int matrix_order, char uplo, lapack_int n,
9343                                 const float* ap, float* a, lapack_int lda );
9344 lapack_int LAPACKE_dtpttr_work( int matrix_order, char uplo, lapack_int n,
9345                                 const double* ap, double* a, lapack_int lda );
9346 lapack_int LAPACKE_ctpttr_work( int matrix_order, char uplo, lapack_int n,
9347                                 const lapack_complex_float* ap,
9348                                 lapack_complex_float* a, lapack_int lda );
9349 lapack_int LAPACKE_ztpttr_work( int matrix_order, char uplo, lapack_int n,
9350                                 const lapack_complex_double* ap,
9351                                 lapack_complex_double* a, lapack_int lda );
9352 
9353 lapack_int LAPACKE_strcon_work( int matrix_order, char norm, char uplo,
9354                                 char diag, lapack_int n, const float* a,
9355                                 lapack_int lda, float* rcond, float* work,
9356                                 lapack_int* iwork );
9357 lapack_int LAPACKE_dtrcon_work( int matrix_order, char norm, char uplo,
9358                                 char diag, lapack_int n, const double* a,
9359                                 lapack_int lda, double* rcond, double* work,
9360                                 lapack_int* iwork );
9361 lapack_int LAPACKE_ctrcon_work( int matrix_order, char norm, char uplo,
9362                                 char diag, lapack_int n,
9363                                 const lapack_complex_float* a, lapack_int lda,
9364                                 float* rcond, lapack_complex_float* work,
9365                                 float* rwork );
9366 lapack_int LAPACKE_ztrcon_work( int matrix_order, char norm, char uplo,
9367                                 char diag, lapack_int n,
9368                                 const lapack_complex_double* a, lapack_int lda,
9369                                 double* rcond, lapack_complex_double* work,
9370                                 double* rwork );
9371 
9372 lapack_int LAPACKE_strevc_work( int matrix_order, char side, char howmny,
9373                                 lapack_logical* select, lapack_int n,
9374                                 const float* t, lapack_int ldt, float* vl,
9375                                 lapack_int ldvl, float* vr, lapack_int ldvr,
9376                                 lapack_int mm, lapack_int* m, float* work );
9377 lapack_int LAPACKE_dtrevc_work( int matrix_order, char side, char howmny,
9378                                 lapack_logical* select, lapack_int n,
9379                                 const double* t, lapack_int ldt, double* vl,
9380                                 lapack_int ldvl, double* vr, lapack_int ldvr,
9381                                 lapack_int mm, lapack_int* m, double* work );
9382 lapack_int LAPACKE_ctrevc_work( int matrix_order, char side, char howmny,
9383                                 const lapack_logical* select, lapack_int n,
9384                                 lapack_complex_float* t, lapack_int ldt,
9385                                 lapack_complex_float* vl, lapack_int ldvl,
9386                                 lapack_complex_float* vr, lapack_int ldvr,
9387                                 lapack_int mm, lapack_int* m,
9388                                 lapack_complex_float* work, float* rwork );
9389 lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny,
9390                                 const lapack_logical* select, lapack_int n,
9391                                 lapack_complex_double* t, lapack_int ldt,
9392                                 lapack_complex_double* vl, lapack_int ldvl,
9393                                 lapack_complex_double* vr, lapack_int ldvr,
9394                                 lapack_int mm, lapack_int* m,
9395                                 lapack_complex_double* work, double* rwork );
9396 
9397 lapack_int LAPACKE_strexc_work( int matrix_order, char compq, lapack_int n,
9398                                 float* t, lapack_int ldt, float* q,
9399                                 lapack_int ldq, lapack_int* ifst,
9400                                 lapack_int* ilst, float* work );
9401 lapack_int LAPACKE_dtrexc_work( int matrix_order, char compq, lapack_int n,
9402                                 double* t, lapack_int ldt, double* q,
9403                                 lapack_int ldq, lapack_int* ifst,
9404                                 lapack_int* ilst, double* work );
9405 lapack_int LAPACKE_ctrexc_work( int matrix_order, char compq, lapack_int n,
9406                                 lapack_complex_float* t, lapack_int ldt,
9407                                 lapack_complex_float* q, lapack_int ldq,
9408                                 lapack_int ifst, lapack_int ilst );
9409 lapack_int LAPACKE_ztrexc_work( int matrix_order, char compq, lapack_int n,
9410                                 lapack_complex_double* t, lapack_int ldt,
9411                                 lapack_complex_double* q, lapack_int ldq,
9412                                 lapack_int ifst, lapack_int ilst );
9413 
9414 lapack_int LAPACKE_strrfs_work( int matrix_order, char uplo, char trans,
9415                                 char diag, lapack_int n, lapack_int nrhs,
9416                                 const float* a, lapack_int lda, const float* b,
9417                                 lapack_int ldb, const float* x, lapack_int ldx,
9418                                 float* ferr, float* berr, float* work,
9419                                 lapack_int* iwork );
9420 lapack_int LAPACKE_dtrrfs_work( int matrix_order, char uplo, char trans,
9421                                 char diag, lapack_int n, lapack_int nrhs,
9422                                 const double* a, lapack_int lda,
9423                                 const double* b, lapack_int ldb,
9424                                 const double* x, lapack_int ldx, double* ferr,
9425                                 double* berr, double* work, lapack_int* iwork );
9426 lapack_int LAPACKE_ctrrfs_work( int matrix_order, char uplo, char trans,
9427                                 char diag, lapack_int n, lapack_int nrhs,
9428                                 const lapack_complex_float* a, lapack_int lda,
9429                                 const lapack_complex_float* b, lapack_int ldb,
9430                                 const lapack_complex_float* x, lapack_int ldx,
9431                                 float* ferr, float* berr,
9432                                 lapack_complex_float* work, float* rwork );
9433 lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans,
9434                                 char diag, lapack_int n, lapack_int nrhs,
9435                                 const lapack_complex_double* a, lapack_int lda,
9436                                 const lapack_complex_double* b, lapack_int ldb,
9437                                 const lapack_complex_double* x, lapack_int ldx,
9438                                 double* ferr, double* berr,
9439                                 lapack_complex_double* work, double* rwork );
9440 
9441 lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq,
9442                                 const lapack_logical* select, lapack_int n,
9443                                 float* t, lapack_int ldt, float* q,
9444                                 lapack_int ldq, float* wr, float* wi,
9445                                 lapack_int* m, float* s, float* sep,
9446                                 float* work, lapack_int lwork,
9447                                 lapack_int* iwork, lapack_int liwork );
9448 lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq,
9449                                 const lapack_logical* select, lapack_int n,
9450                                 double* t, lapack_int ldt, double* q,
9451                                 lapack_int ldq, double* wr, double* wi,
9452                                 lapack_int* m, double* s, double* sep,
9453                                 double* work, lapack_int lwork,
9454                                 lapack_int* iwork, lapack_int liwork );
9455 lapack_int LAPACKE_ctrsen_work( int matrix_order, char job, char compq,
9456                                 const lapack_logical* select, lapack_int n,
9457                                 lapack_complex_float* t, lapack_int ldt,
9458                                 lapack_complex_float* q, lapack_int ldq,
9459                                 lapack_complex_float* w, lapack_int* m,
9460                                 float* s, float* sep,
9461                                 lapack_complex_float* work, lapack_int lwork );
9462 lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq,
9463                                 const lapack_logical* select, lapack_int n,
9464                                 lapack_complex_double* t, lapack_int ldt,
9465                                 lapack_complex_double* q, lapack_int ldq,
9466                                 lapack_complex_double* w, lapack_int* m,
9467                                 double* s, double* sep,
9468                                 lapack_complex_double* work, lapack_int lwork );
9469 
9470 lapack_int LAPACKE_strsna_work( int matrix_order, char job, char howmny,
9471                                 const lapack_logical* select, lapack_int n,
9472                                 const float* t, lapack_int ldt, const float* vl,
9473                                 lapack_int ldvl, const float* vr,
9474                                 lapack_int ldvr, float* s, float* sep,
9475                                 lapack_int mm, lapack_int* m, float* work,
9476                                 lapack_int ldwork, lapack_int* iwork );
9477 lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny,
9478                                 const lapack_logical* select, lapack_int n,
9479                                 const double* t, lapack_int ldt,
9480                                 const double* vl, lapack_int ldvl,
9481                                 const double* vr, lapack_int ldvr, double* s,
9482                                 double* sep, lapack_int mm, lapack_int* m,
9483                                 double* work, lapack_int ldwork,
9484                                 lapack_int* iwork );
9485 lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny,
9486                                 const lapack_logical* select, lapack_int n,
9487                                 const lapack_complex_float* t, lapack_int ldt,
9488                                 const lapack_complex_float* vl, lapack_int ldvl,
9489                                 const lapack_complex_float* vr, lapack_int ldvr,
9490                                 float* s, float* sep, lapack_int mm,
9491                                 lapack_int* m, lapack_complex_float* work,
9492                                 lapack_int ldwork, float* rwork );
9493 lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny,
9494                                 const lapack_logical* select, lapack_int n,
9495                                 const lapack_complex_double* t, lapack_int ldt,
9496                                 const lapack_complex_double* vl,
9497                                 lapack_int ldvl,
9498                                 const lapack_complex_double* vr,
9499                                 lapack_int ldvr, double* s, double* sep,
9500                                 lapack_int mm, lapack_int* m,
9501                                 lapack_complex_double* work, lapack_int ldwork,
9502                                 double* rwork );
9503 
9504 lapack_int LAPACKE_strsyl_work( int matrix_order, char trana, char tranb,
9505                                 lapack_int isgn, lapack_int m, lapack_int n,
9506                                 const float* a, lapack_int lda, const float* b,
9507                                 lapack_int ldb, float* c, lapack_int ldc,
9508                                 float* scale );
9509 lapack_int LAPACKE_dtrsyl_work( int matrix_order, char trana, char tranb,
9510                                 lapack_int isgn, lapack_int m, lapack_int n,
9511                                 const double* a, lapack_int lda,
9512                                 const double* b, lapack_int ldb, double* c,
9513                                 lapack_int ldc, double* scale );
9514 lapack_int LAPACKE_ctrsyl_work( int matrix_order, char trana, char tranb,
9515                                 lapack_int isgn, lapack_int m, lapack_int n,
9516                                 const lapack_complex_float* a, lapack_int lda,
9517                                 const lapack_complex_float* b, lapack_int ldb,
9518                                 lapack_complex_float* c, lapack_int ldc,
9519                                 float* scale );
9520 lapack_int LAPACKE_ztrsyl_work( int matrix_order, char trana, char tranb,
9521                                 lapack_int isgn, lapack_int m, lapack_int n,
9522                                 const lapack_complex_double* a, lapack_int lda,
9523                                 const lapack_complex_double* b, lapack_int ldb,
9524                                 lapack_complex_double* c, lapack_int ldc,
9525                                 double* scale );
9526 
9527 lapack_int LAPACKE_strtri_work( int matrix_order, char uplo, char diag,
9528                                 lapack_int n, float* a, lapack_int lda );
9529 lapack_int LAPACKE_dtrtri_work( int matrix_order, char uplo, char diag,
9530                                 lapack_int n, double* a, lapack_int lda );
9531 lapack_int LAPACKE_ctrtri_work( int matrix_order, char uplo, char diag,
9532                                 lapack_int n, lapack_complex_float* a,
9533                                 lapack_int lda );
9534 lapack_int LAPACKE_ztrtri_work( int matrix_order, char uplo, char diag,
9535                                 lapack_int n, lapack_complex_double* a,
9536                                 lapack_int lda );
9537 
9538 lapack_int LAPACKE_strtrs_work( int matrix_order, char uplo, char trans,
9539                                 char diag, lapack_int n, lapack_int nrhs,
9540                                 const float* a, lapack_int lda, float* b,
9541                                 lapack_int ldb );
9542 lapack_int LAPACKE_dtrtrs_work( int matrix_order, char uplo, char trans,
9543                                 char diag, lapack_int n, lapack_int nrhs,
9544                                 const double* a, lapack_int lda, double* b,
9545                                 lapack_int ldb );
9546 lapack_int LAPACKE_ctrtrs_work( int matrix_order, char uplo, char trans,
9547                                 char diag, lapack_int n, lapack_int nrhs,
9548                                 const lapack_complex_float* a, lapack_int lda,
9549                                 lapack_complex_float* b, lapack_int ldb );
9550 lapack_int LAPACKE_ztrtrs_work( int matrix_order, char uplo, char trans,
9551                                 char diag, lapack_int n, lapack_int nrhs,
9552                                 const lapack_complex_double* a, lapack_int lda,
9553                                 lapack_complex_double* b, lapack_int ldb );
9554 
9555 lapack_int LAPACKE_strttf_work( int matrix_order, char transr, char uplo,
9556                                 lapack_int n, const float* a, lapack_int lda,
9557                                 float* arf );
9558 lapack_int LAPACKE_dtrttf_work( int matrix_order, char transr, char uplo,
9559                                 lapack_int n, const double* a, lapack_int lda,
9560                                 double* arf );
9561 lapack_int LAPACKE_ctrttf_work( int matrix_order, char transr, char uplo,
9562                                 lapack_int n, const lapack_complex_float* a,
9563                                 lapack_int lda, lapack_complex_float* arf );
9564 lapack_int LAPACKE_ztrttf_work( int matrix_order, char transr, char uplo,
9565                                 lapack_int n, const lapack_complex_double* a,
9566                                 lapack_int lda, lapack_complex_double* arf );
9567 
9568 lapack_int LAPACKE_strttp_work( int matrix_order, char uplo, lapack_int n,
9569                                 const float* a, lapack_int lda, float* ap );
9570 lapack_int LAPACKE_dtrttp_work( int matrix_order, char uplo, lapack_int n,
9571                                 const double* a, lapack_int lda, double* ap );
9572 lapack_int LAPACKE_ctrttp_work( int matrix_order, char uplo, lapack_int n,
9573                                 const lapack_complex_float* a, lapack_int lda,
9574                                 lapack_complex_float* ap );
9575 lapack_int LAPACKE_ztrttp_work( int matrix_order, char uplo, lapack_int n,
9576                                 const lapack_complex_double* a, lapack_int lda,
9577                                 lapack_complex_double* ap );
9578 
9579 lapack_int LAPACKE_stzrzf_work( int matrix_order, lapack_int m, lapack_int n,
9580                                 float* a, lapack_int lda, float* tau,
9581                                 float* work, lapack_int lwork );
9582 lapack_int LAPACKE_dtzrzf_work( int matrix_order, lapack_int m, lapack_int n,
9583                                 double* a, lapack_int lda, double* tau,
9584                                 double* work, lapack_int lwork );
9585 lapack_int LAPACKE_ctzrzf_work( int matrix_order, lapack_int m, lapack_int n,
9586                                 lapack_complex_float* a, lapack_int lda,
9587                                 lapack_complex_float* tau,
9588                                 lapack_complex_float* work, lapack_int lwork );
9589 lapack_int LAPACKE_ztzrzf_work( int matrix_order, lapack_int m, lapack_int n,
9590                                 lapack_complex_double* a, lapack_int lda,
9591                                 lapack_complex_double* tau,
9592                                 lapack_complex_double* work, lapack_int lwork );
9593 
9594 lapack_int LAPACKE_cungbr_work( int matrix_order, char vect, lapack_int m,
9595                                 lapack_int n, lapack_int k,
9596                                 lapack_complex_float* a, lapack_int lda,
9597                                 const lapack_complex_float* tau,
9598                                 lapack_complex_float* work, lapack_int lwork );
9599 lapack_int LAPACKE_zungbr_work( int matrix_order, char vect, lapack_int m,
9600                                 lapack_int n, lapack_int k,
9601                                 lapack_complex_double* a, lapack_int lda,
9602                                 const lapack_complex_double* tau,
9603                                 lapack_complex_double* work, lapack_int lwork );
9604 
9605 lapack_int LAPACKE_cunghr_work( int matrix_order, lapack_int n, lapack_int ilo,
9606                                 lapack_int ihi, lapack_complex_float* a,
9607                                 lapack_int lda, const lapack_complex_float* tau,
9608                                 lapack_complex_float* work, lapack_int lwork );
9609 lapack_int LAPACKE_zunghr_work( int matrix_order, lapack_int n, lapack_int ilo,
9610                                 lapack_int ihi, lapack_complex_double* a,
9611                                 lapack_int lda,
9612                                 const lapack_complex_double* tau,
9613                                 lapack_complex_double* work, lapack_int lwork );
9614 
9615 lapack_int LAPACKE_cunglq_work( int matrix_order, lapack_int m, lapack_int n,
9616                                 lapack_int k, lapack_complex_float* a,
9617                                 lapack_int lda, const lapack_complex_float* tau,
9618                                 lapack_complex_float* work, lapack_int lwork );
9619 lapack_int LAPACKE_zunglq_work( int matrix_order, lapack_int m, lapack_int n,
9620                                 lapack_int k, lapack_complex_double* a,
9621                                 lapack_int lda,
9622                                 const lapack_complex_double* tau,
9623                                 lapack_complex_double* work, lapack_int lwork );
9624 
9625 lapack_int LAPACKE_cungql_work( int matrix_order, lapack_int m, lapack_int n,
9626                                 lapack_int k, lapack_complex_float* a,
9627                                 lapack_int lda, const lapack_complex_float* tau,
9628                                 lapack_complex_float* work, lapack_int lwork );
9629 lapack_int LAPACKE_zungql_work( int matrix_order, lapack_int m, lapack_int n,
9630                                 lapack_int k, lapack_complex_double* a,
9631                                 lapack_int lda,
9632                                 const lapack_complex_double* tau,
9633                                 lapack_complex_double* work, lapack_int lwork );
9634 
9635 lapack_int LAPACKE_cungqr_work( int matrix_order, lapack_int m, lapack_int n,
9636                                 lapack_int k, lapack_complex_float* a,
9637                                 lapack_int lda, const lapack_complex_float* tau,
9638                                 lapack_complex_float* work, lapack_int lwork );
9639 lapack_int LAPACKE_zungqr_work( int matrix_order, lapack_int m, lapack_int n,
9640                                 lapack_int k, lapack_complex_double* a,
9641                                 lapack_int lda,
9642                                 const lapack_complex_double* tau,
9643                                 lapack_complex_double* work, lapack_int lwork );
9644 
9645 lapack_int LAPACKE_cungrq_work( int matrix_order, lapack_int m, lapack_int n,
9646                                 lapack_int k, lapack_complex_float* a,
9647                                 lapack_int lda, const lapack_complex_float* tau,
9648                                 lapack_complex_float* work, lapack_int lwork );
9649 lapack_int LAPACKE_zungrq_work( int matrix_order, lapack_int m, lapack_int n,
9650                                 lapack_int k, lapack_complex_double* a,
9651                                 lapack_int lda,
9652                                 const lapack_complex_double* tau,
9653                                 lapack_complex_double* work, lapack_int lwork );
9654 
9655 lapack_int LAPACKE_cungtr_work( int matrix_order, char uplo, lapack_int n,
9656                                 lapack_complex_float* a, lapack_int lda,
9657                                 const lapack_complex_float* tau,
9658                                 lapack_complex_float* work, lapack_int lwork );
9659 lapack_int LAPACKE_zungtr_work( int matrix_order, char uplo, lapack_int n,
9660                                 lapack_complex_double* a, lapack_int lda,
9661                                 const lapack_complex_double* tau,
9662                                 lapack_complex_double* work, lapack_int lwork );
9663 
9664 lapack_int LAPACKE_cunmbr_work( int matrix_order, char vect, char side,
9665                                 char trans, lapack_int m, lapack_int n,
9666                                 lapack_int k, const lapack_complex_float* a,
9667                                 lapack_int lda, const lapack_complex_float* tau,
9668                                 lapack_complex_float* c, lapack_int ldc,
9669                                 lapack_complex_float* work, lapack_int lwork );
9670 lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side,
9671                                 char trans, lapack_int m, lapack_int n,
9672                                 lapack_int k, const lapack_complex_double* a,
9673                                 lapack_int lda,
9674                                 const lapack_complex_double* tau,
9675                                 lapack_complex_double* c, lapack_int ldc,
9676                                 lapack_complex_double* work, lapack_int lwork );
9677 
9678 lapack_int LAPACKE_cunmhr_work( int matrix_order, char side, char trans,
9679                                 lapack_int m, lapack_int n, lapack_int ilo,
9680                                 lapack_int ihi, const lapack_complex_float* a,
9681                                 lapack_int lda, const lapack_complex_float* tau,
9682                                 lapack_complex_float* c, lapack_int ldc,
9683                                 lapack_complex_float* work, lapack_int lwork );
9684 lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans,
9685                                 lapack_int m, lapack_int n, lapack_int ilo,
9686                                 lapack_int ihi, const lapack_complex_double* a,
9687                                 lapack_int lda,
9688                                 const lapack_complex_double* tau,
9689                                 lapack_complex_double* c, lapack_int ldc,
9690                                 lapack_complex_double* work, lapack_int lwork );
9691 
9692 lapack_int LAPACKE_cunmlq_work( int matrix_order, char side, char trans,
9693                                 lapack_int m, lapack_int n, lapack_int k,
9694                                 const lapack_complex_float* a, lapack_int lda,
9695                                 const lapack_complex_float* tau,
9696                                 lapack_complex_float* c, lapack_int ldc,
9697                                 lapack_complex_float* work, lapack_int lwork );
9698 lapack_int LAPACKE_zunmlq_work( int matrix_order, char side, char trans,
9699                                 lapack_int m, lapack_int n, lapack_int k,
9700                                 const lapack_complex_double* a, lapack_int lda,
9701                                 const lapack_complex_double* tau,
9702                                 lapack_complex_double* c, lapack_int ldc,
9703                                 lapack_complex_double* work, lapack_int lwork );
9704 
9705 lapack_int LAPACKE_cunmql_work( int matrix_order, char side, char trans,
9706                                 lapack_int m, lapack_int n, lapack_int k,
9707                                 const lapack_complex_float* a, lapack_int lda,
9708                                 const lapack_complex_float* tau,
9709                                 lapack_complex_float* c, lapack_int ldc,
9710                                 lapack_complex_float* work, lapack_int lwork );
9711 lapack_int LAPACKE_zunmql_work( int matrix_order, char side, char trans,
9712                                 lapack_int m, lapack_int n, lapack_int k,
9713                                 const lapack_complex_double* a, lapack_int lda,
9714                                 const lapack_complex_double* tau,
9715                                 lapack_complex_double* c, lapack_int ldc,
9716                                 lapack_complex_double* work, lapack_int lwork );
9717 
9718 lapack_int LAPACKE_cunmqr_work( int matrix_order, char side, char trans,
9719                                 lapack_int m, lapack_int n, lapack_int k,
9720                                 const lapack_complex_float* a, lapack_int lda,
9721                                 const lapack_complex_float* tau,
9722                                 lapack_complex_float* c, lapack_int ldc,
9723                                 lapack_complex_float* work, lapack_int lwork );
9724 lapack_int LAPACKE_zunmqr_work( int matrix_order, char side, char trans,
9725                                 lapack_int m, lapack_int n, lapack_int k,
9726                                 const lapack_complex_double* a, lapack_int lda,
9727                                 const lapack_complex_double* tau,
9728                                 lapack_complex_double* c, lapack_int ldc,
9729                                 lapack_complex_double* work, lapack_int lwork );
9730 
9731 lapack_int LAPACKE_cunmrq_work( int matrix_order, char side, char trans,
9732                                 lapack_int m, lapack_int n, lapack_int k,
9733                                 const lapack_complex_float* a, lapack_int lda,
9734                                 const lapack_complex_float* tau,
9735                                 lapack_complex_float* c, lapack_int ldc,
9736                                 lapack_complex_float* work, lapack_int lwork );
9737 lapack_int LAPACKE_zunmrq_work( int matrix_order, char side, char trans,
9738                                 lapack_int m, lapack_int n, lapack_int k,
9739                                 const lapack_complex_double* a, lapack_int lda,
9740                                 const lapack_complex_double* tau,
9741                                 lapack_complex_double* c, lapack_int ldc,
9742                                 lapack_complex_double* work, lapack_int lwork );
9743 
9744 lapack_int LAPACKE_cunmrz_work( int matrix_order, char side, char trans,
9745                                 lapack_int m, lapack_int n, lapack_int k,
9746                                 lapack_int l, const lapack_complex_float* a,
9747                                 lapack_int lda, const lapack_complex_float* tau,
9748                                 lapack_complex_float* c, lapack_int ldc,
9749                                 lapack_complex_float* work, lapack_int lwork );
9750 lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans,
9751                                 lapack_int m, lapack_int n, lapack_int k,
9752                                 lapack_int l, const lapack_complex_double* a,
9753                                 lapack_int lda,
9754                                 const lapack_complex_double* tau,
9755                                 lapack_complex_double* c, lapack_int ldc,
9756                                 lapack_complex_double* work, lapack_int lwork );
9757 
9758 lapack_int LAPACKE_cunmtr_work( int matrix_order, char side, char uplo,
9759                                 char trans, lapack_int m, lapack_int n,
9760                                 const lapack_complex_float* a, lapack_int lda,
9761                                 const lapack_complex_float* tau,
9762                                 lapack_complex_float* c, lapack_int ldc,
9763                                 lapack_complex_float* work, lapack_int lwork );
9764 lapack_int LAPACKE_zunmtr_work( int matrix_order, char side, char uplo,
9765                                 char trans, lapack_int m, lapack_int n,
9766                                 const lapack_complex_double* a, lapack_int lda,
9767                                 const lapack_complex_double* tau,
9768                                 lapack_complex_double* c, lapack_int ldc,
9769                                 lapack_complex_double* work, lapack_int lwork );
9770 
9771 lapack_int LAPACKE_cupgtr_work( int matrix_order, char uplo, lapack_int n,
9772                                 const lapack_complex_float* ap,
9773                                 const lapack_complex_float* tau,
9774                                 lapack_complex_float* q, lapack_int ldq,
9775                                 lapack_complex_float* work );
9776 lapack_int LAPACKE_zupgtr_work( int matrix_order, char uplo, lapack_int n,
9777                                 const lapack_complex_double* ap,
9778                                 const lapack_complex_double* tau,
9779                                 lapack_complex_double* q, lapack_int ldq,
9780                                 lapack_complex_double* work );
9781 
9782 lapack_int LAPACKE_cupmtr_work( int matrix_order, char side, char uplo,
9783                                 char trans, lapack_int m, lapack_int n,
9784                                 const lapack_complex_float* ap,
9785                                 const lapack_complex_float* tau,
9786                                 lapack_complex_float* c, lapack_int ldc,
9787                                 lapack_complex_float* work );
9788 lapack_int LAPACKE_zupmtr_work( int matrix_order, char side, char uplo,
9789                                 char trans, lapack_int m, lapack_int n,
9790                                 const lapack_complex_double* ap,
9791                                 const lapack_complex_double* tau,
9792                                 lapack_complex_double* c, lapack_int ldc,
9793                                 lapack_complex_double* work );
9794 
9795 lapack_int LAPACKE_claghe( int matrix_order, lapack_int n, lapack_int k,
9796                            const float* d, lapack_complex_float* a,
9797                            lapack_int lda, lapack_int* iseed );
9798 lapack_int LAPACKE_zlaghe( int matrix_order, lapack_int n, lapack_int k,
9799                            const double* d, lapack_complex_double* a,
9800                            lapack_int lda, lapack_int* iseed );
9801 
9802 lapack_int LAPACKE_slagsy( int matrix_order, lapack_int n, lapack_int k,
9803                            const float* d, float* a, lapack_int lda,
9804                            lapack_int* iseed );
9805 lapack_int LAPACKE_dlagsy( int matrix_order, lapack_int n, lapack_int k,
9806                            const double* d, double* a, lapack_int lda,
9807                            lapack_int* iseed );
9808 lapack_int LAPACKE_clagsy( int matrix_order, lapack_int n, lapack_int k,
9809                            const float* d, lapack_complex_float* a,
9810                            lapack_int lda, lapack_int* iseed );
9811 lapack_int LAPACKE_zlagsy( int matrix_order, lapack_int n, lapack_int k,
9812                            const double* d, lapack_complex_double* a,
9813                            lapack_int lda, lapack_int* iseed );
9814 
9815 lapack_int LAPACKE_slapmr( int matrix_order, lapack_logical forwrd,
9816                            lapack_int m, lapack_int n, float* x, lapack_int ldx,
9817                            lapack_int* k );
9818 lapack_int LAPACKE_dlapmr( int matrix_order, lapack_logical forwrd,
9819                            lapack_int m, lapack_int n, double* x,
9820                            lapack_int ldx, lapack_int* k );
9821 lapack_int LAPACKE_clapmr( int matrix_order, lapack_logical forwrd,
9822                            lapack_int m, lapack_int n, lapack_complex_float* x,
9823                            lapack_int ldx, lapack_int* k );
9824 lapack_int LAPACKE_zlapmr( int matrix_order, lapack_logical forwrd,
9825                            lapack_int m, lapack_int n, lapack_complex_double* x,
9826                            lapack_int ldx, lapack_int* k );
9827 
9828 
9829 float LAPACKE_slapy2( float x, float y );
9830 double LAPACKE_dlapy2( double x, double y );
9831 
9832 float LAPACKE_slapy3( float x, float y, float z );
9833 double LAPACKE_dlapy3( double x, double y, double z );
9834 
9835 lapack_int LAPACKE_slartgp( float f, float g, float* cs, float* sn, float* r );
9836 lapack_int LAPACKE_dlartgp( double f, double g, double* cs, double* sn,
9837                             double* r );
9838 
9839 lapack_int LAPACKE_slartgs( float x, float y, float sigma, float* cs,
9840                             float* sn );
9841 lapack_int LAPACKE_dlartgs( double x, double y, double sigma, double* cs,
9842                             double* sn );
9843 
9844 
9845 //LAPACK 3.3.0
9846 lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2,
9847                            char jobv1t, char jobv2t, char trans, lapack_int m,
9848                            lapack_int p, lapack_int q, float* theta, float* phi,
9849                            lapack_complex_float* u1, lapack_int ldu1,
9850                            lapack_complex_float* u2, lapack_int ldu2,
9851                            lapack_complex_float* v1t, lapack_int ldv1t,
9852                            lapack_complex_float* v2t, lapack_int ldv2t,
9853                            float* b11d, float* b11e, float* b12d, float* b12e,
9854                            float* b21d, float* b21e, float* b22d, float* b22e );
9855 lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2,
9856                                 char jobv1t, char jobv2t, char trans,
9857                                 lapack_int m, lapack_int p, lapack_int q,
9858                                 float* theta, float* phi,
9859                                 lapack_complex_float* u1, lapack_int ldu1,
9860                                 lapack_complex_float* u2, lapack_int ldu2,
9861                                 lapack_complex_float* v1t, lapack_int ldv1t,
9862                                 lapack_complex_float* v2t, lapack_int ldv2t,
9863                                 float* b11d, float* b11e, float* b12d,
9864                                 float* b12e, float* b21d, float* b21e,
9865                                 float* b22d, float* b22e, float* rwork,
9866                                 lapack_int lrwork );
9867 lapack_int LAPACKE_cheswapr( int matrix_order, char uplo, lapack_int n,
9868                              lapack_complex_float* a, lapack_int i1,
9869                              lapack_int i2 );
9870 lapack_int LAPACKE_cheswapr_work( int matrix_order, char uplo, lapack_int n,
9871                                   lapack_complex_float* a, lapack_int i1,
9872                                   lapack_int i2 );
9873 lapack_int LAPACKE_chetri2( int matrix_order, char uplo, lapack_int n,
9874                             lapack_complex_float* a, lapack_int lda,
9875                             const lapack_int* ipiv );
9876 lapack_int LAPACKE_chetri2_work( int matrix_order, char uplo, lapack_int n,
9877                                  lapack_complex_float* a, lapack_int lda,
9878                                  const lapack_int* ipiv,
9879                                  lapack_complex_float* work, lapack_int lwork );
9880 lapack_int LAPACKE_chetri2x( int matrix_order, char uplo, lapack_int n,
9881                              lapack_complex_float* a, lapack_int lda,
9882                              const lapack_int* ipiv, lapack_int nb );
9883 lapack_int LAPACKE_chetri2x_work( int matrix_order, char uplo, lapack_int n,
9884                                   lapack_complex_float* a, lapack_int lda,
9885                                   const lapack_int* ipiv,
9886                                   lapack_complex_float* work, lapack_int nb );
9887 lapack_int LAPACKE_chetrs2( int matrix_order, char uplo, lapack_int n,
9888                             lapack_int nrhs, const lapack_complex_float* a,
9889                             lapack_int lda, const lapack_int* ipiv,
9890                             lapack_complex_float* b, lapack_int ldb );
9891 lapack_int LAPACKE_chetrs2_work( int matrix_order, char uplo, lapack_int n,
9892                                  lapack_int nrhs, const lapack_complex_float* a,
9893                                  lapack_int lda, const lapack_int* ipiv,
9894                                  lapack_complex_float* b, lapack_int ldb,
9895                                  lapack_complex_float* work );
9896 lapack_int LAPACKE_csyconv( int matrix_order, char uplo, char way, lapack_int n,
9897                             lapack_complex_float* a, lapack_int lda,
9898                             const lapack_int* ipiv );
9899 lapack_int LAPACKE_csyconv_work( int matrix_order, char uplo, char way,
9900                                  lapack_int n, lapack_complex_float* a,
9901                                  lapack_int lda, const lapack_int* ipiv,
9902                                  lapack_complex_float* work );
9903 lapack_int LAPACKE_csyswapr( int matrix_order, char uplo, lapack_int n,
9904                              lapack_complex_float* a, lapack_int i1,
9905                              lapack_int i2 );
9906 lapack_int LAPACKE_csyswapr_work( int matrix_order, char uplo, lapack_int n,
9907                                   lapack_complex_float* a, lapack_int i1,
9908                                   lapack_int i2 );
9909 lapack_int LAPACKE_csytri2( int matrix_order, char uplo, lapack_int n,
9910                             lapack_complex_float* a, lapack_int lda,
9911                             const lapack_int* ipiv );
9912 lapack_int LAPACKE_csytri2_work( int matrix_order, char uplo, lapack_int n,
9913                                  lapack_complex_float* a, lapack_int lda,
9914                                  const lapack_int* ipiv,
9915                                  lapack_complex_float* work, lapack_int lwork );
9916 lapack_int LAPACKE_csytri2x( int matrix_order, char uplo, lapack_int n,
9917                              lapack_complex_float* a, lapack_int lda,
9918                              const lapack_int* ipiv, lapack_int nb );
9919 lapack_int LAPACKE_csytri2x_work( int matrix_order, char uplo, lapack_int n,
9920                                   lapack_complex_float* a, lapack_int lda,
9921                                   const lapack_int* ipiv,
9922                                   lapack_complex_float* work, lapack_int nb );
9923 lapack_int LAPACKE_csytrs2( int matrix_order, char uplo, lapack_int n,
9924                             lapack_int nrhs, const lapack_complex_float* a,
9925                             lapack_int lda, const lapack_int* ipiv,
9926                             lapack_complex_float* b, lapack_int ldb );
9927 lapack_int LAPACKE_csytrs2_work( int matrix_order, char uplo, lapack_int n,
9928                                  lapack_int nrhs, const lapack_complex_float* a,
9929                                  lapack_int lda, const lapack_int* ipiv,
9930                                  lapack_complex_float* b, lapack_int ldb,
9931                                  lapack_complex_float* work );
9932 lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs,
9933                            lapack_int m, lapack_int p, lapack_int q,
9934                            lapack_complex_float* x11, lapack_int ldx11,
9935                            lapack_complex_float* x12, lapack_int ldx12,
9936                            lapack_complex_float* x21, lapack_int ldx21,
9937                            lapack_complex_float* x22, lapack_int ldx22,
9938                            float* theta, float* phi,
9939                            lapack_complex_float* taup1,
9940                            lapack_complex_float* taup2,
9941                            lapack_complex_float* tauq1,
9942                            lapack_complex_float* tauq2 );
9943 lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs,
9944                                 lapack_int m, lapack_int p, lapack_int q,
9945                                 lapack_complex_float* x11, lapack_int ldx11,
9946                                 lapack_complex_float* x12, lapack_int ldx12,
9947                                 lapack_complex_float* x21, lapack_int ldx21,
9948                                 lapack_complex_float* x22, lapack_int ldx22,
9949                                 float* theta, float* phi,
9950                                 lapack_complex_float* taup1,
9951                                 lapack_complex_float* taup2,
9952                                 lapack_complex_float* tauq1,
9953                                 lapack_complex_float* tauq2,
9954                                 lapack_complex_float* work, lapack_int lwork );
9955 lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2,
9956                            char jobv1t, char jobv2t, char trans, char signs,
9957                            lapack_int m, lapack_int p, lapack_int q,
9958                            lapack_complex_float* x11, lapack_int ldx11,
9959                            lapack_complex_float* x12, lapack_int ldx12,
9960                            lapack_complex_float* x21, lapack_int ldx21,
9961                            lapack_complex_float* x22, lapack_int ldx22,
9962                            float* theta, lapack_complex_float* u1,
9963                            lapack_int ldu1, lapack_complex_float* u2,
9964                            lapack_int ldu2, lapack_complex_float* v1t,
9965                            lapack_int ldv1t, lapack_complex_float* v2t,
9966                            lapack_int ldv2t );
9967 lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2,
9968                                 char jobv1t, char jobv2t, char trans,
9969                                 char signs, lapack_int m, lapack_int p,
9970                                 lapack_int q, lapack_complex_float* x11,
9971                                 lapack_int ldx11, lapack_complex_float* x12,
9972                                 lapack_int ldx12, lapack_complex_float* x21,
9973                                 lapack_int ldx21, lapack_complex_float* x22,
9974                                 lapack_int ldx22, float* theta,
9975                                 lapack_complex_float* u1, lapack_int ldu1,
9976                                 lapack_complex_float* u2, lapack_int ldu2,
9977                                 lapack_complex_float* v1t, lapack_int ldv1t,
9978                                 lapack_complex_float* v2t, lapack_int ldv2t,
9979                                 lapack_complex_float* work, lapack_int lwork,
9980                                 float* rwork, lapack_int lrwork,
9981                                 lapack_int* iwork );
9982 lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2,
9983                            char jobv1t, char jobv2t, char trans, lapack_int m,
9984                            lapack_int p, lapack_int q, double* theta,
9985                            double* phi, double* u1, lapack_int ldu1, double* u2,
9986                            lapack_int ldu2, double* v1t, lapack_int ldv1t,
9987                            double* v2t, lapack_int ldv2t, double* b11d,
9988                            double* b11e, double* b12d, double* b12e,
9989                            double* b21d, double* b21e, double* b22d,
9990                            double* b22e );
9991 lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2,
9992                                 char jobv1t, char jobv2t, char trans,
9993                                 lapack_int m, lapack_int p, lapack_int q,
9994                                 double* theta, double* phi, double* u1,
9995                                 lapack_int ldu1, double* u2, lapack_int ldu2,
9996                                 double* v1t, lapack_int ldv1t, double* v2t,
9997                                 lapack_int ldv2t, double* b11d, double* b11e,
9998                                 double* b12d, double* b12e, double* b21d,
9999                                 double* b21e, double* b22d, double* b22e,
10000                                 double* work, lapack_int lwork );
10001 lapack_int LAPACKE_dorbdb( int matrix_order, char trans, char signs,
10002                            lapack_int m, lapack_int p, lapack_int q,
10003                            double* x11, lapack_int ldx11, double* x12,
10004                            lapack_int ldx12, double* x21, lapack_int ldx21,
10005                            double* x22, lapack_int ldx22, double* theta,
10006                            double* phi, double* taup1, double* taup2,
10007                            double* tauq1, double* tauq2 );
10008 lapack_int LAPACKE_dorbdb_work( int matrix_order, char trans, char signs,
10009                                 lapack_int m, lapack_int p, lapack_int q,
10010                                 double* x11, lapack_int ldx11, double* x12,
10011                                 lapack_int ldx12, double* x21, lapack_int ldx21,
10012                                 double* x22, lapack_int ldx22, double* theta,
10013                                 double* phi, double* taup1, double* taup2,
10014                                 double* tauq1, double* tauq2, double* work,
10015                                 lapack_int lwork );
10016 lapack_int LAPACKE_dorcsd( int matrix_order, char jobu1, char jobu2,
10017                            char jobv1t, char jobv2t, char trans, char signs,
10018                            lapack_int m, lapack_int p, lapack_int q,
10019                            double* x11, lapack_int ldx11, double* x12,
10020                            lapack_int ldx12, double* x21, lapack_int ldx21,
10021                            double* x22, lapack_int ldx22, double* theta,
10022                            double* u1, lapack_int ldu1, double* u2,
10023                            lapack_int ldu2, double* v1t, lapack_int ldv1t,
10024                            double* v2t, lapack_int ldv2t );
10025 lapack_int LAPACKE_dorcsd_work( int matrix_order, char jobu1, char jobu2,
10026                                 char jobv1t, char jobv2t, char trans,
10027                                 char signs, lapack_int m, lapack_int p,
10028                                 lapack_int q, double* x11, lapack_int ldx11,
10029                                 double* x12, lapack_int ldx12, double* x21,
10030                                 lapack_int ldx21, double* x22, lapack_int ldx22,
10031                                 double* theta, double* u1, lapack_int ldu1,
10032                                 double* u2, lapack_int ldu2, double* v1t,
10033                                 lapack_int ldv1t, double* v2t, lapack_int ldv2t,
10034                                 double* work, lapack_int lwork,
10035                                 lapack_int* iwork );
10036 lapack_int LAPACKE_dsyconv( int matrix_order, char uplo, char way, lapack_int n,
10037                             double* a, lapack_int lda, const lapack_int* ipiv );
10038 lapack_int LAPACKE_dsyconv_work( int matrix_order, char uplo, char way,
10039                                  lapack_int n, double* a, lapack_int lda,
10040                                  const lapack_int* ipiv, double* work );
10041 lapack_int LAPACKE_dsyswapr( int matrix_order, char uplo, lapack_int n,
10042                              double* a, lapack_int i1, lapack_int i2 );
10043 lapack_int LAPACKE_dsyswapr_work( int matrix_order, char uplo, lapack_int n,
10044                                   double* a, lapack_int i1, lapack_int i2 );
10045 lapack_int LAPACKE_dsytri2( int matrix_order, char uplo, lapack_int n,
10046                             double* a, lapack_int lda, const lapack_int* ipiv );
10047 lapack_int LAPACKE_dsytri2_work( int matrix_order, char uplo, lapack_int n,
10048                                  double* a, lapack_int lda,
10049                                  const lapack_int* ipiv,
10050                                  lapack_complex_double* work, lapack_int lwork );
10051 lapack_int LAPACKE_dsytri2x( int matrix_order, char uplo, lapack_int n,
10052                              double* a, lapack_int lda, const lapack_int* ipiv,
10053                              lapack_int nb );
10054 lapack_int LAPACKE_dsytri2x_work( int matrix_order, char uplo, lapack_int n,
10055                                   double* a, lapack_int lda,
10056                                   const lapack_int* ipiv, double* work,
10057                                   lapack_int nb );
10058 lapack_int LAPACKE_dsytrs2( int matrix_order, char uplo, lapack_int n,
10059                             lapack_int nrhs, const double* a, lapack_int lda,
10060                             const lapack_int* ipiv, double* b, lapack_int ldb );
10061 lapack_int LAPACKE_dsytrs2_work( int matrix_order, char uplo, lapack_int n,
10062                                  lapack_int nrhs, const double* a,
10063                                  lapack_int lda, const lapack_int* ipiv,
10064                                  double* b, lapack_int ldb, double* work );
10065 lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2,
10066                            char jobv1t, char jobv2t, char trans, lapack_int m,
10067                            lapack_int p, lapack_int q, float* theta, float* phi,
10068                            float* u1, lapack_int ldu1, float* u2,
10069                            lapack_int ldu2, float* v1t, lapack_int ldv1t,
10070                            float* v2t, lapack_int ldv2t, float* b11d,
10071                            float* b11e, float* b12d, float* b12e, float* b21d,
10072                            float* b21e, float* b22d, float* b22e );
10073 lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2,
10074                                 char jobv1t, char jobv2t, char trans,
10075                                 lapack_int m, lapack_int p, lapack_int q,
10076                                 float* theta, float* phi, float* u1,
10077                                 lapack_int ldu1, float* u2, lapack_int ldu2,
10078                                 float* v1t, lapack_int ldv1t, float* v2t,
10079                                 lapack_int ldv2t, float* b11d, float* b11e,
10080                                 float* b12d, float* b12e, float* b21d,
10081                                 float* b21e, float* b22d, float* b22e,
10082                                 float* work, lapack_int lwork );
10083 lapack_int LAPACKE_sorbdb( int matrix_order, char trans, char signs,
10084                            lapack_int m, lapack_int p, lapack_int q, float* x11,
10085                            lapack_int ldx11, float* x12, lapack_int ldx12,
10086                            float* x21, lapack_int ldx21, float* x22,
10087                            lapack_int ldx22, float* theta, float* phi,
10088                            float* taup1, float* taup2, float* tauq1,
10089                            float* tauq2 );
10090 lapack_int LAPACKE_sorbdb_work( int matrix_order, char trans, char signs,
10091                                 lapack_int m, lapack_int p, lapack_int q,
10092                                 float* x11, lapack_int ldx11, float* x12,
10093                                 lapack_int ldx12, float* x21, lapack_int ldx21,
10094                                 float* x22, lapack_int ldx22, float* theta,
10095                                 float* phi, float* taup1, float* taup2,
10096                                 float* tauq1, float* tauq2, float* work,
10097                                 lapack_int lwork );
10098 lapack_int LAPACKE_sorcsd( int matrix_order, char jobu1, char jobu2,
10099                            char jobv1t, char jobv2t, char trans, char signs,
10100                            lapack_int m, lapack_int p, lapack_int q, float* x11,
10101                            lapack_int ldx11, float* x12, lapack_int ldx12,
10102                            float* x21, lapack_int ldx21, float* x22,
10103                            lapack_int ldx22, float* theta, float* u1,
10104                            lapack_int ldu1, float* u2, lapack_int ldu2,
10105                            float* v1t, lapack_int ldv1t, float* v2t,
10106                            lapack_int ldv2t );
10107 lapack_int LAPACKE_sorcsd_work( int matrix_order, char jobu1, char jobu2,
10108                                 char jobv1t, char jobv2t, char trans,
10109                                 char signs, lapack_int m, lapack_int p,
10110                                 lapack_int q, float* x11, lapack_int ldx11,
10111                                 float* x12, lapack_int ldx12, float* x21,
10112                                 lapack_int ldx21, float* x22, lapack_int ldx22,
10113                                 float* theta, float* u1, lapack_int ldu1,
10114                                 float* u2, lapack_int ldu2, float* v1t,
10115                                 lapack_int ldv1t, float* v2t, lapack_int ldv2t,
10116                                 float* work, lapack_int lwork,
10117                                 lapack_int* iwork );
10118 lapack_int LAPACKE_ssyconv( int matrix_order, char uplo, char way, lapack_int n,
10119                             float* a, lapack_int lda, const lapack_int* ipiv );
10120 lapack_int LAPACKE_ssyconv_work( int matrix_order, char uplo, char way,
10121                                  lapack_int n, float* a, lapack_int lda,
10122                                  const lapack_int* ipiv, float* work );
10123 lapack_int LAPACKE_ssyswapr( int matrix_order, char uplo, lapack_int n,
10124                              float* a, lapack_int i1, lapack_int i2 );
10125 lapack_int LAPACKE_ssyswapr_work( int matrix_order, char uplo, lapack_int n,
10126                                   float* a, lapack_int i1, lapack_int i2 );
10127 lapack_int LAPACKE_ssytri2( int matrix_order, char uplo, lapack_int n, float* a,
10128                             lapack_int lda, const lapack_int* ipiv );
10129 lapack_int LAPACKE_ssytri2_work( int matrix_order, char uplo, lapack_int n,
10130                                  float* a, lapack_int lda,
10131                                  const lapack_int* ipiv,
10132                                  lapack_complex_float* work, lapack_int lwork );
10133 lapack_int LAPACKE_ssytri2x( int matrix_order, char uplo, lapack_int n,
10134                              float* a, lapack_int lda, const lapack_int* ipiv,
10135                              lapack_int nb );
10136 lapack_int LAPACKE_ssytri2x_work( int matrix_order, char uplo, lapack_int n,
10137                                   float* a, lapack_int lda,
10138                                   const lapack_int* ipiv, float* work,
10139                                   lapack_int nb );
10140 lapack_int LAPACKE_ssytrs2( int matrix_order, char uplo, lapack_int n,
10141                             lapack_int nrhs, const float* a, lapack_int lda,
10142                             const lapack_int* ipiv, float* b, lapack_int ldb );
10143 lapack_int LAPACKE_ssytrs2_work( int matrix_order, char uplo, lapack_int n,
10144                                  lapack_int nrhs, const float* a,
10145                                  lapack_int lda, const lapack_int* ipiv,
10146                                  float* b, lapack_int ldb, float* work );
10147 lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2,
10148                            char jobv1t, char jobv2t, char trans, lapack_int m,
10149                            lapack_int p, lapack_int q, double* theta,
10150                            double* phi, lapack_complex_double* u1,
10151                            lapack_int ldu1, lapack_complex_double* u2,
10152                            lapack_int ldu2, lapack_complex_double* v1t,
10153                            lapack_int ldv1t, lapack_complex_double* v2t,
10154                            lapack_int ldv2t, double* b11d, double* b11e,
10155                            double* b12d, double* b12e, double* b21d,
10156                            double* b21e, double* b22d, double* b22e );
10157 lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2,
10158                                 char jobv1t, char jobv2t, char trans,
10159                                 lapack_int m, lapack_int p, lapack_int q,
10160                                 double* theta, double* phi,
10161                                 lapack_complex_double* u1, lapack_int ldu1,
10162                                 lapack_complex_double* u2, lapack_int ldu2,
10163                                 lapack_complex_double* v1t, lapack_int ldv1t,
10164                                 lapack_complex_double* v2t, lapack_int ldv2t,
10165                                 double* b11d, double* b11e, double* b12d,
10166                                 double* b12e, double* b21d, double* b21e,
10167                                 double* b22d, double* b22e, double* rwork,
10168                                 lapack_int lrwork );
10169 lapack_int LAPACKE_zheswapr( int matrix_order, char uplo, lapack_int n,
10170                              lapack_complex_double* a, lapack_int i1,
10171                              lapack_int i2 );
10172 lapack_int LAPACKE_zheswapr_work( int matrix_order, char uplo, lapack_int n,
10173                                   lapack_complex_double* a, lapack_int i1,
10174                                   lapack_int i2 );
10175 lapack_int LAPACKE_zhetri2( int matrix_order, char uplo, lapack_int n,
10176                             lapack_complex_double* a, lapack_int lda,
10177                             const lapack_int* ipiv );
10178 lapack_int LAPACKE_zhetri2_work( int matrix_order, char uplo, lapack_int n,
10179                                  lapack_complex_double* a, lapack_int lda,
10180                                  const lapack_int* ipiv,
10181                                  lapack_complex_double* work, lapack_int lwork );
10182 lapack_int LAPACKE_zhetri2x( int matrix_order, char uplo, lapack_int n,
10183                              lapack_complex_double* a, lapack_int lda,
10184                              const lapack_int* ipiv, lapack_int nb );
10185 lapack_int LAPACKE_zhetri2x_work( int matrix_order, char uplo, lapack_int n,
10186                                   lapack_complex_double* a, lapack_int lda,
10187                                   const lapack_int* ipiv,
10188                                   lapack_complex_double* work, lapack_int nb );
10189 lapack_int LAPACKE_zhetrs2( int matrix_order, char uplo, lapack_int n,
10190                             lapack_int nrhs, const lapack_complex_double* a,
10191                             lapack_int lda, const lapack_int* ipiv,
10192                             lapack_complex_double* b, lapack_int ldb );
10193 lapack_int LAPACKE_zhetrs2_work( int matrix_order, char uplo, lapack_int n,
10194                                  lapack_int nrhs, const lapack_complex_double* a,
10195                                  lapack_int lda, const lapack_int* ipiv,
10196                                  lapack_complex_double* b, lapack_int ldb,
10197                                  lapack_complex_double* work );
10198 lapack_int LAPACKE_zsyconv( int matrix_order, char uplo, char way, lapack_int n,
10199                             lapack_complex_double* a, lapack_int lda,
10200                             const lapack_int* ipiv );
10201 lapack_int LAPACKE_zsyconv_work( int matrix_order, char uplo, char way,
10202                                  lapack_int n, lapack_complex_double* a,
10203                                  lapack_int lda, const lapack_int* ipiv,
10204                                  lapack_complex_double* work );
10205 lapack_int LAPACKE_zsyswapr( int matrix_order, char uplo, lapack_int n,
10206                              lapack_complex_double* a, lapack_int i1,
10207                              lapack_int i2 );
10208 lapack_int LAPACKE_zsyswapr_work( int matrix_order, char uplo, lapack_int n,
10209                                   lapack_complex_double* a, lapack_int i1,
10210                                   lapack_int i2 );
10211 lapack_int LAPACKE_zsytri2( int matrix_order, char uplo, lapack_int n,
10212                             lapack_complex_double* a, lapack_int lda,
10213                             const lapack_int* ipiv );
10214 lapack_int LAPACKE_zsytri2_work( int matrix_order, char uplo, lapack_int n,
10215                                  lapack_complex_double* a, lapack_int lda,
10216                                  const lapack_int* ipiv,
10217                                  lapack_complex_double* work, lapack_int lwork );
10218 lapack_int LAPACKE_zsytri2x( int matrix_order, char uplo, lapack_int n,
10219                              lapack_complex_double* a, lapack_int lda,
10220                              const lapack_int* ipiv, lapack_int nb );
10221 lapack_int LAPACKE_zsytri2x_work( int matrix_order, char uplo, lapack_int n,
10222                                   lapack_complex_double* a, lapack_int lda,
10223                                   const lapack_int* ipiv,
10224                                   lapack_complex_double* work, lapack_int nb );
10225 lapack_int LAPACKE_zsytrs2( int matrix_order, char uplo, lapack_int n,
10226                             lapack_int nrhs, const lapack_complex_double* a,
10227                             lapack_int lda, const lapack_int* ipiv,
10228                             lapack_complex_double* b, lapack_int ldb );
10229 lapack_int LAPACKE_zsytrs2_work( int matrix_order, char uplo, lapack_int n,
10230                                  lapack_int nrhs, const lapack_complex_double* a,
10231                                  lapack_int lda, const lapack_int* ipiv,
10232                                  lapack_complex_double* b, lapack_int ldb,
10233                                  lapack_complex_double* work );
10234 lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs,
10235                            lapack_int m, lapack_int p, lapack_int q,
10236                            lapack_complex_double* x11, lapack_int ldx11,
10237                            lapack_complex_double* x12, lapack_int ldx12,
10238                            lapack_complex_double* x21, lapack_int ldx21,
10239                            lapack_complex_double* x22, lapack_int ldx22,
10240                            double* theta, double* phi,
10241                            lapack_complex_double* taup1,
10242                            lapack_complex_double* taup2,
10243                            lapack_complex_double* tauq1,
10244                            lapack_complex_double* tauq2 );
10245 lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs,
10246                                 lapack_int m, lapack_int p, lapack_int q,
10247                                 lapack_complex_double* x11, lapack_int ldx11,
10248                                 lapack_complex_double* x12, lapack_int ldx12,
10249                                 lapack_complex_double* x21, lapack_int ldx21,
10250                                 lapack_complex_double* x22, lapack_int ldx22,
10251                                 double* theta, double* phi,
10252                                 lapack_complex_double* taup1,
10253                                 lapack_complex_double* taup2,
10254                                 lapack_complex_double* tauq1,
10255                                 lapack_complex_double* tauq2,
10256                                 lapack_complex_double* work, lapack_int lwork );
10257 lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2,
10258                            char jobv1t, char jobv2t, char trans, char signs,
10259                            lapack_int m, lapack_int p, lapack_int q,
10260                            lapack_complex_double* x11, lapack_int ldx11,
10261                            lapack_complex_double* x12, lapack_int ldx12,
10262                            lapack_complex_double* x21, lapack_int ldx21,
10263                            lapack_complex_double* x22, lapack_int ldx22,
10264                            double* theta, lapack_complex_double* u1,
10265                            lapack_int ldu1, lapack_complex_double* u2,
10266                            lapack_int ldu2, lapack_complex_double* v1t,
10267                            lapack_int ldv1t, lapack_complex_double* v2t,
10268                            lapack_int ldv2t );
10269 lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2,
10270                                 char jobv1t, char jobv2t, char trans,
10271                                 char signs, lapack_int m, lapack_int p,
10272                                 lapack_int q, lapack_complex_double* x11,
10273                                 lapack_int ldx11, lapack_complex_double* x12,
10274                                 lapack_int ldx12, lapack_complex_double* x21,
10275                                 lapack_int ldx21, lapack_complex_double* x22,
10276                                 lapack_int ldx22, double* theta,
10277                                 lapack_complex_double* u1, lapack_int ldu1,
10278                                 lapack_complex_double* u2, lapack_int ldu2,
10279                                 lapack_complex_double* v1t, lapack_int ldv1t,
10280                                 lapack_complex_double* v2t, lapack_int ldv2t,
10281                                 lapack_complex_double* work, lapack_int lwork,
10282                                 double* rwork, lapack_int lrwork,
10283                                 lapack_int* iwork );
10284 //LAPACK 3.4.0
10285 lapack_int LAPACKE_sgemqrt( int matrix_order, char side, char trans,
10286                             lapack_int m, lapack_int n, lapack_int k,
10287                             lapack_int nb, const float* v, lapack_int ldv,
10288                             const float* t, lapack_int ldt, float* c,
10289                             lapack_int ldc );
10290 lapack_int LAPACKE_dgemqrt( int matrix_order, char side, char trans,
10291                             lapack_int m, lapack_int n, lapack_int k,
10292                             lapack_int nb, const double* v, lapack_int ldv,
10293                             const double* t, lapack_int ldt, double* c,
10294                             lapack_int ldc );
10295 lapack_int LAPACKE_cgemqrt( int matrix_order, char side, char trans,
10296                             lapack_int m, lapack_int n, lapack_int k,
10297                             lapack_int nb, const lapack_complex_float* v,
10298                             lapack_int ldv, const lapack_complex_float* t,
10299                             lapack_int ldt, lapack_complex_float* c,
10300                             lapack_int ldc );
10301 lapack_int LAPACKE_zgemqrt( int matrix_order, char side, char trans,
10302                             lapack_int m, lapack_int n, lapack_int k,
10303                             lapack_int nb, const lapack_complex_double* v,
10304                             lapack_int ldv, const lapack_complex_double* t,
10305                             lapack_int ldt, lapack_complex_double* c,
10306                             lapack_int ldc );
10307 
10308 lapack_int LAPACKE_sgeqrt( int matrix_order, lapack_int m, lapack_int n,
10309                            lapack_int nb, float* a, lapack_int lda, float* t,
10310                            lapack_int ldt );
10311 lapack_int LAPACKE_dgeqrt( int matrix_order, lapack_int m, lapack_int n,
10312                            lapack_int nb, double* a, lapack_int lda, double* t,
10313                            lapack_int ldt );
10314 lapack_int LAPACKE_cgeqrt( int matrix_order, lapack_int m, lapack_int n,
10315                            lapack_int nb, lapack_complex_float* a,
10316                            lapack_int lda, lapack_complex_float* t,
10317                            lapack_int ldt );
10318 lapack_int LAPACKE_zgeqrt( int matrix_order, lapack_int m, lapack_int n,
10319                            lapack_int nb, lapack_complex_double* a,
10320                            lapack_int lda, lapack_complex_double* t,
10321                            lapack_int ldt );
10322 
10323 lapack_int LAPACKE_sgeqrt2( int matrix_order, lapack_int m, lapack_int n,
10324                             float* a, lapack_int lda, float* t,
10325                             lapack_int ldt );
10326 lapack_int LAPACKE_dgeqrt2( int matrix_order, lapack_int m, lapack_int n,
10327                             double* a, lapack_int lda, double* t,
10328                             lapack_int ldt );
10329 lapack_int LAPACKE_cgeqrt2( int matrix_order, lapack_int m, lapack_int n,
10330                             lapack_complex_float* a, lapack_int lda,
10331                             lapack_complex_float* t, lapack_int ldt );
10332 lapack_int LAPACKE_zgeqrt2( int matrix_order, lapack_int m, lapack_int n,
10333                             lapack_complex_double* a, lapack_int lda,
10334                             lapack_complex_double* t, lapack_int ldt );
10335 
10336 lapack_int LAPACKE_sgeqrt3( int matrix_order, lapack_int m, lapack_int n,
10337                             float* a, lapack_int lda, float* t,
10338                             lapack_int ldt );
10339 lapack_int LAPACKE_dgeqrt3( int matrix_order, lapack_int m, lapack_int n,
10340                             double* a, lapack_int lda, double* t,
10341                             lapack_int ldt );
10342 lapack_int LAPACKE_cgeqrt3( int matrix_order, lapack_int m, lapack_int n,
10343                             lapack_complex_float* a, lapack_int lda,
10344                             lapack_complex_float* t, lapack_int ldt );
10345 lapack_int LAPACKE_zgeqrt3( int matrix_order, lapack_int m, lapack_int n,
10346                             lapack_complex_double* a, lapack_int lda,
10347                             lapack_complex_double* t, lapack_int ldt );
10348 
10349 lapack_int LAPACKE_stpmqrt( int matrix_order, char side, char trans,
10350                             lapack_int m, lapack_int n, lapack_int k,
10351                             lapack_int l, lapack_int nb, const float* v,
10352                             lapack_int ldv, const float* t, lapack_int ldt,
10353                             float* a, lapack_int lda, float* b,
10354                             lapack_int ldb );
10355 lapack_int LAPACKE_dtpmqrt( int matrix_order, char side, char trans,
10356                             lapack_int m, lapack_int n, lapack_int k,
10357                             lapack_int l, lapack_int nb, const double* v,
10358                             lapack_int ldv, const double* t, lapack_int ldt,
10359                             double* a, lapack_int lda, double* b,
10360                             lapack_int ldb );
10361 lapack_int LAPACKE_ctpmqrt( int matrix_order, char side, char trans,
10362                             lapack_int m, lapack_int n, lapack_int k,
10363                             lapack_int l, lapack_int nb,
10364                             const lapack_complex_float* v, lapack_int ldv,
10365                             const lapack_complex_float* t, lapack_int ldt,
10366                             lapack_complex_float* a, lapack_int lda,
10367                             lapack_complex_float* b, lapack_int ldb );
10368 lapack_int LAPACKE_ztpmqrt( int matrix_order, char side, char trans,
10369                             lapack_int m, lapack_int n, lapack_int k,
10370                             lapack_int l, lapack_int nb,
10371                             const lapack_complex_double* v, lapack_int ldv,
10372                             const lapack_complex_double* t, lapack_int ldt,
10373                             lapack_complex_double* a, lapack_int lda,
10374                             lapack_complex_double* b, lapack_int ldb );
10375 
10376 lapack_int LAPACKE_dtpqrt( int matrix_order, lapack_int m, lapack_int n,
10377                            lapack_int l, lapack_int nb, double* a,
10378                            lapack_int lda, double* b, lapack_int ldb, double* t,
10379                            lapack_int ldt );
10380 lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n,
10381                            lapack_int l, lapack_int nb, lapack_complex_float* a,
10382                            lapack_int lda, lapack_complex_float* t,
10383                            lapack_complex_float* b, lapack_int ldb,
10384                            lapack_int ldt );
10385 lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n,
10386                            lapack_int l, lapack_int nb,
10387                            lapack_complex_double* a, lapack_int lda,
10388                            lapack_complex_double* b, lapack_int ldb,
10389                            lapack_complex_double* t, lapack_int ldt );
10390 
10391 lapack_int LAPACKE_stpqrt2( int matrix_order, lapack_int m, lapack_int n,
10392                             float* a, lapack_int lda, float* b, lapack_int ldb,
10393                             float* t, lapack_int ldt );
10394 lapack_int LAPACKE_dtpqrt2( int matrix_order, lapack_int m, lapack_int n,
10395                             double* a, lapack_int lda, double* b,
10396                             lapack_int ldb, double* t, lapack_int ldt );
10397 lapack_int LAPACKE_ctpqrt2( int matrix_order, lapack_int m, lapack_int n,
10398                             lapack_complex_float* a, lapack_int lda,
10399                             lapack_complex_float* b, lapack_int ldb,
10400                             lapack_complex_float* t, lapack_int ldt );
10401 lapack_int LAPACKE_ztpqrt2( int matrix_order, lapack_int m, lapack_int n,
10402                             lapack_complex_double* a, lapack_int lda,
10403                             lapack_complex_double* b, lapack_int ldb,
10404                             lapack_complex_double* t, lapack_int ldt );
10405 
10406 lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct,
10407                            char storev, lapack_int m, lapack_int n,
10408                            lapack_int k, lapack_int l, const float* v,
10409                            lapack_int ldv, const float* t, lapack_int ldt,
10410                            float* a, lapack_int lda, float* b, lapack_int ldb,
10411                            lapack_int myldwork );
10412 lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct,
10413                            char storev, lapack_int m, lapack_int n,
10414                            lapack_int k, lapack_int l, const double* v,
10415                            lapack_int ldv, const double* t, lapack_int ldt,
10416                            double* a, lapack_int lda, double* b, lapack_int ldb,
10417                            lapack_int myldwork );
10418 lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct,
10419                            char storev, lapack_int m, lapack_int n,
10420                            lapack_int k, lapack_int l,
10421                            const lapack_complex_float* v, lapack_int ldv,
10422                            const lapack_complex_float* t, lapack_int ldt,
10423                            lapack_complex_float* a, lapack_int lda,
10424                            lapack_complex_float* b, lapack_int ldb,
10425                            lapack_int myldwork );
10426 lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct,
10427                            char storev, lapack_int m, lapack_int n,
10428                            lapack_int k, lapack_int l,
10429                            const lapack_complex_double* v, lapack_int ldv,
10430                            const lapack_complex_double* t, lapack_int ldt,
10431                            lapack_complex_double* a, lapack_int lda,
10432                            lapack_complex_double* b, lapack_int ldb,
10433                            lapack_int myldwork );
10434 
10435 lapack_int LAPACKE_sgemqrt_work( int matrix_order, char side, char trans,
10436                                  lapack_int m, lapack_int n, lapack_int k,
10437                                  lapack_int nb, const float* v, lapack_int ldv,
10438                                  const float* t, lapack_int ldt, float* c,
10439                                  lapack_int ldc, float* work );
10440 lapack_int LAPACKE_dgemqrt_work( int matrix_order, char side, char trans,
10441                                  lapack_int m, lapack_int n, lapack_int k,
10442                                  lapack_int nb, const double* v, lapack_int ldv,
10443                                  const double* t, lapack_int ldt, double* c,
10444                                  lapack_int ldc, double* work );
10445 lapack_int LAPACKE_cgemqrt_work( int matrix_order, char side, char trans,
10446                                  lapack_int m, lapack_int n, lapack_int k,
10447                                  lapack_int nb, const lapack_complex_float* v,
10448                                  lapack_int ldv, const lapack_complex_float* t,
10449                                  lapack_int ldt, lapack_complex_float* c,
10450                                  lapack_int ldc, lapack_complex_float* work );
10451 lapack_int LAPACKE_zgemqrt_work( int matrix_order, char side, char trans,
10452                                  lapack_int m, lapack_int n, lapack_int k,
10453                                  lapack_int nb, const lapack_complex_double* v,
10454                                  lapack_int ldv, const lapack_complex_double* t,
10455                                  lapack_int ldt, lapack_complex_double* c,
10456                                  lapack_int ldc, lapack_complex_double* work );
10457 
10458 lapack_int LAPACKE_sgeqrt_work( int matrix_order, lapack_int m, lapack_int n,
10459                                 lapack_int nb, float* a, lapack_int lda,
10460                                 float* t, lapack_int ldt, float* work );
10461 lapack_int LAPACKE_dgeqrt_work( int matrix_order, lapack_int m, lapack_int n,
10462                                 lapack_int nb, double* a, lapack_int lda,
10463                                 double* t, lapack_int ldt, double* work );
10464 lapack_int LAPACKE_cgeqrt_work( int matrix_order, lapack_int m, lapack_int n,
10465                                 lapack_int nb, lapack_complex_float* a,
10466                                 lapack_int lda, lapack_complex_float* t,
10467                                 lapack_int ldt, lapack_complex_float* work );
10468 lapack_int LAPACKE_zgeqrt_work( int matrix_order, lapack_int m, lapack_int n,
10469                                 lapack_int nb, lapack_complex_double* a,
10470                                 lapack_int lda, lapack_complex_double* t,
10471                                 lapack_int ldt, lapack_complex_double* work );
10472 
10473 lapack_int LAPACKE_sgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10474                                  float* a, lapack_int lda, float* t,
10475                                  lapack_int ldt );
10476 lapack_int LAPACKE_dgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10477                                  double* a, lapack_int lda, double* t,
10478                                  lapack_int ldt );
10479 lapack_int LAPACKE_cgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10480                                  lapack_complex_float* a, lapack_int lda,
10481                                  lapack_complex_float* t, lapack_int ldt );
10482 lapack_int LAPACKE_zgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10483                                  lapack_complex_double* a, lapack_int lda,
10484                                  lapack_complex_double* t, lapack_int ldt );
10485 
10486 lapack_int LAPACKE_sgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,
10487                                  float* a, lapack_int lda, float* t,
10488                                  lapack_int ldt );
10489 lapack_int LAPACKE_dgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,
10490                                  double* a, lapack_int lda, double* t,
10491                                  lapack_int ldt );
10492 lapack_int LAPACKE_cgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,
10493                                  lapack_complex_float* a, lapack_int lda,
10494                                  lapack_complex_float* t, lapack_int ldt );
10495 lapack_int LAPACKE_zgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,
10496                                  lapack_complex_double* a, lapack_int lda,
10497                                  lapack_complex_double* t, lapack_int ldt );
10498 
10499 lapack_int LAPACKE_stpmqrt_work( int matrix_order, char side, char trans,
10500                                  lapack_int m, lapack_int n, lapack_int k,
10501                                  lapack_int l, lapack_int nb, const float* v,
10502                                  lapack_int ldv, const float* t, lapack_int ldt,
10503                                  float* a, lapack_int lda, float* b,
10504                                  lapack_int ldb, float* work );
10505 lapack_int LAPACKE_dtpmqrt_work( int matrix_order, char side, char trans,
10506                                  lapack_int m, lapack_int n, lapack_int k,
10507                                  lapack_int l, lapack_int nb, const double* v,
10508                                  lapack_int ldv, const double* t,
10509                                  lapack_int ldt, double* a, lapack_int lda,
10510                                  double* b, lapack_int ldb, double* work );
10511 lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans,
10512                                  lapack_int m, lapack_int n, lapack_int k,
10513                                  lapack_int l, lapack_int nb,
10514                                  const lapack_complex_float* v, lapack_int ldv,
10515                                  const lapack_complex_float* t, lapack_int ldt,
10516                                  lapack_complex_float* a, lapack_int lda,
10517                                  lapack_complex_float* b, lapack_int ldb,
10518                                  lapack_complex_float* work );
10519 lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans,
10520                                  lapack_int m, lapack_int n, lapack_int k,
10521                                  lapack_int l, lapack_int nb,
10522                                  const lapack_complex_double* v, lapack_int ldv,
10523                                  const lapack_complex_double* t, lapack_int ldt,
10524                                  lapack_complex_double* a, lapack_int lda,
10525                                  lapack_complex_double* b, lapack_int ldb,
10526                                  lapack_complex_double* work );
10527 
10528 lapack_int LAPACKE_dtpqrt_work( int matrix_order, lapack_int m, lapack_int n,
10529                                 lapack_int l, lapack_int nb, double* a,
10530                                 lapack_int lda, double* b, lapack_int ldb,
10531                                 double* t, lapack_int ldt, double* work );
10532 lapack_int LAPACKE_ctpqrt_work( int matrix_order, lapack_int m, lapack_int n,
10533                                 lapack_int l, lapack_int nb,
10534                                 lapack_complex_float* a, lapack_int lda,
10535                                 lapack_complex_float* t,
10536                                 lapack_complex_float* b, lapack_int ldb,
10537                                 lapack_int ldt, lapack_complex_float* work );
10538 lapack_int LAPACKE_ztpqrt_work( int matrix_order, lapack_int m, lapack_int n,
10539                                 lapack_int l, lapack_int nb,
10540                                 lapack_complex_double* a, lapack_int lda,
10541                                 lapack_complex_double* b, lapack_int ldb,
10542                                 lapack_complex_double* t, lapack_int ldt,
10543                                 lapack_complex_double* work );
10544 
10545 lapack_int LAPACKE_stpqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10546                                  float* a, lapack_int lda, float* b,
10547                                  lapack_int ldb, float* t, lapack_int ldt );
10548 lapack_int LAPACKE_dtpqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10549                                  double* a, lapack_int lda, double* b,
10550                                  lapack_int ldb, double* t, lapack_int ldt );
10551 lapack_int LAPACKE_ctpqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10552                                  lapack_complex_float* a, lapack_int lda,
10553                                  lapack_complex_float* b, lapack_int ldb,
10554                                  lapack_complex_float* t, lapack_int ldt );
10555 lapack_int LAPACKE_ztpqrt2_work( int matrix_order, lapack_int m, lapack_int n,
10556                                  lapack_complex_double* a, lapack_int lda,
10557                                  lapack_complex_double* b, lapack_int ldb,
10558                                  lapack_complex_double* t, lapack_int ldt );
10559 
10560 lapack_int LAPACKE_stprfb_work( int matrix_order, char side, char trans,
10561                                 char direct, char storev, lapack_int m,
10562                                 lapack_int n, lapack_int k, lapack_int l,
10563                                 const float* v, lapack_int ldv, const float* t,
10564                                 lapack_int ldt, float* a, lapack_int lda,
10565                                 float* b, lapack_int ldb, const float* mywork,
10566                                 lapack_int myldwork );
10567 lapack_int LAPACKE_dtprfb_work( int matrix_order, char side, char trans,
10568                                 char direct, char storev, lapack_int m,
10569                                 lapack_int n, lapack_int k, lapack_int l,
10570                                 const double* v, lapack_int ldv,
10571                                 const double* t, lapack_int ldt, double* a,
10572                                 lapack_int lda, double* b, lapack_int ldb,
10573                                 const double* mywork, lapack_int myldwork );
10574 lapack_int LAPACKE_ctprfb_work( int matrix_order, char side, char trans,
10575                                 char direct, char storev, lapack_int m,
10576                                 lapack_int n, lapack_int k, lapack_int l,
10577                                 const lapack_complex_float* v, lapack_int ldv,
10578                                 const lapack_complex_float* t, lapack_int ldt,
10579                                 lapack_complex_float* a, lapack_int lda,
10580                                 lapack_complex_float* b, lapack_int ldb,
10581                                 const float* mywork, lapack_int myldwork );
10582 lapack_int LAPACKE_ztprfb_work( int matrix_order, char side, char trans,
10583                                 char direct, char storev, lapack_int m,
10584                                 lapack_int n, lapack_int k, lapack_int l,
10585                                 const lapack_complex_double* v, lapack_int ldv,
10586                                 const lapack_complex_double* t, lapack_int ldt,
10587                                 lapack_complex_double* a, lapack_int lda,
10588                                 lapack_complex_double* b, lapack_int ldb,
10589                                 const double* mywork, lapack_int myldwork );
10590 //LAPACK 3.X.X
10591 lapack_int LAPACKE_csyr( int matrix_order, char uplo, lapack_int n,
10592                              lapack_complex_float alpha,
10593                              const lapack_complex_float* x, lapack_int incx,
10594                              lapack_complex_float* a, lapack_int lda );
10595 lapack_int LAPACKE_zsyr( int matrix_order, char uplo, lapack_int n,
10596                              lapack_complex_double alpha,
10597                              const lapack_complex_double* x, lapack_int incx,
10598                              lapack_complex_double* a, lapack_int lda );
10599 
10600 lapack_int LAPACKE_csyr_work( int matrix_order, char uplo, lapack_int n,
10601                                   lapack_complex_float alpha,
10602                                   const lapack_complex_float* x,
10603                                   lapack_int incx, lapack_complex_float* a,
10604                                   lapack_int lda );
10605 lapack_int LAPACKE_zsyr_work( int matrix_order, char uplo, lapack_int n,
10606                                   lapack_complex_double alpha,
10607                                   const lapack_complex_double* x,
10608                                   lapack_int incx, lapack_complex_double* a,
10609                                   lapack_int lda );
10610 
10611 
10612 
10613 #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
10614 #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
10615 #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
10616 #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
10617 #define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
10618 #define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
10619 #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
10620 #define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
10621 #define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
10622 #define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
10623 #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
10624 #define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
10625 #define LAPACK_spotrf LAPACK_GLOBAL(spotrf,SPOTRF)
10626 #define LAPACK_dpotrf LAPACK_GLOBAL(dpotrf,DPOTRF)
10627 #define LAPACK_cpotrf LAPACK_GLOBAL(cpotrf,CPOTRF)
10628 #define LAPACK_zpotrf LAPACK_GLOBAL(zpotrf,ZPOTRF)
10629 #define LAPACK_dpstrf LAPACK_GLOBAL(dpstrf,DPSTRF)
10630 #define LAPACK_spstrf LAPACK_GLOBAL(spstrf,SPSTRF)
10631 #define LAPACK_zpstrf LAPACK_GLOBAL(zpstrf,ZPSTRF)
10632 #define LAPACK_cpstrf LAPACK_GLOBAL(cpstrf,CPSTRF)
10633 #define LAPACK_dpftrf LAPACK_GLOBAL(dpftrf,DPFTRF)
10634 #define LAPACK_spftrf LAPACK_GLOBAL(spftrf,SPFTRF)
10635 #define LAPACK_zpftrf LAPACK_GLOBAL(zpftrf,ZPFTRF)
10636 #define LAPACK_cpftrf LAPACK_GLOBAL(cpftrf,CPFTRF)
10637 #define LAPACK_spptrf LAPACK_GLOBAL(spptrf,SPPTRF)
10638 #define LAPACK_dpptrf LAPACK_GLOBAL(dpptrf,DPPTRF)
10639 #define LAPACK_cpptrf LAPACK_GLOBAL(cpptrf,CPPTRF)
10640 #define LAPACK_zpptrf LAPACK_GLOBAL(zpptrf,ZPPTRF)
10641 #define LAPACK_spbtrf LAPACK_GLOBAL(spbtrf,SPBTRF)
10642 #define LAPACK_dpbtrf LAPACK_GLOBAL(dpbtrf,DPBTRF)
10643 #define LAPACK_cpbtrf LAPACK_GLOBAL(cpbtrf,CPBTRF)
10644 #define LAPACK_zpbtrf LAPACK_GLOBAL(zpbtrf,ZPBTRF)
10645 #define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
10646 #define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
10647 #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
10648 #define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
10649 #define LAPACK_ssytrf LAPACK_GLOBAL(ssytrf,SSYTRF)
10650 #define LAPACK_dsytrf LAPACK_GLOBAL(dsytrf,DSYTRF)
10651 #define LAPACK_csytrf LAPACK_GLOBAL(csytrf,CSYTRF)
10652 #define LAPACK_zsytrf LAPACK_GLOBAL(zsytrf,ZSYTRF)
10653 #define LAPACK_chetrf LAPACK_GLOBAL(chetrf,CHETRF)
10654 #define LAPACK_zhetrf LAPACK_GLOBAL(zhetrf,ZHETRF)
10655 #define LAPACK_ssptrf LAPACK_GLOBAL(ssptrf,SSPTRF)
10656 #define LAPACK_dsptrf LAPACK_GLOBAL(dsptrf,DSPTRF)
10657 #define LAPACK_csptrf LAPACK_GLOBAL(csptrf,CSPTRF)
10658 #define LAPACK_zsptrf LAPACK_GLOBAL(zsptrf,ZSPTRF)
10659 #define LAPACK_chptrf LAPACK_GLOBAL(chptrf,CHPTRF)
10660 #define LAPACK_zhptrf LAPACK_GLOBAL(zhptrf,ZHPTRF)
10661 #define LAPACK_sgetrs LAPACK_GLOBAL(sgetrs,SGETRS)
10662 #define LAPACK_dgetrs LAPACK_GLOBAL(dgetrs,DGETRS)
10663 #define LAPACK_cgetrs LAPACK_GLOBAL(cgetrs,CGETRS)
10664 #define LAPACK_zgetrs LAPACK_GLOBAL(zgetrs,ZGETRS)
10665 #define LAPACK_sgbtrs LAPACK_GLOBAL(sgbtrs,SGBTRS)
10666 #define LAPACK_dgbtrs LAPACK_GLOBAL(dgbtrs,DGBTRS)
10667 #define LAPACK_cgbtrs LAPACK_GLOBAL(cgbtrs,CGBTRS)
10668 #define LAPACK_zgbtrs LAPACK_GLOBAL(zgbtrs,ZGBTRS)
10669 #define LAPACK_sgttrs LAPACK_GLOBAL(sgttrs,SGTTRS)
10670 #define LAPACK_dgttrs LAPACK_GLOBAL(dgttrs,DGTTRS)
10671 #define LAPACK_cgttrs LAPACK_GLOBAL(cgttrs,CGTTRS)
10672 #define LAPACK_zgttrs LAPACK_GLOBAL(zgttrs,ZGTTRS)
10673 #define LAPACK_spotrs LAPACK_GLOBAL(spotrs,SPOTRS)
10674 #define LAPACK_dpotrs LAPACK_GLOBAL(dpotrs,DPOTRS)
10675 #define LAPACK_cpotrs LAPACK_GLOBAL(cpotrs,CPOTRS)
10676 #define LAPACK_zpotrs LAPACK_GLOBAL(zpotrs,ZPOTRS)
10677 #define LAPACK_dpftrs LAPACK_GLOBAL(dpftrs,DPFTRS)
10678 #define LAPACK_spftrs LAPACK_GLOBAL(spftrs,SPFTRS)
10679 #define LAPACK_zpftrs LAPACK_GLOBAL(zpftrs,ZPFTRS)
10680 #define LAPACK_cpftrs LAPACK_GLOBAL(cpftrs,CPFTRS)
10681 #define LAPACK_spptrs LAPACK_GLOBAL(spptrs,SPPTRS)
10682 #define LAPACK_dpptrs LAPACK_GLOBAL(dpptrs,DPPTRS)
10683 #define LAPACK_cpptrs LAPACK_GLOBAL(cpptrs,CPPTRS)
10684 #define LAPACK_zpptrs LAPACK_GLOBAL(zpptrs,ZPPTRS)
10685 #define LAPACK_spbtrs LAPACK_GLOBAL(spbtrs,SPBTRS)
10686 #define LAPACK_dpbtrs LAPACK_GLOBAL(dpbtrs,DPBTRS)
10687 #define LAPACK_cpbtrs LAPACK_GLOBAL(cpbtrs,CPBTRS)
10688 #define LAPACK_zpbtrs LAPACK_GLOBAL(zpbtrs,ZPBTRS)
10689 #define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
10690 #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
10691 #define LAPACK_cpttrs LAPACK_GLOBAL(cpttrs,CPTTRS)
10692 #define LAPACK_zpttrs LAPACK_GLOBAL(zpttrs,ZPTTRS)
10693 #define LAPACK_ssytrs LAPACK_GLOBAL(ssytrs,SSYTRS)
10694 #define LAPACK_dsytrs LAPACK_GLOBAL(dsytrs,DSYTRS)
10695 #define LAPACK_csytrs LAPACK_GLOBAL(csytrs,CSYTRS)
10696 #define LAPACK_zsytrs LAPACK_GLOBAL(zsytrs,ZSYTRS)
10697 #define LAPACK_chetrs LAPACK_GLOBAL(chetrs,CHETRS)
10698 #define LAPACK_zhetrs LAPACK_GLOBAL(zhetrs,ZHETRS)
10699 #define LAPACK_ssptrs LAPACK_GLOBAL(ssptrs,SSPTRS)
10700 #define LAPACK_dsptrs LAPACK_GLOBAL(dsptrs,DSPTRS)
10701 #define LAPACK_csptrs LAPACK_GLOBAL(csptrs,CSPTRS)
10702 #define LAPACK_zsptrs LAPACK_GLOBAL(zsptrs,ZSPTRS)
10703 #define LAPACK_chptrs LAPACK_GLOBAL(chptrs,CHPTRS)
10704 #define LAPACK_zhptrs LAPACK_GLOBAL(zhptrs,ZHPTRS)
10705 #define LAPACK_strtrs LAPACK_GLOBAL(strtrs,STRTRS)
10706 #define LAPACK_dtrtrs LAPACK_GLOBAL(dtrtrs,DTRTRS)
10707 #define LAPACK_ctrtrs LAPACK_GLOBAL(ctrtrs,CTRTRS)
10708 #define LAPACK_ztrtrs LAPACK_GLOBAL(ztrtrs,ZTRTRS)
10709 #define LAPACK_stptrs LAPACK_GLOBAL(stptrs,STPTRS)
10710 #define LAPACK_dtptrs LAPACK_GLOBAL(dtptrs,DTPTRS)
10711 #define LAPACK_ctptrs LAPACK_GLOBAL(ctptrs,CTPTRS)
10712 #define LAPACK_ztptrs LAPACK_GLOBAL(ztptrs,ZTPTRS)
10713 #define LAPACK_stbtrs LAPACK_GLOBAL(stbtrs,STBTRS)
10714 #define LAPACK_dtbtrs LAPACK_GLOBAL(dtbtrs,DTBTRS)
10715 #define LAPACK_ctbtrs LAPACK_GLOBAL(ctbtrs,CTBTRS)
10716 #define LAPACK_ztbtrs LAPACK_GLOBAL(ztbtrs,ZTBTRS)
10717 #define LAPACK_sgecon LAPACK_GLOBAL(sgecon,SGECON)
10718 #define LAPACK_dgecon LAPACK_GLOBAL(dgecon,DGECON)
10719 #define LAPACK_cgecon LAPACK_GLOBAL(cgecon,CGECON)
10720 #define LAPACK_zgecon LAPACK_GLOBAL(zgecon,ZGECON)
10721 #define LAPACK_sgbcon LAPACK_GLOBAL(sgbcon,SGBCON)
10722 #define LAPACK_dgbcon LAPACK_GLOBAL(dgbcon,DGBCON)
10723 #define LAPACK_cgbcon LAPACK_GLOBAL(cgbcon,CGBCON)
10724 #define LAPACK_zgbcon LAPACK_GLOBAL(zgbcon,ZGBCON)
10725 #define LAPACK_sgtcon LAPACK_GLOBAL(sgtcon,SGTCON)
10726 #define LAPACK_dgtcon LAPACK_GLOBAL(dgtcon,DGTCON)
10727 #define LAPACK_cgtcon LAPACK_GLOBAL(cgtcon,CGTCON)
10728 #define LAPACK_zgtcon LAPACK_GLOBAL(zgtcon,ZGTCON)
10729 #define LAPACK_spocon LAPACK_GLOBAL(spocon,SPOCON)
10730 #define LAPACK_dpocon LAPACK_GLOBAL(dpocon,DPOCON)
10731 #define LAPACK_cpocon LAPACK_GLOBAL(cpocon,CPOCON)
10732 #define LAPACK_zpocon LAPACK_GLOBAL(zpocon,ZPOCON)
10733 #define LAPACK_sppcon LAPACK_GLOBAL(sppcon,SPPCON)
10734 #define LAPACK_dppcon LAPACK_GLOBAL(dppcon,DPPCON)
10735 #define LAPACK_cppcon LAPACK_GLOBAL(cppcon,CPPCON)
10736 #define LAPACK_zppcon LAPACK_GLOBAL(zppcon,ZPPCON)
10737 #define LAPACK_spbcon LAPACK_GLOBAL(spbcon,SPBCON)
10738 #define LAPACK_dpbcon LAPACK_GLOBAL(dpbcon,DPBCON)
10739 #define LAPACK_cpbcon LAPACK_GLOBAL(cpbcon,CPBCON)
10740 #define LAPACK_zpbcon LAPACK_GLOBAL(zpbcon,ZPBCON)
10741 #define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
10742 #define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
10743 #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
10744 #define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
10745 #define LAPACK_ssycon LAPACK_GLOBAL(ssycon,SSYCON)
10746 #define LAPACK_dsycon LAPACK_GLOBAL(dsycon,DSYCON)
10747 #define LAPACK_csycon LAPACK_GLOBAL(csycon,CSYCON)
10748 #define LAPACK_zsycon LAPACK_GLOBAL(zsycon,ZSYCON)
10749 #define LAPACK_checon LAPACK_GLOBAL(checon,CHECON)
10750 #define LAPACK_zhecon LAPACK_GLOBAL(zhecon,ZHECON)
10751 #define LAPACK_sspcon LAPACK_GLOBAL(sspcon,SSPCON)
10752 #define LAPACK_dspcon LAPACK_GLOBAL(dspcon,DSPCON)
10753 #define LAPACK_cspcon LAPACK_GLOBAL(cspcon,CSPCON)
10754 #define LAPACK_zspcon LAPACK_GLOBAL(zspcon,ZSPCON)
10755 #define LAPACK_chpcon LAPACK_GLOBAL(chpcon,CHPCON)
10756 #define LAPACK_zhpcon LAPACK_GLOBAL(zhpcon,ZHPCON)
10757 #define LAPACK_strcon LAPACK_GLOBAL(strcon,STRCON)
10758 #define LAPACK_dtrcon LAPACK_GLOBAL(dtrcon,DTRCON)
10759 #define LAPACK_ctrcon LAPACK_GLOBAL(ctrcon,CTRCON)
10760 #define LAPACK_ztrcon LAPACK_GLOBAL(ztrcon,ZTRCON)
10761 #define LAPACK_stpcon LAPACK_GLOBAL(stpcon,STPCON)
10762 #define LAPACK_dtpcon LAPACK_GLOBAL(dtpcon,DTPCON)
10763 #define LAPACK_ctpcon LAPACK_GLOBAL(ctpcon,CTPCON)
10764 #define LAPACK_ztpcon LAPACK_GLOBAL(ztpcon,ZTPCON)
10765 #define LAPACK_stbcon LAPACK_GLOBAL(stbcon,STBCON)
10766 #define LAPACK_dtbcon LAPACK_GLOBAL(dtbcon,DTBCON)
10767 #define LAPACK_ctbcon LAPACK_GLOBAL(ctbcon,CTBCON)
10768 #define LAPACK_ztbcon LAPACK_GLOBAL(ztbcon,ZTBCON)
10769 #define LAPACK_sgerfs LAPACK_GLOBAL(sgerfs,SGERFS)
10770 #define LAPACK_dgerfs LAPACK_GLOBAL(dgerfs,DGERFS)
10771 #define LAPACK_cgerfs LAPACK_GLOBAL(cgerfs,CGERFS)
10772 #define LAPACK_zgerfs LAPACK_GLOBAL(zgerfs,ZGERFS)
10773 #define LAPACK_dgerfsx LAPACK_GLOBAL(dgerfsx,DGERFSX)
10774 #define LAPACK_sgerfsx LAPACK_GLOBAL(sgerfsx,SGERFSX)
10775 #define LAPACK_zgerfsx LAPACK_GLOBAL(zgerfsx,ZGERFSX)
10776 #define LAPACK_cgerfsx LAPACK_GLOBAL(cgerfsx,CGERFSX)
10777 #define LAPACK_sgbrfs LAPACK_GLOBAL(sgbrfs,SGBRFS)
10778 #define LAPACK_dgbrfs LAPACK_GLOBAL(dgbrfs,DGBRFS)
10779 #define LAPACK_cgbrfs LAPACK_GLOBAL(cgbrfs,CGBRFS)
10780 #define LAPACK_zgbrfs LAPACK_GLOBAL(zgbrfs,ZGBRFS)
10781 #define LAPACK_dgbrfsx LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
10782 #define LAPACK_sgbrfsx LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
10783 #define LAPACK_zgbrfsx LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
10784 #define LAPACK_cgbrfsx LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
10785 #define LAPACK_sgtrfs LAPACK_GLOBAL(sgtrfs,SGTRFS)
10786 #define LAPACK_dgtrfs LAPACK_GLOBAL(dgtrfs,DGTRFS)
10787 #define LAPACK_cgtrfs LAPACK_GLOBAL(cgtrfs,CGTRFS)
10788 #define LAPACK_zgtrfs LAPACK_GLOBAL(zgtrfs,ZGTRFS)
10789 #define LAPACK_sporfs LAPACK_GLOBAL(sporfs,SPORFS)
10790 #define LAPACK_dporfs LAPACK_GLOBAL(dporfs,DPORFS)
10791 #define LAPACK_cporfs LAPACK_GLOBAL(cporfs,CPORFS)
10792 #define LAPACK_zporfs LAPACK_GLOBAL(zporfs,ZPORFS)
10793 #define LAPACK_dporfsx LAPACK_GLOBAL(dporfsx,DPORFSX)
10794 #define LAPACK_sporfsx LAPACK_GLOBAL(sporfsx,SPORFSX)
10795 #define LAPACK_zporfsx LAPACK_GLOBAL(zporfsx,ZPORFSX)
10796 #define LAPACK_cporfsx LAPACK_GLOBAL(cporfsx,CPORFSX)
10797 #define LAPACK_spprfs LAPACK_GLOBAL(spprfs,SPPRFS)
10798 #define LAPACK_dpprfs LAPACK_GLOBAL(dpprfs,DPPRFS)
10799 #define LAPACK_cpprfs LAPACK_GLOBAL(cpprfs,CPPRFS)
10800 #define LAPACK_zpprfs LAPACK_GLOBAL(zpprfs,ZPPRFS)
10801 #define LAPACK_spbrfs LAPACK_GLOBAL(spbrfs,SPBRFS)
10802 #define LAPACK_dpbrfs LAPACK_GLOBAL(dpbrfs,DPBRFS)
10803 #define LAPACK_cpbrfs LAPACK_GLOBAL(cpbrfs,CPBRFS)
10804 #define LAPACK_zpbrfs LAPACK_GLOBAL(zpbrfs,ZPBRFS)
10805 #define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
10806 #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
10807 #define LAPACK_cptrfs LAPACK_GLOBAL(cptrfs,CPTRFS)
10808 #define LAPACK_zptrfs LAPACK_GLOBAL(zptrfs,ZPTRFS)
10809 #define LAPACK_ssyrfs LAPACK_GLOBAL(ssyrfs,SSYRFS)
10810 #define LAPACK_dsyrfs LAPACK_GLOBAL(dsyrfs,DSYRFS)
10811 #define LAPACK_csyrfs LAPACK_GLOBAL(csyrfs,CSYRFS)
10812 #define LAPACK_zsyrfs LAPACK_GLOBAL(zsyrfs,ZSYRFS)
10813 #define LAPACK_dsyrfsx LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
10814 #define LAPACK_ssyrfsx LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
10815 #define LAPACK_zsyrfsx LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
10816 #define LAPACK_csyrfsx LAPACK_GLOBAL(csyrfsx,CSYRFSX)
10817 #define LAPACK_cherfs LAPACK_GLOBAL(cherfs,CHERFS)
10818 #define LAPACK_zherfs LAPACK_GLOBAL(zherfs,ZHERFS)
10819 #define LAPACK_zherfsx LAPACK_GLOBAL(zherfsx,ZHERFSX)
10820 #define LAPACK_cherfsx LAPACK_GLOBAL(cherfsx,CHERFSX)
10821 #define LAPACK_ssprfs LAPACK_GLOBAL(ssprfs,SSPRFS)
10822 #define LAPACK_dsprfs LAPACK_GLOBAL(dsprfs,DSPRFS)
10823 #define LAPACK_csprfs LAPACK_GLOBAL(csprfs,CSPRFS)
10824 #define LAPACK_zsprfs LAPACK_GLOBAL(zsprfs,ZSPRFS)
10825 #define LAPACK_chprfs LAPACK_GLOBAL(chprfs,CHPRFS)
10826 #define LAPACK_zhprfs LAPACK_GLOBAL(zhprfs,ZHPRFS)
10827 #define LAPACK_strrfs LAPACK_GLOBAL(strrfs,STRRFS)
10828 #define LAPACK_dtrrfs LAPACK_GLOBAL(dtrrfs,DTRRFS)
10829 #define LAPACK_ctrrfs LAPACK_GLOBAL(ctrrfs,CTRRFS)
10830 #define LAPACK_ztrrfs LAPACK_GLOBAL(ztrrfs,ZTRRFS)
10831 #define LAPACK_stprfs LAPACK_GLOBAL(stprfs,STPRFS)
10832 #define LAPACK_dtprfs LAPACK_GLOBAL(dtprfs,DTPRFS)
10833 #define LAPACK_ctprfs LAPACK_GLOBAL(ctprfs,CTPRFS)
10834 #define LAPACK_ztprfs LAPACK_GLOBAL(ztprfs,ZTPRFS)
10835 #define LAPACK_stbrfs LAPACK_GLOBAL(stbrfs,STBRFS)
10836 #define LAPACK_dtbrfs LAPACK_GLOBAL(dtbrfs,DTBRFS)
10837 #define LAPACK_ctbrfs LAPACK_GLOBAL(ctbrfs,CTBRFS)
10838 #define LAPACK_ztbrfs LAPACK_GLOBAL(ztbrfs,ZTBRFS)
10839 #define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
10840 #define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
10841 #define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
10842 #define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
10843 #define LAPACK_spotri LAPACK_GLOBAL(spotri,SPOTRI)
10844 #define LAPACK_dpotri LAPACK_GLOBAL(dpotri,DPOTRI)
10845 #define LAPACK_cpotri LAPACK_GLOBAL(cpotri,CPOTRI)
10846 #define LAPACK_zpotri LAPACK_GLOBAL(zpotri,ZPOTRI)
10847 #define LAPACK_dpftri LAPACK_GLOBAL(dpftri,DPFTRI)
10848 #define LAPACK_spftri LAPACK_GLOBAL(spftri,SPFTRI)
10849 #define LAPACK_zpftri LAPACK_GLOBAL(zpftri,ZPFTRI)
10850 #define LAPACK_cpftri LAPACK_GLOBAL(cpftri,CPFTRI)
10851 #define LAPACK_spptri LAPACK_GLOBAL(spptri,SPPTRI)
10852 #define LAPACK_dpptri LAPACK_GLOBAL(dpptri,DPPTRI)
10853 #define LAPACK_cpptri LAPACK_GLOBAL(cpptri,CPPTRI)
10854 #define LAPACK_zpptri LAPACK_GLOBAL(zpptri,ZPPTRI)
10855 #define LAPACK_ssytri LAPACK_GLOBAL(ssytri,SSYTRI)
10856 #define LAPACK_dsytri LAPACK_GLOBAL(dsytri,DSYTRI)
10857 #define LAPACK_csytri LAPACK_GLOBAL(csytri,CSYTRI)
10858 #define LAPACK_zsytri LAPACK_GLOBAL(zsytri,ZSYTRI)
10859 #define LAPACK_chetri LAPACK_GLOBAL(chetri,CHETRI)
10860 #define LAPACK_zhetri LAPACK_GLOBAL(zhetri,ZHETRI)
10861 #define LAPACK_ssptri LAPACK_GLOBAL(ssptri,SSPTRI)
10862 #define LAPACK_dsptri LAPACK_GLOBAL(dsptri,DSPTRI)
10863 #define LAPACK_csptri LAPACK_GLOBAL(csptri,CSPTRI)
10864 #define LAPACK_zsptri LAPACK_GLOBAL(zsptri,ZSPTRI)
10865 #define LAPACK_chptri LAPACK_GLOBAL(chptri,CHPTRI)
10866 #define LAPACK_zhptri LAPACK_GLOBAL(zhptri,ZHPTRI)
10867 #define LAPACK_strtri LAPACK_GLOBAL(strtri,STRTRI)
10868 #define LAPACK_dtrtri LAPACK_GLOBAL(dtrtri,DTRTRI)
10869 #define LAPACK_ctrtri LAPACK_GLOBAL(ctrtri,CTRTRI)
10870 #define LAPACK_ztrtri LAPACK_GLOBAL(ztrtri,ZTRTRI)
10871 #define LAPACK_dtftri LAPACK_GLOBAL(dtftri,DTFTRI)
10872 #define LAPACK_stftri LAPACK_GLOBAL(stftri,STFTRI)
10873 #define LAPACK_ztftri LAPACK_GLOBAL(ztftri,ZTFTRI)
10874 #define LAPACK_ctftri LAPACK_GLOBAL(ctftri,CTFTRI)
10875 #define LAPACK_stptri LAPACK_GLOBAL(stptri,STPTRI)
10876 #define LAPACK_dtptri LAPACK_GLOBAL(dtptri,DTPTRI)
10877 #define LAPACK_ctptri LAPACK_GLOBAL(ctptri,CTPTRI)
10878 #define LAPACK_ztptri LAPACK_GLOBAL(ztptri,ZTPTRI)
10879 #define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
10880 #define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
10881 #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
10882 #define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
10883 #define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
10884 #define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
10885 #define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
10886 #define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
10887 #define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
10888 #define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
10889 #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
10890 #define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
10891 #define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
10892 #define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
10893 #define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
10894 #define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
10895 #define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
10896 #define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
10897 #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
10898 #define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
10899 #define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
10900 #define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
10901 #define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
10902 #define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
10903 #define LAPACK_sppequ LAPACK_GLOBAL(sppequ,SPPEQU)
10904 #define LAPACK_dppequ LAPACK_GLOBAL(dppequ,DPPEQU)
10905 #define LAPACK_cppequ LAPACK_GLOBAL(cppequ,CPPEQU)
10906 #define LAPACK_zppequ LAPACK_GLOBAL(zppequ,ZPPEQU)
10907 #define LAPACK_spbequ LAPACK_GLOBAL(spbequ,SPBEQU)
10908 #define LAPACK_dpbequ LAPACK_GLOBAL(dpbequ,DPBEQU)
10909 #define LAPACK_cpbequ LAPACK_GLOBAL(cpbequ,CPBEQU)
10910 #define LAPACK_zpbequ LAPACK_GLOBAL(zpbequ,ZPBEQU)
10911 #define LAPACK_dsyequb LAPACK_GLOBAL(dsyequb,DSYEQUB)
10912 #define LAPACK_ssyequb LAPACK_GLOBAL(ssyequb,SSYEQUB)
10913 #define LAPACK_zsyequb LAPACK_GLOBAL(zsyequb,ZSYEQUB)
10914 #define LAPACK_csyequb LAPACK_GLOBAL(csyequb,CSYEQUB)
10915 #define LAPACK_zheequb LAPACK_GLOBAL(zheequb,ZHEEQUB)
10916 #define LAPACK_cheequb LAPACK_GLOBAL(cheequb,CHEEQUB)
10917 #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
10918 #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
10919 #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
10920 #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
10921 #define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
10922 #define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
10923 #define LAPACK_sgesvx LAPACK_GLOBAL(sgesvx,SGESVX)
10924 #define LAPACK_dgesvx LAPACK_GLOBAL(dgesvx,DGESVX)
10925 #define LAPACK_cgesvx LAPACK_GLOBAL(cgesvx,CGESVX)
10926 #define LAPACK_zgesvx LAPACK_GLOBAL(zgesvx,ZGESVX)
10927 #define LAPACK_dgesvxx LAPACK_GLOBAL(dgesvxx,DGESVXX)
10928 #define LAPACK_sgesvxx LAPACK_GLOBAL(sgesvxx,SGESVXX)
10929 #define LAPACK_zgesvxx LAPACK_GLOBAL(zgesvxx,ZGESVXX)
10930 #define LAPACK_cgesvxx LAPACK_GLOBAL(cgesvxx,CGESVXX)
10931 #define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
10932 #define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
10933 #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
10934 #define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
10935 #define LAPACK_sgbsvx LAPACK_GLOBAL(sgbsvx,SGBSVX)
10936 #define LAPACK_dgbsvx LAPACK_GLOBAL(dgbsvx,DGBSVX)
10937 #define LAPACK_cgbsvx LAPACK_GLOBAL(cgbsvx,CGBSVX)
10938 #define LAPACK_zgbsvx LAPACK_GLOBAL(zgbsvx,ZGBSVX)
10939 #define LAPACK_dgbsvxx LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
10940 #define LAPACK_sgbsvxx LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
10941 #define LAPACK_zgbsvxx LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
10942 #define LAPACK_cgbsvxx LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
10943 #define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
10944 #define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
10945 #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
10946 #define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
10947 #define LAPACK_sgtsvx LAPACK_GLOBAL(sgtsvx,SGTSVX)
10948 #define LAPACK_dgtsvx LAPACK_GLOBAL(dgtsvx,DGTSVX)
10949 #define LAPACK_cgtsvx LAPACK_GLOBAL(cgtsvx,CGTSVX)
10950 #define LAPACK_zgtsvx LAPACK_GLOBAL(zgtsvx,ZGTSVX)
10951 #define LAPACK_sposv LAPACK_GLOBAL(sposv,SPOSV)
10952 #define LAPACK_dposv LAPACK_GLOBAL(dposv,DPOSV)
10953 #define LAPACK_cposv LAPACK_GLOBAL(cposv,CPOSV)
10954 #define LAPACK_zposv LAPACK_GLOBAL(zposv,ZPOSV)
10955 #define LAPACK_dsposv LAPACK_GLOBAL(dsposv,DSPOSV)
10956 #define LAPACK_zcposv LAPACK_GLOBAL(zcposv,ZCPOSV)
10957 #define LAPACK_sposvx LAPACK_GLOBAL(sposvx,SPOSVX)
10958 #define LAPACK_dposvx LAPACK_GLOBAL(dposvx,DPOSVX)
10959 #define LAPACK_cposvx LAPACK_GLOBAL(cposvx,CPOSVX)
10960 #define LAPACK_zposvx LAPACK_GLOBAL(zposvx,ZPOSVX)
10961 #define LAPACK_dposvxx LAPACK_GLOBAL(dposvxx,DPOSVXX)
10962 #define LAPACK_sposvxx LAPACK_GLOBAL(sposvxx,SPOSVXX)
10963 #define LAPACK_zposvxx LAPACK_GLOBAL(zposvxx,ZPOSVXX)
10964 #define LAPACK_cposvxx LAPACK_GLOBAL(cposvxx,CPOSVXX)
10965 #define LAPACK_sppsv LAPACK_GLOBAL(sppsv,SPPSV)
10966 #define LAPACK_dppsv LAPACK_GLOBAL(dppsv,DPPSV)
10967 #define LAPACK_cppsv LAPACK_GLOBAL(cppsv,CPPSV)
10968 #define LAPACK_zppsv LAPACK_GLOBAL(zppsv,ZPPSV)
10969 #define LAPACK_sppsvx LAPACK_GLOBAL(sppsvx,SPPSVX)
10970 #define LAPACK_dppsvx LAPACK_GLOBAL(dppsvx,DPPSVX)
10971 #define LAPACK_cppsvx LAPACK_GLOBAL(cppsvx,CPPSVX)
10972 #define LAPACK_zppsvx LAPACK_GLOBAL(zppsvx,ZPPSVX)
10973 #define LAPACK_spbsv LAPACK_GLOBAL(spbsv,SPBSV)
10974 #define LAPACK_dpbsv LAPACK_GLOBAL(dpbsv,DPBSV)
10975 #define LAPACK_cpbsv LAPACK_GLOBAL(cpbsv,CPBSV)
10976 #define LAPACK_zpbsv LAPACK_GLOBAL(zpbsv,ZPBSV)
10977 #define LAPACK_spbsvx LAPACK_GLOBAL(spbsvx,SPBSVX)
10978 #define LAPACK_dpbsvx LAPACK_GLOBAL(dpbsvx,DPBSVX)
10979 #define LAPACK_cpbsvx LAPACK_GLOBAL(cpbsvx,CPBSVX)
10980 #define LAPACK_zpbsvx LAPACK_GLOBAL(zpbsvx,ZPBSVX)
10981 #define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
10982 #define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
10983 #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
10984 #define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
10985 #define LAPACK_sptsvx LAPACK_GLOBAL(sptsvx,SPTSVX)
10986 #define LAPACK_dptsvx LAPACK_GLOBAL(dptsvx,DPTSVX)
10987 #define LAPACK_cptsvx LAPACK_GLOBAL(cptsvx,CPTSVX)
10988 #define LAPACK_zptsvx LAPACK_GLOBAL(zptsvx,ZPTSVX)
10989 #define LAPACK_ssysv LAPACK_GLOBAL(ssysv,SSYSV)
10990 #define LAPACK_dsysv LAPACK_GLOBAL(dsysv,DSYSV)
10991 #define LAPACK_csysv LAPACK_GLOBAL(csysv,CSYSV)
10992 #define LAPACK_zsysv LAPACK_GLOBAL(zsysv,ZSYSV)
10993 #define LAPACK_ssysvx LAPACK_GLOBAL(ssysvx,SSYSVX)
10994 #define LAPACK_dsysvx LAPACK_GLOBAL(dsysvx,DSYSVX)
10995 #define LAPACK_csysvx LAPACK_GLOBAL(csysvx,CSYSVX)
10996 #define LAPACK_zsysvx LAPACK_GLOBAL(zsysvx,ZSYSVX)
10997 #define LAPACK_dsysvxx LAPACK_GLOBAL(dsysvxx,DSYSVXX)
10998 #define LAPACK_ssysvxx LAPACK_GLOBAL(ssysvxx,SSYSVXX)
10999 #define LAPACK_zsysvxx LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
11000 #define LAPACK_csysvxx LAPACK_GLOBAL(csysvxx,CSYSVXX)
11001 #define LAPACK_chesv LAPACK_GLOBAL(chesv,CHESV)
11002 #define LAPACK_zhesv LAPACK_GLOBAL(zhesv,ZHESV)
11003 #define LAPACK_chesvx LAPACK_GLOBAL(chesvx,CHESVX)
11004 #define LAPACK_zhesvx LAPACK_GLOBAL(zhesvx,ZHESVX)
11005 #define LAPACK_zhesvxx LAPACK_GLOBAL(zhesvxx,ZHESVXX)
11006 #define LAPACK_chesvxx LAPACK_GLOBAL(chesvxx,CHESVXX)
11007 #define LAPACK_sspsv LAPACK_GLOBAL(sspsv,SSPSV)
11008 #define LAPACK_dspsv LAPACK_GLOBAL(dspsv,DSPSV)
11009 #define LAPACK_cspsv LAPACK_GLOBAL(cspsv,CSPSV)
11010 #define LAPACK_zspsv LAPACK_GLOBAL(zspsv,ZSPSV)
11011 #define LAPACK_sspsvx LAPACK_GLOBAL(sspsvx,SSPSVX)
11012 #define LAPACK_dspsvx LAPACK_GLOBAL(dspsvx,DSPSVX)
11013 #define LAPACK_cspsvx LAPACK_GLOBAL(cspsvx,CSPSVX)
11014 #define LAPACK_zspsvx LAPACK_GLOBAL(zspsvx,ZSPSVX)
11015 #define LAPACK_chpsv LAPACK_GLOBAL(chpsv,CHPSV)
11016 #define LAPACK_zhpsv LAPACK_GLOBAL(zhpsv,ZHPSV)
11017 #define LAPACK_chpsvx LAPACK_GLOBAL(chpsvx,CHPSVX)
11018 #define LAPACK_zhpsvx LAPACK_GLOBAL(zhpsvx,ZHPSVX)
11019 #define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
11020 #define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
11021 #define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
11022 #define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
11023 #define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
11024 #define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
11025 #define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
11026 #define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
11027 #define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
11028 #define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
11029 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
11030 #define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
11031 #define LAPACK_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
11032 #define LAPACK_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
11033 #define LAPACK_sormqr LAPACK_GLOBAL(sormqr,SORMQR)
11034 #define LAPACK_dormqr LAPACK_GLOBAL(dormqr,DORMQR)
11035 #define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
11036 #define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
11037 #define LAPACK_cunmqr LAPACK_GLOBAL(cunmqr,CUNMQR)
11038 #define LAPACK_zunmqr LAPACK_GLOBAL(zunmqr,ZUNMQR)
11039 #define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
11040 #define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
11041 #define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
11042 #define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
11043 #define LAPACK_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
11044 #define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
11045 #define LAPACK_sormlq LAPACK_GLOBAL(sormlq,SORMLQ)
11046 #define LAPACK_dormlq LAPACK_GLOBAL(dormlq,DORMLQ)
11047 #define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
11048 #define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
11049 #define LAPACK_cunmlq LAPACK_GLOBAL(cunmlq,CUNMLQ)
11050 #define LAPACK_zunmlq LAPACK_GLOBAL(zunmlq,ZUNMLQ)
11051 #define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
11052 #define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
11053 #define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
11054 #define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
11055 #define LAPACK_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
11056 #define LAPACK_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
11057 #define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
11058 #define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
11059 #define LAPACK_sormql LAPACK_GLOBAL(sormql,SORMQL)
11060 #define LAPACK_dormql LAPACK_GLOBAL(dormql,DORMQL)
11061 #define LAPACK_cunmql LAPACK_GLOBAL(cunmql,CUNMQL)
11062 #define LAPACK_zunmql LAPACK_GLOBAL(zunmql,ZUNMQL)
11063 #define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
11064 #define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
11065 #define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
11066 #define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
11067 #define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11068 #define LAPACK_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11069 #define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
11070 #define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
11071 #define LAPACK_sormrq LAPACK_GLOBAL(sormrq,SORMRQ)
11072 #define LAPACK_dormrq LAPACK_GLOBAL(dormrq,DORMRQ)
11073 #define LAPACK_cunmrq LAPACK_GLOBAL(cunmrq,CUNMRQ)
11074 #define LAPACK_zunmrq LAPACK_GLOBAL(zunmrq,ZUNMRQ)
11075 #define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
11076 #define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
11077 #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
11078 #define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
11079 #define LAPACK_sormrz LAPACK_GLOBAL(sormrz,SORMRZ)
11080 #define LAPACK_dormrz LAPACK_GLOBAL(dormrz,DORMRZ)
11081 #define LAPACK_cunmrz LAPACK_GLOBAL(cunmrz,CUNMRZ)
11082 #define LAPACK_zunmrz LAPACK_GLOBAL(zunmrz,ZUNMRZ)
11083 #define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
11084 #define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
11085 #define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
11086 #define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
11087 #define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
11088 #define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
11089 #define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
11090 #define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
11091 #define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
11092 #define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
11093 #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
11094 #define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
11095 #define LAPACK_sgbbrd LAPACK_GLOBAL(sgbbrd,SGBBRD)
11096 #define LAPACK_dgbbrd LAPACK_GLOBAL(dgbbrd,DGBBRD)
11097 #define LAPACK_cgbbrd LAPACK_GLOBAL(cgbbrd,CGBBRD)
11098 #define LAPACK_zgbbrd LAPACK_GLOBAL(zgbbrd,ZGBBRD)
11099 #define LAPACK_sorgbr LAPACK_GLOBAL(sorgbr,SORGBR)
11100 #define LAPACK_dorgbr LAPACK_GLOBAL(dorgbr,DORGBR)
11101 #define LAPACK_sormbr LAPACK_GLOBAL(sormbr,SORMBR)
11102 #define LAPACK_dormbr LAPACK_GLOBAL(dormbr,DORMBR)
11103 #define LAPACK_cungbr LAPACK_GLOBAL(cungbr,CUNGBR)
11104 #define LAPACK_zungbr LAPACK_GLOBAL(zungbr,ZUNGBR)
11105 #define LAPACK_cunmbr LAPACK_GLOBAL(cunmbr,CUNMBR)
11106 #define LAPACK_zunmbr LAPACK_GLOBAL(zunmbr,ZUNMBR)
11107 #define LAPACK_sbdsqr LAPACK_GLOBAL(sbdsqr,SBDSQR)
11108 #define LAPACK_dbdsqr LAPACK_GLOBAL(dbdsqr,DBDSQR)
11109 #define LAPACK_cbdsqr LAPACK_GLOBAL(cbdsqr,CBDSQR)
11110 #define LAPACK_zbdsqr LAPACK_GLOBAL(zbdsqr,ZBDSQR)
11111 #define LAPACK_sbdsdc LAPACK_GLOBAL(sbdsdc,SBDSDC)
11112 #define LAPACK_dbdsdc LAPACK_GLOBAL(dbdsdc,DBDSDC)
11113 #define LAPACK_ssytrd LAPACK_GLOBAL(ssytrd,SSYTRD)
11114 #define LAPACK_dsytrd LAPACK_GLOBAL(dsytrd,DSYTRD)
11115 #define LAPACK_sorgtr LAPACK_GLOBAL(sorgtr,SORGTR)
11116 #define LAPACK_dorgtr LAPACK_GLOBAL(dorgtr,DORGTR)
11117 #define LAPACK_sormtr LAPACK_GLOBAL(sormtr,SORMTR)
11118 #define LAPACK_dormtr LAPACK_GLOBAL(dormtr,DORMTR)
11119 #define LAPACK_chetrd LAPACK_GLOBAL(chetrd,CHETRD)
11120 #define LAPACK_zhetrd LAPACK_GLOBAL(zhetrd,ZHETRD)
11121 #define LAPACK_cungtr LAPACK_GLOBAL(cungtr,CUNGTR)
11122 #define LAPACK_zungtr LAPACK_GLOBAL(zungtr,ZUNGTR)
11123 #define LAPACK_cunmtr LAPACK_GLOBAL(cunmtr,CUNMTR)
11124 #define LAPACK_zunmtr LAPACK_GLOBAL(zunmtr,ZUNMTR)
11125 #define LAPACK_ssptrd LAPACK_GLOBAL(ssptrd,SSPTRD)
11126 #define LAPACK_dsptrd LAPACK_GLOBAL(dsptrd,DSPTRD)
11127 #define LAPACK_sopgtr LAPACK_GLOBAL(sopgtr,SOPGTR)
11128 #define LAPACK_dopgtr LAPACK_GLOBAL(dopgtr,DOPGTR)
11129 #define LAPACK_sopmtr LAPACK_GLOBAL(sopmtr,SOPMTR)
11130 #define LAPACK_dopmtr LAPACK_GLOBAL(dopmtr,DOPMTR)
11131 #define LAPACK_chptrd LAPACK_GLOBAL(chptrd,CHPTRD)
11132 #define LAPACK_zhptrd LAPACK_GLOBAL(zhptrd,ZHPTRD)
11133 #define LAPACK_cupgtr LAPACK_GLOBAL(cupgtr,CUPGTR)
11134 #define LAPACK_zupgtr LAPACK_GLOBAL(zupgtr,ZUPGTR)
11135 #define LAPACK_cupmtr LAPACK_GLOBAL(cupmtr,CUPMTR)
11136 #define LAPACK_zupmtr LAPACK_GLOBAL(zupmtr,ZUPMTR)
11137 #define LAPACK_ssbtrd LAPACK_GLOBAL(ssbtrd,SSBTRD)
11138 #define LAPACK_dsbtrd LAPACK_GLOBAL(dsbtrd,DSBTRD)
11139 #define LAPACK_chbtrd LAPACK_GLOBAL(chbtrd,CHBTRD)
11140 #define LAPACK_zhbtrd LAPACK_GLOBAL(zhbtrd,ZHBTRD)
11141 #define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
11142 #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
11143 #define LAPACK_ssteqr LAPACK_GLOBAL(ssteqr,SSTEQR)
11144 #define LAPACK_dsteqr LAPACK_GLOBAL(dsteqr,DSTEQR)
11145 #define LAPACK_csteqr LAPACK_GLOBAL(csteqr,CSTEQR)
11146 #define LAPACK_zsteqr LAPACK_GLOBAL(zsteqr,ZSTEQR)
11147 #define LAPACK_sstemr LAPACK_GLOBAL(sstemr,SSTEMR)
11148 #define LAPACK_dstemr LAPACK_GLOBAL(dstemr,DSTEMR)
11149 #define LAPACK_cstemr LAPACK_GLOBAL(cstemr,CSTEMR)
11150 #define LAPACK_zstemr LAPACK_GLOBAL(zstemr,ZSTEMR)
11151 #define LAPACK_sstedc LAPACK_GLOBAL(sstedc,SSTEDC)
11152 #define LAPACK_dstedc LAPACK_GLOBAL(dstedc,DSTEDC)
11153 #define LAPACK_cstedc LAPACK_GLOBAL(cstedc,CSTEDC)
11154 #define LAPACK_zstedc LAPACK_GLOBAL(zstedc,ZSTEDC)
11155 #define LAPACK_sstegr LAPACK_GLOBAL(sstegr,SSTEGR)
11156 #define LAPACK_dstegr LAPACK_GLOBAL(dstegr,DSTEGR)
11157 #define LAPACK_cstegr LAPACK_GLOBAL(cstegr,CSTEGR)
11158 #define LAPACK_zstegr LAPACK_GLOBAL(zstegr,ZSTEGR)
11159 #define LAPACK_spteqr LAPACK_GLOBAL(spteqr,SPTEQR)
11160 #define LAPACK_dpteqr LAPACK_GLOBAL(dpteqr,DPTEQR)
11161 #define LAPACK_cpteqr LAPACK_GLOBAL(cpteqr,CPTEQR)
11162 #define LAPACK_zpteqr LAPACK_GLOBAL(zpteqr,ZPTEQR)
11163 #define LAPACK_sstebz LAPACK_GLOBAL(sstebz,SSTEBZ)
11164 #define LAPACK_dstebz LAPACK_GLOBAL(dstebz,DSTEBZ)
11165 #define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
11166 #define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
11167 #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
11168 #define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
11169 #define LAPACK_sdisna LAPACK_GLOBAL(sdisna,SDISNA)
11170 #define LAPACK_ddisna LAPACK_GLOBAL(ddisna,DDISNA)
11171 #define LAPACK_ssygst LAPACK_GLOBAL(ssygst,SSYGST)
11172 #define LAPACK_dsygst LAPACK_GLOBAL(dsygst,DSYGST)
11173 #define LAPACK_chegst LAPACK_GLOBAL(chegst,CHEGST)
11174 #define LAPACK_zhegst LAPACK_GLOBAL(zhegst,ZHEGST)
11175 #define LAPACK_sspgst LAPACK_GLOBAL(sspgst,SSPGST)
11176 #define LAPACK_dspgst LAPACK_GLOBAL(dspgst,DSPGST)
11177 #define LAPACK_chpgst LAPACK_GLOBAL(chpgst,CHPGST)
11178 #define LAPACK_zhpgst LAPACK_GLOBAL(zhpgst,ZHPGST)
11179 #define LAPACK_ssbgst LAPACK_GLOBAL(ssbgst,SSBGST)
11180 #define LAPACK_dsbgst LAPACK_GLOBAL(dsbgst,DSBGST)
11181 #define LAPACK_chbgst LAPACK_GLOBAL(chbgst,CHBGST)
11182 #define LAPACK_zhbgst LAPACK_GLOBAL(zhbgst,ZHBGST)
11183 #define LAPACK_spbstf LAPACK_GLOBAL(spbstf,SPBSTF)
11184 #define LAPACK_dpbstf LAPACK_GLOBAL(dpbstf,DPBSTF)
11185 #define LAPACK_cpbstf LAPACK_GLOBAL(cpbstf,CPBSTF)
11186 #define LAPACK_zpbstf LAPACK_GLOBAL(zpbstf,ZPBSTF)
11187 #define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
11188 #define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
11189 #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
11190 #define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
11191 #define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11192 #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11193 #define LAPACK_sormhr LAPACK_GLOBAL(sormhr,SORMHR)
11194 #define LAPACK_dormhr LAPACK_GLOBAL(dormhr,DORMHR)
11195 #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
11196 #define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
11197 #define LAPACK_cunmhr LAPACK_GLOBAL(cunmhr,CUNMHR)
11198 #define LAPACK_zunmhr LAPACK_GLOBAL(zunmhr,ZUNMHR)
11199 #define LAPACK_sgebal LAPACK_GLOBAL(sgebal,SGEBAL)
11200 #define LAPACK_dgebal LAPACK_GLOBAL(dgebal,DGEBAL)
11201 #define LAPACK_cgebal LAPACK_GLOBAL(cgebal,CGEBAL)
11202 #define LAPACK_zgebal LAPACK_GLOBAL(zgebal,ZGEBAL)
11203 #define LAPACK_sgebak LAPACK_GLOBAL(sgebak,SGEBAK)
11204 #define LAPACK_dgebak LAPACK_GLOBAL(dgebak,DGEBAK)
11205 #define LAPACK_cgebak LAPACK_GLOBAL(cgebak,CGEBAK)
11206 #define LAPACK_zgebak LAPACK_GLOBAL(zgebak,ZGEBAK)
11207 #define LAPACK_shseqr LAPACK_GLOBAL(shseqr,SHSEQR)
11208 #define LAPACK_dhseqr LAPACK_GLOBAL(dhseqr,DHSEQR)
11209 #define LAPACK_chseqr LAPACK_GLOBAL(chseqr,CHSEQR)
11210 #define LAPACK_zhseqr LAPACK_GLOBAL(zhseqr,ZHSEQR)
11211 #define LAPACK_shsein LAPACK_GLOBAL(shsein,SHSEIN)
11212 #define LAPACK_dhsein LAPACK_GLOBAL(dhsein,DHSEIN)
11213 #define LAPACK_chsein LAPACK_GLOBAL(chsein,CHSEIN)
11214 #define LAPACK_zhsein LAPACK_GLOBAL(zhsein,ZHSEIN)
11215 #define LAPACK_strevc LAPACK_GLOBAL(strevc,STREVC)
11216 #define LAPACK_dtrevc LAPACK_GLOBAL(dtrevc,DTREVC)
11217 #define LAPACK_ctrevc LAPACK_GLOBAL(ctrevc,CTREVC)
11218 #define LAPACK_ztrevc LAPACK_GLOBAL(ztrevc,ZTREVC)
11219 #define LAPACK_strsna LAPACK_GLOBAL(strsna,STRSNA)
11220 #define LAPACK_dtrsna LAPACK_GLOBAL(dtrsna,DTRSNA)
11221 #define LAPACK_ctrsna LAPACK_GLOBAL(ctrsna,CTRSNA)
11222 #define LAPACK_ztrsna LAPACK_GLOBAL(ztrsna,ZTRSNA)
11223 #define LAPACK_strexc LAPACK_GLOBAL(strexc,STREXC)
11224 #define LAPACK_dtrexc LAPACK_GLOBAL(dtrexc,DTREXC)
11225 #define LAPACK_ctrexc LAPACK_GLOBAL(ctrexc,CTREXC)
11226 #define LAPACK_ztrexc LAPACK_GLOBAL(ztrexc,ZTREXC)
11227 #define LAPACK_strsen LAPACK_GLOBAL(strsen,STRSEN)
11228 #define LAPACK_dtrsen LAPACK_GLOBAL(dtrsen,DTRSEN)
11229 #define LAPACK_ctrsen LAPACK_GLOBAL(ctrsen,CTRSEN)
11230 #define LAPACK_ztrsen LAPACK_GLOBAL(ztrsen,ZTRSEN)
11231 #define LAPACK_strsyl LAPACK_GLOBAL(strsyl,STRSYL)
11232 #define LAPACK_dtrsyl LAPACK_GLOBAL(dtrsyl,DTRSYL)
11233 #define LAPACK_ctrsyl LAPACK_GLOBAL(ctrsyl,CTRSYL)
11234 #define LAPACK_ztrsyl LAPACK_GLOBAL(ztrsyl,ZTRSYL)
11235 #define LAPACK_sgghrd LAPACK_GLOBAL(sgghrd,SGGHRD)
11236 #define LAPACK_dgghrd LAPACK_GLOBAL(dgghrd,DGGHRD)
11237 #define LAPACK_cgghrd LAPACK_GLOBAL(cgghrd,CGGHRD)
11238 #define LAPACK_zgghrd LAPACK_GLOBAL(zgghrd,ZGGHRD)
11239 #define LAPACK_sggbal LAPACK_GLOBAL(sggbal,SGGBAL)
11240 #define LAPACK_dggbal LAPACK_GLOBAL(dggbal,DGGBAL)
11241 #define LAPACK_cggbal LAPACK_GLOBAL(cggbal,CGGBAL)
11242 #define LAPACK_zggbal LAPACK_GLOBAL(zggbal,ZGGBAL)
11243 #define LAPACK_sggbak LAPACK_GLOBAL(sggbak,SGGBAK)
11244 #define LAPACK_dggbak LAPACK_GLOBAL(dggbak,DGGBAK)
11245 #define LAPACK_cggbak LAPACK_GLOBAL(cggbak,CGGBAK)
11246 #define LAPACK_zggbak LAPACK_GLOBAL(zggbak,ZGGBAK)
11247 #define LAPACK_shgeqz LAPACK_GLOBAL(shgeqz,SHGEQZ)
11248 #define LAPACK_dhgeqz LAPACK_GLOBAL(dhgeqz,DHGEQZ)
11249 #define LAPACK_chgeqz LAPACK_GLOBAL(chgeqz,CHGEQZ)
11250 #define LAPACK_zhgeqz LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
11251 #define LAPACK_stgevc LAPACK_GLOBAL(stgevc,STGEVC)
11252 #define LAPACK_dtgevc LAPACK_GLOBAL(dtgevc,DTGEVC)
11253 #define LAPACK_ctgevc LAPACK_GLOBAL(ctgevc,CTGEVC)
11254 #define LAPACK_ztgevc LAPACK_GLOBAL(ztgevc,ZTGEVC)
11255 #define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
11256 #define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
11257 #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
11258 #define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
11259 #define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
11260 #define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
11261 #define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
11262 #define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
11263 #define LAPACK_stgsyl LAPACK_GLOBAL(stgsyl,STGSYL)
11264 #define LAPACK_dtgsyl LAPACK_GLOBAL(dtgsyl,DTGSYL)
11265 #define LAPACK_ctgsyl LAPACK_GLOBAL(ctgsyl,CTGSYL)
11266 #define LAPACK_ztgsyl LAPACK_GLOBAL(ztgsyl,ZTGSYL)
11267 #define LAPACK_stgsna LAPACK_GLOBAL(stgsna,STGSNA)
11268 #define LAPACK_dtgsna LAPACK_GLOBAL(dtgsna,DTGSNA)
11269 #define LAPACK_ctgsna LAPACK_GLOBAL(ctgsna,CTGSNA)
11270 #define LAPACK_ztgsna LAPACK_GLOBAL(ztgsna,ZTGSNA)
11271 #define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP)
11272 #define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP)
11273 #define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP)
11274 #define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP)
11275 #define LAPACK_stgsja LAPACK_GLOBAL(stgsja,STGSJA)
11276 #define LAPACK_dtgsja LAPACK_GLOBAL(dtgsja,DTGSJA)
11277 #define LAPACK_ctgsja LAPACK_GLOBAL(ctgsja,CTGSJA)
11278 #define LAPACK_ztgsja LAPACK_GLOBAL(ztgsja,ZTGSJA)
11279 #define LAPACK_sgels LAPACK_GLOBAL(sgels,SGELS)
11280 #define LAPACK_dgels LAPACK_GLOBAL(dgels,DGELS)
11281 #define LAPACK_cgels LAPACK_GLOBAL(cgels,CGELS)
11282 #define LAPACK_zgels LAPACK_GLOBAL(zgels,ZGELS)
11283 #define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
11284 #define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
11285 #define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
11286 #define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
11287 #define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
11288 #define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
11289 #define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
11290 #define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
11291 #define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
11292 #define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
11293 #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
11294 #define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
11295 #define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
11296 #define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
11297 #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
11298 #define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
11299 #define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
11300 #define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
11301 #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
11302 #define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
11303 #define LAPACK_ssyev LAPACK_GLOBAL(ssyev,SSYEV)
11304 #define LAPACK_dsyev LAPACK_GLOBAL(dsyev,DSYEV)
11305 #define LAPACK_cheev LAPACK_GLOBAL(cheev,CHEEV)
11306 #define LAPACK_zheev LAPACK_GLOBAL(zheev,ZHEEV)
11307 #define LAPACK_ssyevd LAPACK_GLOBAL(ssyevd,SSYEVD)
11308 #define LAPACK_dsyevd LAPACK_GLOBAL(dsyevd,DSYEVD)
11309 #define LAPACK_cheevd LAPACK_GLOBAL(cheevd,CHEEVD)
11310 #define LAPACK_zheevd LAPACK_GLOBAL(zheevd,ZHEEVD)
11311 #define LAPACK_ssyevx LAPACK_GLOBAL(ssyevx,SSYEVX)
11312 #define LAPACK_dsyevx LAPACK_GLOBAL(dsyevx,DSYEVX)
11313 #define LAPACK_cheevx LAPACK_GLOBAL(cheevx,CHEEVX)
11314 #define LAPACK_zheevx LAPACK_GLOBAL(zheevx,ZHEEVX)
11315 #define LAPACK_ssyevr LAPACK_GLOBAL(ssyevr,SSYEVR)
11316 #define LAPACK_dsyevr LAPACK_GLOBAL(dsyevr,DSYEVR)
11317 #define LAPACK_cheevr LAPACK_GLOBAL(cheevr,CHEEVR)
11318 #define LAPACK_zheevr LAPACK_GLOBAL(zheevr,ZHEEVR)
11319 #define LAPACK_sspev LAPACK_GLOBAL(sspev,SSPEV)
11320 #define LAPACK_dspev LAPACK_GLOBAL(dspev,DSPEV)
11321 #define LAPACK_chpev LAPACK_GLOBAL(chpev,CHPEV)
11322 #define LAPACK_zhpev LAPACK_GLOBAL(zhpev,ZHPEV)
11323 #define LAPACK_sspevd LAPACK_GLOBAL(sspevd,SSPEVD)
11324 #define LAPACK_dspevd LAPACK_GLOBAL(dspevd,DSPEVD)
11325 #define LAPACK_chpevd LAPACK_GLOBAL(chpevd,CHPEVD)
11326 #define LAPACK_zhpevd LAPACK_GLOBAL(zhpevd,ZHPEVD)
11327 #define LAPACK_sspevx LAPACK_GLOBAL(sspevx,SSPEVX)
11328 #define LAPACK_dspevx LAPACK_GLOBAL(dspevx,DSPEVX)
11329 #define LAPACK_chpevx LAPACK_GLOBAL(chpevx,CHPEVX)
11330 #define LAPACK_zhpevx LAPACK_GLOBAL(zhpevx,ZHPEVX)
11331 #define LAPACK_ssbev LAPACK_GLOBAL(ssbev,SSBEV)
11332 #define LAPACK_dsbev LAPACK_GLOBAL(dsbev,DSBEV)
11333 #define LAPACK_chbev LAPACK_GLOBAL(chbev,CHBEV)
11334 #define LAPACK_zhbev LAPACK_GLOBAL(zhbev,ZHBEV)
11335 #define LAPACK_ssbevd LAPACK_GLOBAL(ssbevd,SSBEVD)
11336 #define LAPACK_dsbevd LAPACK_GLOBAL(dsbevd,DSBEVD)
11337 #define LAPACK_chbevd LAPACK_GLOBAL(chbevd,CHBEVD)
11338 #define LAPACK_zhbevd LAPACK_GLOBAL(zhbevd,ZHBEVD)
11339 #define LAPACK_ssbevx LAPACK_GLOBAL(ssbevx,SSBEVX)
11340 #define LAPACK_dsbevx LAPACK_GLOBAL(dsbevx,DSBEVX)
11341 #define LAPACK_chbevx LAPACK_GLOBAL(chbevx,CHBEVX)
11342 #define LAPACK_zhbevx LAPACK_GLOBAL(zhbevx,ZHBEVX)
11343 #define LAPACK_sstev LAPACK_GLOBAL(sstev,SSTEV)
11344 #define LAPACK_dstev LAPACK_GLOBAL(dstev,DSTEV)
11345 #define LAPACK_sstevd LAPACK_GLOBAL(sstevd,SSTEVD)
11346 #define LAPACK_dstevd LAPACK_GLOBAL(dstevd,DSTEVD)
11347 #define LAPACK_sstevx LAPACK_GLOBAL(sstevx,SSTEVX)
11348 #define LAPACK_dstevx LAPACK_GLOBAL(dstevx,DSTEVX)
11349 #define LAPACK_sstevr LAPACK_GLOBAL(sstevr,SSTEVR)
11350 #define LAPACK_dstevr LAPACK_GLOBAL(dstevr,DSTEVR)
11351 #define LAPACK_sgees LAPACK_GLOBAL(sgees,SGEES)
11352 #define LAPACK_dgees LAPACK_GLOBAL(dgees,DGEES)
11353 #define LAPACK_cgees LAPACK_GLOBAL(cgees,CGEES)
11354 #define LAPACK_zgees LAPACK_GLOBAL(zgees,ZGEES)
11355 #define LAPACK_sgeesx LAPACK_GLOBAL(sgeesx,SGEESX)
11356 #define LAPACK_dgeesx LAPACK_GLOBAL(dgeesx,DGEESX)
11357 #define LAPACK_cgeesx LAPACK_GLOBAL(cgeesx,CGEESX)
11358 #define LAPACK_zgeesx LAPACK_GLOBAL(zgeesx,ZGEESX)
11359 #define LAPACK_sgeev LAPACK_GLOBAL(sgeev,SGEEV)
11360 #define LAPACK_dgeev LAPACK_GLOBAL(dgeev,DGEEV)
11361 #define LAPACK_cgeev LAPACK_GLOBAL(cgeev,CGEEV)
11362 #define LAPACK_zgeev LAPACK_GLOBAL(zgeev,ZGEEV)
11363 #define LAPACK_sgeevx LAPACK_GLOBAL(sgeevx,SGEEVX)
11364 #define LAPACK_dgeevx LAPACK_GLOBAL(dgeevx,DGEEVX)
11365 #define LAPACK_cgeevx LAPACK_GLOBAL(cgeevx,CGEEVX)
11366 #define LAPACK_zgeevx LAPACK_GLOBAL(zgeevx,ZGEEVX)
11367 #define LAPACK_sgesvd LAPACK_GLOBAL(sgesvd,SGESVD)
11368 #define LAPACK_dgesvd LAPACK_GLOBAL(dgesvd,DGESVD)
11369 #define LAPACK_cgesvd LAPACK_GLOBAL(cgesvd,CGESVD)
11370 #define LAPACK_zgesvd LAPACK_GLOBAL(zgesvd,ZGESVD)
11371 #define LAPACK_sgesdd LAPACK_GLOBAL(sgesdd,SGESDD)
11372 #define LAPACK_dgesdd LAPACK_GLOBAL(dgesdd,DGESDD)
11373 #define LAPACK_cgesdd LAPACK_GLOBAL(cgesdd,CGESDD)
11374 #define LAPACK_zgesdd LAPACK_GLOBAL(zgesdd,ZGESDD)
11375 #define LAPACK_dgejsv LAPACK_GLOBAL(dgejsv,DGEJSV)
11376 #define LAPACK_sgejsv LAPACK_GLOBAL(sgejsv,SGEJSV)
11377 #define LAPACK_dgesvj LAPACK_GLOBAL(dgesvj,DGESVJ)
11378 #define LAPACK_sgesvj LAPACK_GLOBAL(sgesvj,SGESVJ)
11379 #define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD)
11380 #define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD)
11381 #define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
11382 #define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
11383 #define LAPACK_ssygv LAPACK_GLOBAL(ssygv,SSYGV)
11384 #define LAPACK_dsygv LAPACK_GLOBAL(dsygv,DSYGV)
11385 #define LAPACK_chegv LAPACK_GLOBAL(chegv,CHEGV)
11386 #define LAPACK_zhegv LAPACK_GLOBAL(zhegv,ZHEGV)
11387 #define LAPACK_ssygvd LAPACK_GLOBAL(ssygvd,SSYGVD)
11388 #define LAPACK_dsygvd LAPACK_GLOBAL(dsygvd,DSYGVD)
11389 #define LAPACK_chegvd LAPACK_GLOBAL(chegvd,CHEGVD)
11390 #define LAPACK_zhegvd LAPACK_GLOBAL(zhegvd,ZHEGVD)
11391 #define LAPACK_ssygvx LAPACK_GLOBAL(ssygvx,SSYGVX)
11392 #define LAPACK_dsygvx LAPACK_GLOBAL(dsygvx,DSYGVX)
11393 #define LAPACK_chegvx LAPACK_GLOBAL(chegvx,CHEGVX)
11394 #define LAPACK_zhegvx LAPACK_GLOBAL(zhegvx,ZHEGVX)
11395 #define LAPACK_sspgv LAPACK_GLOBAL(sspgv,SSPGV)
11396 #define LAPACK_dspgv LAPACK_GLOBAL(dspgv,DSPGV)
11397 #define LAPACK_chpgv LAPACK_GLOBAL(chpgv,CHPGV)
11398 #define LAPACK_zhpgv LAPACK_GLOBAL(zhpgv,ZHPGV)
11399 #define LAPACK_sspgvd LAPACK_GLOBAL(sspgvd,SSPGVD)
11400 #define LAPACK_dspgvd LAPACK_GLOBAL(dspgvd,DSPGVD)
11401 #define LAPACK_chpgvd LAPACK_GLOBAL(chpgvd,CHPGVD)
11402 #define LAPACK_zhpgvd LAPACK_GLOBAL(zhpgvd,ZHPGVD)
11403 #define LAPACK_sspgvx LAPACK_GLOBAL(sspgvx,SSPGVX)
11404 #define LAPACK_dspgvx LAPACK_GLOBAL(dspgvx,DSPGVX)
11405 #define LAPACK_chpgvx LAPACK_GLOBAL(chpgvx,CHPGVX)
11406 #define LAPACK_zhpgvx LAPACK_GLOBAL(zhpgvx,ZHPGVX)
11407 #define LAPACK_ssbgv LAPACK_GLOBAL(ssbgv,SSBGV)
11408 #define LAPACK_dsbgv LAPACK_GLOBAL(dsbgv,DSBGV)
11409 #define LAPACK_chbgv LAPACK_GLOBAL(chbgv,CHBGV)
11410 #define LAPACK_zhbgv LAPACK_GLOBAL(zhbgv,ZHBGV)
11411 #define LAPACK_ssbgvd LAPACK_GLOBAL(ssbgvd,SSBGVD)
11412 #define LAPACK_dsbgvd LAPACK_GLOBAL(dsbgvd,DSBGVD)
11413 #define LAPACK_chbgvd LAPACK_GLOBAL(chbgvd,CHBGVD)
11414 #define LAPACK_zhbgvd LAPACK_GLOBAL(zhbgvd,ZHBGVD)
11415 #define LAPACK_ssbgvx LAPACK_GLOBAL(ssbgvx,SSBGVX)
11416 #define LAPACK_dsbgvx LAPACK_GLOBAL(dsbgvx,DSBGVX)
11417 #define LAPACK_chbgvx LAPACK_GLOBAL(chbgvx,CHBGVX)
11418 #define LAPACK_zhbgvx LAPACK_GLOBAL(zhbgvx,ZHBGVX)
11419 #define LAPACK_sgges LAPACK_GLOBAL(sgges,SGGES)
11420 #define LAPACK_dgges LAPACK_GLOBAL(dgges,DGGES)
11421 #define LAPACK_cgges LAPACK_GLOBAL(cgges,CGGES)
11422 #define LAPACK_zgges LAPACK_GLOBAL(zgges,ZGGES)
11423 #define LAPACK_sggesx LAPACK_GLOBAL(sggesx,SGGESX)
11424 #define LAPACK_dggesx LAPACK_GLOBAL(dggesx,DGGESX)
11425 #define LAPACK_cggesx LAPACK_GLOBAL(cggesx,CGGESX)
11426 #define LAPACK_zggesx LAPACK_GLOBAL(zggesx,ZGGESX)
11427 #define LAPACK_sggev LAPACK_GLOBAL(sggev,SGGEV)
11428 #define LAPACK_dggev LAPACK_GLOBAL(dggev,DGGEV)
11429 #define LAPACK_cggev LAPACK_GLOBAL(cggev,CGGEV)
11430 #define LAPACK_zggev LAPACK_GLOBAL(zggev,ZGGEV)
11431 #define LAPACK_sggevx LAPACK_GLOBAL(sggevx,SGGEVX)
11432 #define LAPACK_dggevx LAPACK_GLOBAL(dggevx,DGGEVX)
11433 #define LAPACK_cggevx LAPACK_GLOBAL(cggevx,CGGEVX)
11434 #define LAPACK_zggevx LAPACK_GLOBAL(zggevx,ZGGEVX)
11435 #define LAPACK_dsfrk LAPACK_GLOBAL(dsfrk,DSFRK)
11436 #define LAPACK_ssfrk LAPACK_GLOBAL(ssfrk,SSFRK)
11437 #define LAPACK_zhfrk LAPACK_GLOBAL(zhfrk,ZHFRK)
11438 #define LAPACK_chfrk LAPACK_GLOBAL(chfrk,CHFRK)
11439 #define LAPACK_dtfsm LAPACK_GLOBAL(dtfsm,DTFSM)
11440 #define LAPACK_stfsm LAPACK_GLOBAL(stfsm,STFSM)
11441 #define LAPACK_ztfsm LAPACK_GLOBAL(ztfsm,ZTFSM)
11442 #define LAPACK_ctfsm LAPACK_GLOBAL(ctfsm,CTFSM)
11443 #define LAPACK_dtfttp LAPACK_GLOBAL(dtfttp,DTFTTP)
11444 #define LAPACK_stfttp LAPACK_GLOBAL(stfttp,STFTTP)
11445 #define LAPACK_ztfttp LAPACK_GLOBAL(ztfttp,ZTFTTP)
11446 #define LAPACK_ctfttp LAPACK_GLOBAL(ctfttp,CTFTTP)
11447 #define LAPACK_dtfttr LAPACK_GLOBAL(dtfttr,DTFTTR)
11448 #define LAPACK_stfttr LAPACK_GLOBAL(stfttr,STFTTR)
11449 #define LAPACK_ztfttr LAPACK_GLOBAL(ztfttr,ZTFTTR)
11450 #define LAPACK_ctfttr LAPACK_GLOBAL(ctfttr,CTFTTR)
11451 #define LAPACK_dtpttf LAPACK_GLOBAL(dtpttf,DTPTTF)
11452 #define LAPACK_stpttf LAPACK_GLOBAL(stpttf,STPTTF)
11453 #define LAPACK_ztpttf LAPACK_GLOBAL(ztpttf,ZTPTTF)
11454 #define LAPACK_ctpttf LAPACK_GLOBAL(ctpttf,CTPTTF)
11455 #define LAPACK_dtpttr LAPACK_GLOBAL(dtpttr,DTPTTR)
11456 #define LAPACK_stpttr LAPACK_GLOBAL(stpttr,STPTTR)
11457 #define LAPACK_ztpttr LAPACK_GLOBAL(ztpttr,ZTPTTR)
11458 #define LAPACK_ctpttr LAPACK_GLOBAL(ctpttr,CTPTTR)
11459 #define LAPACK_dtrttf LAPACK_GLOBAL(dtrttf,DTRTTF)
11460 #define LAPACK_strttf LAPACK_GLOBAL(strttf,STRTTF)
11461 #define LAPACK_ztrttf LAPACK_GLOBAL(ztrttf,ZTRTTF)
11462 #define LAPACK_ctrttf LAPACK_GLOBAL(ctrttf,CTRTTF)
11463 #define LAPACK_dtrttp LAPACK_GLOBAL(dtrttp,DTRTTP)
11464 #define LAPACK_strttp LAPACK_GLOBAL(strttp,STRTTP)
11465 #define LAPACK_ztrttp LAPACK_GLOBAL(ztrttp,ZTRTTP)
11466 #define LAPACK_ctrttp LAPACK_GLOBAL(ctrttp,CTRTTP)
11467 #define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
11468 #define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
11469 #define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
11470 #define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
11471 #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
11472 #define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
11473 #define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
11474 #define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
11475 #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
11476 #define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
11477 #define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
11478 #define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
11479 #define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
11480 #define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
11481 #define LAPACK_slacpy LAPACK_GLOBAL(slacpy,SLACPY)
11482 #define LAPACK_dlacpy LAPACK_GLOBAL(dlacpy,DLACPY)
11483 #define LAPACK_clacpy LAPACK_GLOBAL(clacpy,CLACPY)
11484 #define LAPACK_zlacpy LAPACK_GLOBAL(zlacpy,ZLACPY)
11485 #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
11486 #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
11487 #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
11488 #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
11489 #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
11490 #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
11491 #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
11492 #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
11493 #define LAPACK_slange LAPACK_GLOBAL(slange,SLANGE)
11494 #define LAPACK_dlange LAPACK_GLOBAL(dlange,DLANGE)
11495 #define LAPACK_clange LAPACK_GLOBAL(clange,CLANGE)
11496 #define LAPACK_zlange LAPACK_GLOBAL(zlange,ZLANGE)
11497 #define LAPACK_clanhe LAPACK_GLOBAL(clanhe,CLANHE)
11498 #define LAPACK_zlanhe LAPACK_GLOBAL(zlanhe,ZLANHE)
11499 #define LAPACK_slansy LAPACK_GLOBAL(slansy,SLANSY)
11500 #define LAPACK_dlansy LAPACK_GLOBAL(dlansy,DLANSY)
11501 #define LAPACK_clansy LAPACK_GLOBAL(clansy,CLANSY)
11502 #define LAPACK_zlansy LAPACK_GLOBAL(zlansy,ZLANSY)
11503 #define LAPACK_slantr LAPACK_GLOBAL(slantr,SLANTR)
11504 #define LAPACK_dlantr LAPACK_GLOBAL(dlantr,DLANTR)
11505 #define LAPACK_clantr LAPACK_GLOBAL(clantr,CLANTR)
11506 #define LAPACK_zlantr LAPACK_GLOBAL(zlantr,ZLANTR)
11507 #define LAPACK_slamch LAPACK_GLOBAL(slamch,SLAMCH)
11508 #define LAPACK_dlamch LAPACK_GLOBAL(dlamch,DLAMCH)
11509 #define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
11510 #define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
11511 #define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
11512 #define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
11513 #define LAPACK_slarfb LAPACK_GLOBAL(slarfb,SLARFB)
11514 #define LAPACK_dlarfb LAPACK_GLOBAL(dlarfb,DLARFB)
11515 #define LAPACK_clarfb LAPACK_GLOBAL(clarfb,CLARFB)
11516 #define LAPACK_zlarfb LAPACK_GLOBAL(zlarfb,ZLARFB)
11517 #define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
11518 #define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
11519 #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
11520 #define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
11521 #define LAPACK_slarft LAPACK_GLOBAL(slarft,SLARFT)
11522 #define LAPACK_dlarft LAPACK_GLOBAL(dlarft,DLARFT)
11523 #define LAPACK_clarft LAPACK_GLOBAL(clarft,CLARFT)
11524 #define LAPACK_zlarft LAPACK_GLOBAL(zlarft,ZLARFT)
11525 #define LAPACK_slarfx LAPACK_GLOBAL(slarfx,SLARFX)
11526 #define LAPACK_dlarfx LAPACK_GLOBAL(dlarfx,DLARFX)
11527 #define LAPACK_clarfx LAPACK_GLOBAL(clarfx,CLARFX)
11528 #define LAPACK_zlarfx LAPACK_GLOBAL(zlarfx,ZLARFX)
11529 #define LAPACK_slatms LAPACK_GLOBAL(slatms,SLATMS)
11530 #define LAPACK_dlatms LAPACK_GLOBAL(dlatms,DLATMS)
11531 #define LAPACK_clatms LAPACK_GLOBAL(clatms,CLATMS)
11532 #define LAPACK_zlatms LAPACK_GLOBAL(zlatms,ZLATMS)
11533 #define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
11534 #define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
11535 #define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
11536 #define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
11537 #define LAPACK_slauum LAPACK_GLOBAL(slauum,SLAUUM)
11538 #define LAPACK_dlauum LAPACK_GLOBAL(dlauum,DLAUUM)
11539 #define LAPACK_clauum LAPACK_GLOBAL(clauum,CLAUUM)
11540 #define LAPACK_zlauum LAPACK_GLOBAL(zlauum,ZLAUUM)
11541 #define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
11542 #define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
11543 #define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
11544 #define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
11545 #define LAPACK_slaset LAPACK_GLOBAL(slaset,SLASET)
11546 #define LAPACK_dlaset LAPACK_GLOBAL(dlaset,DLASET)
11547 #define LAPACK_claset LAPACK_GLOBAL(claset,CLASET)
11548 #define LAPACK_zlaset LAPACK_GLOBAL(zlaset,ZLASET)
11549 #define LAPACK_slasrt LAPACK_GLOBAL(slasrt,SLASRT)
11550 #define LAPACK_dlasrt LAPACK_GLOBAL(dlasrt,DLASRT)
11551 #define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
11552 #define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
11553 #define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
11554 #define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
11555 #define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE)
11556 #define LAPACK_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
11557 #define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
11558 #define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
11559 #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
11560 #define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
11561 #define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
11562 #define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
11563 #define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
11564 #define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
11565 #define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
11566 #define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
11567 #define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
11568 #define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
11569 // LAPACK 3.3.0
11570 #define LAPACK_cbbcsd LAPACK_GLOBAL(cbbcsd,CBBCSD)
11571 #define LAPACK_cheswapr LAPACK_GLOBAL(cheswapr,CHESWAPR)
11572 #define LAPACK_chetri2 LAPACK_GLOBAL(chetri2,CHETRI2)
11573 #define LAPACK_chetri2x LAPACK_GLOBAL(chetri2x,CHETRI2X)
11574 #define LAPACK_chetrs2 LAPACK_GLOBAL(chetrs2,CHETRS2)
11575 #define LAPACK_csyconv LAPACK_GLOBAL(csyconv,CSYCONV)
11576 #define LAPACK_csyswapr LAPACK_GLOBAL(csyswapr,CSYSWAPR)
11577 #define LAPACK_csytri2 LAPACK_GLOBAL(csytri2,CSYTRI2)
11578 #define LAPACK_csytri2x LAPACK_GLOBAL(csytri2x,CSYTRI2X)
11579 #define LAPACK_csytrs2 LAPACK_GLOBAL(csytrs2,CSYTRS2)
11580 #define LAPACK_cunbdb LAPACK_GLOBAL(cunbdb,CUNBDB)
11581 #define LAPACK_cuncsd LAPACK_GLOBAL(cuncsd,CUNCSD)
11582 #define LAPACK_dbbcsd LAPACK_GLOBAL(dbbcsd,DBBCSD)
11583 #define LAPACK_dorbdb LAPACK_GLOBAL(dorbdb,DORBDB)
11584 #define LAPACK_dorcsd LAPACK_GLOBAL(dorcsd,DORCSD)
11585 #define LAPACK_dsyconv LAPACK_GLOBAL(dsyconv,DSYCONV)
11586 #define LAPACK_dsyswapr LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
11587 #define LAPACK_dsytri2 LAPACK_GLOBAL(dsytri2,DSYTRI2)
11588 #define LAPACK_dsytri2x LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
11589 #define LAPACK_dsytrs2 LAPACK_GLOBAL(dsytrs2,DSYTRS2)
11590 #define LAPACK_sbbcsd LAPACK_GLOBAL(sbbcsd,SBBCSD)
11591 #define LAPACK_sorbdb LAPACK_GLOBAL(sorbdb,SORBDB)
11592 #define LAPACK_sorcsd LAPACK_GLOBAL(sorcsd,SORCSD)
11593 #define LAPACK_ssyconv LAPACK_GLOBAL(ssyconv,SSYCONV)
11594 #define LAPACK_ssyswapr LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
11595 #define LAPACK_ssytri2 LAPACK_GLOBAL(ssytri2,SSYTRI2)
11596 #define LAPACK_ssytri2x LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
11597 #define LAPACK_ssytrs2 LAPACK_GLOBAL(ssytrs2,SSYTRS2)
11598 #define LAPACK_zbbcsd LAPACK_GLOBAL(zbbcsd,ZBBCSD)
11599 #define LAPACK_zheswapr LAPACK_GLOBAL(zheswapr,ZHESWAPR)
11600 #define LAPACK_zhetri2 LAPACK_GLOBAL(zhetri2,ZHETRI2)
11601 #define LAPACK_zhetri2x LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
11602 #define LAPACK_zhetrs2 LAPACK_GLOBAL(zhetrs2,ZHETRS2)
11603 #define LAPACK_zsyconv LAPACK_GLOBAL(zsyconv,ZSYCONV)
11604 #define LAPACK_zsyswapr LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
11605 #define LAPACK_zsytri2 LAPACK_GLOBAL(zsytri2,ZSYTRI2)
11606 #define LAPACK_zsytri2x LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
11607 #define LAPACK_zsytrs2 LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
11608 #define LAPACK_zunbdb LAPACK_GLOBAL(zunbdb,ZUNBDB)
11609 #define LAPACK_zuncsd LAPACK_GLOBAL(zuncsd,ZUNCSD)
11610 // LAPACK 3.4.0
11611 #define LAPACK_sgemqrt LAPACK_GLOBAL(sgemqrt,SGEMQRT)
11612 #define LAPACK_dgemqrt LAPACK_GLOBAL(dgemqrt,DGEMQRT)
11613 #define LAPACK_cgemqrt LAPACK_GLOBAL(cgemqrt,CGEMQRT)
11614 #define LAPACK_zgemqrt LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
11615 #define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
11616 #define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
11617 #define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
11618 #define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
11619 #define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
11620 #define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
11621 #define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
11622 #define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
11623 #define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
11624 #define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
11625 #define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
11626 #define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
11627 #define LAPACK_stpmqrt LAPACK_GLOBAL(stpmqrt,STPMQRT)
11628 #define LAPACK_dtpmqrt LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
11629 #define LAPACK_ctpmqrt LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
11630 #define LAPACK_ztpmqrt LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
11631 #define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
11632 #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
11633 #define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
11634 #define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2)
11635 #define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2)
11636 #define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
11637 #define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2)
11638 #define LAPACK_stprfb LAPACK_GLOBAL(stprfb,STPRFB)
11639 #define LAPACK_dtprfb LAPACK_GLOBAL(dtprfb,DTPRFB)
11640 #define LAPACK_ctprfb LAPACK_GLOBAL(ctprfb,CTPRFB)
11641 #define LAPACK_ztprfb LAPACK_GLOBAL(ztprfb,ZTPRFB)
11642 // LAPACK 3.X.X
11643 #define LAPACK_csyr LAPACK_GLOBAL(csyr,CSYR)
11644 #define LAPACK_zsyr LAPACK_GLOBAL(zsyr,ZSYR)
11645 
11646 
11647 void LAPACK_sgetrf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
11648                     lapack_int* ipiv, lapack_int *info );
11649 void LAPACK_dgetrf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
11650                     lapack_int* ipiv, lapack_int *info );
11651 void LAPACK_cgetrf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
11652                     lapack_int* lda, lapack_int* ipiv, lapack_int *info );
11653 void LAPACK_zgetrf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
11654                     lapack_int* lda, lapack_int* ipiv, lapack_int *info );
11655 void LAPACK_sgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,
11656                     lapack_int* ku, float* ab, lapack_int* ldab,
11657                     lapack_int* ipiv, lapack_int *info );
11658 void LAPACK_dgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,
11659                     lapack_int* ku, double* ab, lapack_int* ldab,
11660                     lapack_int* ipiv, lapack_int *info );
11661 void LAPACK_cgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,
11662                     lapack_int* ku, lapack_complex_float* ab, lapack_int* ldab,
11663                     lapack_int* ipiv, lapack_int *info );
11664 void LAPACK_zgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,
11665                     lapack_int* ku, lapack_complex_double* ab, lapack_int* ldab,
11666                     lapack_int* ipiv, lapack_int *info );
11667 void LAPACK_sgttrf( lapack_int* n, float* dl, float* d, float* du, float* du2,
11668                     lapack_int* ipiv, lapack_int *info );
11669 void LAPACK_dgttrf( lapack_int* n, double* dl, double* d, double* du,
11670                     double* du2, lapack_int* ipiv, lapack_int *info );
11671 void LAPACK_cgttrf( lapack_int* n, lapack_complex_float* dl,
11672                     lapack_complex_float* d, lapack_complex_float* du,
11673                     lapack_complex_float* du2, lapack_int* ipiv,
11674                     lapack_int *info );
11675 void LAPACK_zgttrf( lapack_int* n, lapack_complex_double* dl,
11676                     lapack_complex_double* d, lapack_complex_double* du,
11677                     lapack_complex_double* du2, lapack_int* ipiv,
11678                     lapack_int *info );
11679 void LAPACK_spotrf( char* uplo, lapack_int* n, float* a, lapack_int* lda,
11680                     lapack_int *info );
11681 void LAPACK_dpotrf( char* uplo, lapack_int* n, double* a, lapack_int* lda,
11682                     lapack_int *info );
11683 void LAPACK_cpotrf( char* uplo, lapack_int* n, lapack_complex_float* a,
11684                     lapack_int* lda, lapack_int *info );
11685 void LAPACK_zpotrf( char* uplo, lapack_int* n, lapack_complex_double* a,
11686                     lapack_int* lda, lapack_int *info );
11687 void LAPACK_dpstrf( char* uplo, lapack_int* n, double* a, lapack_int* lda,
11688                     lapack_int* piv, lapack_int* rank, double* tol,
11689                     double* work, lapack_int *info );
11690 void LAPACK_spstrf( char* uplo, lapack_int* n, float* a, lapack_int* lda,
11691                     lapack_int* piv, lapack_int* rank, float* tol, float* work,
11692                     lapack_int *info );
11693 void LAPACK_zpstrf( char* uplo, lapack_int* n, lapack_complex_double* a,
11694                     lapack_int* lda, lapack_int* piv, lapack_int* rank,
11695                     double* tol, double* work, lapack_int *info );
11696 void LAPACK_cpstrf( char* uplo, lapack_int* n, lapack_complex_float* a,
11697                     lapack_int* lda, lapack_int* piv, lapack_int* rank,
11698                     float* tol, float* work, lapack_int *info );
11699 void LAPACK_dpftrf( char* transr, char* uplo, lapack_int* n, double* a,
11700                     lapack_int *info );
11701 void LAPACK_spftrf( char* transr, char* uplo, lapack_int* n, float* a,
11702                     lapack_int *info );
11703 void LAPACK_zpftrf( char* transr, char* uplo, lapack_int* n,
11704                     lapack_complex_double* a, lapack_int *info );
11705 void LAPACK_cpftrf( char* transr, char* uplo, lapack_int* n,
11706                     lapack_complex_float* a, lapack_int *info );
11707 void LAPACK_spptrf( char* uplo, lapack_int* n, float* ap, lapack_int *info );
11708 void LAPACK_dpptrf( char* uplo, lapack_int* n, double* ap, lapack_int *info );
11709 void LAPACK_cpptrf( char* uplo, lapack_int* n, lapack_complex_float* ap,
11710                     lapack_int *info );
11711 void LAPACK_zpptrf( char* uplo, lapack_int* n, lapack_complex_double* ap,
11712                     lapack_int *info );
11713 void LAPACK_spbtrf( char* uplo, lapack_int* n, lapack_int* kd, float* ab,
11714                     lapack_int* ldab, lapack_int *info );
11715 void LAPACK_dpbtrf( char* uplo, lapack_int* n, lapack_int* kd, double* ab,
11716                     lapack_int* ldab, lapack_int *info );
11717 void LAPACK_cpbtrf( char* uplo, lapack_int* n, lapack_int* kd,
11718                     lapack_complex_float* ab, lapack_int* ldab,
11719                     lapack_int *info );
11720 void LAPACK_zpbtrf( char* uplo, lapack_int* n, lapack_int* kd,
11721                     lapack_complex_double* ab, lapack_int* ldab,
11722                     lapack_int *info );
11723 void LAPACK_spttrf( lapack_int* n, float* d, float* e, lapack_int *info );
11724 void LAPACK_dpttrf( lapack_int* n, double* d, double* e, lapack_int *info );
11725 void LAPACK_cpttrf( lapack_int* n, float* d, lapack_complex_float* e,
11726                     lapack_int *info );
11727 void LAPACK_zpttrf( lapack_int* n, double* d, lapack_complex_double* e,
11728                     lapack_int *info );
11729 void LAPACK_ssytrf( char* uplo, lapack_int* n, float* a, lapack_int* lda,
11730                     lapack_int* ipiv, float* work, lapack_int* lwork,
11731                     lapack_int *info );
11732 void LAPACK_dsytrf( char* uplo, lapack_int* n, double* a, lapack_int* lda,
11733                     lapack_int* ipiv, double* work, lapack_int* lwork,
11734                     lapack_int *info );
11735 void LAPACK_csytrf( char* uplo, lapack_int* n, lapack_complex_float* a,
11736                     lapack_int* lda, lapack_int* ipiv,
11737                     lapack_complex_float* work, lapack_int* lwork,
11738                     lapack_int *info );
11739 void LAPACK_zsytrf( char* uplo, lapack_int* n, lapack_complex_double* a,
11740                     lapack_int* lda, lapack_int* ipiv,
11741                     lapack_complex_double* work, lapack_int* lwork,
11742                     lapack_int *info );
11743 void LAPACK_chetrf( char* uplo, lapack_int* n, lapack_complex_float* a,
11744                     lapack_int* lda, lapack_int* ipiv,
11745                     lapack_complex_float* work, lapack_int* lwork,
11746                     lapack_int *info );
11747 void LAPACK_zhetrf( char* uplo, lapack_int* n, lapack_complex_double* a,
11748                     lapack_int* lda, lapack_int* ipiv,
11749                     lapack_complex_double* work, lapack_int* lwork,
11750                     lapack_int *info );
11751 void LAPACK_ssptrf( char* uplo, lapack_int* n, float* ap, lapack_int* ipiv,
11752                     lapack_int *info );
11753 void LAPACK_dsptrf( char* uplo, lapack_int* n, double* ap, lapack_int* ipiv,
11754                     lapack_int *info );
11755 void LAPACK_csptrf( char* uplo, lapack_int* n, lapack_complex_float* ap,
11756                     lapack_int* ipiv, lapack_int *info );
11757 void LAPACK_zsptrf( char* uplo, lapack_int* n, lapack_complex_double* ap,
11758                     lapack_int* ipiv, lapack_int *info );
11759 void LAPACK_chptrf( char* uplo, lapack_int* n, lapack_complex_float* ap,
11760                     lapack_int* ipiv, lapack_int *info );
11761 void LAPACK_zhptrf( char* uplo, lapack_int* n, lapack_complex_double* ap,
11762                     lapack_int* ipiv, lapack_int *info );
11763 void LAPACK_sgetrs( char* trans, lapack_int* n, lapack_int* nrhs,
11764                     const float* a, lapack_int* lda, const lapack_int* ipiv,
11765                     float* b, lapack_int* ldb, lapack_int *info );
11766 void LAPACK_dgetrs( char* trans, lapack_int* n, lapack_int* nrhs,
11767                     const double* a, lapack_int* lda, const lapack_int* ipiv,
11768                     double* b, lapack_int* ldb, lapack_int *info );
11769 void LAPACK_cgetrs( char* trans, lapack_int* n, lapack_int* nrhs,
11770                     const lapack_complex_float* a, lapack_int* lda,
11771                     const lapack_int* ipiv, lapack_complex_float* b,
11772                     lapack_int* ldb, lapack_int *info );
11773 void LAPACK_zgetrs( char* trans, lapack_int* n, lapack_int* nrhs,
11774                     const lapack_complex_double* a, lapack_int* lda,
11775                     const lapack_int* ipiv, lapack_complex_double* b,
11776                     lapack_int* ldb, lapack_int *info );
11777 void LAPACK_sgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
11778                     lapack_int* nrhs, const float* ab, lapack_int* ldab,
11779                     const lapack_int* ipiv, float* b, lapack_int* ldb,
11780                     lapack_int *info );
11781 void LAPACK_dgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
11782                     lapack_int* nrhs, const double* ab, lapack_int* ldab,
11783                     const lapack_int* ipiv, double* b, lapack_int* ldb,
11784                     lapack_int *info );
11785 void LAPACK_cgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
11786                     lapack_int* nrhs, const lapack_complex_float* ab,
11787                     lapack_int* ldab, const lapack_int* ipiv,
11788                     lapack_complex_float* b, lapack_int* ldb,
11789                     lapack_int *info );
11790 void LAPACK_zgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
11791                     lapack_int* nrhs, const lapack_complex_double* ab,
11792                     lapack_int* ldab, const lapack_int* ipiv,
11793                     lapack_complex_double* b, lapack_int* ldb,
11794                     lapack_int *info );
11795 void LAPACK_sgttrs( char* trans, lapack_int* n, lapack_int* nrhs,
11796                     const float* dl, const float* d, const float* du,
11797                     const float* du2, const lapack_int* ipiv, float* b,
11798                     lapack_int* ldb, lapack_int *info );
11799 void LAPACK_dgttrs( char* trans, lapack_int* n, lapack_int* nrhs,
11800                     const double* dl, const double* d, const double* du,
11801                     const double* du2, const lapack_int* ipiv, double* b,
11802                     lapack_int* ldb, lapack_int *info );
11803 void LAPACK_cgttrs( char* trans, lapack_int* n, lapack_int* nrhs,
11804                     const lapack_complex_float* dl,
11805                     const lapack_complex_float* d,
11806                     const lapack_complex_float* du,
11807                     const lapack_complex_float* du2, const lapack_int* ipiv,
11808                     lapack_complex_float* b, lapack_int* ldb,
11809                     lapack_int *info );
11810 void LAPACK_zgttrs( char* trans, lapack_int* n, lapack_int* nrhs,
11811                     const lapack_complex_double* dl,
11812                     const lapack_complex_double* d,
11813                     const lapack_complex_double* du,
11814                     const lapack_complex_double* du2, const lapack_int* ipiv,
11815                     lapack_complex_double* b, lapack_int* ldb,
11816                     lapack_int *info );
11817 void LAPACK_spotrs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,
11818                     lapack_int* lda, float* b, lapack_int* ldb,
11819                     lapack_int *info );
11820 void LAPACK_dpotrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11821                     const double* a, lapack_int* lda, double* b,
11822                     lapack_int* ldb, lapack_int *info );
11823 void LAPACK_cpotrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11824                     const lapack_complex_float* a, lapack_int* lda,
11825                     lapack_complex_float* b, lapack_int* ldb,
11826                     lapack_int *info );
11827 void LAPACK_zpotrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11828                     const lapack_complex_double* a, lapack_int* lda,
11829                     lapack_complex_double* b, lapack_int* ldb,
11830                     lapack_int *info );
11831 void LAPACK_dpftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,
11832                     const double* a, double* b, lapack_int* ldb,
11833                     lapack_int *info );
11834 void LAPACK_spftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,
11835                     const float* a, float* b, lapack_int* ldb,
11836                     lapack_int *info );
11837 void LAPACK_zpftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,
11838                     const lapack_complex_double* a, lapack_complex_double* b,
11839                     lapack_int* ldb, lapack_int *info );
11840 void LAPACK_cpftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,
11841                     const lapack_complex_float* a, lapack_complex_float* b,
11842                     lapack_int* ldb, lapack_int *info );
11843 void LAPACK_spptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11844                     const float* ap, float* b, lapack_int* ldb,
11845                     lapack_int *info );
11846 void LAPACK_dpptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11847                     const double* ap, double* b, lapack_int* ldb,
11848                     lapack_int *info );
11849 void LAPACK_cpptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11850                     const lapack_complex_float* ap, lapack_complex_float* b,
11851                     lapack_int* ldb, lapack_int *info );
11852 void LAPACK_zpptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11853                     const lapack_complex_double* ap, lapack_complex_double* b,
11854                     lapack_int* ldb, lapack_int *info );
11855 void LAPACK_spbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
11856                     const float* ab, lapack_int* ldab, float* b,
11857                     lapack_int* ldb, lapack_int *info );
11858 void LAPACK_dpbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
11859                     const double* ab, lapack_int* ldab, double* b,
11860                     lapack_int* ldb, lapack_int *info );
11861 void LAPACK_cpbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
11862                     const lapack_complex_float* ab, lapack_int* ldab,
11863                     lapack_complex_float* b, lapack_int* ldb,
11864                     lapack_int *info );
11865 void LAPACK_zpbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
11866                     const lapack_complex_double* ab, lapack_int* ldab,
11867                     lapack_complex_double* b, lapack_int* ldb,
11868                     lapack_int *info );
11869 void LAPACK_spttrs( lapack_int* n, lapack_int* nrhs, const float* d,
11870                     const float* e, float* b, lapack_int* ldb,
11871                     lapack_int *info );
11872 void LAPACK_dpttrs( lapack_int* n, lapack_int* nrhs, const double* d,
11873                     const double* e, double* b, lapack_int* ldb,
11874                     lapack_int *info );
11875 void LAPACK_cpttrs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* d,
11876                     const lapack_complex_float* e, lapack_complex_float* b,
11877                     lapack_int* ldb, lapack_int *info );
11878 void LAPACK_zpttrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11879                     const double* d, const lapack_complex_double* e,
11880                     lapack_complex_double* b, lapack_int* ldb,
11881                     lapack_int *info );
11882 void LAPACK_ssytrs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,
11883                     lapack_int* lda, const lapack_int* ipiv, float* b,
11884                     lapack_int* ldb, lapack_int *info );
11885 void LAPACK_dsytrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11886                     const double* a, lapack_int* lda, const lapack_int* ipiv,
11887                     double* b, lapack_int* ldb, lapack_int *info );
11888 void LAPACK_csytrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11889                     const lapack_complex_float* a, lapack_int* lda,
11890                     const lapack_int* ipiv, lapack_complex_float* b,
11891                     lapack_int* ldb, lapack_int *info );
11892 void LAPACK_zsytrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11893                     const lapack_complex_double* a, lapack_int* lda,
11894                     const lapack_int* ipiv, lapack_complex_double* b,
11895                     lapack_int* ldb, lapack_int *info );
11896 void LAPACK_chetrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11897                     const lapack_complex_float* a, lapack_int* lda,
11898                     const lapack_int* ipiv, lapack_complex_float* b,
11899                     lapack_int* ldb, lapack_int *info );
11900 void LAPACK_zhetrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11901                     const lapack_complex_double* a, lapack_int* lda,
11902                     const lapack_int* ipiv, lapack_complex_double* b,
11903                     lapack_int* ldb, lapack_int *info );
11904 void LAPACK_ssptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11905                     const float* ap, const lapack_int* ipiv, float* b,
11906                     lapack_int* ldb, lapack_int *info );
11907 void LAPACK_dsptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11908                     const double* ap, const lapack_int* ipiv, double* b,
11909                     lapack_int* ldb, lapack_int *info );
11910 void LAPACK_csptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11911                     const lapack_complex_float* ap, const lapack_int* ipiv,
11912                     lapack_complex_float* b, lapack_int* ldb,
11913                     lapack_int *info );
11914 void LAPACK_zsptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11915                     const lapack_complex_double* ap, const lapack_int* ipiv,
11916                     lapack_complex_double* b, lapack_int* ldb,
11917                     lapack_int *info );
11918 void LAPACK_chptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11919                     const lapack_complex_float* ap, const lapack_int* ipiv,
11920                     lapack_complex_float* b, lapack_int* ldb,
11921                     lapack_int *info );
11922 void LAPACK_zhptrs( char* uplo, lapack_int* n, lapack_int* nrhs,
11923                     const lapack_complex_double* ap, const lapack_int* ipiv,
11924                     lapack_complex_double* b, lapack_int* ldb,
11925                     lapack_int *info );
11926 void LAPACK_strtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11927                     lapack_int* nrhs, const float* a, lapack_int* lda, float* b,
11928                     lapack_int* ldb, lapack_int *info );
11929 void LAPACK_dtrtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11930                     lapack_int* nrhs, const double* a, lapack_int* lda,
11931                     double* b, lapack_int* ldb, lapack_int *info );
11932 void LAPACK_ctrtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11933                     lapack_int* nrhs, const lapack_complex_float* a,
11934                     lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,
11935                     lapack_int *info );
11936 void LAPACK_ztrtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11937                     lapack_int* nrhs, const lapack_complex_double* a,
11938                     lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,
11939                     lapack_int *info );
11940 void LAPACK_stptrs( char* uplo, char* trans, char* diag, lapack_int* n,
11941                     lapack_int* nrhs, const float* ap, float* b,
11942                     lapack_int* ldb, lapack_int *info );
11943 void LAPACK_dtptrs( char* uplo, char* trans, char* diag, lapack_int* n,
11944                     lapack_int* nrhs, const double* ap, double* b,
11945                     lapack_int* ldb, lapack_int *info );
11946 void LAPACK_ctptrs( char* uplo, char* trans, char* diag, lapack_int* n,
11947                     lapack_int* nrhs, const lapack_complex_float* ap,
11948                     lapack_complex_float* b, lapack_int* ldb,
11949                     lapack_int *info );
11950 void LAPACK_ztptrs( char* uplo, char* trans, char* diag, lapack_int* n,
11951                     lapack_int* nrhs, const lapack_complex_double* ap,
11952                     lapack_complex_double* b, lapack_int* ldb,
11953                     lapack_int *info );
11954 void LAPACK_stbtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11955                     lapack_int* kd, lapack_int* nrhs, const float* ab,
11956                     lapack_int* ldab, float* b, lapack_int* ldb,
11957                     lapack_int *info );
11958 void LAPACK_dtbtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11959                     lapack_int* kd, lapack_int* nrhs, const double* ab,
11960                     lapack_int* ldab, double* b, lapack_int* ldb,
11961                     lapack_int *info );
11962 void LAPACK_ctbtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11963                     lapack_int* kd, lapack_int* nrhs,
11964                     const lapack_complex_float* ab, lapack_int* ldab,
11965                     lapack_complex_float* b, lapack_int* ldb,
11966                     lapack_int *info );
11967 void LAPACK_ztbtrs( char* uplo, char* trans, char* diag, lapack_int* n,
11968                     lapack_int* kd, lapack_int* nrhs,
11969                     const lapack_complex_double* ab, lapack_int* ldab,
11970                     lapack_complex_double* b, lapack_int* ldb,
11971                     lapack_int *info );
11972 void LAPACK_sgecon( char* norm, lapack_int* n, const float* a, lapack_int* lda,
11973                     float* anorm, float* rcond, float* work, lapack_int* iwork,
11974                     lapack_int *info );
11975 void LAPACK_dgecon( char* norm, lapack_int* n, const double* a, lapack_int* lda,
11976                     double* anorm, double* rcond, double* work,
11977                     lapack_int* iwork, lapack_int *info );
11978 void LAPACK_cgecon( char* norm, lapack_int* n, const lapack_complex_float* a,
11979                     lapack_int* lda, float* anorm, float* rcond,
11980                     lapack_complex_float* work, float* rwork,
11981                     lapack_int *info );
11982 void LAPACK_zgecon( char* norm, lapack_int* n, const lapack_complex_double* a,
11983                     lapack_int* lda, double* anorm, double* rcond,
11984                     lapack_complex_double* work, double* rwork,
11985                     lapack_int *info );
11986 void LAPACK_sgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,
11987                     const float* ab, lapack_int* ldab, const lapack_int* ipiv,
11988                     float* anorm, float* rcond, float* work, lapack_int* iwork,
11989                     lapack_int *info );
11990 void LAPACK_dgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,
11991                     const double* ab, lapack_int* ldab, const lapack_int* ipiv,
11992                     double* anorm, double* rcond, double* work,
11993                     lapack_int* iwork, lapack_int *info );
11994 void LAPACK_cgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,
11995                     const lapack_complex_float* ab, lapack_int* ldab,
11996                     const lapack_int* ipiv, float* anorm, float* rcond,
11997                     lapack_complex_float* work, float* rwork,
11998                     lapack_int *info );
11999 void LAPACK_zgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,
12000                     const lapack_complex_double* ab, lapack_int* ldab,
12001                     const lapack_int* ipiv, double* anorm, double* rcond,
12002                     lapack_complex_double* work, double* rwork,
12003                     lapack_int *info );
12004 void LAPACK_sgtcon( char* norm, lapack_int* n, const float* dl, const float* d,
12005                     const float* du, const float* du2, const lapack_int* ipiv,
12006                     float* anorm, float* rcond, float* work, lapack_int* iwork,
12007                     lapack_int *info );
12008 void LAPACK_dgtcon( char* norm, lapack_int* n, const double* dl,
12009                     const double* d, const double* du, const double* du2,
12010                     const lapack_int* ipiv, double* anorm, double* rcond,
12011                     double* work, lapack_int* iwork, lapack_int *info );
12012 void LAPACK_cgtcon( char* norm, lapack_int* n, const lapack_complex_float* dl,
12013                     const lapack_complex_float* d,
12014                     const lapack_complex_float* du,
12015                     const lapack_complex_float* du2, const lapack_int* ipiv,
12016                     float* anorm, float* rcond, lapack_complex_float* work,
12017                     lapack_int *info );
12018 void LAPACK_zgtcon( char* norm, lapack_int* n, const lapack_complex_double* dl,
12019                     const lapack_complex_double* d,
12020                     const lapack_complex_double* du,
12021                     const lapack_complex_double* du2, const lapack_int* ipiv,
12022                     double* anorm, double* rcond, lapack_complex_double* work,
12023                     lapack_int *info );
12024 void LAPACK_spocon( char* uplo, lapack_int* n, const float* a, lapack_int* lda,
12025                     float* anorm, float* rcond, float* work, lapack_int* iwork,
12026                     lapack_int *info );
12027 void LAPACK_dpocon( char* uplo, lapack_int* n, const double* a, lapack_int* lda,
12028                     double* anorm, double* rcond, double* work,
12029                     lapack_int* iwork, lapack_int *info );
12030 void LAPACK_cpocon( char* uplo, lapack_int* n, const lapack_complex_float* a,
12031                     lapack_int* lda, float* anorm, float* rcond,
12032                     lapack_complex_float* work, float* rwork,
12033                     lapack_int *info );
12034 void LAPACK_zpocon( char* uplo, lapack_int* n, const lapack_complex_double* a,
12035                     lapack_int* lda, double* anorm, double* rcond,
12036                     lapack_complex_double* work, double* rwork,
12037                     lapack_int *info );
12038 void LAPACK_sppcon( char* uplo, lapack_int* n, const float* ap, float* anorm,
12039                     float* rcond, float* work, lapack_int* iwork,
12040                     lapack_int *info );
12041 void LAPACK_dppcon( char* uplo, lapack_int* n, const double* ap, double* anorm,
12042                     double* rcond, double* work, lapack_int* iwork,
12043                     lapack_int *info );
12044 void LAPACK_cppcon( char* uplo, lapack_int* n, const lapack_complex_float* ap,
12045                     float* anorm, float* rcond, lapack_complex_float* work,
12046                     float* rwork, lapack_int *info );
12047 void LAPACK_zppcon( char* uplo, lapack_int* n, const lapack_complex_double* ap,
12048                     double* anorm, double* rcond, lapack_complex_double* work,
12049                     double* rwork, lapack_int *info );
12050 void LAPACK_spbcon( char* uplo, lapack_int* n, lapack_int* kd, const float* ab,
12051                     lapack_int* ldab, float* anorm, float* rcond, float* work,
12052                     lapack_int* iwork, lapack_int *info );
12053 void LAPACK_dpbcon( char* uplo, lapack_int* n, lapack_int* kd, const double* ab,
12054                     lapack_int* ldab, double* anorm, double* rcond,
12055                     double* work, lapack_int* iwork, lapack_int *info );
12056 void LAPACK_cpbcon( char* uplo, lapack_int* n, lapack_int* kd,
12057                     const lapack_complex_float* ab, lapack_int* ldab,
12058                     float* anorm, float* rcond, lapack_complex_float* work,
12059                     float* rwork, lapack_int *info );
12060 void LAPACK_zpbcon( char* uplo, lapack_int* n, lapack_int* kd,
12061                     const lapack_complex_double* ab, lapack_int* ldab,
12062                     double* anorm, double* rcond, lapack_complex_double* work,
12063                     double* rwork, lapack_int *info );
12064 void LAPACK_sptcon( lapack_int* n, const float* d, const float* e, float* anorm,
12065                     float* rcond, float* work, lapack_int *info );
12066 void LAPACK_dptcon( lapack_int* n, const double* d, const double* e,
12067                     double* anorm, double* rcond, double* work,
12068                     lapack_int *info );
12069 void LAPACK_cptcon( lapack_int* n, const float* d,
12070                     const lapack_complex_float* e, float* anorm, float* rcond,
12071                     float* work, lapack_int *info );
12072 void LAPACK_zptcon( lapack_int* n, const double* d,
12073                     const lapack_complex_double* e, double* anorm,
12074                     double* rcond, double* work, lapack_int *info );
12075 void LAPACK_ssycon( char* uplo, lapack_int* n, const float* a, lapack_int* lda,
12076                     const lapack_int* ipiv, float* anorm, float* rcond,
12077                     float* work, lapack_int* iwork, lapack_int *info );
12078 void LAPACK_dsycon( char* uplo, lapack_int* n, const double* a, lapack_int* lda,
12079                     const lapack_int* ipiv, double* anorm, double* rcond,
12080                     double* work, lapack_int* iwork, lapack_int *info );
12081 void LAPACK_csycon( char* uplo, lapack_int* n, const lapack_complex_float* a,
12082                     lapack_int* lda, const lapack_int* ipiv, float* anorm,
12083                     float* rcond, lapack_complex_float* work,
12084                     lapack_int *info );
12085 void LAPACK_zsycon( char* uplo, lapack_int* n, const lapack_complex_double* a,
12086                     lapack_int* lda, const lapack_int* ipiv, double* anorm,
12087                     double* rcond, lapack_complex_double* work,
12088                     lapack_int *info );
12089 void LAPACK_checon( char* uplo, lapack_int* n, const lapack_complex_float* a,
12090                     lapack_int* lda, const lapack_int* ipiv, float* anorm,
12091                     float* rcond, lapack_complex_float* work,
12092                     lapack_int *info );
12093 void LAPACK_zhecon( char* uplo, lapack_int* n, const lapack_complex_double* a,
12094                     lapack_int* lda, const lapack_int* ipiv, double* anorm,
12095                     double* rcond, lapack_complex_double* work,
12096                     lapack_int *info );
12097 void LAPACK_sspcon( char* uplo, lapack_int* n, const float* ap,
12098                     const lapack_int* ipiv, float* anorm, float* rcond,
12099                     float* work, lapack_int* iwork, lapack_int *info );
12100 void LAPACK_dspcon( char* uplo, lapack_int* n, const double* ap,
12101                     const lapack_int* ipiv, double* anorm, double* rcond,
12102                     double* work, lapack_int* iwork, lapack_int *info );
12103 void LAPACK_cspcon( char* uplo, lapack_int* n, const lapack_complex_float* ap,
12104                     const lapack_int* ipiv, float* anorm, float* rcond,
12105                     lapack_complex_float* work, lapack_int *info );
12106 void LAPACK_zspcon( char* uplo, lapack_int* n, const lapack_complex_double* ap,
12107                     const lapack_int* ipiv, double* anorm, double* rcond,
12108                     lapack_complex_double* work, lapack_int *info );
12109 void LAPACK_chpcon( char* uplo, lapack_int* n, const lapack_complex_float* ap,
12110                     const lapack_int* ipiv, float* anorm, float* rcond,
12111                     lapack_complex_float* work, lapack_int *info );
12112 void LAPACK_zhpcon( char* uplo, lapack_int* n, const lapack_complex_double* ap,
12113                     const lapack_int* ipiv, double* anorm, double* rcond,
12114                     lapack_complex_double* work, lapack_int *info );
12115 void LAPACK_strcon( char* norm, char* uplo, char* diag, lapack_int* n,
12116                     const float* a, lapack_int* lda, float* rcond, float* work,
12117                     lapack_int* iwork, lapack_int *info );
12118 void LAPACK_dtrcon( char* norm, char* uplo, char* diag, lapack_int* n,
12119                     const double* a, lapack_int* lda, double* rcond,
12120                     double* work, lapack_int* iwork, lapack_int *info );
12121 void LAPACK_ctrcon( char* norm, char* uplo, char* diag, lapack_int* n,
12122                     const lapack_complex_float* a, lapack_int* lda,
12123                     float* rcond, lapack_complex_float* work, float* rwork,
12124                     lapack_int *info );
12125 void LAPACK_ztrcon( char* norm, char* uplo, char* diag, lapack_int* n,
12126                     const lapack_complex_double* a, lapack_int* lda,
12127                     double* rcond, lapack_complex_double* work, double* rwork,
12128                     lapack_int *info );
12129 void LAPACK_stpcon( char* norm, char* uplo, char* diag, lapack_int* n,
12130                     const float* ap, float* rcond, float* work,
12131                     lapack_int* iwork, lapack_int *info );
12132 void LAPACK_dtpcon( char* norm, char* uplo, char* diag, lapack_int* n,
12133                     const double* ap, double* rcond, double* work,
12134                     lapack_int* iwork, lapack_int *info );
12135 void LAPACK_ctpcon( char* norm, char* uplo, char* diag, lapack_int* n,
12136                     const lapack_complex_float* ap, float* rcond,
12137                     lapack_complex_float* work, float* rwork,
12138                     lapack_int *info );
12139 void LAPACK_ztpcon( char* norm, char* uplo, char* diag, lapack_int* n,
12140                     const lapack_complex_double* ap, double* rcond,
12141                     lapack_complex_double* work, double* rwork,
12142                     lapack_int *info );
12143 void LAPACK_stbcon( char* norm, char* uplo, char* diag, lapack_int* n,
12144                     lapack_int* kd, const float* ab, lapack_int* ldab,
12145                     float* rcond, float* work, lapack_int* iwork,
12146                     lapack_int *info );
12147 void LAPACK_dtbcon( char* norm, char* uplo, char* diag, lapack_int* n,
12148                     lapack_int* kd, const double* ab, lapack_int* ldab,
12149                     double* rcond, double* work, lapack_int* iwork,
12150                     lapack_int *info );
12151 void LAPACK_ctbcon( char* norm, char* uplo, char* diag, lapack_int* n,
12152                     lapack_int* kd, const lapack_complex_float* ab,
12153                     lapack_int* ldab, float* rcond, lapack_complex_float* work,
12154                     float* rwork, lapack_int *info );
12155 void LAPACK_ztbcon( char* norm, char* uplo, char* diag, lapack_int* n,
12156                     lapack_int* kd, const lapack_complex_double* ab,
12157                     lapack_int* ldab, double* rcond,
12158                     lapack_complex_double* work, double* rwork,
12159                     lapack_int *info );
12160 void LAPACK_sgerfs( char* trans, lapack_int* n, lapack_int* nrhs,
12161                     const float* a, lapack_int* lda, const float* af,
12162                     lapack_int* ldaf, const lapack_int* ipiv, const float* b,
12163                     lapack_int* ldb, float* x, lapack_int* ldx, float* ferr,
12164                     float* berr, float* work, lapack_int* iwork,
12165                     lapack_int *info );
12166 void LAPACK_dgerfs( char* trans, lapack_int* n, lapack_int* nrhs,
12167                     const double* a, lapack_int* lda, const double* af,
12168                     lapack_int* ldaf, const lapack_int* ipiv, const double* b,
12169                     lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,
12170                     double* berr, double* work, lapack_int* iwork,
12171                     lapack_int *info );
12172 void LAPACK_cgerfs( char* trans, lapack_int* n, lapack_int* nrhs,
12173                     const lapack_complex_float* a, lapack_int* lda,
12174                     const lapack_complex_float* af, lapack_int* ldaf,
12175                     const lapack_int* ipiv, const lapack_complex_float* b,
12176                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
12177                     float* ferr, float* berr, lapack_complex_float* work,
12178                     float* rwork, lapack_int *info );
12179 void LAPACK_zgerfs( char* trans, lapack_int* n, lapack_int* nrhs,
12180                     const lapack_complex_double* a, lapack_int* lda,
12181                     const lapack_complex_double* af, lapack_int* ldaf,
12182                     const lapack_int* ipiv, const lapack_complex_double* b,
12183                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
12184                     double* ferr, double* berr, lapack_complex_double* work,
12185                     double* rwork, lapack_int *info );
12186 void LAPACK_dgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,
12187                      const double* a, lapack_int* lda, const double* af,
12188                      lapack_int* ldaf, const lapack_int* ipiv, const double* r,
12189                      const double* c, const double* b, lapack_int* ldb,
12190                      double* x, lapack_int* ldx, double* rcond, double* berr,
12191                      lapack_int* n_err_bnds, double* err_bnds_norm,
12192                      double* err_bnds_comp, lapack_int* nparams, double* params,
12193                      double* work, lapack_int* iwork, lapack_int *info );
12194 void LAPACK_sgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,
12195                      const float* a, lapack_int* lda, const float* af,
12196                      lapack_int* ldaf, const lapack_int* ipiv, const float* r,
12197                      const float* c, const float* b, lapack_int* ldb, float* x,
12198                      lapack_int* ldx, float* rcond, float* berr,
12199                      lapack_int* n_err_bnds, float* err_bnds_norm,
12200                      float* err_bnds_comp, lapack_int* nparams, float* params,
12201                      float* work, lapack_int* iwork, lapack_int *info );
12202 void LAPACK_zgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,
12203                      const lapack_complex_double* a, lapack_int* lda,
12204                      const lapack_complex_double* af, lapack_int* ldaf,
12205                      const lapack_int* ipiv, const double* r, const double* c,
12206                      const lapack_complex_double* b, lapack_int* ldb,
12207                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
12208                      double* berr, lapack_int* n_err_bnds,
12209                      double* err_bnds_norm, double* err_bnds_comp,
12210                      lapack_int* nparams, double* params,
12211                      lapack_complex_double* work, double* rwork,
12212                      lapack_int *info );
12213 void LAPACK_cgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,
12214                      const lapack_complex_float* a, lapack_int* lda,
12215                      const lapack_complex_float* af, lapack_int* ldaf,
12216                      const lapack_int* ipiv, const float* r, const float* c,
12217                      const lapack_complex_float* b, lapack_int* ldb,
12218                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
12219                      float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,
12220                      float* err_bnds_comp, lapack_int* nparams, float* params,
12221                      lapack_complex_float* work, float* rwork,
12222                      lapack_int *info );
12223 void LAPACK_sgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
12224                     lapack_int* nrhs, const float* ab, lapack_int* ldab,
12225                     const float* afb, lapack_int* ldafb, const lapack_int* ipiv,
12226                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12227                     float* ferr, float* berr, float* work, lapack_int* iwork,
12228                     lapack_int *info );
12229 void LAPACK_dgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
12230                     lapack_int* nrhs, const double* ab, lapack_int* ldab,
12231                     const double* afb, lapack_int* ldafb,
12232                     const lapack_int* ipiv, const double* b, lapack_int* ldb,
12233                     double* x, lapack_int* ldx, double* ferr, double* berr,
12234                     double* work, lapack_int* iwork, lapack_int *info );
12235 void LAPACK_cgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
12236                     lapack_int* nrhs, const lapack_complex_float* ab,
12237                     lapack_int* ldab, const lapack_complex_float* afb,
12238                     lapack_int* ldafb, const lapack_int* ipiv,
12239                     const lapack_complex_float* b, lapack_int* ldb,
12240                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12241                     float* berr, lapack_complex_float* work, float* rwork,
12242                     lapack_int *info );
12243 void LAPACK_zgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,
12244                     lapack_int* nrhs, const lapack_complex_double* ab,
12245                     lapack_int* ldab, const lapack_complex_double* afb,
12246                     lapack_int* ldafb, const lapack_int* ipiv,
12247                     const lapack_complex_double* b, lapack_int* ldb,
12248                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12249                     double* berr, lapack_complex_double* work, double* rwork,
12250                     lapack_int *info );
12251 void LAPACK_dgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,
12252                      lapack_int* ku, lapack_int* nrhs, const double* ab,
12253                      lapack_int* ldab, const double* afb, lapack_int* ldafb,
12254                      const lapack_int* ipiv, const double* r, const double* c,
12255                      const double* b, lapack_int* ldb, double* x,
12256                      lapack_int* ldx, double* rcond, double* berr,
12257                      lapack_int* n_err_bnds, double* err_bnds_norm,
12258                      double* err_bnds_comp, lapack_int* nparams, double* params,
12259                      double* work, lapack_int* iwork, lapack_int *info );
12260 void LAPACK_sgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,
12261                      lapack_int* ku, lapack_int* nrhs, const float* ab,
12262                      lapack_int* ldab, const float* afb, lapack_int* ldafb,
12263                      const lapack_int* ipiv, const float* r, const float* c,
12264                      const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12265                      float* rcond, float* berr, lapack_int* n_err_bnds,
12266                      float* err_bnds_norm, float* err_bnds_comp,
12267                      lapack_int* nparams, float* params, float* work,
12268                      lapack_int* iwork, lapack_int *info );
12269 void LAPACK_zgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,
12270                      lapack_int* ku, lapack_int* nrhs,
12271                      const lapack_complex_double* ab, lapack_int* ldab,
12272                      const lapack_complex_double* afb, lapack_int* ldafb,
12273                      const lapack_int* ipiv, const double* r, const double* c,
12274                      const lapack_complex_double* b, lapack_int* ldb,
12275                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
12276                      double* berr, lapack_int* n_err_bnds,
12277                      double* err_bnds_norm, double* err_bnds_comp,
12278                      lapack_int* nparams, double* params,
12279                      lapack_complex_double* work, double* rwork,
12280                      lapack_int *info );
12281 void LAPACK_cgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,
12282                      lapack_int* ku, lapack_int* nrhs,
12283                      const lapack_complex_float* ab, lapack_int* ldab,
12284                      const lapack_complex_float* afb, lapack_int* ldafb,
12285                      const lapack_int* ipiv, const float* r, const float* c,
12286                      const lapack_complex_float* b, lapack_int* ldb,
12287                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
12288                      float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,
12289                      float* err_bnds_comp, lapack_int* nparams, float* params,
12290                      lapack_complex_float* work, float* rwork,
12291                      lapack_int *info );
12292 void LAPACK_sgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,
12293                     const float* dl, const float* d, const float* du,
12294                     const float* dlf, const float* df, const float* duf,
12295                     const float* du2, const lapack_int* ipiv, const float* b,
12296                     lapack_int* ldb, float* x, lapack_int* ldx, float* ferr,
12297                     float* berr, float* work, lapack_int* iwork,
12298                     lapack_int *info );
12299 void LAPACK_dgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,
12300                     const double* dl, const double* d, const double* du,
12301                     const double* dlf, const double* df, const double* duf,
12302                     const double* du2, const lapack_int* ipiv, const double* b,
12303                     lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,
12304                     double* berr, double* work, lapack_int* iwork,
12305                     lapack_int *info );
12306 void LAPACK_cgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,
12307                     const lapack_complex_float* dl,
12308                     const lapack_complex_float* d,
12309                     const lapack_complex_float* du,
12310                     const lapack_complex_float* dlf,
12311                     const lapack_complex_float* df,
12312                     const lapack_complex_float* duf,
12313                     const lapack_complex_float* du2, const lapack_int* ipiv,
12314                     const lapack_complex_float* b, lapack_int* ldb,
12315                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12316                     float* berr, lapack_complex_float* work, float* rwork,
12317                     lapack_int *info );
12318 void LAPACK_zgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,
12319                     const lapack_complex_double* dl,
12320                     const lapack_complex_double* d,
12321                     const lapack_complex_double* du,
12322                     const lapack_complex_double* dlf,
12323                     const lapack_complex_double* df,
12324                     const lapack_complex_double* duf,
12325                     const lapack_complex_double* du2, const lapack_int* ipiv,
12326                     const lapack_complex_double* b, lapack_int* ldb,
12327                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12328                     double* berr, lapack_complex_double* work, double* rwork,
12329                     lapack_int *info );
12330 void LAPACK_sporfs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,
12331                     lapack_int* lda, const float* af, lapack_int* ldaf,
12332                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12333                     float* ferr, float* berr, float* work, lapack_int* iwork,
12334                     lapack_int *info );
12335 void LAPACK_dporfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12336                     const double* a, lapack_int* lda, const double* af,
12337                     lapack_int* ldaf, const double* b, lapack_int* ldb,
12338                     double* x, lapack_int* ldx, double* ferr, double* berr,
12339                     double* work, lapack_int* iwork, lapack_int *info );
12340 void LAPACK_cporfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12341                     const lapack_complex_float* a, lapack_int* lda,
12342                     const lapack_complex_float* af, lapack_int* ldaf,
12343                     const lapack_complex_float* b, lapack_int* ldb,
12344                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12345                     float* berr, lapack_complex_float* work, float* rwork,
12346                     lapack_int *info );
12347 void LAPACK_zporfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12348                     const lapack_complex_double* a, lapack_int* lda,
12349                     const lapack_complex_double* af, lapack_int* ldaf,
12350                     const lapack_complex_double* b, lapack_int* ldb,
12351                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12352                     double* berr, lapack_complex_double* work, double* rwork,
12353                     lapack_int *info );
12354 void LAPACK_dporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12355                      const double* a, lapack_int* lda, const double* af,
12356                      lapack_int* ldaf, const double* s, const double* b,
12357                      lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,
12358                      double* berr, lapack_int* n_err_bnds,
12359                      double* err_bnds_norm, double* err_bnds_comp,
12360                      lapack_int* nparams, double* params, double* work,
12361                      lapack_int* iwork, lapack_int *info );
12362 void LAPACK_sporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12363                      const float* a, lapack_int* lda, const float* af,
12364                      lapack_int* ldaf, const float* s, const float* b,
12365                      lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
12366                      float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,
12367                      float* err_bnds_comp, lapack_int* nparams, float* params,
12368                      float* work, lapack_int* iwork, lapack_int *info );
12369 void LAPACK_zporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12370                      const lapack_complex_double* a, lapack_int* lda,
12371                      const lapack_complex_double* af, lapack_int* ldaf,
12372                      const double* s, const lapack_complex_double* b,
12373                      lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
12374                      double* rcond, double* berr, lapack_int* n_err_bnds,
12375                      double* err_bnds_norm, double* err_bnds_comp,
12376                      lapack_int* nparams, double* params,
12377                      lapack_complex_double* work, double* rwork,
12378                      lapack_int *info );
12379 void LAPACK_cporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12380                      const lapack_complex_float* a, lapack_int* lda,
12381                      const lapack_complex_float* af, lapack_int* ldaf,
12382                      const float* s, const lapack_complex_float* b,
12383                      lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
12384                      float* rcond, float* berr, lapack_int* n_err_bnds,
12385                      float* err_bnds_norm, float* err_bnds_comp,
12386                      lapack_int* nparams, float* params,
12387                      lapack_complex_float* work, float* rwork,
12388                      lapack_int *info );
12389 void LAPACK_spprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12390                     const float* ap, const float* afp, const float* b,
12391                     lapack_int* ldb, float* x, lapack_int* ldx, float* ferr,
12392                     float* berr, float* work, lapack_int* iwork,
12393                     lapack_int *info );
12394 void LAPACK_dpprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12395                     const double* ap, const double* afp, const double* b,
12396                     lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,
12397                     double* berr, double* work, lapack_int* iwork,
12398                     lapack_int *info );
12399 void LAPACK_cpprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12400                     const lapack_complex_float* ap,
12401                     const lapack_complex_float* afp,
12402                     const lapack_complex_float* b, lapack_int* ldb,
12403                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12404                     float* berr, lapack_complex_float* work, float* rwork,
12405                     lapack_int *info );
12406 void LAPACK_zpprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12407                     const lapack_complex_double* ap,
12408                     const lapack_complex_double* afp,
12409                     const lapack_complex_double* b, lapack_int* ldb,
12410                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12411                     double* berr, lapack_complex_double* work, double* rwork,
12412                     lapack_int *info );
12413 void LAPACK_spbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
12414                     const float* ab, lapack_int* ldab, const float* afb,
12415                     lapack_int* ldafb, const float* b, lapack_int* ldb,
12416                     float* x, lapack_int* ldx, float* ferr, float* berr,
12417                     float* work, lapack_int* iwork, lapack_int *info );
12418 void LAPACK_dpbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
12419                     const double* ab, lapack_int* ldab, const double* afb,
12420                     lapack_int* ldafb, const double* b, lapack_int* ldb,
12421                     double* x, lapack_int* ldx, double* ferr, double* berr,
12422                     double* work, lapack_int* iwork, lapack_int *info );
12423 void LAPACK_cpbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
12424                     const lapack_complex_float* ab, lapack_int* ldab,
12425                     const lapack_complex_float* afb, lapack_int* ldafb,
12426                     const lapack_complex_float* b, lapack_int* ldb,
12427                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12428                     float* berr, lapack_complex_float* work, float* rwork,
12429                     lapack_int *info );
12430 void LAPACK_zpbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
12431                     const lapack_complex_double* ab, lapack_int* ldab,
12432                     const lapack_complex_double* afb, lapack_int* ldafb,
12433                     const lapack_complex_double* b, lapack_int* ldb,
12434                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12435                     double* berr, lapack_complex_double* work, double* rwork,
12436                     lapack_int *info );
12437 void LAPACK_sptrfs( lapack_int* n, lapack_int* nrhs, const float* d,
12438                     const float* e, const float* df, const float* ef,
12439                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12440                     float* ferr, float* berr, float* work, lapack_int *info );
12441 void LAPACK_dptrfs( lapack_int* n, lapack_int* nrhs, const double* d,
12442                     const double* e, const double* df, const double* ef,
12443                     const double* b, lapack_int* ldb, double* x,
12444                     lapack_int* ldx, double* ferr, double* berr, double* work,
12445                     lapack_int *info );
12446 void LAPACK_cptrfs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* d,
12447                     const lapack_complex_float* e, const float* df,
12448                     const lapack_complex_float* ef,
12449                     const lapack_complex_float* b, lapack_int* ldb,
12450                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12451                     float* berr, lapack_complex_float* work, float* rwork,
12452                     lapack_int *info );
12453 void LAPACK_zptrfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12454                     const double* d, const lapack_complex_double* e,
12455                     const double* df, const lapack_complex_double* ef,
12456                     const lapack_complex_double* b, lapack_int* ldb,
12457                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12458                     double* berr, lapack_complex_double* work, double* rwork,
12459                     lapack_int *info );
12460 void LAPACK_ssyrfs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,
12461                     lapack_int* lda, const float* af, lapack_int* ldaf,
12462                     const lapack_int* ipiv, const float* b, lapack_int* ldb,
12463                     float* x, lapack_int* ldx, float* ferr, float* berr,
12464                     float* work, lapack_int* iwork, lapack_int *info );
12465 void LAPACK_dsyrfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12466                     const double* a, lapack_int* lda, const double* af,
12467                     lapack_int* ldaf, const lapack_int* ipiv, const double* b,
12468                     lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,
12469                     double* berr, double* work, lapack_int* iwork,
12470                     lapack_int *info );
12471 void LAPACK_csyrfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12472                     const lapack_complex_float* a, lapack_int* lda,
12473                     const lapack_complex_float* af, lapack_int* ldaf,
12474                     const lapack_int* ipiv, const lapack_complex_float* b,
12475                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
12476                     float* ferr, float* berr, lapack_complex_float* work,
12477                     float* rwork, lapack_int *info );
12478 void LAPACK_zsyrfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12479                     const lapack_complex_double* a, lapack_int* lda,
12480                     const lapack_complex_double* af, lapack_int* ldaf,
12481                     const lapack_int* ipiv, const lapack_complex_double* b,
12482                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
12483                     double* ferr, double* berr, lapack_complex_double* work,
12484                     double* rwork, lapack_int *info );
12485 void LAPACK_dsyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12486                      const double* a, lapack_int* lda, const double* af,
12487                      lapack_int* ldaf, const lapack_int* ipiv, const double* s,
12488                      const double* b, lapack_int* ldb, double* x,
12489                      lapack_int* ldx, double* rcond, double* berr,
12490                      lapack_int* n_err_bnds, double* err_bnds_norm,
12491                      double* err_bnds_comp, lapack_int* nparams, double* params,
12492                      double* work, lapack_int* iwork, lapack_int *info );
12493 void LAPACK_ssyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12494                      const float* a, lapack_int* lda, const float* af,
12495                      lapack_int* ldaf, const lapack_int* ipiv, const float* s,
12496                      const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12497                      float* rcond, float* berr, lapack_int* n_err_bnds,
12498                      float* err_bnds_norm, float* err_bnds_comp,
12499                      lapack_int* nparams, float* params, float* work,
12500                      lapack_int* iwork, lapack_int *info );
12501 void LAPACK_zsyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12502                      const lapack_complex_double* a, lapack_int* lda,
12503                      const lapack_complex_double* af, lapack_int* ldaf,
12504                      const lapack_int* ipiv, const double* s,
12505                      const lapack_complex_double* b, lapack_int* ldb,
12506                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
12507                      double* berr, lapack_int* n_err_bnds,
12508                      double* err_bnds_norm, double* err_bnds_comp,
12509                      lapack_int* nparams, double* params,
12510                      lapack_complex_double* work, double* rwork,
12511                      lapack_int *info );
12512 void LAPACK_csyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12513                      const lapack_complex_float* a, lapack_int* lda,
12514                      const lapack_complex_float* af, lapack_int* ldaf,
12515                      const lapack_int* ipiv, const float* s,
12516                      const lapack_complex_float* b, lapack_int* ldb,
12517                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
12518                      float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,
12519                      float* err_bnds_comp, lapack_int* nparams, float* params,
12520                      lapack_complex_float* work, float* rwork,
12521                      lapack_int *info );
12522 void LAPACK_cherfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12523                     const lapack_complex_float* a, lapack_int* lda,
12524                     const lapack_complex_float* af, lapack_int* ldaf,
12525                     const lapack_int* ipiv, const lapack_complex_float* b,
12526                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
12527                     float* ferr, float* berr, lapack_complex_float* work,
12528                     float* rwork, lapack_int *info );
12529 void LAPACK_zherfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12530                     const lapack_complex_double* a, lapack_int* lda,
12531                     const lapack_complex_double* af, lapack_int* ldaf,
12532                     const lapack_int* ipiv, const lapack_complex_double* b,
12533                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
12534                     double* ferr, double* berr, lapack_complex_double* work,
12535                     double* rwork, lapack_int *info );
12536 void LAPACK_zherfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12537                      const lapack_complex_double* a, lapack_int* lda,
12538                      const lapack_complex_double* af, lapack_int* ldaf,
12539                      const lapack_int* ipiv, const double* s,
12540                      const lapack_complex_double* b, lapack_int* ldb,
12541                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
12542                      double* berr, lapack_int* n_err_bnds,
12543                      double* err_bnds_norm, double* err_bnds_comp,
12544                      lapack_int* nparams, double* params,
12545                      lapack_complex_double* work, double* rwork,
12546                      lapack_int *info );
12547 void LAPACK_cherfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,
12548                      const lapack_complex_float* a, lapack_int* lda,
12549                      const lapack_complex_float* af, lapack_int* ldaf,
12550                      const lapack_int* ipiv, const float* s,
12551                      const lapack_complex_float* b, lapack_int* ldb,
12552                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
12553                      float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,
12554                      float* err_bnds_comp, lapack_int* nparams, float* params,
12555                      lapack_complex_float* work, float* rwork,
12556                      lapack_int *info );
12557 void LAPACK_ssprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12558                     const float* ap, const float* afp, const lapack_int* ipiv,
12559                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12560                     float* ferr, float* berr, float* work, lapack_int* iwork,
12561                     lapack_int *info );
12562 void LAPACK_dsprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12563                     const double* ap, const double* afp, const lapack_int* ipiv,
12564                     const double* b, lapack_int* ldb, double* x,
12565                     lapack_int* ldx, double* ferr, double* berr, double* work,
12566                     lapack_int* iwork, lapack_int *info );
12567 void LAPACK_csprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12568                     const lapack_complex_float* ap,
12569                     const lapack_complex_float* afp, const lapack_int* ipiv,
12570                     const lapack_complex_float* b, lapack_int* ldb,
12571                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12572                     float* berr, lapack_complex_float* work, float* rwork,
12573                     lapack_int *info );
12574 void LAPACK_zsprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12575                     const lapack_complex_double* ap,
12576                     const lapack_complex_double* afp, const lapack_int* ipiv,
12577                     const lapack_complex_double* b, lapack_int* ldb,
12578                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12579                     double* berr, lapack_complex_double* work, double* rwork,
12580                     lapack_int *info );
12581 void LAPACK_chprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12582                     const lapack_complex_float* ap,
12583                     const lapack_complex_float* afp, const lapack_int* ipiv,
12584                     const lapack_complex_float* b, lapack_int* ldb,
12585                     lapack_complex_float* x, lapack_int* ldx, float* ferr,
12586                     float* berr, lapack_complex_float* work, float* rwork,
12587                     lapack_int *info );
12588 void LAPACK_zhprfs( char* uplo, lapack_int* n, lapack_int* nrhs,
12589                     const lapack_complex_double* ap,
12590                     const lapack_complex_double* afp, const lapack_int* ipiv,
12591                     const lapack_complex_double* b, lapack_int* ldb,
12592                     lapack_complex_double* x, lapack_int* ldx, double* ferr,
12593                     double* berr, lapack_complex_double* work, double* rwork,
12594                     lapack_int *info );
12595 void LAPACK_strrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12596                     lapack_int* nrhs, const float* a, lapack_int* lda,
12597                     const float* b, lapack_int* ldb, const float* x,
12598                     lapack_int* ldx, float* ferr, float* berr, float* work,
12599                     lapack_int* iwork, lapack_int *info );
12600 void LAPACK_dtrrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12601                     lapack_int* nrhs, const double* a, lapack_int* lda,
12602                     const double* b, lapack_int* ldb, const double* x,
12603                     lapack_int* ldx, double* ferr, double* berr, double* work,
12604                     lapack_int* iwork, lapack_int *info );
12605 void LAPACK_ctrrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12606                     lapack_int* nrhs, const lapack_complex_float* a,
12607                     lapack_int* lda, const lapack_complex_float* b,
12608                     lapack_int* ldb, const lapack_complex_float* x,
12609                     lapack_int* ldx, float* ferr, float* berr,
12610                     lapack_complex_float* work, float* rwork,
12611                     lapack_int *info );
12612 void LAPACK_ztrrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12613                     lapack_int* nrhs, const lapack_complex_double* a,
12614                     lapack_int* lda, const lapack_complex_double* b,
12615                     lapack_int* ldb, const lapack_complex_double* x,
12616                     lapack_int* ldx, double* ferr, double* berr,
12617                     lapack_complex_double* work, double* rwork,
12618                     lapack_int *info );
12619 void LAPACK_stprfs( char* uplo, char* trans, char* diag, lapack_int* n,
12620                     lapack_int* nrhs, const float* ap, const float* b,
12621                     lapack_int* ldb, const float* x, lapack_int* ldx,
12622                     float* ferr, float* berr, float* work, lapack_int* iwork,
12623                     lapack_int *info );
12624 void LAPACK_dtprfs( char* uplo, char* trans, char* diag, lapack_int* n,
12625                     lapack_int* nrhs, const double* ap, const double* b,
12626                     lapack_int* ldb, const double* x, lapack_int* ldx,
12627                     double* ferr, double* berr, double* work, lapack_int* iwork,
12628                     lapack_int *info );
12629 void LAPACK_ctprfs( char* uplo, char* trans, char* diag, lapack_int* n,
12630                     lapack_int* nrhs, const lapack_complex_float* ap,
12631                     const lapack_complex_float* b, lapack_int* ldb,
12632                     const lapack_complex_float* x, lapack_int* ldx, float* ferr,
12633                     float* berr, lapack_complex_float* work, float* rwork,
12634                     lapack_int *info );
12635 void LAPACK_ztprfs( char* uplo, char* trans, char* diag, lapack_int* n,
12636                     lapack_int* nrhs, const lapack_complex_double* ap,
12637                     const lapack_complex_double* b, lapack_int* ldb,
12638                     const lapack_complex_double* x, lapack_int* ldx,
12639                     double* ferr, double* berr, lapack_complex_double* work,
12640                     double* rwork, lapack_int *info );
12641 void LAPACK_stbrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12642                     lapack_int* kd, lapack_int* nrhs, const float* ab,
12643                     lapack_int* ldab, const float* b, lapack_int* ldb,
12644                     const float* x, lapack_int* ldx, float* ferr, float* berr,
12645                     float* work, lapack_int* iwork, lapack_int *info );
12646 void LAPACK_dtbrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12647                     lapack_int* kd, lapack_int* nrhs, const double* ab,
12648                     lapack_int* ldab, const double* b, lapack_int* ldb,
12649                     const double* x, lapack_int* ldx, double* ferr,
12650                     double* berr, double* work, lapack_int* iwork,
12651                     lapack_int *info );
12652 void LAPACK_ctbrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12653                     lapack_int* kd, lapack_int* nrhs,
12654                     const lapack_complex_float* ab, lapack_int* ldab,
12655                     const lapack_complex_float* b, lapack_int* ldb,
12656                     const lapack_complex_float* x, lapack_int* ldx, float* ferr,
12657                     float* berr, lapack_complex_float* work, float* rwork,
12658                     lapack_int *info );
12659 void LAPACK_ztbrfs( char* uplo, char* trans, char* diag, lapack_int* n,
12660                     lapack_int* kd, lapack_int* nrhs,
12661                     const lapack_complex_double* ab, lapack_int* ldab,
12662                     const lapack_complex_double* b, lapack_int* ldb,
12663                     const lapack_complex_double* x, lapack_int* ldx,
12664                     double* ferr, double* berr, lapack_complex_double* work,
12665                     double* rwork, lapack_int *info );
12666 void LAPACK_sgetri( lapack_int* n, float* a, lapack_int* lda,
12667                     const lapack_int* ipiv, float* work, lapack_int* lwork,
12668                     lapack_int *info );
12669 void LAPACK_dgetri( lapack_int* n, double* a, lapack_int* lda,
12670                     const lapack_int* ipiv, double* work, lapack_int* lwork,
12671                     lapack_int *info );
12672 void LAPACK_cgetri( lapack_int* n, lapack_complex_float* a, lapack_int* lda,
12673                     const lapack_int* ipiv, lapack_complex_float* work,
12674                     lapack_int* lwork, lapack_int *info );
12675 void LAPACK_zgetri( lapack_int* n, lapack_complex_double* a, lapack_int* lda,
12676                     const lapack_int* ipiv, lapack_complex_double* work,
12677                     lapack_int* lwork, lapack_int *info );
12678 void LAPACK_spotri( char* uplo, lapack_int* n, float* a, lapack_int* lda,
12679                     lapack_int *info );
12680 void LAPACK_dpotri( char* uplo, lapack_int* n, double* a, lapack_int* lda,
12681                     lapack_int *info );
12682 void LAPACK_cpotri( char* uplo, lapack_int* n, lapack_complex_float* a,
12683                     lapack_int* lda, lapack_int *info );
12684 void LAPACK_zpotri( char* uplo, lapack_int* n, lapack_complex_double* a,
12685                     lapack_int* lda, lapack_int *info );
12686 void LAPACK_dpftri( char* transr, char* uplo, lapack_int* n, double* a,
12687                     lapack_int *info );
12688 void LAPACK_spftri( char* transr, char* uplo, lapack_int* n, float* a,
12689                     lapack_int *info );
12690 void LAPACK_zpftri( char* transr, char* uplo, lapack_int* n,
12691                     lapack_complex_double* a, lapack_int *info );
12692 void LAPACK_cpftri( char* transr, char* uplo, lapack_int* n,
12693                     lapack_complex_float* a, lapack_int *info );
12694 void LAPACK_spptri( char* uplo, lapack_int* n, float* ap, lapack_int *info );
12695 void LAPACK_dpptri( char* uplo, lapack_int* n, double* ap, lapack_int *info );
12696 void LAPACK_cpptri( char* uplo, lapack_int* n, lapack_complex_float* ap,
12697                     lapack_int *info );
12698 void LAPACK_zpptri( char* uplo, lapack_int* n, lapack_complex_double* ap,
12699                     lapack_int *info );
12700 void LAPACK_ssytri( char* uplo, lapack_int* n, float* a, lapack_int* lda,
12701                     const lapack_int* ipiv, float* work, lapack_int *info );
12702 void LAPACK_dsytri( char* uplo, lapack_int* n, double* a, lapack_int* lda,
12703                     const lapack_int* ipiv, double* work, lapack_int *info );
12704 void LAPACK_csytri( char* uplo, lapack_int* n, lapack_complex_float* a,
12705                     lapack_int* lda, const lapack_int* ipiv,
12706                     lapack_complex_float* work, lapack_int *info );
12707 void LAPACK_zsytri( char* uplo, lapack_int* n, lapack_complex_double* a,
12708                     lapack_int* lda, const lapack_int* ipiv,
12709                     lapack_complex_double* work, lapack_int *info );
12710 void LAPACK_chetri( char* uplo, lapack_int* n, lapack_complex_float* a,
12711                     lapack_int* lda, const lapack_int* ipiv,
12712                     lapack_complex_float* work, lapack_int *info );
12713 void LAPACK_zhetri( char* uplo, lapack_int* n, lapack_complex_double* a,
12714                     lapack_int* lda, const lapack_int* ipiv,
12715                     lapack_complex_double* work, lapack_int *info );
12716 void LAPACK_ssptri( char* uplo, lapack_int* n, float* ap,
12717                     const lapack_int* ipiv, float* work, lapack_int *info );
12718 void LAPACK_dsptri( char* uplo, lapack_int* n, double* ap,
12719                     const lapack_int* ipiv, double* work, lapack_int *info );
12720 void LAPACK_csptri( char* uplo, lapack_int* n, lapack_complex_float* ap,
12721                     const lapack_int* ipiv, lapack_complex_float* work,
12722                     lapack_int *info );
12723 void LAPACK_zsptri( char* uplo, lapack_int* n, lapack_complex_double* ap,
12724                     const lapack_int* ipiv, lapack_complex_double* work,
12725                     lapack_int *info );
12726 void LAPACK_chptri( char* uplo, lapack_int* n, lapack_complex_float* ap,
12727                     const lapack_int* ipiv, lapack_complex_float* work,
12728                     lapack_int *info );
12729 void LAPACK_zhptri( char* uplo, lapack_int* n, lapack_complex_double* ap,
12730                     const lapack_int* ipiv, lapack_complex_double* work,
12731                     lapack_int *info );
12732 void LAPACK_strtri( char* uplo, char* diag, lapack_int* n, float* a,
12733                     lapack_int* lda, lapack_int *info );
12734 void LAPACK_dtrtri( char* uplo, char* diag, lapack_int* n, double* a,
12735                     lapack_int* lda, lapack_int *info );
12736 void LAPACK_ctrtri( char* uplo, char* diag, lapack_int* n,
12737                     lapack_complex_float* a, lapack_int* lda,
12738                     lapack_int *info );
12739 void LAPACK_ztrtri( char* uplo, char* diag, lapack_int* n,
12740                     lapack_complex_double* a, lapack_int* lda,
12741                     lapack_int *info );
12742 void LAPACK_dtftri( char* transr, char* uplo, char* diag, lapack_int* n,
12743                     double* a, lapack_int *info );
12744 void LAPACK_stftri( char* transr, char* uplo, char* diag, lapack_int* n,
12745                     float* a, lapack_int *info );
12746 void LAPACK_ztftri( char* transr, char* uplo, char* diag, lapack_int* n,
12747                     lapack_complex_double* a, lapack_int *info );
12748 void LAPACK_ctftri( char* transr, char* uplo, char* diag, lapack_int* n,
12749                     lapack_complex_float* a, lapack_int *info );
12750 void LAPACK_stptri( char* uplo, char* diag, lapack_int* n, float* ap,
12751                     lapack_int *info );
12752 void LAPACK_dtptri( char* uplo, char* diag, lapack_int* n, double* ap,
12753                     lapack_int *info );
12754 void LAPACK_ctptri( char* uplo, char* diag, lapack_int* n,
12755                     lapack_complex_float* ap, lapack_int *info );
12756 void LAPACK_ztptri( char* uplo, char* diag, lapack_int* n,
12757                     lapack_complex_double* ap, lapack_int *info );
12758 void LAPACK_sgeequ( lapack_int* m, lapack_int* n, const float* a,
12759                     lapack_int* lda, float* r, float* c, float* rowcnd,
12760                     float* colcnd, float* amax, lapack_int *info );
12761 void LAPACK_dgeequ( lapack_int* m, lapack_int* n, const double* a,
12762                     lapack_int* lda, double* r, double* c, double* rowcnd,
12763                     double* colcnd, double* amax, lapack_int *info );
12764 void LAPACK_cgeequ( lapack_int* m, lapack_int* n, const lapack_complex_float* a,
12765                     lapack_int* lda, float* r, float* c, float* rowcnd,
12766                     float* colcnd, float* amax, lapack_int *info );
12767 void LAPACK_zgeequ( lapack_int* m, lapack_int* n,
12768                     const lapack_complex_double* a, lapack_int* lda, double* r,
12769                     double* c, double* rowcnd, double* colcnd, double* amax,
12770                     lapack_int *info );
12771 void LAPACK_dgeequb( lapack_int* m, lapack_int* n, const double* a,
12772                      lapack_int* lda, double* r, double* c, double* rowcnd,
12773                      double* colcnd, double* amax, lapack_int *info );
12774 void LAPACK_sgeequb( lapack_int* m, lapack_int* n, const float* a,
12775                      lapack_int* lda, float* r, float* c, float* rowcnd,
12776                      float* colcnd, float* amax, lapack_int *info );
12777 void LAPACK_zgeequb( lapack_int* m, lapack_int* n,
12778                      const lapack_complex_double* a, lapack_int* lda, double* r,
12779                      double* c, double* rowcnd, double* colcnd, double* amax,
12780                      lapack_int *info );
12781 void LAPACK_cgeequb( lapack_int* m, lapack_int* n,
12782                      const lapack_complex_float* a, lapack_int* lda, float* r,
12783                      float* c, float* rowcnd, float* colcnd, float* amax,
12784                      lapack_int *info );
12785 void LAPACK_sgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,
12786                     lapack_int* ku, const float* ab, lapack_int* ldab, float* r,
12787                     float* c, float* rowcnd, float* colcnd, float* amax,
12788                     lapack_int *info );
12789 void LAPACK_dgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,
12790                     lapack_int* ku, const double* ab, lapack_int* ldab,
12791                     double* r, double* c, double* rowcnd, double* colcnd,
12792                     double* amax, lapack_int *info );
12793 void LAPACK_cgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,
12794                     lapack_int* ku, const lapack_complex_float* ab,
12795                     lapack_int* ldab, float* r, float* c, float* rowcnd,
12796                     float* colcnd, float* amax, lapack_int *info );
12797 void LAPACK_zgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,
12798                     lapack_int* ku, const lapack_complex_double* ab,
12799                     lapack_int* ldab, double* r, double* c, double* rowcnd,
12800                     double* colcnd, double* amax, lapack_int *info );
12801 void LAPACK_dgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,
12802                      lapack_int* ku, const double* ab, lapack_int* ldab,
12803                      double* r, double* c, double* rowcnd, double* colcnd,
12804                      double* amax, lapack_int *info );
12805 void LAPACK_sgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,
12806                      lapack_int* ku, const float* ab, lapack_int* ldab,
12807                      float* r, float* c, float* rowcnd, float* colcnd,
12808                      float* amax, lapack_int *info );
12809 void LAPACK_zgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,
12810                      lapack_int* ku, const lapack_complex_double* ab,
12811                      lapack_int* ldab, double* r, double* c, double* rowcnd,
12812                      double* colcnd, double* amax, lapack_int *info );
12813 void LAPACK_cgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,
12814                      lapack_int* ku, const lapack_complex_float* ab,
12815                      lapack_int* ldab, float* r, float* c, float* rowcnd,
12816                      float* colcnd, float* amax, lapack_int *info );
12817 void LAPACK_spoequ( lapack_int* n, const float* a, lapack_int* lda, float* s,
12818                     float* scond, float* amax, lapack_int *info );
12819 void LAPACK_dpoequ( lapack_int* n, const double* a, lapack_int* lda, double* s,
12820                     double* scond, double* amax, lapack_int *info );
12821 void LAPACK_cpoequ( lapack_int* n, const lapack_complex_float* a,
12822                     lapack_int* lda, float* s, float* scond, float* amax,
12823                     lapack_int *info );
12824 void LAPACK_zpoequ( lapack_int* n, const lapack_complex_double* a,
12825                     lapack_int* lda, double* s, double* scond, double* amax,
12826                     lapack_int *info );
12827 void LAPACK_dpoequb( lapack_int* n, const double* a, lapack_int* lda, double* s,
12828                      double* scond, double* amax, lapack_int *info );
12829 void LAPACK_spoequb( lapack_int* n, const float* a, lapack_int* lda, float* s,
12830                      float* scond, float* amax, lapack_int *info );
12831 void LAPACK_zpoequb( lapack_int* n, const lapack_complex_double* a,
12832                      lapack_int* lda, double* s, double* scond, double* amax,
12833                      lapack_int *info );
12834 void LAPACK_cpoequb( lapack_int* n, const lapack_complex_float* a,
12835                      lapack_int* lda, float* s, float* scond, float* amax,
12836                      lapack_int *info );
12837 void LAPACK_sppequ( char* uplo, lapack_int* n, const float* ap, float* s,
12838                     float* scond, float* amax, lapack_int *info );
12839 void LAPACK_dppequ( char* uplo, lapack_int* n, const double* ap, double* s,
12840                     double* scond, double* amax, lapack_int *info );
12841 void LAPACK_cppequ( char* uplo, lapack_int* n, const lapack_complex_float* ap,
12842                     float* s, float* scond, float* amax, lapack_int *info );
12843 void LAPACK_zppequ( char* uplo, lapack_int* n, const lapack_complex_double* ap,
12844                     double* s, double* scond, double* amax, lapack_int *info );
12845 void LAPACK_spbequ( char* uplo, lapack_int* n, lapack_int* kd, const float* ab,
12846                     lapack_int* ldab, float* s, float* scond, float* amax,
12847                     lapack_int *info );
12848 void LAPACK_dpbequ( char* uplo, lapack_int* n, lapack_int* kd, const double* ab,
12849                     lapack_int* ldab, double* s, double* scond, double* amax,
12850                     lapack_int *info );
12851 void LAPACK_cpbequ( char* uplo, lapack_int* n, lapack_int* kd,
12852                     const lapack_complex_float* ab, lapack_int* ldab, float* s,
12853                     float* scond, float* amax, lapack_int *info );
12854 void LAPACK_zpbequ( char* uplo, lapack_int* n, lapack_int* kd,
12855                     const lapack_complex_double* ab, lapack_int* ldab,
12856                     double* s, double* scond, double* amax, lapack_int *info );
12857 void LAPACK_dsyequb( char* uplo, lapack_int* n, const double* a,
12858                      lapack_int* lda, double* s, double* scond, double* amax,
12859                      double* work, lapack_int *info );
12860 void LAPACK_ssyequb( char* uplo, lapack_int* n, const float* a, lapack_int* lda,
12861                      float* s, float* scond, float* amax, float* work,
12862                      lapack_int *info );
12863 void LAPACK_zsyequb( char* uplo, lapack_int* n, const lapack_complex_double* a,
12864                      lapack_int* lda, double* s, double* scond, double* amax,
12865                      lapack_complex_double* work, lapack_int *info );
12866 void LAPACK_csyequb( char* uplo, lapack_int* n, const lapack_complex_float* a,
12867                      lapack_int* lda, float* s, float* scond, float* amax,
12868                      lapack_complex_float* work, lapack_int *info );
12869 void LAPACK_zheequb( char* uplo, lapack_int* n, const lapack_complex_double* a,
12870                      lapack_int* lda, double* s, double* scond, double* amax,
12871                      lapack_complex_double* work, lapack_int *info );
12872 void LAPACK_cheequb( char* uplo, lapack_int* n, const lapack_complex_float* a,
12873                      lapack_int* lda, float* s, float* scond, float* amax,
12874                      lapack_complex_float* work, lapack_int *info );
12875 void LAPACK_sgesv( lapack_int* n, lapack_int* nrhs, float* a, lapack_int* lda,
12876                    lapack_int* ipiv, float* b, lapack_int* ldb,
12877                    lapack_int *info );
12878 void LAPACK_dgesv( lapack_int* n, lapack_int* nrhs, double* a, lapack_int* lda,
12879                    lapack_int* ipiv, double* b, lapack_int* ldb,
12880                    lapack_int *info );
12881 void LAPACK_cgesv( lapack_int* n, lapack_int* nrhs, lapack_complex_float* a,
12882                    lapack_int* lda, lapack_int* ipiv, lapack_complex_float* b,
12883                    lapack_int* ldb, lapack_int *info );
12884 void LAPACK_zgesv( lapack_int* n, lapack_int* nrhs, lapack_complex_double* a,
12885                    lapack_int* lda, lapack_int* ipiv, lapack_complex_double* b,
12886                    lapack_int* ldb, lapack_int *info );
12887 void LAPACK_dsgesv( lapack_int* n, lapack_int* nrhs, double* a, lapack_int* lda,
12888                     lapack_int* ipiv, double* b, lapack_int* ldb, double* x,
12889                     lapack_int* ldx, double* work, float* swork,
12890                     lapack_int* iter, lapack_int *info );
12891 void LAPACK_zcgesv( lapack_int* n, lapack_int* nrhs, lapack_complex_double* a,
12892                     lapack_int* lda, lapack_int* ipiv, lapack_complex_double* b,
12893                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
12894                     lapack_complex_double* work, lapack_complex_float* swork,
12895                     double* rwork, lapack_int* iter, lapack_int *info );
12896 void LAPACK_sgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12897                     float* a, lapack_int* lda, float* af, lapack_int* ldaf,
12898                     lapack_int* ipiv, char* equed, float* r, float* c, float* b,
12899                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
12900                     float* ferr, float* berr, float* work, lapack_int* iwork,
12901                     lapack_int *info );
12902 void LAPACK_dgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12903                     double* a, lapack_int* lda, double* af, lapack_int* ldaf,
12904                     lapack_int* ipiv, char* equed, double* r, double* c,
12905                     double* b, lapack_int* ldb, double* x, lapack_int* ldx,
12906                     double* rcond, double* ferr, double* berr, double* work,
12907                     lapack_int* iwork, lapack_int *info );
12908 void LAPACK_cgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12909                     lapack_complex_float* a, lapack_int* lda,
12910                     lapack_complex_float* af, lapack_int* ldaf,
12911                     lapack_int* ipiv, char* equed, float* r, float* c,
12912                     lapack_complex_float* b, lapack_int* ldb,
12913                     lapack_complex_float* x, lapack_int* ldx, float* rcond,
12914                     float* ferr, float* berr, lapack_complex_float* work,
12915                     float* rwork, lapack_int *info );
12916 void LAPACK_zgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12917                     lapack_complex_double* a, lapack_int* lda,
12918                     lapack_complex_double* af, lapack_int* ldaf,
12919                     lapack_int* ipiv, char* equed, double* r, double* c,
12920                     lapack_complex_double* b, lapack_int* ldb,
12921                     lapack_complex_double* x, lapack_int* ldx, double* rcond,
12922                     double* ferr, double* berr, lapack_complex_double* work,
12923                     double* rwork, lapack_int *info );
12924 void LAPACK_dgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12925                      double* a, lapack_int* lda, double* af, lapack_int* ldaf,
12926                      lapack_int* ipiv, char* equed, double* r, double* c,
12927                      double* b, lapack_int* ldb, double* x, lapack_int* ldx,
12928                      double* rcond, double* rpvgrw, double* berr,
12929                      lapack_int* n_err_bnds, double* err_bnds_norm,
12930                      double* err_bnds_comp, lapack_int* nparams, double* params,
12931                      double* work, lapack_int* iwork, lapack_int *info );
12932 void LAPACK_sgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12933                      float* a, lapack_int* lda, float* af, lapack_int* ldaf,
12934                      lapack_int* ipiv, char* equed, float* r, float* c,
12935                      float* b, lapack_int* ldb, float* x, lapack_int* ldx,
12936                      float* rcond, float* rpvgrw, float* berr,
12937                      lapack_int* n_err_bnds, float* err_bnds_norm,
12938                      float* err_bnds_comp, lapack_int* nparams, float* params,
12939                      float* work, lapack_int* iwork, lapack_int *info );
12940 void LAPACK_zgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12941                      lapack_complex_double* a, lapack_int* lda,
12942                      lapack_complex_double* af, lapack_int* ldaf,
12943                      lapack_int* ipiv, char* equed, double* r, double* c,
12944                      lapack_complex_double* b, lapack_int* ldb,
12945                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
12946                      double* rpvgrw, double* berr, lapack_int* n_err_bnds,
12947                      double* err_bnds_norm, double* err_bnds_comp,
12948                      lapack_int* nparams, double* params,
12949                      lapack_complex_double* work, double* rwork,
12950                      lapack_int *info );
12951 void LAPACK_cgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
12952                      lapack_complex_float* a, lapack_int* lda,
12953                      lapack_complex_float* af, lapack_int* ldaf,
12954                      lapack_int* ipiv, char* equed, float* r, float* c,
12955                      lapack_complex_float* b, lapack_int* ldb,
12956                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
12957                      float* rpvgrw, float* berr, lapack_int* n_err_bnds,
12958                      float* err_bnds_norm, float* err_bnds_comp,
12959                      lapack_int* nparams, float* params,
12960                      lapack_complex_float* work, float* rwork,
12961                      lapack_int *info );
12962 void LAPACK_sgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,
12963                    lapack_int* nrhs, float* ab, lapack_int* ldab,
12964                    lapack_int* ipiv, float* b, lapack_int* ldb,
12965                    lapack_int *info );
12966 void LAPACK_dgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,
12967                    lapack_int* nrhs, double* ab, lapack_int* ldab,
12968                    lapack_int* ipiv, double* b, lapack_int* ldb,
12969                    lapack_int *info );
12970 void LAPACK_cgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,
12971                    lapack_int* nrhs, lapack_complex_float* ab, lapack_int* ldab,
12972                    lapack_int* ipiv, lapack_complex_float* b, lapack_int* ldb,
12973                    lapack_int *info );
12974 void LAPACK_zgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,
12975                    lapack_int* nrhs, lapack_complex_double* ab,
12976                    lapack_int* ldab, lapack_int* ipiv, lapack_complex_double* b,
12977                    lapack_int* ldb, lapack_int *info );
12978 void LAPACK_sgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
12979                     lapack_int* ku, lapack_int* nrhs, float* ab,
12980                     lapack_int* ldab, float* afb, lapack_int* ldafb,
12981                     lapack_int* ipiv, char* equed, float* r, float* c, float* b,
12982                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
12983                     float* ferr, float* berr, float* work, lapack_int* iwork,
12984                     lapack_int *info );
12985 void LAPACK_dgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
12986                     lapack_int* ku, lapack_int* nrhs, double* ab,
12987                     lapack_int* ldab, double* afb, lapack_int* ldafb,
12988                     lapack_int* ipiv, char* equed, double* r, double* c,
12989                     double* b, lapack_int* ldb, double* x, lapack_int* ldx,
12990                     double* rcond, double* ferr, double* berr, double* work,
12991                     lapack_int* iwork, lapack_int *info );
12992 void LAPACK_cgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
12993                     lapack_int* ku, lapack_int* nrhs, lapack_complex_float* ab,
12994                     lapack_int* ldab, lapack_complex_float* afb,
12995                     lapack_int* ldafb, lapack_int* ipiv, char* equed, float* r,
12996                     float* c, lapack_complex_float* b, lapack_int* ldb,
12997                     lapack_complex_float* x, lapack_int* ldx, float* rcond,
12998                     float* ferr, float* berr, lapack_complex_float* work,
12999                     float* rwork, lapack_int *info );
13000 void LAPACK_zgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
13001                     lapack_int* ku, lapack_int* nrhs, lapack_complex_double* ab,
13002                     lapack_int* ldab, lapack_complex_double* afb,
13003                     lapack_int* ldafb, lapack_int* ipiv, char* equed, double* r,
13004                     double* c, lapack_complex_double* b, lapack_int* ldb,
13005                     lapack_complex_double* x, lapack_int* ldx, double* rcond,
13006                     double* ferr, double* berr, lapack_complex_double* work,
13007                     double* rwork, lapack_int *info );
13008 void LAPACK_dgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
13009                      lapack_int* ku, lapack_int* nrhs, double* ab,
13010                      lapack_int* ldab, double* afb, lapack_int* ldafb,
13011                      lapack_int* ipiv, char* equed, double* r, double* c,
13012                      double* b, lapack_int* ldb, double* x, lapack_int* ldx,
13013                      double* rcond, double* rpvgrw, double* berr,
13014                      lapack_int* n_err_bnds, double* err_bnds_norm,
13015                      double* err_bnds_comp, lapack_int* nparams, double* params,
13016                      double* work, lapack_int* iwork, lapack_int *info );
13017 void LAPACK_sgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
13018                      lapack_int* ku, lapack_int* nrhs, float* ab,
13019                      lapack_int* ldab, float* afb, lapack_int* ldafb,
13020                      lapack_int* ipiv, char* equed, float* r, float* c,
13021                      float* b, lapack_int* ldb, float* x, lapack_int* ldx,
13022                      float* rcond, float* rpvgrw, float* berr,
13023                      lapack_int* n_err_bnds, float* err_bnds_norm,
13024                      float* err_bnds_comp, lapack_int* nparams, float* params,
13025                      float* work, lapack_int* iwork, lapack_int *info );
13026 void LAPACK_zgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
13027                      lapack_int* ku, lapack_int* nrhs,
13028                      lapack_complex_double* ab, lapack_int* ldab,
13029                      lapack_complex_double* afb, lapack_int* ldafb,
13030                      lapack_int* ipiv, char* equed, double* r, double* c,
13031                      lapack_complex_double* b, lapack_int* ldb,
13032                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
13033                      double* rpvgrw, double* berr, lapack_int* n_err_bnds,
13034                      double* err_bnds_norm, double* err_bnds_comp,
13035                      lapack_int* nparams, double* params,
13036                      lapack_complex_double* work, double* rwork,
13037                      lapack_int *info );
13038 void LAPACK_cgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,
13039                      lapack_int* ku, lapack_int* nrhs, lapack_complex_float* ab,
13040                      lapack_int* ldab, lapack_complex_float* afb,
13041                      lapack_int* ldafb, lapack_int* ipiv, char* equed, float* r,
13042                      float* c, lapack_complex_float* b, lapack_int* ldb,
13043                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
13044                      float* rpvgrw, float* berr, lapack_int* n_err_bnds,
13045                      float* err_bnds_norm, float* err_bnds_comp,
13046                      lapack_int* nparams, float* params,
13047                      lapack_complex_float* work, float* rwork,
13048                      lapack_int *info );
13049 void LAPACK_sgtsv( lapack_int* n, lapack_int* nrhs, float* dl, float* d,
13050                    float* du, float* b, lapack_int* ldb, lapack_int *info );
13051 void LAPACK_dgtsv( lapack_int* n, lapack_int* nrhs, double* dl, double* d,
13052                    double* du, double* b, lapack_int* ldb, lapack_int *info );
13053 void LAPACK_cgtsv( lapack_int* n, lapack_int* nrhs, lapack_complex_float* dl,
13054                    lapack_complex_float* d, lapack_complex_float* du,
13055                    lapack_complex_float* b, lapack_int* ldb, lapack_int *info );
13056 void LAPACK_zgtsv( lapack_int* n, lapack_int* nrhs, lapack_complex_double* dl,
13057                    lapack_complex_double* d, lapack_complex_double* du,
13058                    lapack_complex_double* b, lapack_int* ldb,
13059                    lapack_int *info );
13060 void LAPACK_sgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
13061                     const float* dl, const float* d, const float* du,
13062                     float* dlf, float* df, float* duf, float* du2,
13063                     lapack_int* ipiv, const float* b, lapack_int* ldb, float* x,
13064                     lapack_int* ldx, float* rcond, float* ferr, float* berr,
13065                     float* work, lapack_int* iwork, lapack_int *info );
13066 void LAPACK_dgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
13067                     const double* dl, const double* d, const double* du,
13068                     double* dlf, double* df, double* duf, double* du2,
13069                     lapack_int* ipiv, const double* b, lapack_int* ldb,
13070                     double* x, lapack_int* ldx, double* rcond, double* ferr,
13071                     double* berr, double* work, lapack_int* iwork,
13072                     lapack_int *info );
13073 void LAPACK_cgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
13074                     const lapack_complex_float* dl,
13075                     const lapack_complex_float* d,
13076                     const lapack_complex_float* du, lapack_complex_float* dlf,
13077                     lapack_complex_float* df, lapack_complex_float* duf,
13078                     lapack_complex_float* du2, lapack_int* ipiv,
13079                     const lapack_complex_float* b, lapack_int* ldb,
13080                     lapack_complex_float* x, lapack_int* ldx, float* rcond,
13081                     float* ferr, float* berr, lapack_complex_float* work,
13082                     float* rwork, lapack_int *info );
13083 void LAPACK_zgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,
13084                     const lapack_complex_double* dl,
13085                     const lapack_complex_double* d,
13086                     const lapack_complex_double* du, lapack_complex_double* dlf,
13087                     lapack_complex_double* df, lapack_complex_double* duf,
13088                     lapack_complex_double* du2, lapack_int* ipiv,
13089                     const lapack_complex_double* b, lapack_int* ldb,
13090                     lapack_complex_double* x, lapack_int* ldx, double* rcond,
13091                     double* ferr, double* berr, lapack_complex_double* work,
13092                     double* rwork, lapack_int *info );
13093 void LAPACK_sposv( char* uplo, lapack_int* n, lapack_int* nrhs, float* a,
13094                    lapack_int* lda, float* b, lapack_int* ldb,
13095                    lapack_int *info );
13096 void LAPACK_dposv( char* uplo, lapack_int* n, lapack_int* nrhs, double* a,
13097                    lapack_int* lda, double* b, lapack_int* ldb,
13098                    lapack_int *info );
13099 void LAPACK_cposv( char* uplo, lapack_int* n, lapack_int* nrhs,
13100                    lapack_complex_float* a, lapack_int* lda,
13101                    lapack_complex_float* b, lapack_int* ldb, lapack_int *info );
13102 void LAPACK_zposv( char* uplo, lapack_int* n, lapack_int* nrhs,
13103                    lapack_complex_double* a, lapack_int* lda,
13104                    lapack_complex_double* b, lapack_int* ldb,
13105                    lapack_int *info );
13106 void LAPACK_dsposv( char* uplo, lapack_int* n, lapack_int* nrhs, double* a,
13107                     lapack_int* lda, double* b, lapack_int* ldb, double* x,
13108                     lapack_int* ldx, double* work, float* swork,
13109                     lapack_int* iter, lapack_int *info );
13110 void LAPACK_zcposv( char* uplo, lapack_int* n, lapack_int* nrhs,
13111                     lapack_complex_double* a, lapack_int* lda,
13112                     lapack_complex_double* b, lapack_int* ldb,
13113                     lapack_complex_double* x, lapack_int* ldx,
13114                     lapack_complex_double* work, lapack_complex_float* swork,
13115                     double* rwork, lapack_int* iter, lapack_int *info );
13116 void LAPACK_sposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13117                     float* a, lapack_int* lda, float* af, lapack_int* ldaf,
13118                     char* equed, float* s, float* b, lapack_int* ldb, float* x,
13119                     lapack_int* ldx, float* rcond, float* ferr, float* berr,
13120                     float* work, lapack_int* iwork, lapack_int *info );
13121 void LAPACK_dposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13122                     double* a, lapack_int* lda, double* af, lapack_int* ldaf,
13123                     char* equed, double* s, double* b, lapack_int* ldb,
13124                     double* x, lapack_int* ldx, double* rcond, double* ferr,
13125                     double* berr, double* work, lapack_int* iwork,
13126                     lapack_int *info );
13127 void LAPACK_cposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13128                     lapack_complex_float* a, lapack_int* lda,
13129                     lapack_complex_float* af, lapack_int* ldaf, char* equed,
13130                     float* s, lapack_complex_float* b, lapack_int* ldb,
13131                     lapack_complex_float* x, lapack_int* ldx, float* rcond,
13132                     float* ferr, float* berr, lapack_complex_float* work,
13133                     float* rwork, lapack_int *info );
13134 void LAPACK_zposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13135                     lapack_complex_double* a, lapack_int* lda,
13136                     lapack_complex_double* af, lapack_int* ldaf, char* equed,
13137                     double* s, lapack_complex_double* b, lapack_int* ldb,
13138                     lapack_complex_double* x, lapack_int* ldx, double* rcond,
13139                     double* ferr, double* berr, lapack_complex_double* work,
13140                     double* rwork, lapack_int *info );
13141 void LAPACK_dposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13142                      double* a, lapack_int* lda, double* af, lapack_int* ldaf,
13143                      char* equed, double* s, double* b, lapack_int* ldb,
13144                      double* x, lapack_int* ldx, double* rcond, double* rpvgrw,
13145                      double* berr, lapack_int* n_err_bnds,
13146                      double* err_bnds_norm, double* err_bnds_comp,
13147                      lapack_int* nparams, double* params, double* work,
13148                      lapack_int* iwork, lapack_int *info );
13149 void LAPACK_sposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13150                      float* a, lapack_int* lda, float* af, lapack_int* ldaf,
13151                      char* equed, float* s, float* b, lapack_int* ldb, float* x,
13152                      lapack_int* ldx, float* rcond, float* rpvgrw, float* berr,
13153                      lapack_int* n_err_bnds, float* err_bnds_norm,
13154                      float* err_bnds_comp, lapack_int* nparams, float* params,
13155                      float* work, lapack_int* iwork, lapack_int *info );
13156 void LAPACK_zposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13157                      lapack_complex_double* a, lapack_int* lda,
13158                      lapack_complex_double* af, lapack_int* ldaf, char* equed,
13159                      double* s, lapack_complex_double* b, lapack_int* ldb,
13160                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
13161                      double* rpvgrw, double* berr, lapack_int* n_err_bnds,
13162                      double* err_bnds_norm, double* err_bnds_comp,
13163                      lapack_int* nparams, double* params,
13164                      lapack_complex_double* work, double* rwork,
13165                      lapack_int *info );
13166 void LAPACK_cposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13167                      lapack_complex_float* a, lapack_int* lda,
13168                      lapack_complex_float* af, lapack_int* ldaf, char* equed,
13169                      float* s, lapack_complex_float* b, lapack_int* ldb,
13170                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
13171                      float* rpvgrw, float* berr, lapack_int* n_err_bnds,
13172                      float* err_bnds_norm, float* err_bnds_comp,
13173                      lapack_int* nparams, float* params,
13174                      lapack_complex_float* work, float* rwork,
13175                      lapack_int *info );
13176 void LAPACK_sppsv( char* uplo, lapack_int* n, lapack_int* nrhs, float* ap,
13177                    float* b, lapack_int* ldb, lapack_int *info );
13178 void LAPACK_dppsv( char* uplo, lapack_int* n, lapack_int* nrhs, double* ap,
13179                    double* b, lapack_int* ldb, lapack_int *info );
13180 void LAPACK_cppsv( char* uplo, lapack_int* n, lapack_int* nrhs,
13181                    lapack_complex_float* ap, lapack_complex_float* b,
13182                    lapack_int* ldb, lapack_int *info );
13183 void LAPACK_zppsv( char* uplo, lapack_int* n, lapack_int* nrhs,
13184                    lapack_complex_double* ap, lapack_complex_double* b,
13185                    lapack_int* ldb, lapack_int *info );
13186 void LAPACK_sppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13187                     float* ap, float* afp, char* equed, float* s, float* b,
13188                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
13189                     float* ferr, float* berr, float* work, lapack_int* iwork,
13190                     lapack_int *info );
13191 void LAPACK_dppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13192                     double* ap, double* afp, char* equed, double* s, double* b,
13193                     lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,
13194                     double* ferr, double* berr, double* work, lapack_int* iwork,
13195                     lapack_int *info );
13196 void LAPACK_cppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13197                     lapack_complex_float* ap, lapack_complex_float* afp,
13198                     char* equed, float* s, lapack_complex_float* b,
13199                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
13200                     float* rcond, float* ferr, float* berr,
13201                     lapack_complex_float* work, float* rwork,
13202                     lapack_int *info );
13203 void LAPACK_zppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13204                     lapack_complex_double* ap, lapack_complex_double* afp,
13205                     char* equed, double* s, lapack_complex_double* b,
13206                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
13207                     double* rcond, double* ferr, double* berr,
13208                     lapack_complex_double* work, double* rwork,
13209                     lapack_int *info );
13210 void LAPACK_spbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
13211                    float* ab, lapack_int* ldab, float* b, lapack_int* ldb,
13212                    lapack_int *info );
13213 void LAPACK_dpbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
13214                    double* ab, lapack_int* ldab, double* b, lapack_int* ldb,
13215                    lapack_int *info );
13216 void LAPACK_cpbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
13217                    lapack_complex_float* ab, lapack_int* ldab,
13218                    lapack_complex_float* b, lapack_int* ldb, lapack_int *info );
13219 void LAPACK_zpbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,
13220                    lapack_complex_double* ab, lapack_int* ldab,
13221                    lapack_complex_double* b, lapack_int* ldb,
13222                    lapack_int *info );
13223 void LAPACK_spbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,
13224                     lapack_int* nrhs, float* ab, lapack_int* ldab, float* afb,
13225                     lapack_int* ldafb, char* equed, float* s, float* b,
13226                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
13227                     float* ferr, float* berr, float* work, lapack_int* iwork,
13228                     lapack_int *info );
13229 void LAPACK_dpbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,
13230                     lapack_int* nrhs, double* ab, lapack_int* ldab, double* afb,
13231                     lapack_int* ldafb, char* equed, double* s, double* b,
13232                     lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,
13233                     double* ferr, double* berr, double* work, lapack_int* iwork,
13234                     lapack_int *info );
13235 void LAPACK_cpbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,
13236                     lapack_int* nrhs, lapack_complex_float* ab,
13237                     lapack_int* ldab, lapack_complex_float* afb,
13238                     lapack_int* ldafb, char* equed, float* s,
13239                     lapack_complex_float* b, lapack_int* ldb,
13240                     lapack_complex_float* x, lapack_int* ldx, float* rcond,
13241                     float* ferr, float* berr, lapack_complex_float* work,
13242                     float* rwork, lapack_int *info );
13243 void LAPACK_zpbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,
13244                     lapack_int* nrhs, lapack_complex_double* ab,
13245                     lapack_int* ldab, lapack_complex_double* afb,
13246                     lapack_int* ldafb, char* equed, double* s,
13247                     lapack_complex_double* b, lapack_int* ldb,
13248                     lapack_complex_double* x, lapack_int* ldx, double* rcond,
13249                     double* ferr, double* berr, lapack_complex_double* work,
13250                     double* rwork, lapack_int *info );
13251 void LAPACK_sptsv( lapack_int* n, lapack_int* nrhs, float* d, float* e,
13252                    float* b, lapack_int* ldb, lapack_int *info );
13253 void LAPACK_dptsv( lapack_int* n, lapack_int* nrhs, double* d, double* e,
13254                    double* b, lapack_int* ldb, lapack_int *info );
13255 void LAPACK_cptsv( lapack_int* n, lapack_int* nrhs, float* d,
13256                    lapack_complex_float* e, lapack_complex_float* b,
13257                    lapack_int* ldb, lapack_int *info );
13258 void LAPACK_zptsv( lapack_int* n, lapack_int* nrhs, double* d,
13259                    lapack_complex_double* e, lapack_complex_double* b,
13260                    lapack_int* ldb, lapack_int *info );
13261 void LAPACK_sptsvx( char* fact, lapack_int* n, lapack_int* nrhs, const float* d,
13262                     const float* e, float* df, float* ef, const float* b,
13263                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
13264                     float* ferr, float* berr, float* work, lapack_int *info );
13265 void LAPACK_dptsvx( char* fact, lapack_int* n, lapack_int* nrhs,
13266                     const double* d, const double* e, double* df, double* ef,
13267                     const double* b, lapack_int* ldb, double* x,
13268                     lapack_int* ldx, double* rcond, double* ferr, double* berr,
13269                     double* work, lapack_int *info );
13270 void LAPACK_cptsvx( char* fact, lapack_int* n, lapack_int* nrhs, const float* d,
13271                     const lapack_complex_float* e, float* df,
13272                     lapack_complex_float* ef, const lapack_complex_float* b,
13273                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
13274                     float* rcond, float* ferr, float* berr,
13275                     lapack_complex_float* work, float* rwork,
13276                     lapack_int *info );
13277 void LAPACK_zptsvx( char* fact, lapack_int* n, lapack_int* nrhs,
13278                     const double* d, const lapack_complex_double* e, double* df,
13279                     lapack_complex_double* ef, const lapack_complex_double* b,
13280                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
13281                     double* rcond, double* ferr, double* berr,
13282                     lapack_complex_double* work, double* rwork,
13283                     lapack_int *info );
13284 void LAPACK_ssysv( char* uplo, lapack_int* n, lapack_int* nrhs, float* a,
13285                    lapack_int* lda, lapack_int* ipiv, float* b, lapack_int* ldb,
13286                    float* work, lapack_int* lwork, lapack_int *info );
13287 void LAPACK_dsysv( char* uplo, lapack_int* n, lapack_int* nrhs, double* a,
13288                    lapack_int* lda, lapack_int* ipiv, double* b,
13289                    lapack_int* ldb, double* work, lapack_int* lwork,
13290                    lapack_int *info );
13291 void LAPACK_csysv( char* uplo, lapack_int* n, lapack_int* nrhs,
13292                    lapack_complex_float* a, lapack_int* lda, lapack_int* ipiv,
13293                    lapack_complex_float* b, lapack_int* ldb,
13294                    lapack_complex_float* work, lapack_int* lwork,
13295                    lapack_int *info );
13296 void LAPACK_zsysv( char* uplo, lapack_int* n, lapack_int* nrhs,
13297                    lapack_complex_double* a, lapack_int* lda, lapack_int* ipiv,
13298                    lapack_complex_double* b, lapack_int* ldb,
13299                    lapack_complex_double* work, lapack_int* lwork,
13300                    lapack_int *info );
13301 void LAPACK_ssysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13302                     const float* a, lapack_int* lda, float* af,
13303                     lapack_int* ldaf, lapack_int* ipiv, const float* b,
13304                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
13305                     float* ferr, float* berr, float* work, lapack_int* lwork,
13306                     lapack_int* iwork, lapack_int *info );
13307 void LAPACK_dsysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13308                     const double* a, lapack_int* lda, double* af,
13309                     lapack_int* ldaf, lapack_int* ipiv, const double* b,
13310                     lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,
13311                     double* ferr, double* berr, double* work, lapack_int* lwork,
13312                     lapack_int* iwork, lapack_int *info );
13313 void LAPACK_csysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13314                     const lapack_complex_float* a, lapack_int* lda,
13315                     lapack_complex_float* af, lapack_int* ldaf,
13316                     lapack_int* ipiv, const lapack_complex_float* b,
13317                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
13318                     float* rcond, float* ferr, float* berr,
13319                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
13320                     lapack_int *info );
13321 void LAPACK_zsysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13322                     const lapack_complex_double* a, lapack_int* lda,
13323                     lapack_complex_double* af, lapack_int* ldaf,
13324                     lapack_int* ipiv, const lapack_complex_double* b,
13325                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
13326                     double* rcond, double* ferr, double* berr,
13327                     lapack_complex_double* work, lapack_int* lwork,
13328                     double* rwork, lapack_int *info );
13329 void LAPACK_dsysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13330                      double* a, lapack_int* lda, double* af, lapack_int* ldaf,
13331                      lapack_int* ipiv, char* equed, double* s, double* b,
13332                      lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,
13333                      double* rpvgrw, double* berr, lapack_int* n_err_bnds,
13334                      double* err_bnds_norm, double* err_bnds_comp,
13335                      lapack_int* nparams, double* params, double* work,
13336                      lapack_int* iwork, lapack_int *info );
13337 void LAPACK_ssysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13338                      float* a, lapack_int* lda, float* af, lapack_int* ldaf,
13339                      lapack_int* ipiv, char* equed, float* s, float* b,
13340                      lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,
13341                      float* rpvgrw, float* berr, lapack_int* n_err_bnds,
13342                      float* err_bnds_norm, float* err_bnds_comp,
13343                      lapack_int* nparams, float* params, float* work,
13344                      lapack_int* iwork, lapack_int *info );
13345 void LAPACK_zsysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13346                      lapack_complex_double* a, lapack_int* lda,
13347                      lapack_complex_double* af, lapack_int* ldaf,
13348                      lapack_int* ipiv, char* equed, double* s,
13349                      lapack_complex_double* b, lapack_int* ldb,
13350                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
13351                      double* rpvgrw, double* berr, lapack_int* n_err_bnds,
13352                      double* err_bnds_norm, double* err_bnds_comp,
13353                      lapack_int* nparams, double* params,
13354                      lapack_complex_double* work, double* rwork,
13355                      lapack_int *info );
13356 void LAPACK_csysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13357                      lapack_complex_float* a, lapack_int* lda,
13358                      lapack_complex_float* af, lapack_int* ldaf,
13359                      lapack_int* ipiv, char* equed, float* s,
13360                      lapack_complex_float* b, lapack_int* ldb,
13361                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
13362                      float* rpvgrw, float* berr, lapack_int* n_err_bnds,
13363                      float* err_bnds_norm, float* err_bnds_comp,
13364                      lapack_int* nparams, float* params,
13365                      lapack_complex_float* work, float* rwork,
13366                      lapack_int *info );
13367 void LAPACK_chesv( char* uplo, lapack_int* n, lapack_int* nrhs,
13368                    lapack_complex_float* a, lapack_int* lda, lapack_int* ipiv,
13369                    lapack_complex_float* b, lapack_int* ldb,
13370                    lapack_complex_float* work, lapack_int* lwork,
13371                    lapack_int *info );
13372 void LAPACK_zhesv( char* uplo, lapack_int* n, lapack_int* nrhs,
13373                    lapack_complex_double* a, lapack_int* lda, lapack_int* ipiv,
13374                    lapack_complex_double* b, lapack_int* ldb,
13375                    lapack_complex_double* work, lapack_int* lwork,
13376                    lapack_int *info );
13377 void LAPACK_chesvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13378                     const lapack_complex_float* a, lapack_int* lda,
13379                     lapack_complex_float* af, lapack_int* ldaf,
13380                     lapack_int* ipiv, const lapack_complex_float* b,
13381                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
13382                     float* rcond, float* ferr, float* berr,
13383                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
13384                     lapack_int *info );
13385 void LAPACK_zhesvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13386                     const lapack_complex_double* a, lapack_int* lda,
13387                     lapack_complex_double* af, lapack_int* ldaf,
13388                     lapack_int* ipiv, const lapack_complex_double* b,
13389                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
13390                     double* rcond, double* ferr, double* berr,
13391                     lapack_complex_double* work, lapack_int* lwork,
13392                     double* rwork, lapack_int *info );
13393 void LAPACK_zhesvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13394                      lapack_complex_double* a, lapack_int* lda,
13395                      lapack_complex_double* af, lapack_int* ldaf,
13396                      lapack_int* ipiv, char* equed, double* s,
13397                      lapack_complex_double* b, lapack_int* ldb,
13398                      lapack_complex_double* x, lapack_int* ldx, double* rcond,
13399                      double* rpvgrw, double* berr, lapack_int* n_err_bnds,
13400                      double* err_bnds_norm, double* err_bnds_comp,
13401                      lapack_int* nparams, double* params,
13402                      lapack_complex_double* work, double* rwork,
13403                      lapack_int *info );
13404 void LAPACK_chesvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13405                      lapack_complex_float* a, lapack_int* lda,
13406                      lapack_complex_float* af, lapack_int* ldaf,
13407                      lapack_int* ipiv, char* equed, float* s,
13408                      lapack_complex_float* b, lapack_int* ldb,
13409                      lapack_complex_float* x, lapack_int* ldx, float* rcond,
13410                      float* rpvgrw, float* berr, lapack_int* n_err_bnds,
13411                      float* err_bnds_norm, float* err_bnds_comp,
13412                      lapack_int* nparams, float* params,
13413                      lapack_complex_float* work, float* rwork,
13414                      lapack_int *info );
13415 void LAPACK_sspsv( char* uplo, lapack_int* n, lapack_int* nrhs, float* ap,
13416                    lapack_int* ipiv, float* b, lapack_int* ldb,
13417                    lapack_int *info );
13418 void LAPACK_dspsv( char* uplo, lapack_int* n, lapack_int* nrhs, double* ap,
13419                    lapack_int* ipiv, double* b, lapack_int* ldb,
13420                    lapack_int *info );
13421 void LAPACK_cspsv( char* uplo, lapack_int* n, lapack_int* nrhs,
13422                    lapack_complex_float* ap, lapack_int* ipiv,
13423                    lapack_complex_float* b, lapack_int* ldb, lapack_int *info );
13424 void LAPACK_zspsv( char* uplo, lapack_int* n, lapack_int* nrhs,
13425                    lapack_complex_double* ap, lapack_int* ipiv,
13426                    lapack_complex_double* b, lapack_int* ldb,
13427                    lapack_int *info );
13428 void LAPACK_sspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13429                     const float* ap, float* afp, lapack_int* ipiv,
13430                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,
13431                     float* rcond, float* ferr, float* berr, float* work,
13432                     lapack_int* iwork, lapack_int *info );
13433 void LAPACK_dspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13434                     const double* ap, double* afp, lapack_int* ipiv,
13435                     const double* b, lapack_int* ldb, double* x,
13436                     lapack_int* ldx, double* rcond, double* ferr, double* berr,
13437                     double* work, lapack_int* iwork, lapack_int *info );
13438 void LAPACK_cspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13439                     const lapack_complex_float* ap, lapack_complex_float* afp,
13440                     lapack_int* ipiv, const lapack_complex_float* b,
13441                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
13442                     float* rcond, float* ferr, float* berr,
13443                     lapack_complex_float* work, float* rwork,
13444                     lapack_int *info );
13445 void LAPACK_zspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13446                     const lapack_complex_double* ap, lapack_complex_double* afp,
13447                     lapack_int* ipiv, const lapack_complex_double* b,
13448                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
13449                     double* rcond, double* ferr, double* berr,
13450                     lapack_complex_double* work, double* rwork,
13451                     lapack_int *info );
13452 void LAPACK_chpsv( char* uplo, lapack_int* n, lapack_int* nrhs,
13453                    lapack_complex_float* ap, lapack_int* ipiv,
13454                    lapack_complex_float* b, lapack_int* ldb, lapack_int *info );
13455 void LAPACK_zhpsv( char* uplo, lapack_int* n, lapack_int* nrhs,
13456                    lapack_complex_double* ap, lapack_int* ipiv,
13457                    lapack_complex_double* b, lapack_int* ldb,
13458                    lapack_int *info );
13459 void LAPACK_chpsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13460                     const lapack_complex_float* ap, lapack_complex_float* afp,
13461                     lapack_int* ipiv, const lapack_complex_float* b,
13462                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,
13463                     float* rcond, float* ferr, float* berr,
13464                     lapack_complex_float* work, float* rwork,
13465                     lapack_int *info );
13466 void LAPACK_zhpsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,
13467                     const lapack_complex_double* ap, lapack_complex_double* afp,
13468                     lapack_int* ipiv, const lapack_complex_double* b,
13469                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,
13470                     double* rcond, double* ferr, double* berr,
13471                     lapack_complex_double* work, double* rwork,
13472                     lapack_int *info );
13473 void LAPACK_sgeqrf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13474                     float* tau, float* work, lapack_int* lwork,
13475                     lapack_int *info );
13476 void LAPACK_dgeqrf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13477                     double* tau, double* work, lapack_int* lwork,
13478                     lapack_int *info );
13479 void LAPACK_cgeqrf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13480                     lapack_int* lda, lapack_complex_float* tau,
13481                     lapack_complex_float* work, lapack_int* lwork,
13482                     lapack_int *info );
13483 void LAPACK_zgeqrf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13484                     lapack_int* lda, lapack_complex_double* tau,
13485                     lapack_complex_double* work, lapack_int* lwork,
13486                     lapack_int *info );
13487 void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13488                     lapack_int* jpvt, float* tau, float* work,
13489                     lapack_int *info );
13490 void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13491                     lapack_int* jpvt, double* tau, double* work,
13492                     lapack_int *info );
13493 void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13494                     lapack_int* lda, lapack_int* jpvt,
13495                     lapack_complex_float* tau, lapack_complex_float* work,
13496                     float* rwork, lapack_int *info );
13497 void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13498                     lapack_int* lda, lapack_int* jpvt,
13499                     lapack_complex_double* tau, lapack_complex_double* work,
13500                     double* rwork, lapack_int *info );
13501 void LAPACK_sgeqp3( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13502                     lapack_int* jpvt, float* tau, float* work,
13503                     lapack_int* lwork, lapack_int *info );
13504 void LAPACK_dgeqp3( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13505                     lapack_int* jpvt, double* tau, double* work,
13506                     lapack_int* lwork, lapack_int *info );
13507 void LAPACK_cgeqp3( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13508                     lapack_int* lda, lapack_int* jpvt,
13509                     lapack_complex_float* tau, lapack_complex_float* work,
13510                     lapack_int* lwork, float* rwork, lapack_int *info );
13511 void LAPACK_zgeqp3( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13512                     lapack_int* lda, lapack_int* jpvt,
13513                     lapack_complex_double* tau, lapack_complex_double* work,
13514                     lapack_int* lwork, double* rwork, lapack_int *info );
13515 void LAPACK_sorgqr( lapack_int* m, lapack_int* n, lapack_int* k, float* a,
13516                     lapack_int* lda, const float* tau, float* work,
13517                     lapack_int* lwork, lapack_int *info );
13518 void LAPACK_dorgqr( lapack_int* m, lapack_int* n, lapack_int* k, double* a,
13519                     lapack_int* lda, const double* tau, double* work,
13520                     lapack_int* lwork, lapack_int *info );
13521 void LAPACK_sormqr( char* side, char* trans, lapack_int* m, lapack_int* n,
13522                     lapack_int* k, const float* a, lapack_int* lda,
13523                     const float* tau, float* c, lapack_int* ldc, float* work,
13524                     lapack_int* lwork, lapack_int *info );
13525 void LAPACK_dormqr( char* side, char* trans, lapack_int* m, lapack_int* n,
13526                     lapack_int* k, const double* a, lapack_int* lda,
13527                     const double* tau, double* c, lapack_int* ldc, double* work,
13528                     lapack_int* lwork, lapack_int *info );
13529 void LAPACK_cungqr( lapack_int* m, lapack_int* n, lapack_int* k,
13530                     lapack_complex_float* a, lapack_int* lda,
13531                     const lapack_complex_float* tau, lapack_complex_float* work,
13532                     lapack_int* lwork, lapack_int *info );
13533 void LAPACK_zungqr( lapack_int* m, lapack_int* n, lapack_int* k,
13534                     lapack_complex_double* a, lapack_int* lda,
13535                     const lapack_complex_double* tau,
13536                     lapack_complex_double* work, lapack_int* lwork,
13537                     lapack_int *info );
13538 void LAPACK_cunmqr( char* side, char* trans, lapack_int* m, lapack_int* n,
13539                     lapack_int* k, const lapack_complex_float* a,
13540                     lapack_int* lda, const lapack_complex_float* tau,
13541                     lapack_complex_float* c, lapack_int* ldc,
13542                     lapack_complex_float* work, lapack_int* lwork,
13543                     lapack_int *info );
13544 void LAPACK_zunmqr( char* side, char* trans, lapack_int* m, lapack_int* n,
13545                     lapack_int* k, const lapack_complex_double* a,
13546                     lapack_int* lda, const lapack_complex_double* tau,
13547                     lapack_complex_double* c, lapack_int* ldc,
13548                     lapack_complex_double* work, lapack_int* lwork,
13549                     lapack_int *info );
13550 void LAPACK_sgelqf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13551                     float* tau, float* work, lapack_int* lwork,
13552                     lapack_int *info );
13553 void LAPACK_dgelqf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13554                     double* tau, double* work, lapack_int* lwork,
13555                     lapack_int *info );
13556 void LAPACK_cgelqf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13557                     lapack_int* lda, lapack_complex_float* tau,
13558                     lapack_complex_float* work, lapack_int* lwork,
13559                     lapack_int *info );
13560 void LAPACK_zgelqf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13561                     lapack_int* lda, lapack_complex_double* tau,
13562                     lapack_complex_double* work, lapack_int* lwork,
13563                     lapack_int *info );
13564 void LAPACK_sorglq( lapack_int* m, lapack_int* n, lapack_int* k, float* a,
13565                     lapack_int* lda, const float* tau, float* work,
13566                     lapack_int* lwork, lapack_int *info );
13567 void LAPACK_dorglq( lapack_int* m, lapack_int* n, lapack_int* k, double* a,
13568                     lapack_int* lda, const double* tau, double* work,
13569                     lapack_int* lwork, lapack_int *info );
13570 void LAPACK_sormlq( char* side, char* trans, lapack_int* m, lapack_int* n,
13571                     lapack_int* k, const float* a, lapack_int* lda,
13572                     const float* tau, float* c, lapack_int* ldc, float* work,
13573                     lapack_int* lwork, lapack_int *info );
13574 void LAPACK_dormlq( char* side, char* trans, lapack_int* m, lapack_int* n,
13575                     lapack_int* k, const double* a, lapack_int* lda,
13576                     const double* tau, double* c, lapack_int* ldc, double* work,
13577                     lapack_int* lwork, lapack_int *info );
13578 void LAPACK_cunglq( lapack_int* m, lapack_int* n, lapack_int* k,
13579                     lapack_complex_float* a, lapack_int* lda,
13580                     const lapack_complex_float* tau, lapack_complex_float* work,
13581                     lapack_int* lwork, lapack_int *info );
13582 void LAPACK_zunglq( lapack_int* m, lapack_int* n, lapack_int* k,
13583                     lapack_complex_double* a, lapack_int* lda,
13584                     const lapack_complex_double* tau,
13585                     lapack_complex_double* work, lapack_int* lwork,
13586                     lapack_int *info );
13587 void LAPACK_cunmlq( char* side, char* trans, lapack_int* m, lapack_int* n,
13588                     lapack_int* k, const lapack_complex_float* a,
13589                     lapack_int* lda, const lapack_complex_float* tau,
13590                     lapack_complex_float* c, lapack_int* ldc,
13591                     lapack_complex_float* work, lapack_int* lwork,
13592                     lapack_int *info );
13593 void LAPACK_zunmlq( char* side, char* trans, lapack_int* m, lapack_int* n,
13594                     lapack_int* k, const lapack_complex_double* a,
13595                     lapack_int* lda, const lapack_complex_double* tau,
13596                     lapack_complex_double* c, lapack_int* ldc,
13597                     lapack_complex_double* work, lapack_int* lwork,
13598                     lapack_int *info );
13599 void LAPACK_sgeqlf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13600                     float* tau, float* work, lapack_int* lwork,
13601                     lapack_int *info );
13602 void LAPACK_dgeqlf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13603                     double* tau, double* work, lapack_int* lwork,
13604                     lapack_int *info );
13605 void LAPACK_cgeqlf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13606                     lapack_int* lda, lapack_complex_float* tau,
13607                     lapack_complex_float* work, lapack_int* lwork,
13608                     lapack_int *info );
13609 void LAPACK_zgeqlf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13610                     lapack_int* lda, lapack_complex_double* tau,
13611                     lapack_complex_double* work, lapack_int* lwork,
13612                     lapack_int *info );
13613 void LAPACK_sorgql( lapack_int* m, lapack_int* n, lapack_int* k, float* a,
13614                     lapack_int* lda, const float* tau, float* work,
13615                     lapack_int* lwork, lapack_int *info );
13616 void LAPACK_dorgql( lapack_int* m, lapack_int* n, lapack_int* k, double* a,
13617                     lapack_int* lda, const double* tau, double* work,
13618                     lapack_int* lwork, lapack_int *info );
13619 void LAPACK_cungql( lapack_int* m, lapack_int* n, lapack_int* k,
13620                     lapack_complex_float* a, lapack_int* lda,
13621                     const lapack_complex_float* tau, lapack_complex_float* work,
13622                     lapack_int* lwork, lapack_int *info );
13623 void LAPACK_zungql( lapack_int* m, lapack_int* n, lapack_int* k,
13624                     lapack_complex_double* a, lapack_int* lda,
13625                     const lapack_complex_double* tau,
13626                     lapack_complex_double* work, lapack_int* lwork,
13627                     lapack_int *info );
13628 void LAPACK_sormql( char* side, char* trans, lapack_int* m, lapack_int* n,
13629                     lapack_int* k, const float* a, lapack_int* lda,
13630                     const float* tau, float* c, lapack_int* ldc, float* work,
13631                     lapack_int* lwork, lapack_int *info );
13632 void LAPACK_dormql( char* side, char* trans, lapack_int* m, lapack_int* n,
13633                     lapack_int* k, const double* a, lapack_int* lda,
13634                     const double* tau, double* c, lapack_int* ldc, double* work,
13635                     lapack_int* lwork, lapack_int *info );
13636 void LAPACK_cunmql( char* side, char* trans, lapack_int* m, lapack_int* n,
13637                     lapack_int* k, const lapack_complex_float* a,
13638                     lapack_int* lda, const lapack_complex_float* tau,
13639                     lapack_complex_float* c, lapack_int* ldc,
13640                     lapack_complex_float* work, lapack_int* lwork,
13641                     lapack_int *info );
13642 void LAPACK_zunmql( char* side, char* trans, lapack_int* m, lapack_int* n,
13643                     lapack_int* k, const lapack_complex_double* a,
13644                     lapack_int* lda, const lapack_complex_double* tau,
13645                     lapack_complex_double* c, lapack_int* ldc,
13646                     lapack_complex_double* work, lapack_int* lwork,
13647                     lapack_int *info );
13648 void LAPACK_sgerqf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13649                     float* tau, float* work, lapack_int* lwork,
13650                     lapack_int *info );
13651 void LAPACK_dgerqf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13652                     double* tau, double* work, lapack_int* lwork,
13653                     lapack_int *info );
13654 void LAPACK_cgerqf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13655                     lapack_int* lda, lapack_complex_float* tau,
13656                     lapack_complex_float* work, lapack_int* lwork,
13657                     lapack_int *info );
13658 void LAPACK_zgerqf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13659                     lapack_int* lda, lapack_complex_double* tau,
13660                     lapack_complex_double* work, lapack_int* lwork,
13661                     lapack_int *info );
13662 void LAPACK_sorgrq( lapack_int* m, lapack_int* n, lapack_int* k, float* a,
13663                     lapack_int* lda, const float* tau, float* work,
13664                     lapack_int* lwork, lapack_int *info );
13665 void LAPACK_dorgrq( lapack_int* m, lapack_int* n, lapack_int* k, double* a,
13666                     lapack_int* lda, const double* tau, double* work,
13667                     lapack_int* lwork, lapack_int *info );
13668 void LAPACK_cungrq( lapack_int* m, lapack_int* n, lapack_int* k,
13669                     lapack_complex_float* a, lapack_int* lda,
13670                     const lapack_complex_float* tau, lapack_complex_float* work,
13671                     lapack_int* lwork, lapack_int *info );
13672 void LAPACK_zungrq( lapack_int* m, lapack_int* n, lapack_int* k,
13673                     lapack_complex_double* a, lapack_int* lda,
13674                     const lapack_complex_double* tau,
13675                     lapack_complex_double* work, lapack_int* lwork,
13676                     lapack_int *info );
13677 void LAPACK_sormrq( char* side, char* trans, lapack_int* m, lapack_int* n,
13678                     lapack_int* k, const float* a, lapack_int* lda,
13679                     const float* tau, float* c, lapack_int* ldc, float* work,
13680                     lapack_int* lwork, lapack_int *info );
13681 void LAPACK_dormrq( char* side, char* trans, lapack_int* m, lapack_int* n,
13682                     lapack_int* k, const double* a, lapack_int* lda,
13683                     const double* tau, double* c, lapack_int* ldc, double* work,
13684                     lapack_int* lwork, lapack_int *info );
13685 void LAPACK_cunmrq( char* side, char* trans, lapack_int* m, lapack_int* n,
13686                     lapack_int* k, const lapack_complex_float* a,
13687                     lapack_int* lda, const lapack_complex_float* tau,
13688                     lapack_complex_float* c, lapack_int* ldc,
13689                     lapack_complex_float* work, lapack_int* lwork,
13690                     lapack_int *info );
13691 void LAPACK_zunmrq( char* side, char* trans, lapack_int* m, lapack_int* n,
13692                     lapack_int* k, const lapack_complex_double* a,
13693                     lapack_int* lda, const lapack_complex_double* tau,
13694                     lapack_complex_double* c, lapack_int* ldc,
13695                     lapack_complex_double* work, lapack_int* lwork,
13696                     lapack_int *info );
13697 void LAPACK_stzrzf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13698                     float* tau, float* work, lapack_int* lwork,
13699                     lapack_int *info );
13700 void LAPACK_dtzrzf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13701                     double* tau, double* work, lapack_int* lwork,
13702                     lapack_int *info );
13703 void LAPACK_ctzrzf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13704                     lapack_int* lda, lapack_complex_float* tau,
13705                     lapack_complex_float* work, lapack_int* lwork,
13706                     lapack_int *info );
13707 void LAPACK_ztzrzf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13708                     lapack_int* lda, lapack_complex_double* tau,
13709                     lapack_complex_double* work, lapack_int* lwork,
13710                     lapack_int *info );
13711 void LAPACK_sormrz( char* side, char* trans, lapack_int* m, lapack_int* n,
13712                     lapack_int* k, lapack_int* l, const float* a,
13713                     lapack_int* lda, const float* tau, float* c,
13714                     lapack_int* ldc, float* work, lapack_int* lwork,
13715                     lapack_int *info );
13716 void LAPACK_dormrz( char* side, char* trans, lapack_int* m, lapack_int* n,
13717                     lapack_int* k, lapack_int* l, const double* a,
13718                     lapack_int* lda, const double* tau, double* c,
13719                     lapack_int* ldc, double* work, lapack_int* lwork,
13720                     lapack_int *info );
13721 void LAPACK_cunmrz( char* side, char* trans, lapack_int* m, lapack_int* n,
13722                     lapack_int* k, lapack_int* l, const lapack_complex_float* a,
13723                     lapack_int* lda, const lapack_complex_float* tau,
13724                     lapack_complex_float* c, lapack_int* ldc,
13725                     lapack_complex_float* work, lapack_int* lwork,
13726                     lapack_int *info );
13727 void LAPACK_zunmrz( char* side, char* trans, lapack_int* m, lapack_int* n,
13728                     lapack_int* k, lapack_int* l,
13729                     const lapack_complex_double* a, lapack_int* lda,
13730                     const lapack_complex_double* tau, lapack_complex_double* c,
13731                     lapack_int* ldc, lapack_complex_double* work,
13732                     lapack_int* lwork, lapack_int *info );
13733 void LAPACK_sggqrf( lapack_int* n, lapack_int* m, lapack_int* p, float* a,
13734                     lapack_int* lda, float* taua, float* b, lapack_int* ldb,
13735                     float* taub, float* work, lapack_int* lwork,
13736                     lapack_int *info );
13737 void LAPACK_dggqrf( lapack_int* n, lapack_int* m, lapack_int* p, double* a,
13738                     lapack_int* lda, double* taua, double* b, lapack_int* ldb,
13739                     double* taub, double* work, lapack_int* lwork,
13740                     lapack_int *info );
13741 void LAPACK_cggqrf( lapack_int* n, lapack_int* m, lapack_int* p,
13742                     lapack_complex_float* a, lapack_int* lda,
13743                     lapack_complex_float* taua, lapack_complex_float* b,
13744                     lapack_int* ldb, lapack_complex_float* taub,
13745                     lapack_complex_float* work, lapack_int* lwork,
13746                     lapack_int *info );
13747 void LAPACK_zggqrf( lapack_int* n, lapack_int* m, lapack_int* p,
13748                     lapack_complex_double* a, lapack_int* lda,
13749                     lapack_complex_double* taua, lapack_complex_double* b,
13750                     lapack_int* ldb, lapack_complex_double* taub,
13751                     lapack_complex_double* work, lapack_int* lwork,
13752                     lapack_int *info );
13753 void LAPACK_sggrqf( lapack_int* m, lapack_int* p, lapack_int* n, float* a,
13754                     lapack_int* lda, float* taua, float* b, lapack_int* ldb,
13755                     float* taub, float* work, lapack_int* lwork,
13756                     lapack_int *info );
13757 void LAPACK_dggrqf( lapack_int* m, lapack_int* p, lapack_int* n, double* a,
13758                     lapack_int* lda, double* taua, double* b, lapack_int* ldb,
13759                     double* taub, double* work, lapack_int* lwork,
13760                     lapack_int *info );
13761 void LAPACK_cggrqf( lapack_int* m, lapack_int* p, lapack_int* n,
13762                     lapack_complex_float* a, lapack_int* lda,
13763                     lapack_complex_float* taua, lapack_complex_float* b,
13764                     lapack_int* ldb, lapack_complex_float* taub,
13765                     lapack_complex_float* work, lapack_int* lwork,
13766                     lapack_int *info );
13767 void LAPACK_zggrqf( lapack_int* m, lapack_int* p, lapack_int* n,
13768                     lapack_complex_double* a, lapack_int* lda,
13769                     lapack_complex_double* taua, lapack_complex_double* b,
13770                     lapack_int* ldb, lapack_complex_double* taub,
13771                     lapack_complex_double* work, lapack_int* lwork,
13772                     lapack_int *info );
13773 void LAPACK_sgebrd( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
13774                     float* d, float* e, float* tauq, float* taup, float* work,
13775                     lapack_int* lwork, lapack_int *info );
13776 void LAPACK_dgebrd( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
13777                     double* d, double* e, double* tauq, double* taup,
13778                     double* work, lapack_int* lwork, lapack_int *info );
13779 void LAPACK_cgebrd( lapack_int* m, lapack_int* n, lapack_complex_float* a,
13780                     lapack_int* lda, float* d, float* e,
13781                     lapack_complex_float* tauq, lapack_complex_float* taup,
13782                     lapack_complex_float* work, lapack_int* lwork,
13783                     lapack_int *info );
13784 void LAPACK_zgebrd( lapack_int* m, lapack_int* n, lapack_complex_double* a,
13785                     lapack_int* lda, double* d, double* e,
13786                     lapack_complex_double* tauq, lapack_complex_double* taup,
13787                     lapack_complex_double* work, lapack_int* lwork,
13788                     lapack_int *info );
13789 void LAPACK_sgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,
13790                     lapack_int* kl, lapack_int* ku, float* ab, lapack_int* ldab,
13791                     float* d, float* e, float* q, lapack_int* ldq, float* pt,
13792                     lapack_int* ldpt, float* c, lapack_int* ldc, float* work,
13793                     lapack_int *info );
13794 void LAPACK_dgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,
13795                     lapack_int* kl, lapack_int* ku, double* ab,
13796                     lapack_int* ldab, double* d, double* e, double* q,
13797                     lapack_int* ldq, double* pt, lapack_int* ldpt, double* c,
13798                     lapack_int* ldc, double* work, lapack_int *info );
13799 void LAPACK_cgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,
13800                     lapack_int* kl, lapack_int* ku, lapack_complex_float* ab,
13801                     lapack_int* ldab, float* d, float* e,
13802                     lapack_complex_float* q, lapack_int* ldq,
13803                     lapack_complex_float* pt, lapack_int* ldpt,
13804                     lapack_complex_float* c, lapack_int* ldc,
13805                     lapack_complex_float* work, float* rwork,
13806                     lapack_int *info );
13807 void LAPACK_zgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,
13808                     lapack_int* kl, lapack_int* ku, lapack_complex_double* ab,
13809                     lapack_int* ldab, double* d, double* e,
13810                     lapack_complex_double* q, lapack_int* ldq,
13811                     lapack_complex_double* pt, lapack_int* ldpt,
13812                     lapack_complex_double* c, lapack_int* ldc,
13813                     lapack_complex_double* work, double* rwork,
13814                     lapack_int *info );
13815 void LAPACK_sorgbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,
13816                     float* a, lapack_int* lda, const float* tau, float* work,
13817                     lapack_int* lwork, lapack_int *info );
13818 void LAPACK_dorgbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,
13819                     double* a, lapack_int* lda, const double* tau, double* work,
13820                     lapack_int* lwork, lapack_int *info );
13821 void LAPACK_sormbr( char* vect, char* side, char* trans, lapack_int* m,
13822                     lapack_int* n, lapack_int* k, const float* a,
13823                     lapack_int* lda, const float* tau, float* c,
13824                     lapack_int* ldc, float* work, lapack_int* lwork,
13825                     lapack_int *info );
13826 void LAPACK_dormbr( char* vect, char* side, char* trans, lapack_int* m,
13827                     lapack_int* n, lapack_int* k, const double* a,
13828                     lapack_int* lda, const double* tau, double* c,
13829                     lapack_int* ldc, double* work, lapack_int* lwork,
13830                     lapack_int *info );
13831 void LAPACK_cungbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,
13832                     lapack_complex_float* a, lapack_int* lda,
13833                     const lapack_complex_float* tau, lapack_complex_float* work,
13834                     lapack_int* lwork, lapack_int *info );
13835 void LAPACK_zungbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,
13836                     lapack_complex_double* a, lapack_int* lda,
13837                     const lapack_complex_double* tau,
13838                     lapack_complex_double* work, lapack_int* lwork,
13839                     lapack_int *info );
13840 void LAPACK_cunmbr( char* vect, char* side, char* trans, lapack_int* m,
13841                     lapack_int* n, lapack_int* k, const lapack_complex_float* a,
13842                     lapack_int* lda, const lapack_complex_float* tau,
13843                     lapack_complex_float* c, lapack_int* ldc,
13844                     lapack_complex_float* work, lapack_int* lwork,
13845                     lapack_int *info );
13846 void LAPACK_zunmbr( char* vect, char* side, char* trans, lapack_int* m,
13847                     lapack_int* n, lapack_int* k,
13848                     const lapack_complex_double* a, lapack_int* lda,
13849                     const lapack_complex_double* tau, lapack_complex_double* c,
13850                     lapack_int* ldc, lapack_complex_double* work,
13851                     lapack_int* lwork, lapack_int *info );
13852 void LAPACK_sbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,
13853                     lapack_int* nru, lapack_int* ncc, float* d, float* e,
13854                     float* vt, lapack_int* ldvt, float* u, lapack_int* ldu,
13855                     float* c, lapack_int* ldc, float* work, lapack_int *info );
13856 void LAPACK_dbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,
13857                     lapack_int* nru, lapack_int* ncc, double* d, double* e,
13858                     double* vt, lapack_int* ldvt, double* u, lapack_int* ldu,
13859                     double* c, lapack_int* ldc, double* work,
13860                     lapack_int *info );
13861 void LAPACK_cbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,
13862                     lapack_int* nru, lapack_int* ncc, float* d, float* e,
13863                     lapack_complex_float* vt, lapack_int* ldvt,
13864                     lapack_complex_float* u, lapack_int* ldu,
13865                     lapack_complex_float* c, lapack_int* ldc, float* work,
13866                     lapack_int *info );
13867 void LAPACK_zbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,
13868                     lapack_int* nru, lapack_int* ncc, double* d, double* e,
13869                     lapack_complex_double* vt, lapack_int* ldvt,
13870                     lapack_complex_double* u, lapack_int* ldu,
13871                     lapack_complex_double* c, lapack_int* ldc, double* work,
13872                     lapack_int *info );
13873 void LAPACK_sbdsdc( char* uplo, char* compq, lapack_int* n, float* d, float* e,
13874                     float* u, lapack_int* ldu, float* vt, lapack_int* ldvt,
13875                     float* q, lapack_int* iq, float* work, lapack_int* iwork,
13876                     lapack_int *info );
13877 void LAPACK_dbdsdc( char* uplo, char* compq, lapack_int* n, double* d,
13878                     double* e, double* u, lapack_int* ldu, double* vt,
13879                     lapack_int* ldvt, double* q, lapack_int* iq, double* work,
13880                     lapack_int* iwork, lapack_int *info );
13881 void LAPACK_ssytrd( char* uplo, lapack_int* n, float* a, lapack_int* lda,
13882                     float* d, float* e, float* tau, float* work,
13883                     lapack_int* lwork, lapack_int *info );
13884 void LAPACK_dsytrd( char* uplo, lapack_int* n, double* a, lapack_int* lda,
13885                     double* d, double* e, double* tau, double* work,
13886                     lapack_int* lwork, lapack_int *info );
13887 void LAPACK_sorgtr( char* uplo, lapack_int* n, float* a, lapack_int* lda,
13888                     const float* tau, float* work, lapack_int* lwork,
13889                     lapack_int *info );
13890 void LAPACK_dorgtr( char* uplo, lapack_int* n, double* a, lapack_int* lda,
13891                     const double* tau, double* work, lapack_int* lwork,
13892                     lapack_int *info );
13893 void LAPACK_sormtr( char* side, char* uplo, char* trans, lapack_int* m,
13894                     lapack_int* n, const float* a, lapack_int* lda,
13895                     const float* tau, float* c, lapack_int* ldc, float* work,
13896                     lapack_int* lwork, lapack_int *info );
13897 void LAPACK_dormtr( char* side, char* uplo, char* trans, lapack_int* m,
13898                     lapack_int* n, const double* a, lapack_int* lda,
13899                     const double* tau, double* c, lapack_int* ldc, double* work,
13900                     lapack_int* lwork, lapack_int *info );
13901 void LAPACK_chetrd( char* uplo, lapack_int* n, lapack_complex_float* a,
13902                     lapack_int* lda, float* d, float* e,
13903                     lapack_complex_float* tau, lapack_complex_float* work,
13904                     lapack_int* lwork, lapack_int *info );
13905 void LAPACK_zhetrd( char* uplo, lapack_int* n, lapack_complex_double* a,
13906                     lapack_int* lda, double* d, double* e,
13907                     lapack_complex_double* tau, lapack_complex_double* work,
13908                     lapack_int* lwork, lapack_int *info );
13909 void LAPACK_cungtr( char* uplo, lapack_int* n, lapack_complex_float* a,
13910                     lapack_int* lda, const lapack_complex_float* tau,
13911                     lapack_complex_float* work, lapack_int* lwork,
13912                     lapack_int *info );
13913 void LAPACK_zungtr( char* uplo, lapack_int* n, lapack_complex_double* a,
13914                     lapack_int* lda, const lapack_complex_double* tau,
13915                     lapack_complex_double* work, lapack_int* lwork,
13916                     lapack_int *info );
13917 void LAPACK_cunmtr( char* side, char* uplo, char* trans, lapack_int* m,
13918                     lapack_int* n, const lapack_complex_float* a,
13919                     lapack_int* lda, const lapack_complex_float* tau,
13920                     lapack_complex_float* c, lapack_int* ldc,
13921                     lapack_complex_float* work, lapack_int* lwork,
13922                     lapack_int *info );
13923 void LAPACK_zunmtr( char* side, char* uplo, char* trans, lapack_int* m,
13924                     lapack_int* n, const lapack_complex_double* a,
13925                     lapack_int* lda, const lapack_complex_double* tau,
13926                     lapack_complex_double* c, lapack_int* ldc,
13927                     lapack_complex_double* work, lapack_int* lwork,
13928                     lapack_int *info );
13929 void LAPACK_ssptrd( char* uplo, lapack_int* n, float* ap, float* d, float* e,
13930                     float* tau, lapack_int *info );
13931 void LAPACK_dsptrd( char* uplo, lapack_int* n, double* ap, double* d, double* e,
13932                     double* tau, lapack_int *info );
13933 void LAPACK_sopgtr( char* uplo, lapack_int* n, const float* ap,
13934                     const float* tau, float* q, lapack_int* ldq, float* work,
13935                     lapack_int *info );
13936 void LAPACK_dopgtr( char* uplo, lapack_int* n, const double* ap,
13937                     const double* tau, double* q, lapack_int* ldq, double* work,
13938                     lapack_int *info );
13939 void LAPACK_sopmtr( char* side, char* uplo, char* trans, lapack_int* m,
13940                     lapack_int* n, const float* ap, const float* tau, float* c,
13941                     lapack_int* ldc, float* work, lapack_int *info );
13942 void LAPACK_dopmtr( char* side, char* uplo, char* trans, lapack_int* m,
13943                     lapack_int* n, const double* ap, const double* tau,
13944                     double* c, lapack_int* ldc, double* work,
13945                     lapack_int *info );
13946 void LAPACK_chptrd( char* uplo, lapack_int* n, lapack_complex_float* ap,
13947                     float* d, float* e, lapack_complex_float* tau,
13948                     lapack_int *info );
13949 void LAPACK_zhptrd( char* uplo, lapack_int* n, lapack_complex_double* ap,
13950                     double* d, double* e, lapack_complex_double* tau,
13951                     lapack_int *info );
13952 void LAPACK_cupgtr( char* uplo, lapack_int* n, const lapack_complex_float* ap,
13953                     const lapack_complex_float* tau, lapack_complex_float* q,
13954                     lapack_int* ldq, lapack_complex_float* work,
13955                     lapack_int *info );
13956 void LAPACK_zupgtr( char* uplo, lapack_int* n, const lapack_complex_double* ap,
13957                     const lapack_complex_double* tau, lapack_complex_double* q,
13958                     lapack_int* ldq, lapack_complex_double* work,
13959                     lapack_int *info );
13960 void LAPACK_cupmtr( char* side, char* uplo, char* trans, lapack_int* m,
13961                     lapack_int* n, const lapack_complex_float* ap,
13962                     const lapack_complex_float* tau, lapack_complex_float* c,
13963                     lapack_int* ldc, lapack_complex_float* work,
13964                     lapack_int *info );
13965 void LAPACK_zupmtr( char* side, char* uplo, char* trans, lapack_int* m,
13966                     lapack_int* n, const lapack_complex_double* ap,
13967                     const lapack_complex_double* tau, lapack_complex_double* c,
13968                     lapack_int* ldc, lapack_complex_double* work,
13969                     lapack_int *info );
13970 void LAPACK_ssbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,
13971                     float* ab, lapack_int* ldab, float* d, float* e, float* q,
13972                     lapack_int* ldq, float* work, lapack_int *info );
13973 void LAPACK_dsbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,
13974                     double* ab, lapack_int* ldab, double* d, double* e,
13975                     double* q, lapack_int* ldq, double* work,
13976                     lapack_int *info );
13977 void LAPACK_chbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,
13978                     lapack_complex_float* ab, lapack_int* ldab, float* d,
13979                     float* e, lapack_complex_float* q, lapack_int* ldq,
13980                     lapack_complex_float* work, lapack_int *info );
13981 void LAPACK_zhbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,
13982                     lapack_complex_double* ab, lapack_int* ldab, double* d,
13983                     double* e, lapack_complex_double* q, lapack_int* ldq,
13984                     lapack_complex_double* work, lapack_int *info );
13985 void LAPACK_ssterf( lapack_int* n, float* d, float* e, lapack_int *info );
13986 void LAPACK_dsterf( lapack_int* n, double* d, double* e, lapack_int *info );
13987 void LAPACK_ssteqr( char* compz, lapack_int* n, float* d, float* e, float* z,
13988                     lapack_int* ldz, float* work, lapack_int *info );
13989 void LAPACK_dsteqr( char* compz, lapack_int* n, double* d, double* e, double* z,
13990                     lapack_int* ldz, double* work, lapack_int *info );
13991 void LAPACK_csteqr( char* compz, lapack_int* n, float* d, float* e,
13992                     lapack_complex_float* z, lapack_int* ldz, float* work,
13993                     lapack_int *info );
13994 void LAPACK_zsteqr( char* compz, lapack_int* n, double* d, double* e,
13995                     lapack_complex_double* z, lapack_int* ldz, double* work,
13996                     lapack_int *info );
13997 void LAPACK_sstemr( char* jobz, char* range, lapack_int* n, float* d, float* e,
13998                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
13999                     lapack_int* m, float* w, float* z, lapack_int* ldz,
14000                     lapack_int* nzc, lapack_int* isuppz, lapack_logical* tryrac,
14001                     float* work, lapack_int* lwork, lapack_int* iwork,
14002                     lapack_int* liwork, lapack_int *info );
14003 void LAPACK_dstemr( char* jobz, char* range, lapack_int* n, double* d,
14004                     double* e, double* vl, double* vu, lapack_int* il,
14005                     lapack_int* iu, lapack_int* m, double* w, double* z,
14006                     lapack_int* ldz, lapack_int* nzc, lapack_int* isuppz,
14007                     lapack_logical* tryrac, double* work, lapack_int* lwork,
14008                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14009 void LAPACK_cstemr( char* jobz, char* range, lapack_int* n, float* d, float* e,
14010                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
14011                     lapack_int* m, float* w, lapack_complex_float* z,
14012                     lapack_int* ldz, lapack_int* nzc, lapack_int* isuppz,
14013                     lapack_logical* tryrac, float* work, lapack_int* lwork,
14014                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14015 void LAPACK_zstemr( char* jobz, char* range, lapack_int* n, double* d,
14016                     double* e, double* vl, double* vu, lapack_int* il,
14017                     lapack_int* iu, lapack_int* m, double* w,
14018                     lapack_complex_double* z, lapack_int* ldz, lapack_int* nzc,
14019                     lapack_int* isuppz, lapack_logical* tryrac, double* work,
14020                     lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,
14021                     lapack_int *info );
14022 void LAPACK_sstedc( char* compz, lapack_int* n, float* d, float* e, float* z,
14023                     lapack_int* ldz, float* work, lapack_int* lwork,
14024                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14025 void LAPACK_dstedc( char* compz, lapack_int* n, double* d, double* e, double* z,
14026                     lapack_int* ldz, double* work, lapack_int* lwork,
14027                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14028 void LAPACK_cstedc( char* compz, lapack_int* n, float* d, float* e,
14029                     lapack_complex_float* z, lapack_int* ldz,
14030                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
14031                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
14032                     lapack_int *info );
14033 void LAPACK_zstedc( char* compz, lapack_int* n, double* d, double* e,
14034                     lapack_complex_double* z, lapack_int* ldz,
14035                     lapack_complex_double* work, lapack_int* lwork,
14036                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
14037                     lapack_int* liwork, lapack_int *info );
14038 void LAPACK_sstegr( char* jobz, char* range, lapack_int* n, float* d, float* e,
14039                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
14040                     float* abstol, lapack_int* m, float* w, float* z,
14041                     lapack_int* ldz, lapack_int* isuppz, float* work,
14042                     lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,
14043                     lapack_int *info );
14044 void LAPACK_dstegr( char* jobz, char* range, lapack_int* n, double* d,
14045                     double* e, double* vl, double* vu, lapack_int* il,
14046                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
14047                     double* z, lapack_int* ldz, lapack_int* isuppz,
14048                     double* work, lapack_int* lwork, lapack_int* iwork,
14049                     lapack_int* liwork, lapack_int *info );
14050 void LAPACK_cstegr( char* jobz, char* range, lapack_int* n, float* d, float* e,
14051                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
14052                     float* abstol, lapack_int* m, float* w,
14053                     lapack_complex_float* z, lapack_int* ldz,
14054                     lapack_int* isuppz, float* work, lapack_int* lwork,
14055                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14056 void LAPACK_zstegr( char* jobz, char* range, lapack_int* n, double* d,
14057                     double* e, double* vl, double* vu, lapack_int* il,
14058                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
14059                     lapack_complex_double* z, lapack_int* ldz,
14060                     lapack_int* isuppz, double* work, lapack_int* lwork,
14061                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14062 void LAPACK_spteqr( char* compz, lapack_int* n, float* d, float* e, float* z,
14063                     lapack_int* ldz, float* work, lapack_int *info );
14064 void LAPACK_dpteqr( char* compz, lapack_int* n, double* d, double* e, double* z,
14065                     lapack_int* ldz, double* work, lapack_int *info );
14066 void LAPACK_cpteqr( char* compz, lapack_int* n, float* d, float* e,
14067                     lapack_complex_float* z, lapack_int* ldz, float* work,
14068                     lapack_int *info );
14069 void LAPACK_zpteqr( char* compz, lapack_int* n, double* d, double* e,
14070                     lapack_complex_double* z, lapack_int* ldz, double* work,
14071                     lapack_int *info );
14072 void LAPACK_sstebz( char* range, char* order, lapack_int* n, float* vl,
14073                     float* vu, lapack_int* il, lapack_int* iu, float* abstol,
14074                     const float* d, const float* e, lapack_int* m,
14075                     lapack_int* nsplit, float* w, lapack_int* iblock,
14076                     lapack_int* isplit, float* work, lapack_int* iwork,
14077                     lapack_int *info );
14078 void LAPACK_dstebz( char* range, char* order, lapack_int* n, double* vl,
14079                     double* vu, lapack_int* il, lapack_int* iu, double* abstol,
14080                     const double* d, const double* e, lapack_int* m,
14081                     lapack_int* nsplit, double* w, lapack_int* iblock,
14082                     lapack_int* isplit, double* work, lapack_int* iwork,
14083                     lapack_int *info );
14084 void LAPACK_sstein( lapack_int* n, const float* d, const float* e,
14085                     lapack_int* m, const float* w, const lapack_int* iblock,
14086                     const lapack_int* isplit, float* z, lapack_int* ldz,
14087                     float* work, lapack_int* iwork, lapack_int* ifailv,
14088                     lapack_int *info );
14089 void LAPACK_dstein( lapack_int* n, const double* d, const double* e,
14090                     lapack_int* m, const double* w, const lapack_int* iblock,
14091                     const lapack_int* isplit, double* z, lapack_int* ldz,
14092                     double* work, lapack_int* iwork, lapack_int* ifailv,
14093                     lapack_int *info );
14094 void LAPACK_cstein( lapack_int* n, const float* d, const float* e,
14095                     lapack_int* m, const float* w, const lapack_int* iblock,
14096                     const lapack_int* isplit, lapack_complex_float* z,
14097                     lapack_int* ldz, float* work, lapack_int* iwork,
14098                     lapack_int* ifailv, lapack_int *info );
14099 void LAPACK_zstein( lapack_int* n, const double* d, const double* e,
14100                     lapack_int* m, const double* w, const lapack_int* iblock,
14101                     const lapack_int* isplit, lapack_complex_double* z,
14102                     lapack_int* ldz, double* work, lapack_int* iwork,
14103                     lapack_int* ifailv, lapack_int *info );
14104 void LAPACK_sdisna( char* job, lapack_int* m, lapack_int* n, const float* d,
14105                     float* sep, lapack_int *info );
14106 void LAPACK_ddisna( char* job, lapack_int* m, lapack_int* n, const double* d,
14107                     double* sep, lapack_int *info );
14108 void LAPACK_ssygst( lapack_int* itype, char* uplo, lapack_int* n, float* a,
14109                     lapack_int* lda, const float* b, lapack_int* ldb,
14110                     lapack_int *info );
14111 void LAPACK_dsygst( lapack_int* itype, char* uplo, lapack_int* n, double* a,
14112                     lapack_int* lda, const double* b, lapack_int* ldb,
14113                     lapack_int *info );
14114 void LAPACK_chegst( lapack_int* itype, char* uplo, lapack_int* n,
14115                     lapack_complex_float* a, lapack_int* lda,
14116                     const lapack_complex_float* b, lapack_int* ldb,
14117                     lapack_int *info );
14118 void LAPACK_zhegst( lapack_int* itype, char* uplo, lapack_int* n,
14119                     lapack_complex_double* a, lapack_int* lda,
14120                     const lapack_complex_double* b, lapack_int* ldb,
14121                     lapack_int *info );
14122 void LAPACK_sspgst( lapack_int* itype, char* uplo, lapack_int* n, float* ap,
14123                     const float* bp, lapack_int *info );
14124 void LAPACK_dspgst( lapack_int* itype, char* uplo, lapack_int* n, double* ap,
14125                     const double* bp, lapack_int *info );
14126 void LAPACK_chpgst( lapack_int* itype, char* uplo, lapack_int* n,
14127                     lapack_complex_float* ap, const lapack_complex_float* bp,
14128                     lapack_int *info );
14129 void LAPACK_zhpgst( lapack_int* itype, char* uplo, lapack_int* n,
14130                     lapack_complex_double* ap, const lapack_complex_double* bp,
14131                     lapack_int *info );
14132 void LAPACK_ssbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,
14133                     lapack_int* kb, float* ab, lapack_int* ldab,
14134                     const float* bb, lapack_int* ldbb, float* x,
14135                     lapack_int* ldx, float* work, lapack_int *info );
14136 void LAPACK_dsbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,
14137                     lapack_int* kb, double* ab, lapack_int* ldab,
14138                     const double* bb, lapack_int* ldbb, double* x,
14139                     lapack_int* ldx, double* work, lapack_int *info );
14140 void LAPACK_chbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,
14141                     lapack_int* kb, lapack_complex_float* ab, lapack_int* ldab,
14142                     const lapack_complex_float* bb, lapack_int* ldbb,
14143                     lapack_complex_float* x, lapack_int* ldx,
14144                     lapack_complex_float* work, float* rwork,
14145                     lapack_int *info );
14146 void LAPACK_zhbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,
14147                     lapack_int* kb, lapack_complex_double* ab, lapack_int* ldab,
14148                     const lapack_complex_double* bb, lapack_int* ldbb,
14149                     lapack_complex_double* x, lapack_int* ldx,
14150                     lapack_complex_double* work, double* rwork,
14151                     lapack_int *info );
14152 void LAPACK_spbstf( char* uplo, lapack_int* n, lapack_int* kb, float* bb,
14153                     lapack_int* ldbb, lapack_int *info );
14154 void LAPACK_dpbstf( char* uplo, lapack_int* n, lapack_int* kb, double* bb,
14155                     lapack_int* ldbb, lapack_int *info );
14156 void LAPACK_cpbstf( char* uplo, lapack_int* n, lapack_int* kb,
14157                     lapack_complex_float* bb, lapack_int* ldbb,
14158                     lapack_int *info );
14159 void LAPACK_zpbstf( char* uplo, lapack_int* n, lapack_int* kb,
14160                     lapack_complex_double* bb, lapack_int* ldbb,
14161                     lapack_int *info );
14162 void LAPACK_sgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi, float* a,
14163                     lapack_int* lda, float* tau, float* work, lapack_int* lwork,
14164                     lapack_int *info );
14165 void LAPACK_dgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi, double* a,
14166                     lapack_int* lda, double* tau, double* work,
14167                     lapack_int* lwork, lapack_int *info );
14168 void LAPACK_cgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi,
14169                     lapack_complex_float* a, lapack_int* lda,
14170                     lapack_complex_float* tau, lapack_complex_float* work,
14171                     lapack_int* lwork, lapack_int *info );
14172 void LAPACK_zgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi,
14173                     lapack_complex_double* a, lapack_int* lda,
14174                     lapack_complex_double* tau, lapack_complex_double* work,
14175                     lapack_int* lwork, lapack_int *info );
14176 void LAPACK_sorghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi, float* a,
14177                     lapack_int* lda, const float* tau, float* work,
14178                     lapack_int* lwork, lapack_int *info );
14179 void LAPACK_dorghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi, double* a,
14180                     lapack_int* lda, const double* tau, double* work,
14181                     lapack_int* lwork, lapack_int *info );
14182 void LAPACK_sormhr( char* side, char* trans, lapack_int* m, lapack_int* n,
14183                     lapack_int* ilo, lapack_int* ihi, const float* a,
14184                     lapack_int* lda, const float* tau, float* c,
14185                     lapack_int* ldc, float* work, lapack_int* lwork,
14186                     lapack_int *info );
14187 void LAPACK_dormhr( char* side, char* trans, lapack_int* m, lapack_int* n,
14188                     lapack_int* ilo, lapack_int* ihi, const double* a,
14189                     lapack_int* lda, const double* tau, double* c,
14190                     lapack_int* ldc, double* work, lapack_int* lwork,
14191                     lapack_int *info );
14192 void LAPACK_cunghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi,
14193                     lapack_complex_float* a, lapack_int* lda,
14194                     const lapack_complex_float* tau, lapack_complex_float* work,
14195                     lapack_int* lwork, lapack_int *info );
14196 void LAPACK_zunghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi,
14197                     lapack_complex_double* a, lapack_int* lda,
14198                     const lapack_complex_double* tau,
14199                     lapack_complex_double* work, lapack_int* lwork,
14200                     lapack_int *info );
14201 void LAPACK_cunmhr( char* side, char* trans, lapack_int* m, lapack_int* n,
14202                     lapack_int* ilo, lapack_int* ihi,
14203                     const lapack_complex_float* a, lapack_int* lda,
14204                     const lapack_complex_float* tau, lapack_complex_float* c,
14205                     lapack_int* ldc, lapack_complex_float* work,
14206                     lapack_int* lwork, lapack_int *info );
14207 void LAPACK_zunmhr( char* side, char* trans, lapack_int* m, lapack_int* n,
14208                     lapack_int* ilo, lapack_int* ihi,
14209                     const lapack_complex_double* a, lapack_int* lda,
14210                     const lapack_complex_double* tau, lapack_complex_double* c,
14211                     lapack_int* ldc, lapack_complex_double* work,
14212                     lapack_int* lwork, lapack_int *info );
14213 void LAPACK_sgebal( char* job, lapack_int* n, float* a, lapack_int* lda,
14214                     lapack_int* ilo, lapack_int* ihi, float* scale,
14215                     lapack_int *info );
14216 void LAPACK_dgebal( char* job, lapack_int* n, double* a, lapack_int* lda,
14217                     lapack_int* ilo, lapack_int* ihi, double* scale,
14218                     lapack_int *info );
14219 void LAPACK_cgebal( char* job, lapack_int* n, lapack_complex_float* a,
14220                     lapack_int* lda, lapack_int* ilo, lapack_int* ihi,
14221                     float* scale, lapack_int *info );
14222 void LAPACK_zgebal( char* job, lapack_int* n, lapack_complex_double* a,
14223                     lapack_int* lda, lapack_int* ilo, lapack_int* ihi,
14224                     double* scale, lapack_int *info );
14225 void LAPACK_sgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14226                     lapack_int* ihi, const float* scale, lapack_int* m,
14227                     float* v, lapack_int* ldv, lapack_int *info );
14228 void LAPACK_dgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14229                     lapack_int* ihi, const double* scale, lapack_int* m,
14230                     double* v, lapack_int* ldv, lapack_int *info );
14231 void LAPACK_cgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14232                     lapack_int* ihi, const float* scale, lapack_int* m,
14233                     lapack_complex_float* v, lapack_int* ldv,
14234                     lapack_int *info );
14235 void LAPACK_zgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14236                     lapack_int* ihi, const double* scale, lapack_int* m,
14237                     lapack_complex_double* v, lapack_int* ldv,
14238                     lapack_int *info );
14239 void LAPACK_shseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,
14240                     lapack_int* ihi, float* h, lapack_int* ldh, float* wr,
14241                     float* wi, float* z, lapack_int* ldz, float* work,
14242                     lapack_int* lwork, lapack_int *info );
14243 void LAPACK_dhseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,
14244                     lapack_int* ihi, double* h, lapack_int* ldh, double* wr,
14245                     double* wi, double* z, lapack_int* ldz, double* work,
14246                     lapack_int* lwork, lapack_int *info );
14247 void LAPACK_chseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,
14248                     lapack_int* ihi, lapack_complex_float* h, lapack_int* ldh,
14249                     lapack_complex_float* w, lapack_complex_float* z,
14250                     lapack_int* ldz, lapack_complex_float* work,
14251                     lapack_int* lwork, lapack_int *info );
14252 void LAPACK_zhseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,
14253                     lapack_int* ihi, lapack_complex_double* h, lapack_int* ldh,
14254                     lapack_complex_double* w, lapack_complex_double* z,
14255                     lapack_int* ldz, lapack_complex_double* work,
14256                     lapack_int* lwork, lapack_int *info );
14257 void LAPACK_shsein( char* job, char* eigsrc, char* initv,
14258                     lapack_logical* select, lapack_int* n, const float* h,
14259                     lapack_int* ldh, float* wr, const float* wi, float* vl,
14260                     lapack_int* ldvl, float* vr, lapack_int* ldvr,
14261                     lapack_int* mm, lapack_int* m, float* work,
14262                     lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );
14263 void LAPACK_dhsein( char* job, char* eigsrc, char* initv,
14264                     lapack_logical* select, lapack_int* n, const double* h,
14265                     lapack_int* ldh, double* wr, const double* wi, double* vl,
14266                     lapack_int* ldvl, double* vr, lapack_int* ldvr,
14267                     lapack_int* mm, lapack_int* m, double* work,
14268                     lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );
14269 void LAPACK_chsein( char* job, char* eigsrc, char* initv,
14270                     const lapack_logical* select, lapack_int* n,
14271                     const lapack_complex_float* h, lapack_int* ldh,
14272                     lapack_complex_float* w, lapack_complex_float* vl,
14273                     lapack_int* ldvl, lapack_complex_float* vr,
14274                     lapack_int* ldvr, lapack_int* mm, lapack_int* m,
14275                     lapack_complex_float* work, float* rwork,
14276                     lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );
14277 void LAPACK_zhsein( char* job, char* eigsrc, char* initv,
14278                     const lapack_logical* select, lapack_int* n,
14279                     const lapack_complex_double* h, lapack_int* ldh,
14280                     lapack_complex_double* w, lapack_complex_double* vl,
14281                     lapack_int* ldvl, lapack_complex_double* vr,
14282                     lapack_int* ldvr, lapack_int* mm, lapack_int* m,
14283                     lapack_complex_double* work, double* rwork,
14284                     lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );
14285 void LAPACK_strevc( char* side, char* howmny, lapack_logical* select,
14286                     lapack_int* n, const float* t, lapack_int* ldt, float* vl,
14287                     lapack_int* ldvl, float* vr, lapack_int* ldvr,
14288                     lapack_int* mm, lapack_int* m, float* work,
14289                     lapack_int *info );
14290 void LAPACK_dtrevc( char* side, char* howmny, lapack_logical* select,
14291                     lapack_int* n, const double* t, lapack_int* ldt, double* vl,
14292                     lapack_int* ldvl, double* vr, lapack_int* ldvr,
14293                     lapack_int* mm, lapack_int* m, double* work,
14294                     lapack_int *info );
14295 void LAPACK_ctrevc( char* side, char* howmny, const lapack_logical* select,
14296                     lapack_int* n, lapack_complex_float* t, lapack_int* ldt,
14297                     lapack_complex_float* vl, lapack_int* ldvl,
14298                     lapack_complex_float* vr, lapack_int* ldvr, lapack_int* mm,
14299                     lapack_int* m, lapack_complex_float* work, float* rwork,
14300                     lapack_int *info );
14301 void LAPACK_ztrevc( char* side, char* howmny, const lapack_logical* select,
14302                     lapack_int* n, lapack_complex_double* t, lapack_int* ldt,
14303                     lapack_complex_double* vl, lapack_int* ldvl,
14304                     lapack_complex_double* vr, lapack_int* ldvr, lapack_int* mm,
14305                     lapack_int* m, lapack_complex_double* work, double* rwork,
14306                     lapack_int *info );
14307 void LAPACK_strsna( char* job, char* howmny, const lapack_logical* select,
14308                     lapack_int* n, const float* t, lapack_int* ldt,
14309                     const float* vl, lapack_int* ldvl, const float* vr,
14310                     lapack_int* ldvr, float* s, float* sep, lapack_int* mm,
14311                     lapack_int* m, float* work, lapack_int* ldwork,
14312                     lapack_int* iwork, lapack_int *info );
14313 void LAPACK_dtrsna( char* job, char* howmny, const lapack_logical* select,
14314                     lapack_int* n, const double* t, lapack_int* ldt,
14315                     const double* vl, lapack_int* ldvl, const double* vr,
14316                     lapack_int* ldvr, double* s, double* sep, lapack_int* mm,
14317                     lapack_int* m, double* work, lapack_int* ldwork,
14318                     lapack_int* iwork, lapack_int *info );
14319 void LAPACK_ctrsna( char* job, char* howmny, const lapack_logical* select,
14320                     lapack_int* n, const lapack_complex_float* t,
14321                     lapack_int* ldt, const lapack_complex_float* vl,
14322                     lapack_int* ldvl, const lapack_complex_float* vr,
14323                     lapack_int* ldvr, float* s, float* sep, lapack_int* mm,
14324                     lapack_int* m, lapack_complex_float* work,
14325                     lapack_int* ldwork, float* rwork, lapack_int *info );
14326 void LAPACK_ztrsna( char* job, char* howmny, const lapack_logical* select,
14327                     lapack_int* n, const lapack_complex_double* t,
14328                     lapack_int* ldt, const lapack_complex_double* vl,
14329                     lapack_int* ldvl, const lapack_complex_double* vr,
14330                     lapack_int* ldvr, double* s, double* sep, lapack_int* mm,
14331                     lapack_int* m, lapack_complex_double* work,
14332                     lapack_int* ldwork, double* rwork, lapack_int *info );
14333 void LAPACK_strexc( char* compq, lapack_int* n, float* t, lapack_int* ldt,
14334                     float* q, lapack_int* ldq, lapack_int* ifst,
14335                     lapack_int* ilst, float* work, lapack_int *info );
14336 void LAPACK_dtrexc( char* compq, lapack_int* n, double* t, lapack_int* ldt,
14337                     double* q, lapack_int* ldq, lapack_int* ifst,
14338                     lapack_int* ilst, double* work, lapack_int *info );
14339 void LAPACK_ctrexc( char* compq, lapack_int* n, lapack_complex_float* t,
14340                     lapack_int* ldt, lapack_complex_float* q, lapack_int* ldq,
14341                     lapack_int* ifst, lapack_int* ilst, lapack_int *info );
14342 void LAPACK_ztrexc( char* compq, lapack_int* n, lapack_complex_double* t,
14343                     lapack_int* ldt, lapack_complex_double* q, lapack_int* ldq,
14344                     lapack_int* ifst, lapack_int* ilst, lapack_int *info );
14345 void LAPACK_strsen( char* job, char* compq, const lapack_logical* select,
14346                     lapack_int* n, float* t, lapack_int* ldt, float* q,
14347                     lapack_int* ldq, float* wr, float* wi, lapack_int* m,
14348                     float* s, float* sep, float* work, lapack_int* lwork,
14349                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14350 void LAPACK_dtrsen( char* job, char* compq, const lapack_logical* select,
14351                     lapack_int* n, double* t, lapack_int* ldt, double* q,
14352                     lapack_int* ldq, double* wr, double* wi, lapack_int* m,
14353                     double* s, double* sep, double* work, lapack_int* lwork,
14354                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14355 void LAPACK_ctrsen( char* job, char* compq, const lapack_logical* select,
14356                     lapack_int* n, lapack_complex_float* t, lapack_int* ldt,
14357                     lapack_complex_float* q, lapack_int* ldq,
14358                     lapack_complex_float* w, lapack_int* m, float* s,
14359                     float* sep, lapack_complex_float* work, lapack_int* lwork,
14360                     lapack_int *info );
14361 void LAPACK_ztrsen( char* job, char* compq, const lapack_logical* select,
14362                     lapack_int* n, lapack_complex_double* t, lapack_int* ldt,
14363                     lapack_complex_double* q, lapack_int* ldq,
14364                     lapack_complex_double* w, lapack_int* m, double* s,
14365                     double* sep, lapack_complex_double* work, lapack_int* lwork,
14366                     lapack_int *info );
14367 void LAPACK_strsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,
14368                     lapack_int* n, const float* a, lapack_int* lda,
14369                     const float* b, lapack_int* ldb, float* c, lapack_int* ldc,
14370                     float* scale, lapack_int *info );
14371 void LAPACK_dtrsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,
14372                     lapack_int* n, const double* a, lapack_int* lda,
14373                     const double* b, lapack_int* ldb, double* c,
14374                     lapack_int* ldc, double* scale, lapack_int *info );
14375 void LAPACK_ctrsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,
14376                     lapack_int* n, const lapack_complex_float* a,
14377                     lapack_int* lda, const lapack_complex_float* b,
14378                     lapack_int* ldb, lapack_complex_float* c, lapack_int* ldc,
14379                     float* scale, lapack_int *info );
14380 void LAPACK_ztrsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,
14381                     lapack_int* n, const lapack_complex_double* a,
14382                     lapack_int* lda, const lapack_complex_double* b,
14383                     lapack_int* ldb, lapack_complex_double* c, lapack_int* ldc,
14384                     double* scale, lapack_int *info );
14385 void LAPACK_sgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,
14386                     lapack_int* ihi, float* a, lapack_int* lda, float* b,
14387                     lapack_int* ldb, float* q, lapack_int* ldq, float* z,
14388                     lapack_int* ldz, lapack_int *info );
14389 void LAPACK_dgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,
14390                     lapack_int* ihi, double* a, lapack_int* lda, double* b,
14391                     lapack_int* ldb, double* q, lapack_int* ldq, double* z,
14392                     lapack_int* ldz, lapack_int *info );
14393 void LAPACK_cgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,
14394                     lapack_int* ihi, lapack_complex_float* a, lapack_int* lda,
14395                     lapack_complex_float* b, lapack_int* ldb,
14396                     lapack_complex_float* q, lapack_int* ldq,
14397                     lapack_complex_float* z, lapack_int* ldz,
14398                     lapack_int *info );
14399 void LAPACK_zgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,
14400                     lapack_int* ihi, lapack_complex_double* a, lapack_int* lda,
14401                     lapack_complex_double* b, lapack_int* ldb,
14402                     lapack_complex_double* q, lapack_int* ldq,
14403                     lapack_complex_double* z, lapack_int* ldz,
14404                     lapack_int *info );
14405 void LAPACK_sggbal( char* job, lapack_int* n, float* a, lapack_int* lda,
14406                     float* b, lapack_int* ldb, lapack_int* ilo, lapack_int* ihi,
14407                     float* lscale, float* rscale, float* work,
14408                     lapack_int *info );
14409 void LAPACK_dggbal( char* job, lapack_int* n, double* a, lapack_int* lda,
14410                     double* b, lapack_int* ldb, lapack_int* ilo,
14411                     lapack_int* ihi, double* lscale, double* rscale,
14412                     double* work, lapack_int *info );
14413 void LAPACK_cggbal( char* job, lapack_int* n, lapack_complex_float* a,
14414                     lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,
14415                     lapack_int* ilo, lapack_int* ihi, float* lscale,
14416                     float* rscale, float* work, lapack_int *info );
14417 void LAPACK_zggbal( char* job, lapack_int* n, lapack_complex_double* a,
14418                     lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,
14419                     lapack_int* ilo, lapack_int* ihi, double* lscale,
14420                     double* rscale, double* work, lapack_int *info );
14421 void LAPACK_sggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14422                     lapack_int* ihi, const float* lscale, const float* rscale,
14423                     lapack_int* m, float* v, lapack_int* ldv,
14424                     lapack_int *info );
14425 void LAPACK_dggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14426                     lapack_int* ihi, const double* lscale, const double* rscale,
14427                     lapack_int* m, double* v, lapack_int* ldv,
14428                     lapack_int *info );
14429 void LAPACK_cggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14430                     lapack_int* ihi, const float* lscale, const float* rscale,
14431                     lapack_int* m, lapack_complex_float* v, lapack_int* ldv,
14432                     lapack_int *info );
14433 void LAPACK_zggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,
14434                     lapack_int* ihi, const double* lscale, const double* rscale,
14435                     lapack_int* m, lapack_complex_double* v, lapack_int* ldv,
14436                     lapack_int *info );
14437 void LAPACK_shgeqz( char* job, char* compq, char* compz, lapack_int* n,
14438                     lapack_int* ilo, lapack_int* ihi, float* h, lapack_int* ldh,
14439                     float* t, lapack_int* ldt, float* alphar, float* alphai,
14440                     float* beta, float* q, lapack_int* ldq, float* z,
14441                     lapack_int* ldz, float* work, lapack_int* lwork,
14442                     lapack_int *info );
14443 void LAPACK_dhgeqz( char* job, char* compq, char* compz, lapack_int* n,
14444                     lapack_int* ilo, lapack_int* ihi, double* h,
14445                     lapack_int* ldh, double* t, lapack_int* ldt, double* alphar,
14446                     double* alphai, double* beta, double* q, lapack_int* ldq,
14447                     double* z, lapack_int* ldz, double* work, lapack_int* lwork,
14448                     lapack_int *info );
14449 void LAPACK_chgeqz( char* job, char* compq, char* compz, lapack_int* n,
14450                     lapack_int* ilo, lapack_int* ihi, lapack_complex_float* h,
14451                     lapack_int* ldh, lapack_complex_float* t, lapack_int* ldt,
14452                     lapack_complex_float* alpha, lapack_complex_float* beta,
14453                     lapack_complex_float* q, lapack_int* ldq,
14454                     lapack_complex_float* z, lapack_int* ldz,
14455                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
14456                     lapack_int *info );
14457 void LAPACK_zhgeqz( char* job, char* compq, char* compz, lapack_int* n,
14458                     lapack_int* ilo, lapack_int* ihi, lapack_complex_double* h,
14459                     lapack_int* ldh, lapack_complex_double* t, lapack_int* ldt,
14460                     lapack_complex_double* alpha, lapack_complex_double* beta,
14461                     lapack_complex_double* q, lapack_int* ldq,
14462                     lapack_complex_double* z, lapack_int* ldz,
14463                     lapack_complex_double* work, lapack_int* lwork,
14464                     double* rwork, lapack_int *info );
14465 void LAPACK_stgevc( char* side, char* howmny, const lapack_logical* select,
14466                     lapack_int* n, const float* s, lapack_int* lds,
14467                     const float* p, lapack_int* ldp, float* vl,
14468                     lapack_int* ldvl, float* vr, lapack_int* ldvr,
14469                     lapack_int* mm, lapack_int* m, float* work,
14470                     lapack_int *info );
14471 void LAPACK_dtgevc( char* side, char* howmny, const lapack_logical* select,
14472                     lapack_int* n, const double* s, lapack_int* lds,
14473                     const double* p, lapack_int* ldp, double* vl,
14474                     lapack_int* ldvl, double* vr, lapack_int* ldvr,
14475                     lapack_int* mm, lapack_int* m, double* work,
14476                     lapack_int *info );
14477 void LAPACK_ctgevc( char* side, char* howmny, const lapack_logical* select,
14478                     lapack_int* n, const lapack_complex_float* s,
14479                     lapack_int* lds, const lapack_complex_float* p,
14480                     lapack_int* ldp, lapack_complex_float* vl, lapack_int* ldvl,
14481                     lapack_complex_float* vr, lapack_int* ldvr, lapack_int* mm,
14482                     lapack_int* m, lapack_complex_float* work, float* rwork,
14483                     lapack_int *info );
14484 void LAPACK_ztgevc( char* side, char* howmny, const lapack_logical* select,
14485                     lapack_int* n, const lapack_complex_double* s,
14486                     lapack_int* lds, const lapack_complex_double* p,
14487                     lapack_int* ldp, lapack_complex_double* vl,
14488                     lapack_int* ldvl, lapack_complex_double* vr,
14489                     lapack_int* ldvr, lapack_int* mm, lapack_int* m,
14490                     lapack_complex_double* work, double* rwork,
14491                     lapack_int *info );
14492 void LAPACK_stgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,
14493                     float* a, lapack_int* lda, float* b, lapack_int* ldb,
14494                     float* q, lapack_int* ldq, float* z, lapack_int* ldz,
14495                     lapack_int* ifst, lapack_int* ilst, float* work,
14496                     lapack_int* lwork, lapack_int *info );
14497 void LAPACK_dtgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,
14498                     double* a, lapack_int* lda, double* b, lapack_int* ldb,
14499                     double* q, lapack_int* ldq, double* z, lapack_int* ldz,
14500                     lapack_int* ifst, lapack_int* ilst, double* work,
14501                     lapack_int* lwork, lapack_int *info );
14502 void LAPACK_ctgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,
14503                     lapack_complex_float* a, lapack_int* lda,
14504                     lapack_complex_float* b, lapack_int* ldb,
14505                     lapack_complex_float* q, lapack_int* ldq,
14506                     lapack_complex_float* z, lapack_int* ldz, lapack_int* ifst,
14507                     lapack_int* ilst, lapack_int *info );
14508 void LAPACK_ztgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,
14509                     lapack_complex_double* a, lapack_int* lda,
14510                     lapack_complex_double* b, lapack_int* ldb,
14511                     lapack_complex_double* q, lapack_int* ldq,
14512                     lapack_complex_double* z, lapack_int* ldz, lapack_int* ifst,
14513                     lapack_int* ilst, lapack_int *info );
14514 void LAPACK_stgsen( lapack_int* ijob, lapack_logical* wantq,
14515                     lapack_logical* wantz, const lapack_logical* select,
14516                     lapack_int* n, float* a, lapack_int* lda, float* b,
14517                     lapack_int* ldb, float* alphar, float* alphai, float* beta,
14518                     float* q, lapack_int* ldq, float* z, lapack_int* ldz,
14519                     lapack_int* m, float* pl, float* pr, float* dif,
14520                     float* work, lapack_int* lwork, lapack_int* iwork,
14521                     lapack_int* liwork, lapack_int *info );
14522 void LAPACK_dtgsen( lapack_int* ijob, lapack_logical* wantq,
14523                     lapack_logical* wantz, const lapack_logical* select,
14524                     lapack_int* n, double* a, lapack_int* lda, double* b,
14525                     lapack_int* ldb, double* alphar, double* alphai,
14526                     double* beta, double* q, lapack_int* ldq, double* z,
14527                     lapack_int* ldz, lapack_int* m, double* pl, double* pr,
14528                     double* dif, double* work, lapack_int* lwork,
14529                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14530 void LAPACK_ctgsen( lapack_int* ijob, lapack_logical* wantq,
14531                     lapack_logical* wantz, const lapack_logical* select,
14532                     lapack_int* n, lapack_complex_float* a, lapack_int* lda,
14533                     lapack_complex_float* b, lapack_int* ldb,
14534                     lapack_complex_float* alpha, lapack_complex_float* beta,
14535                     lapack_complex_float* q, lapack_int* ldq,
14536                     lapack_complex_float* z, lapack_int* ldz, lapack_int* m,
14537                     float* pl, float* pr, float* dif,
14538                     lapack_complex_float* work, lapack_int* lwork,
14539                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14540 void LAPACK_ztgsen( lapack_int* ijob, lapack_logical* wantq,
14541                     lapack_logical* wantz, const lapack_logical* select,
14542                     lapack_int* n, lapack_complex_double* a, lapack_int* lda,
14543                     lapack_complex_double* b, lapack_int* ldb,
14544                     lapack_complex_double* alpha, lapack_complex_double* beta,
14545                     lapack_complex_double* q, lapack_int* ldq,
14546                     lapack_complex_double* z, lapack_int* ldz, lapack_int* m,
14547                     double* pl, double* pr, double* dif,
14548                     lapack_complex_double* work, lapack_int* lwork,
14549                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14550 void LAPACK_stgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,
14551                     const float* a, lapack_int* lda, const float* b,
14552                     lapack_int* ldb, float* c, lapack_int* ldc, const float* d,
14553                     lapack_int* ldd, const float* e, lapack_int* lde, float* f,
14554                     lapack_int* ldf, float* scale, float* dif, float* work,
14555                     lapack_int* lwork, lapack_int* iwork, lapack_int *info );
14556 void LAPACK_dtgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,
14557                     const double* a, lapack_int* lda, const double* b,
14558                     lapack_int* ldb, double* c, lapack_int* ldc,
14559                     const double* d, lapack_int* ldd, const double* e,
14560                     lapack_int* lde, double* f, lapack_int* ldf, double* scale,
14561                     double* dif, double* work, lapack_int* lwork,
14562                     lapack_int* iwork, lapack_int *info );
14563 void LAPACK_ctgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,
14564                     const lapack_complex_float* a, lapack_int* lda,
14565                     const lapack_complex_float* b, lapack_int* ldb,
14566                     lapack_complex_float* c, lapack_int* ldc,
14567                     const lapack_complex_float* d, lapack_int* ldd,
14568                     const lapack_complex_float* e, lapack_int* lde,
14569                     lapack_complex_float* f, lapack_int* ldf, float* scale,
14570                     float* dif, lapack_complex_float* work, lapack_int* lwork,
14571                     lapack_int* iwork, lapack_int *info );
14572 void LAPACK_ztgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,
14573                     const lapack_complex_double* a, lapack_int* lda,
14574                     const lapack_complex_double* b, lapack_int* ldb,
14575                     lapack_complex_double* c, lapack_int* ldc,
14576                     const lapack_complex_double* d, lapack_int* ldd,
14577                     const lapack_complex_double* e, lapack_int* lde,
14578                     lapack_complex_double* f, lapack_int* ldf, double* scale,
14579                     double* dif, lapack_complex_double* work, lapack_int* lwork,
14580                     lapack_int* iwork, lapack_int *info );
14581 void LAPACK_stgsna( char* job, char* howmny, const lapack_logical* select,
14582                     lapack_int* n, const float* a, lapack_int* lda,
14583                     const float* b, lapack_int* ldb, const float* vl,
14584                     lapack_int* ldvl, const float* vr, lapack_int* ldvr,
14585                     float* s, float* dif, lapack_int* mm, lapack_int* m,
14586                     float* work, lapack_int* lwork, lapack_int* iwork,
14587                     lapack_int *info );
14588 void LAPACK_dtgsna( char* job, char* howmny, const lapack_logical* select,
14589                     lapack_int* n, const double* a, lapack_int* lda,
14590                     const double* b, lapack_int* ldb, const double* vl,
14591                     lapack_int* ldvl, const double* vr, lapack_int* ldvr,
14592                     double* s, double* dif, lapack_int* mm, lapack_int* m,
14593                     double* work, lapack_int* lwork, lapack_int* iwork,
14594                     lapack_int *info );
14595 void LAPACK_ctgsna( char* job, char* howmny, const lapack_logical* select,
14596                     lapack_int* n, const lapack_complex_float* a,
14597                     lapack_int* lda, const lapack_complex_float* b,
14598                     lapack_int* ldb, const lapack_complex_float* vl,
14599                     lapack_int* ldvl, const lapack_complex_float* vr,
14600                     lapack_int* ldvr, float* s, float* dif, lapack_int* mm,
14601                     lapack_int* m, lapack_complex_float* work,
14602                     lapack_int* lwork, lapack_int* iwork, lapack_int *info );
14603 void LAPACK_ztgsna( char* job, char* howmny, const lapack_logical* select,
14604                     lapack_int* n, const lapack_complex_double* a,
14605                     lapack_int* lda, const lapack_complex_double* b,
14606                     lapack_int* ldb, const lapack_complex_double* vl,
14607                     lapack_int* ldvl, const lapack_complex_double* vr,
14608                     lapack_int* ldvr, double* s, double* dif, lapack_int* mm,
14609                     lapack_int* m, lapack_complex_double* work,
14610                     lapack_int* lwork, lapack_int* iwork, lapack_int *info );
14611 void LAPACK_sggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,
14612                     lapack_int* p, lapack_int* n, float* a, lapack_int* lda,
14613                     float* b, lapack_int* ldb, float* tola, float* tolb,
14614                     lapack_int* k, lapack_int* l, float* u, lapack_int* ldu,
14615                     float* v, lapack_int* ldv, float* q, lapack_int* ldq,
14616                     lapack_int* iwork, float* tau, float* work,
14617                     lapack_int *info );
14618 void LAPACK_dggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,
14619                     lapack_int* p, lapack_int* n, double* a, lapack_int* lda,
14620                     double* b, lapack_int* ldb, double* tola, double* tolb,
14621                     lapack_int* k, lapack_int* l, double* u, lapack_int* ldu,
14622                     double* v, lapack_int* ldv, double* q, lapack_int* ldq,
14623                     lapack_int* iwork, double* tau, double* work,
14624                     lapack_int *info );
14625 void LAPACK_cggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,
14626                     lapack_int* p, lapack_int* n, lapack_complex_float* a,
14627                     lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,
14628                     float* tola, float* tolb, lapack_int* k, lapack_int* l,
14629                     lapack_complex_float* u, lapack_int* ldu,
14630                     lapack_complex_float* v, lapack_int* ldv,
14631                     lapack_complex_float* q, lapack_int* ldq, lapack_int* iwork,
14632                     float* rwork, lapack_complex_float* tau,
14633                     lapack_complex_float* work, lapack_int *info );
14634 void LAPACK_zggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,
14635                     lapack_int* p, lapack_int* n, lapack_complex_double* a,
14636                     lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,
14637                     double* tola, double* tolb, lapack_int* k, lapack_int* l,
14638                     lapack_complex_double* u, lapack_int* ldu,
14639                     lapack_complex_double* v, lapack_int* ldv,
14640                     lapack_complex_double* q, lapack_int* ldq,
14641                     lapack_int* iwork, double* rwork,
14642                     lapack_complex_double* tau, lapack_complex_double* work,
14643                     lapack_int *info );
14644 void LAPACK_stgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,
14645                     lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,
14646                     float* a, lapack_int* lda, float* b, lapack_int* ldb,
14647                     float* tola, float* tolb, float* alpha, float* beta,
14648                     float* u, lapack_int* ldu, float* v, lapack_int* ldv,
14649                     float* q, lapack_int* ldq, float* work, lapack_int* ncycle,
14650                     lapack_int *info );
14651 void LAPACK_dtgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,
14652                     lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,
14653                     double* a, lapack_int* lda, double* b, lapack_int* ldb,
14654                     double* tola, double* tolb, double* alpha, double* beta,
14655                     double* u, lapack_int* ldu, double* v, lapack_int* ldv,
14656                     double* q, lapack_int* ldq, double* work,
14657                     lapack_int* ncycle, lapack_int *info );
14658 void LAPACK_ctgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,
14659                     lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,
14660                     lapack_complex_float* a, lapack_int* lda,
14661                     lapack_complex_float* b, lapack_int* ldb, float* tola,
14662                     float* tolb, float* alpha, float* beta,
14663                     lapack_complex_float* u, lapack_int* ldu,
14664                     lapack_complex_float* v, lapack_int* ldv,
14665                     lapack_complex_float* q, lapack_int* ldq,
14666                     lapack_complex_float* work, lapack_int* ncycle,
14667                     lapack_int *info );
14668 void LAPACK_ztgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,
14669                     lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,
14670                     lapack_complex_double* a, lapack_int* lda,
14671                     lapack_complex_double* b, lapack_int* ldb, double* tola,
14672                     double* tolb, double* alpha, double* beta,
14673                     lapack_complex_double* u, lapack_int* ldu,
14674                     lapack_complex_double* v, lapack_int* ldv,
14675                     lapack_complex_double* q, lapack_int* ldq,
14676                     lapack_complex_double* work, lapack_int* ncycle,
14677                     lapack_int *info );
14678 void LAPACK_sgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,
14679                    float* a, lapack_int* lda, float* b, lapack_int* ldb,
14680                    float* work, lapack_int* lwork, lapack_int *info );
14681 void LAPACK_dgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,
14682                    double* a, lapack_int* lda, double* b, lapack_int* ldb,
14683                    double* work, lapack_int* lwork, lapack_int *info );
14684 void LAPACK_cgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,
14685                    lapack_complex_float* a, lapack_int* lda,
14686                    lapack_complex_float* b, lapack_int* ldb,
14687                    lapack_complex_float* work, lapack_int* lwork,
14688                    lapack_int *info );
14689 void LAPACK_zgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,
14690                    lapack_complex_double* a, lapack_int* lda,
14691                    lapack_complex_double* b, lapack_int* ldb,
14692                    lapack_complex_double* work, lapack_int* lwork,
14693                    lapack_int *info );
14694 void LAPACK_sgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs, float* a,
14695                     lapack_int* lda, float* b, lapack_int* ldb,
14696                     lapack_int* jpvt, float* rcond, lapack_int* rank,
14697                     float* work, lapack_int* lwork, lapack_int *info );
14698 void LAPACK_dgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs, double* a,
14699                     lapack_int* lda, double* b, lapack_int* ldb,
14700                     lapack_int* jpvt, double* rcond, lapack_int* rank,
14701                     double* work, lapack_int* lwork, lapack_int *info );
14702 void LAPACK_cgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs,
14703                     lapack_complex_float* a, lapack_int* lda,
14704                     lapack_complex_float* b, lapack_int* ldb, lapack_int* jpvt,
14705                     float* rcond, lapack_int* rank, lapack_complex_float* work,
14706                     lapack_int* lwork, float* rwork, lapack_int *info );
14707 void LAPACK_zgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs,
14708                     lapack_complex_double* a, lapack_int* lda,
14709                     lapack_complex_double* b, lapack_int* ldb, lapack_int* jpvt,
14710                     double* rcond, lapack_int* rank,
14711                     lapack_complex_double* work, lapack_int* lwork,
14712                     double* rwork, lapack_int *info );
14713 void LAPACK_sgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs, float* a,
14714                     lapack_int* lda, float* b, lapack_int* ldb, float* s,
14715                     float* rcond, lapack_int* rank, float* work,
14716                     lapack_int* lwork, lapack_int *info );
14717 void LAPACK_dgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs, double* a,
14718                     lapack_int* lda, double* b, lapack_int* ldb, double* s,
14719                     double* rcond, lapack_int* rank, double* work,
14720                     lapack_int* lwork, lapack_int *info );
14721 void LAPACK_cgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs,
14722                     lapack_complex_float* a, lapack_int* lda,
14723                     lapack_complex_float* b, lapack_int* ldb, float* s,
14724                     float* rcond, lapack_int* rank, lapack_complex_float* work,
14725                     lapack_int* lwork, float* rwork, lapack_int *info );
14726 void LAPACK_zgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs,
14727                     lapack_complex_double* a, lapack_int* lda,
14728                     lapack_complex_double* b, lapack_int* ldb, double* s,
14729                     double* rcond, lapack_int* rank,
14730                     lapack_complex_double* work, lapack_int* lwork,
14731                     double* rwork, lapack_int *info );
14732 void LAPACK_sgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs, float* a,
14733                     lapack_int* lda, float* b, lapack_int* ldb, float* s,
14734                     float* rcond, lapack_int* rank, float* work,
14735                     lapack_int* lwork, lapack_int* iwork, lapack_int *info );
14736 void LAPACK_dgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs, double* a,
14737                     lapack_int* lda, double* b, lapack_int* ldb, double* s,
14738                     double* rcond, lapack_int* rank, double* work,
14739                     lapack_int* lwork, lapack_int* iwork, lapack_int *info );
14740 void LAPACK_cgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs,
14741                     lapack_complex_float* a, lapack_int* lda,
14742                     lapack_complex_float* b, lapack_int* ldb, float* s,
14743                     float* rcond, lapack_int* rank, lapack_complex_float* work,
14744                     lapack_int* lwork, float* rwork, lapack_int* iwork,
14745                     lapack_int *info );
14746 void LAPACK_zgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs,
14747                     lapack_complex_double* a, lapack_int* lda,
14748                     lapack_complex_double* b, lapack_int* ldb, double* s,
14749                     double* rcond, lapack_int* rank,
14750                     lapack_complex_double* work, lapack_int* lwork,
14751                     double* rwork, lapack_int* iwork, lapack_int *info );
14752 void LAPACK_sgglse( lapack_int* m, lapack_int* n, lapack_int* p, float* a,
14753                     lapack_int* lda, float* b, lapack_int* ldb, float* c,
14754                     float* d, float* x, float* work, lapack_int* lwork,
14755                     lapack_int *info );
14756 void LAPACK_dgglse( lapack_int* m, lapack_int* n, lapack_int* p, double* a,
14757                     lapack_int* lda, double* b, lapack_int* ldb, double* c,
14758                     double* d, double* x, double* work, lapack_int* lwork,
14759                     lapack_int *info );
14760 void LAPACK_cgglse( lapack_int* m, lapack_int* n, lapack_int* p,
14761                     lapack_complex_float* a, lapack_int* lda,
14762                     lapack_complex_float* b, lapack_int* ldb,
14763                     lapack_complex_float* c, lapack_complex_float* d,
14764                     lapack_complex_float* x, lapack_complex_float* work,
14765                     lapack_int* lwork, lapack_int *info );
14766 void LAPACK_zgglse( lapack_int* m, lapack_int* n, lapack_int* p,
14767                     lapack_complex_double* a, lapack_int* lda,
14768                     lapack_complex_double* b, lapack_int* ldb,
14769                     lapack_complex_double* c, lapack_complex_double* d,
14770                     lapack_complex_double* x, lapack_complex_double* work,
14771                     lapack_int* lwork, lapack_int *info );
14772 void LAPACK_sggglm( lapack_int* n, lapack_int* m, lapack_int* p, float* a,
14773                     lapack_int* lda, float* b, lapack_int* ldb, float* d,
14774                     float* x, float* y, float* work, lapack_int* lwork,
14775                     lapack_int *info );
14776 void LAPACK_dggglm( lapack_int* n, lapack_int* m, lapack_int* p, double* a,
14777                     lapack_int* lda, double* b, lapack_int* ldb, double* d,
14778                     double* x, double* y, double* work, lapack_int* lwork,
14779                     lapack_int *info );
14780 void LAPACK_cggglm( lapack_int* n, lapack_int* m, lapack_int* p,
14781                     lapack_complex_float* a, lapack_int* lda,
14782                     lapack_complex_float* b, lapack_int* ldb,
14783                     lapack_complex_float* d, lapack_complex_float* x,
14784                     lapack_complex_float* y, lapack_complex_float* work,
14785                     lapack_int* lwork, lapack_int *info );
14786 void LAPACK_zggglm( lapack_int* n, lapack_int* m, lapack_int* p,
14787                     lapack_complex_double* a, lapack_int* lda,
14788                     lapack_complex_double* b, lapack_int* ldb,
14789                     lapack_complex_double* d, lapack_complex_double* x,
14790                     lapack_complex_double* y, lapack_complex_double* work,
14791                     lapack_int* lwork, lapack_int *info );
14792 void LAPACK_ssyev( char* jobz, char* uplo, lapack_int* n, float* a,
14793                    lapack_int* lda, float* w, float* work, lapack_int* lwork,
14794                    lapack_int *info );
14795 void LAPACK_dsyev( char* jobz, char* uplo, lapack_int* n, double* a,
14796                    lapack_int* lda, double* w, double* work, lapack_int* lwork,
14797                    lapack_int *info );
14798 void LAPACK_cheev( char* jobz, char* uplo, lapack_int* n,
14799                    lapack_complex_float* a, lapack_int* lda, float* w,
14800                    lapack_complex_float* work, lapack_int* lwork, float* rwork,
14801                    lapack_int *info );
14802 void LAPACK_zheev( char* jobz, char* uplo, lapack_int* n,
14803                    lapack_complex_double* a, lapack_int* lda, double* w,
14804                    lapack_complex_double* work, lapack_int* lwork,
14805                    double* rwork, lapack_int *info );
14806 void LAPACK_ssyevd( char* jobz, char* uplo, lapack_int* n, float* a,
14807                     lapack_int* lda, float* w, float* work, lapack_int* lwork,
14808                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14809 void LAPACK_dsyevd( char* jobz, char* uplo, lapack_int* n, double* a,
14810                     lapack_int* lda, double* w, double* work, lapack_int* lwork,
14811                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14812 void LAPACK_cheevd( char* jobz, char* uplo, lapack_int* n,
14813                     lapack_complex_float* a, lapack_int* lda, float* w,
14814                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
14815                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
14816                     lapack_int *info );
14817 void LAPACK_zheevd( char* jobz, char* uplo, lapack_int* n,
14818                     lapack_complex_double* a, lapack_int* lda, double* w,
14819                     lapack_complex_double* work, lapack_int* lwork,
14820                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
14821                     lapack_int* liwork, lapack_int *info );
14822 void LAPACK_ssyevx( char* jobz, char* range, char* uplo, lapack_int* n,
14823                     float* a, lapack_int* lda, float* vl, float* vu,
14824                     lapack_int* il, lapack_int* iu, float* abstol,
14825                     lapack_int* m, float* w, float* z, lapack_int* ldz,
14826                     float* work, lapack_int* lwork, lapack_int* iwork,
14827                     lapack_int* ifail, lapack_int *info );
14828 void LAPACK_dsyevx( char* jobz, char* range, char* uplo, lapack_int* n,
14829                     double* a, lapack_int* lda, double* vl, double* vu,
14830                     lapack_int* il, lapack_int* iu, double* abstol,
14831                     lapack_int* m, double* w, double* z, lapack_int* ldz,
14832                     double* work, lapack_int* lwork, lapack_int* iwork,
14833                     lapack_int* ifail, lapack_int *info );
14834 void LAPACK_cheevx( char* jobz, char* range, char* uplo, lapack_int* n,
14835                     lapack_complex_float* a, lapack_int* lda, float* vl,
14836                     float* vu, lapack_int* il, lapack_int* iu, float* abstol,
14837                     lapack_int* m, float* w, lapack_complex_float* z,
14838                     lapack_int* ldz, lapack_complex_float* work,
14839                     lapack_int* lwork, float* rwork, lapack_int* iwork,
14840                     lapack_int* ifail, lapack_int *info );
14841 void LAPACK_zheevx( char* jobz, char* range, char* uplo, lapack_int* n,
14842                     lapack_complex_double* a, lapack_int* lda, double* vl,
14843                     double* vu, lapack_int* il, lapack_int* iu, double* abstol,
14844                     lapack_int* m, double* w, lapack_complex_double* z,
14845                     lapack_int* ldz, lapack_complex_double* work,
14846                     lapack_int* lwork, double* rwork, lapack_int* iwork,
14847                     lapack_int* ifail, lapack_int *info );
14848 void LAPACK_ssyevr( char* jobz, char* range, char* uplo, lapack_int* n,
14849                     float* a, lapack_int* lda, float* vl, float* vu,
14850                     lapack_int* il, lapack_int* iu, float* abstol,
14851                     lapack_int* m, float* w, float* z, lapack_int* ldz,
14852                     lapack_int* isuppz, float* work, lapack_int* lwork,
14853                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14854 void LAPACK_dsyevr( char* jobz, char* range, char* uplo, lapack_int* n,
14855                     double* a, lapack_int* lda, double* vl, double* vu,
14856                     lapack_int* il, lapack_int* iu, double* abstol,
14857                     lapack_int* m, double* w, double* z, lapack_int* ldz,
14858                     lapack_int* isuppz, double* work, lapack_int* lwork,
14859                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14860 void LAPACK_cheevr( char* jobz, char* range, char* uplo, lapack_int* n,
14861                     lapack_complex_float* a, lapack_int* lda, float* vl,
14862                     float* vu, lapack_int* il, lapack_int* iu, float* abstol,
14863                     lapack_int* m, float* w, lapack_complex_float* z,
14864                     lapack_int* ldz, lapack_int* isuppz,
14865                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
14866                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
14867                     lapack_int *info );
14868 void LAPACK_zheevr( char* jobz, char* range, char* uplo, lapack_int* n,
14869                     lapack_complex_double* a, lapack_int* lda, double* vl,
14870                     double* vu, lapack_int* il, lapack_int* iu, double* abstol,
14871                     lapack_int* m, double* w, lapack_complex_double* z,
14872                     lapack_int* ldz, lapack_int* isuppz,
14873                     lapack_complex_double* work, lapack_int* lwork,
14874                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
14875                     lapack_int* liwork, lapack_int *info );
14876 void LAPACK_sspev( char* jobz, char* uplo, lapack_int* n, float* ap, float* w,
14877                    float* z, lapack_int* ldz, float* work, lapack_int *info );
14878 void LAPACK_dspev( char* jobz, char* uplo, lapack_int* n, double* ap, double* w,
14879                    double* z, lapack_int* ldz, double* work, lapack_int *info );
14880 void LAPACK_chpev( char* jobz, char* uplo, lapack_int* n,
14881                    lapack_complex_float* ap, float* w, lapack_complex_float* z,
14882                    lapack_int* ldz, lapack_complex_float* work, float* rwork,
14883                    lapack_int *info );
14884 void LAPACK_zhpev( char* jobz, char* uplo, lapack_int* n,
14885                    lapack_complex_double* ap, double* w,
14886                    lapack_complex_double* z, lapack_int* ldz,
14887                    lapack_complex_double* work, double* rwork,
14888                    lapack_int *info );
14889 void LAPACK_sspevd( char* jobz, char* uplo, lapack_int* n, float* ap, float* w,
14890                     float* z, lapack_int* ldz, float* work, lapack_int* lwork,
14891                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14892 void LAPACK_dspevd( char* jobz, char* uplo, lapack_int* n, double* ap,
14893                     double* w, double* z, lapack_int* ldz, double* work,
14894                     lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,
14895                     lapack_int *info );
14896 void LAPACK_chpevd( char* jobz, char* uplo, lapack_int* n,
14897                     lapack_complex_float* ap, float* w, lapack_complex_float* z,
14898                     lapack_int* ldz, lapack_complex_float* work,
14899                     lapack_int* lwork, float* rwork, lapack_int* lrwork,
14900                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14901 void LAPACK_zhpevd( char* jobz, char* uplo, lapack_int* n,
14902                     lapack_complex_double* ap, double* w,
14903                     lapack_complex_double* z, lapack_int* ldz,
14904                     lapack_complex_double* work, lapack_int* lwork,
14905                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
14906                     lapack_int* liwork, lapack_int *info );
14907 void LAPACK_sspevx( char* jobz, char* range, char* uplo, lapack_int* n,
14908                     float* ap, float* vl, float* vu, lapack_int* il,
14909                     lapack_int* iu, float* abstol, lapack_int* m, float* w,
14910                     float* z, lapack_int* ldz, float* work, lapack_int* iwork,
14911                     lapack_int* ifail, lapack_int *info );
14912 void LAPACK_dspevx( char* jobz, char* range, char* uplo, lapack_int* n,
14913                     double* ap, double* vl, double* vu, lapack_int* il,
14914                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
14915                     double* z, lapack_int* ldz, double* work, lapack_int* iwork,
14916                     lapack_int* ifail, lapack_int *info );
14917 void LAPACK_chpevx( char* jobz, char* range, char* uplo, lapack_int* n,
14918                     lapack_complex_float* ap, float* vl, float* vu,
14919                     lapack_int* il, lapack_int* iu, float* abstol,
14920                     lapack_int* m, float* w, lapack_complex_float* z,
14921                     lapack_int* ldz, lapack_complex_float* work, float* rwork,
14922                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
14923 void LAPACK_zhpevx( char* jobz, char* range, char* uplo, lapack_int* n,
14924                     lapack_complex_double* ap, double* vl, double* vu,
14925                     lapack_int* il, lapack_int* iu, double* abstol,
14926                     lapack_int* m, double* w, lapack_complex_double* z,
14927                     lapack_int* ldz, lapack_complex_double* work, double* rwork,
14928                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
14929 void LAPACK_ssbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14930                    float* ab, lapack_int* ldab, float* w, float* z,
14931                    lapack_int* ldz, float* work, lapack_int *info );
14932 void LAPACK_dsbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14933                    double* ab, lapack_int* ldab, double* w, double* z,
14934                    lapack_int* ldz, double* work, lapack_int *info );
14935 void LAPACK_chbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14936                    lapack_complex_float* ab, lapack_int* ldab, float* w,
14937                    lapack_complex_float* z, lapack_int* ldz,
14938                    lapack_complex_float* work, float* rwork, lapack_int *info );
14939 void LAPACK_zhbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14940                    lapack_complex_double* ab, lapack_int* ldab, double* w,
14941                    lapack_complex_double* z, lapack_int* ldz,
14942                    lapack_complex_double* work, double* rwork,
14943                    lapack_int *info );
14944 void LAPACK_ssbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14945                     float* ab, lapack_int* ldab, float* w, float* z,
14946                     lapack_int* ldz, float* work, lapack_int* lwork,
14947                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14948 void LAPACK_dsbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14949                     double* ab, lapack_int* ldab, double* w, double* z,
14950                     lapack_int* ldz, double* work, lapack_int* lwork,
14951                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14952 void LAPACK_chbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14953                     lapack_complex_float* ab, lapack_int* ldab, float* w,
14954                     lapack_complex_float* z, lapack_int* ldz,
14955                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
14956                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
14957                     lapack_int *info );
14958 void LAPACK_zhbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,
14959                     lapack_complex_double* ab, lapack_int* ldab, double* w,
14960                     lapack_complex_double* z, lapack_int* ldz,
14961                     lapack_complex_double* work, lapack_int* lwork,
14962                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
14963                     lapack_int* liwork, lapack_int *info );
14964 void LAPACK_ssbevx( char* jobz, char* range, char* uplo, lapack_int* n,
14965                     lapack_int* kd, float* ab, lapack_int* ldab, float* q,
14966                     lapack_int* ldq, float* vl, float* vu, lapack_int* il,
14967                     lapack_int* iu, float* abstol, lapack_int* m, float* w,
14968                     float* z, lapack_int* ldz, float* work, lapack_int* iwork,
14969                     lapack_int* ifail, lapack_int *info );
14970 void LAPACK_dsbevx( char* jobz, char* range, char* uplo, lapack_int* n,
14971                     lapack_int* kd, double* ab, lapack_int* ldab, double* q,
14972                     lapack_int* ldq, double* vl, double* vu, lapack_int* il,
14973                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
14974                     double* z, lapack_int* ldz, double* work, lapack_int* iwork,
14975                     lapack_int* ifail, lapack_int *info );
14976 void LAPACK_chbevx( char* jobz, char* range, char* uplo, lapack_int* n,
14977                     lapack_int* kd, lapack_complex_float* ab, lapack_int* ldab,
14978                     lapack_complex_float* q, lapack_int* ldq, float* vl,
14979                     float* vu, lapack_int* il, lapack_int* iu, float* abstol,
14980                     lapack_int* m, float* w, lapack_complex_float* z,
14981                     lapack_int* ldz, lapack_complex_float* work, float* rwork,
14982                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
14983 void LAPACK_zhbevx( char* jobz, char* range, char* uplo, lapack_int* n,
14984                     lapack_int* kd, lapack_complex_double* ab, lapack_int* ldab,
14985                     lapack_complex_double* q, lapack_int* ldq, double* vl,
14986                     double* vu, lapack_int* il, lapack_int* iu, double* abstol,
14987                     lapack_int* m, double* w, lapack_complex_double* z,
14988                     lapack_int* ldz, lapack_complex_double* work, double* rwork,
14989                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
14990 void LAPACK_sstev( char* jobz, lapack_int* n, float* d, float* e, float* z,
14991                    lapack_int* ldz, float* work, lapack_int *info );
14992 void LAPACK_dstev( char* jobz, lapack_int* n, double* d, double* e, double* z,
14993                    lapack_int* ldz, double* work, lapack_int *info );
14994 void LAPACK_sstevd( char* jobz, lapack_int* n, float* d, float* e, float* z,
14995                     lapack_int* ldz, float* work, lapack_int* lwork,
14996                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
14997 void LAPACK_dstevd( char* jobz, lapack_int* n, double* d, double* e, double* z,
14998                     lapack_int* ldz, double* work, lapack_int* lwork,
14999                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
15000 void LAPACK_sstevx( char* jobz, char* range, lapack_int* n, float* d, float* e,
15001                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
15002                     float* abstol, lapack_int* m, float* w, float* z,
15003                     lapack_int* ldz, float* work, lapack_int* iwork,
15004                     lapack_int* ifail, lapack_int *info );
15005 void LAPACK_dstevx( char* jobz, char* range, lapack_int* n, double* d,
15006                     double* e, double* vl, double* vu, lapack_int* il,
15007                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
15008                     double* z, lapack_int* ldz, double* work, lapack_int* iwork,
15009                     lapack_int* ifail, lapack_int *info );
15010 void LAPACK_sstevr( char* jobz, char* range, lapack_int* n, float* d, float* e,
15011                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
15012                     float* abstol, lapack_int* m, float* w, float* z,
15013                     lapack_int* ldz, lapack_int* isuppz, float* work,
15014                     lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,
15015                     lapack_int *info );
15016 void LAPACK_dstevr( char* jobz, char* range, lapack_int* n, double* d,
15017                     double* e, double* vl, double* vu, lapack_int* il,
15018                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
15019                     double* z, lapack_int* ldz, lapack_int* isuppz,
15020                     double* work, lapack_int* lwork, lapack_int* iwork,
15021                     lapack_int* liwork, lapack_int *info );
15022 void LAPACK_sgees( char* jobvs, char* sort, LAPACK_S_SELECT2 select,
15023                    lapack_int* n, float* a, lapack_int* lda, lapack_int* sdim,
15024                    float* wr, float* wi, float* vs, lapack_int* ldvs,
15025                    float* work, lapack_int* lwork, lapack_logical* bwork,
15026                    lapack_int *info );
15027 void LAPACK_dgees( char* jobvs, char* sort, LAPACK_D_SELECT2 select,
15028                    lapack_int* n, double* a, lapack_int* lda, lapack_int* sdim,
15029                    double* wr, double* wi, double* vs, lapack_int* ldvs,
15030                    double* work, lapack_int* lwork, lapack_logical* bwork,
15031                    lapack_int *info );
15032 void LAPACK_cgees( char* jobvs, char* sort, LAPACK_C_SELECT1 select,
15033                    lapack_int* n, lapack_complex_float* a, lapack_int* lda,
15034                    lapack_int* sdim, lapack_complex_float* w,
15035                    lapack_complex_float* vs, lapack_int* ldvs,
15036                    lapack_complex_float* work, lapack_int* lwork, float* rwork,
15037                    lapack_logical* bwork, lapack_int *info );
15038 void LAPACK_zgees( char* jobvs, char* sort, LAPACK_Z_SELECT1 select,
15039                    lapack_int* n, lapack_complex_double* a, lapack_int* lda,
15040                    lapack_int* sdim, lapack_complex_double* w,
15041                    lapack_complex_double* vs, lapack_int* ldvs,
15042                    lapack_complex_double* work, lapack_int* lwork,
15043                    double* rwork, lapack_logical* bwork, lapack_int *info );
15044 void LAPACK_sgeesx( char* jobvs, char* sort, LAPACK_S_SELECT2 select,
15045                     char* sense, lapack_int* n, float* a, lapack_int* lda,
15046                     lapack_int* sdim, float* wr, float* wi, float* vs,
15047                     lapack_int* ldvs, float* rconde, float* rcondv, float* work,
15048                     lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,
15049                     lapack_logical* bwork, lapack_int *info );
15050 void LAPACK_dgeesx( char* jobvs, char* sort, LAPACK_D_SELECT2 select,
15051                     char* sense, lapack_int* n, double* a, lapack_int* lda,
15052                     lapack_int* sdim, double* wr, double* wi, double* vs,
15053                     lapack_int* ldvs, double* rconde, double* rcondv,
15054                     double* work, lapack_int* lwork, lapack_int* iwork,
15055                     lapack_int* liwork, lapack_logical* bwork,
15056                     lapack_int *info );
15057 void LAPACK_cgeesx( char* jobvs, char* sort, LAPACK_C_SELECT1 select,
15058                     char* sense, lapack_int* n, lapack_complex_float* a,
15059                     lapack_int* lda, lapack_int* sdim, lapack_complex_float* w,
15060                     lapack_complex_float* vs, lapack_int* ldvs, float* rconde,
15061                     float* rcondv, lapack_complex_float* work,
15062                     lapack_int* lwork, float* rwork, lapack_logical* bwork,
15063                     lapack_int *info );
15064 void LAPACK_zgeesx( char* jobvs, char* sort, LAPACK_Z_SELECT1 select,
15065                     char* sense, lapack_int* n, lapack_complex_double* a,
15066                     lapack_int* lda, lapack_int* sdim, lapack_complex_double* w,
15067                     lapack_complex_double* vs, lapack_int* ldvs, double* rconde,
15068                     double* rcondv, lapack_complex_double* work,
15069                     lapack_int* lwork, double* rwork, lapack_logical* bwork,
15070                     lapack_int *info );
15071 void LAPACK_sgeev( char* jobvl, char* jobvr, lapack_int* n, float* a,
15072                    lapack_int* lda, float* wr, float* wi, float* vl,
15073                    lapack_int* ldvl, float* vr, lapack_int* ldvr, float* work,
15074                    lapack_int* lwork, lapack_int *info );
15075 void LAPACK_dgeev( char* jobvl, char* jobvr, lapack_int* n, double* a,
15076                    lapack_int* lda, double* wr, double* wi, double* vl,
15077                    lapack_int* ldvl, double* vr, lapack_int* ldvr, double* work,
15078                    lapack_int* lwork, lapack_int *info );
15079 void LAPACK_cgeev( char* jobvl, char* jobvr, lapack_int* n,
15080                    lapack_complex_float* a, lapack_int* lda,
15081                    lapack_complex_float* w, lapack_complex_float* vl,
15082                    lapack_int* ldvl, lapack_complex_float* vr, lapack_int* ldvr,
15083                    lapack_complex_float* work, lapack_int* lwork, float* rwork,
15084                    lapack_int *info );
15085 void LAPACK_zgeev( char* jobvl, char* jobvr, lapack_int* n,
15086                    lapack_complex_double* a, lapack_int* lda,
15087                    lapack_complex_double* w, lapack_complex_double* vl,
15088                    lapack_int* ldvl, lapack_complex_double* vr,
15089                    lapack_int* ldvr, lapack_complex_double* work,
15090                    lapack_int* lwork, double* rwork, lapack_int *info );
15091 void LAPACK_sgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15092                     lapack_int* n, float* a, lapack_int* lda, float* wr,
15093                     float* wi, float* vl, lapack_int* ldvl, float* vr,
15094                     lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,
15095                     float* scale, float* abnrm, float* rconde, float* rcondv,
15096                     float* work, lapack_int* lwork, lapack_int* iwork,
15097                     lapack_int *info );
15098 void LAPACK_dgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15099                     lapack_int* n, double* a, lapack_int* lda, double* wr,
15100                     double* wi, double* vl, lapack_int* ldvl, double* vr,
15101                     lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,
15102                     double* scale, double* abnrm, double* rconde,
15103                     double* rcondv, double* work, lapack_int* lwork,
15104                     lapack_int* iwork, lapack_int *info );
15105 void LAPACK_cgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15106                     lapack_int* n, lapack_complex_float* a, lapack_int* lda,
15107                     lapack_complex_float* w, lapack_complex_float* vl,
15108                     lapack_int* ldvl, lapack_complex_float* vr,
15109                     lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,
15110                     float* scale, float* abnrm, float* rconde, float* rcondv,
15111                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15112                     lapack_int *info );
15113 void LAPACK_zgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15114                     lapack_int* n, lapack_complex_double* a, lapack_int* lda,
15115                     lapack_complex_double* w, lapack_complex_double* vl,
15116                     lapack_int* ldvl, lapack_complex_double* vr,
15117                     lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,
15118                     double* scale, double* abnrm, double* rconde,
15119                     double* rcondv, lapack_complex_double* work,
15120                     lapack_int* lwork, double* rwork, lapack_int *info );
15121 void LAPACK_sgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,
15122                     float* a, lapack_int* lda, float* s, float* u,
15123                     lapack_int* ldu, float* vt, lapack_int* ldvt, float* work,
15124                     lapack_int* lwork, lapack_int *info );
15125 void LAPACK_dgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,
15126                     double* a, lapack_int* lda, double* s, double* u,
15127                     lapack_int* ldu, double* vt, lapack_int* ldvt, double* work,
15128                     lapack_int* lwork, lapack_int *info );
15129 void LAPACK_cgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,
15130                     lapack_complex_float* a, lapack_int* lda, float* s,
15131                     lapack_complex_float* u, lapack_int* ldu,
15132                     lapack_complex_float* vt, lapack_int* ldvt,
15133                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15134                     lapack_int *info );
15135 void LAPACK_zgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,
15136                     lapack_complex_double* a, lapack_int* lda, double* s,
15137                     lapack_complex_double* u, lapack_int* ldu,
15138                     lapack_complex_double* vt, lapack_int* ldvt,
15139                     lapack_complex_double* work, lapack_int* lwork,
15140                     double* rwork, lapack_int *info );
15141 void LAPACK_sgesdd( char* jobz, lapack_int* m, lapack_int* n, float* a,
15142                     lapack_int* lda, float* s, float* u, lapack_int* ldu,
15143                     float* vt, lapack_int* ldvt, float* work, lapack_int* lwork,
15144                     lapack_int* iwork, lapack_int *info );
15145 void LAPACK_dgesdd( char* jobz, lapack_int* m, lapack_int* n, double* a,
15146                     lapack_int* lda, double* s, double* u, lapack_int* ldu,
15147                     double* vt, lapack_int* ldvt, double* work,
15148                     lapack_int* lwork, lapack_int* iwork, lapack_int *info );
15149 void LAPACK_cgesdd( char* jobz, lapack_int* m, lapack_int* n,
15150                     lapack_complex_float* a, lapack_int* lda, float* s,
15151                     lapack_complex_float* u, lapack_int* ldu,
15152                     lapack_complex_float* vt, lapack_int* ldvt,
15153                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15154                     lapack_int* iwork, lapack_int *info );
15155 void LAPACK_zgesdd( char* jobz, lapack_int* m, lapack_int* n,
15156                     lapack_complex_double* a, lapack_int* lda, double* s,
15157                     lapack_complex_double* u, lapack_int* ldu,
15158                     lapack_complex_double* vt, lapack_int* ldvt,
15159                     lapack_complex_double* work, lapack_int* lwork,
15160                     double* rwork, lapack_int* iwork, lapack_int *info );
15161 void LAPACK_dgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt,
15162                     char* jobp, lapack_int* m, lapack_int* n, double* a,
15163                     lapack_int* lda, double* sva, double* u, lapack_int* ldu,
15164                     double* v, lapack_int* ldv, double* work, lapack_int* lwork,
15165                     lapack_int* iwork, lapack_int *info );
15166 void LAPACK_sgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt,
15167                     char* jobp, lapack_int* m, lapack_int* n, float* a,
15168                     lapack_int* lda, float* sva, float* u, lapack_int* ldu,
15169                     float* v, lapack_int* ldv, float* work, lapack_int* lwork,
15170                     lapack_int* iwork, lapack_int *info );
15171 void LAPACK_dgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,
15172                     lapack_int* n, double* a, lapack_int* lda, double* sva,
15173                     lapack_int* mv, double* v, lapack_int* ldv, double* work,
15174                     lapack_int* lwork, lapack_int *info );
15175 void LAPACK_sgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,
15176                     lapack_int* n, float* a, lapack_int* lda, float* sva,
15177                     lapack_int* mv, float* v, lapack_int* ldv, float* work,
15178                     lapack_int* lwork, lapack_int *info );
15179 void LAPACK_sggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,
15180                     lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,
15181                     float* a, lapack_int* lda, float* b, lapack_int* ldb,
15182                     float* alpha, float* beta, float* u, lapack_int* ldu,
15183                     float* v, lapack_int* ldv, float* q, lapack_int* ldq,
15184                     float* work, lapack_int* iwork, lapack_int *info );
15185 void LAPACK_dggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,
15186                     lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,
15187                     double* a, lapack_int* lda, double* b, lapack_int* ldb,
15188                     double* alpha, double* beta, double* u, lapack_int* ldu,
15189                     double* v, lapack_int* ldv, double* q, lapack_int* ldq,
15190                     double* work, lapack_int* iwork, lapack_int *info );
15191 void LAPACK_cggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,
15192                     lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,
15193                     lapack_complex_float* a, lapack_int* lda,
15194                     lapack_complex_float* b, lapack_int* ldb, float* alpha,
15195                     float* beta, lapack_complex_float* u, lapack_int* ldu,
15196                     lapack_complex_float* v, lapack_int* ldv,
15197                     lapack_complex_float* q, lapack_int* ldq,
15198                     lapack_complex_float* work, float* rwork, lapack_int* iwork,
15199                     lapack_int *info );
15200 void LAPACK_zggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,
15201                     lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,
15202                     lapack_complex_double* a, lapack_int* lda,
15203                     lapack_complex_double* b, lapack_int* ldb, double* alpha,
15204                     double* beta, lapack_complex_double* u, lapack_int* ldu,
15205                     lapack_complex_double* v, lapack_int* ldv,
15206                     lapack_complex_double* q, lapack_int* ldq,
15207                     lapack_complex_double* work, double* rwork,
15208                     lapack_int* iwork, lapack_int *info );
15209 void LAPACK_ssygv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15210                    float* a, lapack_int* lda, float* b, lapack_int* ldb,
15211                    float* w, float* work, lapack_int* lwork, lapack_int *info );
15212 void LAPACK_dsygv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15213                    double* a, lapack_int* lda, double* b, lapack_int* ldb,
15214                    double* w, double* work, lapack_int* lwork,
15215                    lapack_int *info );
15216 void LAPACK_chegv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15217                    lapack_complex_float* a, lapack_int* lda,
15218                    lapack_complex_float* b, lapack_int* ldb, float* w,
15219                    lapack_complex_float* work, lapack_int* lwork, float* rwork,
15220                    lapack_int *info );
15221 void LAPACK_zhegv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15222                    lapack_complex_double* a, lapack_int* lda,
15223                    lapack_complex_double* b, lapack_int* ldb, double* w,
15224                    lapack_complex_double* work, lapack_int* lwork,
15225                    double* rwork, lapack_int *info );
15226 void LAPACK_ssygvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15227                     float* a, lapack_int* lda, float* b, lapack_int* ldb,
15228                     float* w, float* work, lapack_int* lwork, lapack_int* iwork,
15229                     lapack_int* liwork, lapack_int *info );
15230 void LAPACK_dsygvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15231                     double* a, lapack_int* lda, double* b, lapack_int* ldb,
15232                     double* w, double* work, lapack_int* lwork,
15233                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
15234 void LAPACK_chegvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15235                     lapack_complex_float* a, lapack_int* lda,
15236                     lapack_complex_float* b, lapack_int* ldb, float* w,
15237                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15238                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
15239                     lapack_int *info );
15240 void LAPACK_zhegvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15241                     lapack_complex_double* a, lapack_int* lda,
15242                     lapack_complex_double* b, lapack_int* ldb, double* w,
15243                     lapack_complex_double* work, lapack_int* lwork,
15244                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
15245                     lapack_int* liwork, lapack_int *info );
15246 void LAPACK_ssygvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15247                     lapack_int* n, float* a, lapack_int* lda, float* b,
15248                     lapack_int* ldb, float* vl, float* vu, lapack_int* il,
15249                     lapack_int* iu, float* abstol, lapack_int* m, float* w,
15250                     float* z, lapack_int* ldz, float* work, lapack_int* lwork,
15251                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
15252 void LAPACK_dsygvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15253                     lapack_int* n, double* a, lapack_int* lda, double* b,
15254                     lapack_int* ldb, double* vl, double* vu, lapack_int* il,
15255                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
15256                     double* z, lapack_int* ldz, double* work, lapack_int* lwork,
15257                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
15258 void LAPACK_chegvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15259                     lapack_int* n, lapack_complex_float* a, lapack_int* lda,
15260                     lapack_complex_float* b, lapack_int* ldb, float* vl,
15261                     float* vu, lapack_int* il, lapack_int* iu, float* abstol,
15262                     lapack_int* m, float* w, lapack_complex_float* z,
15263                     lapack_int* ldz, lapack_complex_float* work,
15264                     lapack_int* lwork, float* rwork, lapack_int* iwork,
15265                     lapack_int* ifail, lapack_int *info );
15266 void LAPACK_zhegvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15267                     lapack_int* n, lapack_complex_double* a, lapack_int* lda,
15268                     lapack_complex_double* b, lapack_int* ldb, double* vl,
15269                     double* vu, lapack_int* il, lapack_int* iu, double* abstol,
15270                     lapack_int* m, double* w, lapack_complex_double* z,
15271                     lapack_int* ldz, lapack_complex_double* work,
15272                     lapack_int* lwork, double* rwork, lapack_int* iwork,
15273                     lapack_int* ifail, lapack_int *info );
15274 void LAPACK_sspgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15275                    float* ap, float* bp, float* w, float* z, lapack_int* ldz,
15276                    float* work, lapack_int *info );
15277 void LAPACK_dspgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15278                    double* ap, double* bp, double* w, double* z,
15279                    lapack_int* ldz, double* work, lapack_int *info );
15280 void LAPACK_chpgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15281                    lapack_complex_float* ap, lapack_complex_float* bp, float* w,
15282                    lapack_complex_float* z, lapack_int* ldz,
15283                    lapack_complex_float* work, float* rwork, lapack_int *info );
15284 void LAPACK_zhpgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15285                    lapack_complex_double* ap, lapack_complex_double* bp,
15286                    double* w, lapack_complex_double* z, lapack_int* ldz,
15287                    lapack_complex_double* work, double* rwork,
15288                    lapack_int *info );
15289 void LAPACK_sspgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15290                     float* ap, float* bp, float* w, float* z, lapack_int* ldz,
15291                     float* work, lapack_int* lwork, lapack_int* iwork,
15292                     lapack_int* liwork, lapack_int *info );
15293 void LAPACK_dspgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15294                     double* ap, double* bp, double* w, double* z,
15295                     lapack_int* ldz, double* work, lapack_int* lwork,
15296                     lapack_int* iwork, lapack_int* liwork, lapack_int *info );
15297 void LAPACK_chpgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15298                     lapack_complex_float* ap, lapack_complex_float* bp,
15299                     float* w, lapack_complex_float* z, lapack_int* ldz,
15300                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15301                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
15302                     lapack_int *info );
15303 void LAPACK_zhpgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,
15304                     lapack_complex_double* ap, lapack_complex_double* bp,
15305                     double* w, lapack_complex_double* z, lapack_int* ldz,
15306                     lapack_complex_double* work, lapack_int* lwork,
15307                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
15308                     lapack_int* liwork, lapack_int *info );
15309 void LAPACK_sspgvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15310                     lapack_int* n, float* ap, float* bp, float* vl, float* vu,
15311                     lapack_int* il, lapack_int* iu, float* abstol,
15312                     lapack_int* m, float* w, float* z, lapack_int* ldz,
15313                     float* work, lapack_int* iwork, lapack_int* ifail,
15314                     lapack_int *info );
15315 void LAPACK_dspgvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15316                     lapack_int* n, double* ap, double* bp, double* vl,
15317                     double* vu, lapack_int* il, lapack_int* iu, double* abstol,
15318                     lapack_int* m, double* w, double* z, lapack_int* ldz,
15319                     double* work, lapack_int* iwork, lapack_int* ifail,
15320                     lapack_int *info );
15321 void LAPACK_chpgvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15322                     lapack_int* n, lapack_complex_float* ap,
15323                     lapack_complex_float* bp, float* vl, float* vu,
15324                     lapack_int* il, lapack_int* iu, float* abstol,
15325                     lapack_int* m, float* w, lapack_complex_float* z,
15326                     lapack_int* ldz, lapack_complex_float* work, float* rwork,
15327                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
15328 void LAPACK_zhpgvx( lapack_int* itype, char* jobz, char* range, char* uplo,
15329                     lapack_int* n, lapack_complex_double* ap,
15330                     lapack_complex_double* bp, double* vl, double* vu,
15331                     lapack_int* il, lapack_int* iu, double* abstol,
15332                     lapack_int* m, double* w, lapack_complex_double* z,
15333                     lapack_int* ldz, lapack_complex_double* work, double* rwork,
15334                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
15335 void LAPACK_ssbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15336                    lapack_int* kb, float* ab, lapack_int* ldab, float* bb,
15337                    lapack_int* ldbb, float* w, float* z, lapack_int* ldz,
15338                    float* work, lapack_int *info );
15339 void LAPACK_dsbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15340                    lapack_int* kb, double* ab, lapack_int* ldab, double* bb,
15341                    lapack_int* ldbb, double* w, double* z, lapack_int* ldz,
15342                    double* work, lapack_int *info );
15343 void LAPACK_chbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15344                    lapack_int* kb, lapack_complex_float* ab, lapack_int* ldab,
15345                    lapack_complex_float* bb, lapack_int* ldbb, float* w,
15346                    lapack_complex_float* z, lapack_int* ldz,
15347                    lapack_complex_float* work, float* rwork, lapack_int *info );
15348 void LAPACK_zhbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15349                    lapack_int* kb, lapack_complex_double* ab, lapack_int* ldab,
15350                    lapack_complex_double* bb, lapack_int* ldbb, double* w,
15351                    lapack_complex_double* z, lapack_int* ldz,
15352                    lapack_complex_double* work, double* rwork,
15353                    lapack_int *info );
15354 void LAPACK_ssbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15355                     lapack_int* kb, float* ab, lapack_int* ldab, float* bb,
15356                     lapack_int* ldbb, float* w, float* z, lapack_int* ldz,
15357                     float* work, lapack_int* lwork, lapack_int* iwork,
15358                     lapack_int* liwork, lapack_int *info );
15359 void LAPACK_dsbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15360                     lapack_int* kb, double* ab, lapack_int* ldab, double* bb,
15361                     lapack_int* ldbb, double* w, double* z, lapack_int* ldz,
15362                     double* work, lapack_int* lwork, lapack_int* iwork,
15363                     lapack_int* liwork, lapack_int *info );
15364 void LAPACK_chbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15365                     lapack_int* kb, lapack_complex_float* ab, lapack_int* ldab,
15366                     lapack_complex_float* bb, lapack_int* ldbb, float* w,
15367                     lapack_complex_float* z, lapack_int* ldz,
15368                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15369                     lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,
15370                     lapack_int *info );
15371 void LAPACK_zhbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,
15372                     lapack_int* kb, lapack_complex_double* ab, lapack_int* ldab,
15373                     lapack_complex_double* bb, lapack_int* ldbb, double* w,
15374                     lapack_complex_double* z, lapack_int* ldz,
15375                     lapack_complex_double* work, lapack_int* lwork,
15376                     double* rwork, lapack_int* lrwork, lapack_int* iwork,
15377                     lapack_int* liwork, lapack_int *info );
15378 void LAPACK_ssbgvx( char* jobz, char* range, char* uplo, lapack_int* n,
15379                     lapack_int* ka, lapack_int* kb, float* ab, lapack_int* ldab,
15380                     float* bb, lapack_int* ldbb, float* q, lapack_int* ldq,
15381                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
15382                     float* abstol, lapack_int* m, float* w, float* z,
15383                     lapack_int* ldz, float* work, lapack_int* iwork,
15384                     lapack_int* ifail, lapack_int *info );
15385 void LAPACK_dsbgvx( char* jobz, char* range, char* uplo, lapack_int* n,
15386                     lapack_int* ka, lapack_int* kb, double* ab,
15387                     lapack_int* ldab, double* bb, lapack_int* ldbb, double* q,
15388                     lapack_int* ldq, double* vl, double* vu, lapack_int* il,
15389                     lapack_int* iu, double* abstol, lapack_int* m, double* w,
15390                     double* z, lapack_int* ldz, double* work, lapack_int* iwork,
15391                     lapack_int* ifail, lapack_int *info );
15392 void LAPACK_chbgvx( char* jobz, char* range, char* uplo, lapack_int* n,
15393                     lapack_int* ka, lapack_int* kb, lapack_complex_float* ab,
15394                     lapack_int* ldab, lapack_complex_float* bb,
15395                     lapack_int* ldbb, lapack_complex_float* q, lapack_int* ldq,
15396                     float* vl, float* vu, lapack_int* il, lapack_int* iu,
15397                     float* abstol, lapack_int* m, float* w,
15398                     lapack_complex_float* z, lapack_int* ldz,
15399                     lapack_complex_float* work, float* rwork, lapack_int* iwork,
15400                     lapack_int* ifail, lapack_int *info );
15401 void LAPACK_zhbgvx( char* jobz, char* range, char* uplo, lapack_int* n,
15402                     lapack_int* ka, lapack_int* kb, lapack_complex_double* ab,
15403                     lapack_int* ldab, lapack_complex_double* bb,
15404                     lapack_int* ldbb, lapack_complex_double* q, lapack_int* ldq,
15405                     double* vl, double* vu, lapack_int* il, lapack_int* iu,
15406                     double* abstol, lapack_int* m, double* w,
15407                     lapack_complex_double* z, lapack_int* ldz,
15408                     lapack_complex_double* work, double* rwork,
15409                     lapack_int* iwork, lapack_int* ifail, lapack_int *info );
15410 void LAPACK_sgges( char* jobvsl, char* jobvsr, char* sort,
15411                    LAPACK_S_SELECT3 selctg, lapack_int* n, float* a,
15412                    lapack_int* lda, float* b, lapack_int* ldb, lapack_int* sdim,
15413                    float* alphar, float* alphai, float* beta, float* vsl,
15414                    lapack_int* ldvsl, float* vsr, lapack_int* ldvsr,
15415                    float* work, lapack_int* lwork, lapack_logical* bwork,
15416                    lapack_int *info );
15417 void LAPACK_dgges( char* jobvsl, char* jobvsr, char* sort,
15418                    LAPACK_D_SELECT3 selctg, lapack_int* n, double* a,
15419                    lapack_int* lda, double* b, lapack_int* ldb,
15420                    lapack_int* sdim, double* alphar, double* alphai,
15421                    double* beta, double* vsl, lapack_int* ldvsl, double* vsr,
15422                    lapack_int* ldvsr, double* work, lapack_int* lwork,
15423                    lapack_logical* bwork, lapack_int *info );
15424 void LAPACK_cgges( char* jobvsl, char* jobvsr, char* sort,
15425                    LAPACK_C_SELECT2 selctg, lapack_int* n,
15426                    lapack_complex_float* a, lapack_int* lda,
15427                    lapack_complex_float* b, lapack_int* ldb, lapack_int* sdim,
15428                    lapack_complex_float* alpha, lapack_complex_float* beta,
15429                    lapack_complex_float* vsl, lapack_int* ldvsl,
15430                    lapack_complex_float* vsr, lapack_int* ldvsr,
15431                    lapack_complex_float* work, lapack_int* lwork, float* rwork,
15432                    lapack_logical* bwork, lapack_int *info );
15433 void LAPACK_zgges( char* jobvsl, char* jobvsr, char* sort,
15434                    LAPACK_Z_SELECT2 selctg, lapack_int* n,
15435                    lapack_complex_double* a, lapack_int* lda,
15436                    lapack_complex_double* b, lapack_int* ldb, lapack_int* sdim,
15437                    lapack_complex_double* alpha, lapack_complex_double* beta,
15438                    lapack_complex_double* vsl, lapack_int* ldvsl,
15439                    lapack_complex_double* vsr, lapack_int* ldvsr,
15440                    lapack_complex_double* work, lapack_int* lwork,
15441                    double* rwork, lapack_logical* bwork, lapack_int *info );
15442 void LAPACK_sggesx( char* jobvsl, char* jobvsr, char* sort,
15443                     LAPACK_S_SELECT3 selctg, char* sense, lapack_int* n,
15444                     float* a, lapack_int* lda, float* b, lapack_int* ldb,
15445                     lapack_int* sdim, float* alphar, float* alphai, float* beta,
15446                     float* vsl, lapack_int* ldvsl, float* vsr,
15447                     lapack_int* ldvsr, float* rconde, float* rcondv,
15448                     float* work, lapack_int* lwork, lapack_int* iwork,
15449                     lapack_int* liwork, lapack_logical* bwork,
15450                     lapack_int *info );
15451 void LAPACK_dggesx( char* jobvsl, char* jobvsr, char* sort,
15452                     LAPACK_D_SELECT3 selctg, char* sense, lapack_int* n,
15453                     double* a, lapack_int* lda, double* b, lapack_int* ldb,
15454                     lapack_int* sdim, double* alphar, double* alphai,
15455                     double* beta, double* vsl, lapack_int* ldvsl, double* vsr,
15456                     lapack_int* ldvsr, double* rconde, double* rcondv,
15457                     double* work, lapack_int* lwork, lapack_int* iwork,
15458                     lapack_int* liwork, lapack_logical* bwork,
15459                     lapack_int *info );
15460 void LAPACK_cggesx( char* jobvsl, char* jobvsr, char* sort,
15461                     LAPACK_C_SELECT2 selctg, char* sense, lapack_int* n,
15462                     lapack_complex_float* a, lapack_int* lda,
15463                     lapack_complex_float* b, lapack_int* ldb, lapack_int* sdim,
15464                     lapack_complex_float* alpha, lapack_complex_float* beta,
15465                     lapack_complex_float* vsl, lapack_int* ldvsl,
15466                     lapack_complex_float* vsr, lapack_int* ldvsr, float* rconde,
15467                     float* rcondv, lapack_complex_float* work,
15468                     lapack_int* lwork, float* rwork, lapack_int* iwork,
15469                     lapack_int* liwork, lapack_logical* bwork,
15470                     lapack_int *info );
15471 void LAPACK_zggesx( char* jobvsl, char* jobvsr, char* sort,
15472                     LAPACK_Z_SELECT2 selctg, char* sense, lapack_int* n,
15473                     lapack_complex_double* a, lapack_int* lda,
15474                     lapack_complex_double* b, lapack_int* ldb, lapack_int* sdim,
15475                     lapack_complex_double* alpha, lapack_complex_double* beta,
15476                     lapack_complex_double* vsl, lapack_int* ldvsl,
15477                     lapack_complex_double* vsr, lapack_int* ldvsr,
15478                     double* rconde, double* rcondv, lapack_complex_double* work,
15479                     lapack_int* lwork, double* rwork, lapack_int* iwork,
15480                     lapack_int* liwork, lapack_logical* bwork,
15481                     lapack_int *info );
15482 void LAPACK_sggev( char* jobvl, char* jobvr, lapack_int* n, float* a,
15483                    lapack_int* lda, float* b, lapack_int* ldb, float* alphar,
15484                    float* alphai, float* beta, float* vl, lapack_int* ldvl,
15485                    float* vr, lapack_int* ldvr, float* work, lapack_int* lwork,
15486                    lapack_int *info );
15487 void LAPACK_dggev( char* jobvl, char* jobvr, lapack_int* n, double* a,
15488                    lapack_int* lda, double* b, lapack_int* ldb, double* alphar,
15489                    double* alphai, double* beta, double* vl, lapack_int* ldvl,
15490                    double* vr, lapack_int* ldvr, double* work,
15491                    lapack_int* lwork, lapack_int *info );
15492 void LAPACK_cggev( char* jobvl, char* jobvr, lapack_int* n,
15493                    lapack_complex_float* a, lapack_int* lda,
15494                    lapack_complex_float* b, lapack_int* ldb,
15495                    lapack_complex_float* alpha, lapack_complex_float* beta,
15496                    lapack_complex_float* vl, lapack_int* ldvl,
15497                    lapack_complex_float* vr, lapack_int* ldvr,
15498                    lapack_complex_float* work, lapack_int* lwork, float* rwork,
15499                    lapack_int *info );
15500 void LAPACK_zggev( char* jobvl, char* jobvr, lapack_int* n,
15501                    lapack_complex_double* a, lapack_int* lda,
15502                    lapack_complex_double* b, lapack_int* ldb,
15503                    lapack_complex_double* alpha, lapack_complex_double* beta,
15504                    lapack_complex_double* vl, lapack_int* ldvl,
15505                    lapack_complex_double* vr, lapack_int* ldvr,
15506                    lapack_complex_double* work, lapack_int* lwork,
15507                    double* rwork, lapack_int *info );
15508 void LAPACK_sggevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15509                     lapack_int* n, float* a, lapack_int* lda, float* b,
15510                     lapack_int* ldb, float* alphar, float* alphai, float* beta,
15511                     float* vl, lapack_int* ldvl, float* vr, lapack_int* ldvr,
15512                     lapack_int* ilo, lapack_int* ihi, float* lscale,
15513                     float* rscale, float* abnrm, float* bbnrm, float* rconde,
15514                     float* rcondv, float* work, lapack_int* lwork,
15515                     lapack_int* iwork, lapack_logical* bwork,
15516                     lapack_int *info );
15517 void LAPACK_dggevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15518                     lapack_int* n, double* a, lapack_int* lda, double* b,
15519                     lapack_int* ldb, double* alphar, double* alphai,
15520                     double* beta, double* vl, lapack_int* ldvl, double* vr,
15521                     lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,
15522                     double* lscale, double* rscale, double* abnrm,
15523                     double* bbnrm, double* rconde, double* rcondv, double* work,
15524                     lapack_int* lwork, lapack_int* iwork, lapack_logical* bwork,
15525                     lapack_int *info );
15526 void LAPACK_cggevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15527                     lapack_int* n, lapack_complex_float* a, lapack_int* lda,
15528                     lapack_complex_float* b, lapack_int* ldb,
15529                     lapack_complex_float* alpha, lapack_complex_float* beta,
15530                     lapack_complex_float* vl, lapack_int* ldvl,
15531                     lapack_complex_float* vr, lapack_int* ldvr, lapack_int* ilo,
15532                     lapack_int* ihi, float* lscale, float* rscale, float* abnrm,
15533                     float* bbnrm, float* rconde, float* rcondv,
15534                     lapack_complex_float* work, lapack_int* lwork, float* rwork,
15535                     lapack_int* iwork, lapack_logical* bwork,
15536                     lapack_int *info );
15537 void LAPACK_zggevx( char* balanc, char* jobvl, char* jobvr, char* sense,
15538                     lapack_int* n, lapack_complex_double* a, lapack_int* lda,
15539                     lapack_complex_double* b, lapack_int* ldb,
15540                     lapack_complex_double* alpha, lapack_complex_double* beta,
15541                     lapack_complex_double* vl, lapack_int* ldvl,
15542                     lapack_complex_double* vr, lapack_int* ldvr,
15543                     lapack_int* ilo, lapack_int* ihi, double* lscale,
15544                     double* rscale, double* abnrm, double* bbnrm,
15545                     double* rconde, double* rcondv, lapack_complex_double* work,
15546                     lapack_int* lwork, double* rwork, lapack_int* iwork,
15547                     lapack_logical* bwork, lapack_int *info );
15548 void LAPACK_dsfrk( char* transr, char* uplo, char* trans, lapack_int* n,
15549                    lapack_int* k, double* alpha, const double* a,
15550                    lapack_int* lda, double* beta, double* c );
15551 void LAPACK_ssfrk( char* transr, char* uplo, char* trans, lapack_int* n,
15552                    lapack_int* k, float* alpha, const float* a, lapack_int* lda,
15553                    float* beta, float* c );
15554 void LAPACK_zhfrk( char* transr, char* uplo, char* trans, lapack_int* n,
15555                    lapack_int* k, double* alpha, const lapack_complex_double* a,
15556                    lapack_int* lda, double* beta, lapack_complex_double* c );
15557 void LAPACK_chfrk( char* transr, char* uplo, char* trans, lapack_int* n,
15558                    lapack_int* k, float* alpha, const lapack_complex_float* a,
15559                    lapack_int* lda, float* beta, lapack_complex_float* c );
15560 void LAPACK_dtfsm( char* transr, char* side, char* uplo, char* trans,
15561                    char* diag, lapack_int* m, lapack_int* n, double* alpha,
15562                    const double* a, double* b, lapack_int* ldb );
15563 void LAPACK_stfsm( char* transr, char* side, char* uplo, char* trans,
15564                    char* diag, lapack_int* m, lapack_int* n, float* alpha,
15565                    const float* a, float* b, lapack_int* ldb );
15566 void LAPACK_ztfsm( char* transr, char* side, char* uplo, char* trans,
15567                    char* diag, lapack_int* m, lapack_int* n,
15568                    lapack_complex_double* alpha, const lapack_complex_double* a,
15569                    lapack_complex_double* b, lapack_int* ldb );
15570 void LAPACK_ctfsm( char* transr, char* side, char* uplo, char* trans,
15571                    char* diag, lapack_int* m, lapack_int* n,
15572                    lapack_complex_float* alpha, const lapack_complex_float* a,
15573                    lapack_complex_float* b, lapack_int* ldb );
15574 void LAPACK_dtfttp( char* transr, char* uplo, lapack_int* n, const double* arf,
15575                     double* ap, lapack_int *info );
15576 void LAPACK_stfttp( char* transr, char* uplo, lapack_int* n, const float* arf,
15577                     float* ap, lapack_int *info );
15578 void LAPACK_ztfttp( char* transr, char* uplo, lapack_int* n,
15579                     const lapack_complex_double* arf, lapack_complex_double* ap,
15580                     lapack_int *info );
15581 void LAPACK_ctfttp( char* transr, char* uplo, lapack_int* n,
15582                     const lapack_complex_float* arf, lapack_complex_float* ap,
15583                     lapack_int *info );
15584 void LAPACK_dtfttr( char* transr, char* uplo, lapack_int* n, const double* arf,
15585                     double* a, lapack_int* lda, lapack_int *info );
15586 void LAPACK_stfttr( char* transr, char* uplo, lapack_int* n, const float* arf,
15587                     float* a, lapack_int* lda, lapack_int *info );
15588 void LAPACK_ztfttr( char* transr, char* uplo, lapack_int* n,
15589                     const lapack_complex_double* arf, lapack_complex_double* a,
15590                     lapack_int* lda, lapack_int *info );
15591 void LAPACK_ctfttr( char* transr, char* uplo, lapack_int* n,
15592                     const lapack_complex_float* arf, lapack_complex_float* a,
15593                     lapack_int* lda, lapack_int *info );
15594 void LAPACK_dtpttf( char* transr, char* uplo, lapack_int* n, const double* ap,
15595                     double* arf, lapack_int *info );
15596 void LAPACK_stpttf( char* transr, char* uplo, lapack_int* n, const float* ap,
15597                     float* arf, lapack_int *info );
15598 void LAPACK_ztpttf( char* transr, char* uplo, lapack_int* n,
15599                     const lapack_complex_double* ap, lapack_complex_double* arf,
15600                     lapack_int *info );
15601 void LAPACK_ctpttf( char* transr, char* uplo, lapack_int* n,
15602                     const lapack_complex_float* ap, lapack_complex_float* arf,
15603                     lapack_int *info );
15604 void LAPACK_dtpttr( char* uplo, lapack_int* n, const double* ap, double* a,
15605                     lapack_int* lda, lapack_int *info );
15606 void LAPACK_stpttr( char* uplo, lapack_int* n, const float* ap, float* a,
15607                     lapack_int* lda, lapack_int *info );
15608 void LAPACK_ztpttr( char* uplo, lapack_int* n, const lapack_complex_double* ap,
15609                     lapack_complex_double* a, lapack_int* lda,
15610                     lapack_int *info );
15611 void LAPACK_ctpttr( char* uplo, lapack_int* n, const lapack_complex_float* ap,
15612                     lapack_complex_float* a, lapack_int* lda,
15613                     lapack_int *info );
15614 void LAPACK_dtrttf( char* transr, char* uplo, lapack_int* n, const double* a,
15615                     lapack_int* lda, double* arf, lapack_int *info );
15616 void LAPACK_strttf( char* transr, char* uplo, lapack_int* n, const float* a,
15617                     lapack_int* lda, float* arf, lapack_int *info );
15618 void LAPACK_ztrttf( char* transr, char* uplo, lapack_int* n,
15619                     const lapack_complex_double* a, lapack_int* lda,
15620                     lapack_complex_double* arf, lapack_int *info );
15621 void LAPACK_ctrttf( char* transr, char* uplo, lapack_int* n,
15622                     const lapack_complex_float* a, lapack_int* lda,
15623                     lapack_complex_float* arf, lapack_int *info );
15624 void LAPACK_dtrttp( char* uplo, lapack_int* n, const double* a, lapack_int* lda,
15625                     double* ap, lapack_int *info );
15626 void LAPACK_strttp( char* uplo, lapack_int* n, const float* a, lapack_int* lda,
15627                     float* ap, lapack_int *info );
15628 void LAPACK_ztrttp( char* uplo, lapack_int* n, const lapack_complex_double* a,
15629                     lapack_int* lda, lapack_complex_double* ap,
15630                     lapack_int *info );
15631 void LAPACK_ctrttp( char* uplo, lapack_int* n, const lapack_complex_float* a,
15632                     lapack_int* lda, lapack_complex_float* ap,
15633                     lapack_int *info );
15634 void LAPACK_sgeqrfp( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
15635                      float* tau, float* work, lapack_int* lwork,
15636                      lapack_int *info );
15637 void LAPACK_dgeqrfp( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
15638                      double* tau, double* work, lapack_int* lwork,
15639                      lapack_int *info );
15640 void LAPACK_cgeqrfp( lapack_int* m, lapack_int* n, lapack_complex_float* a,
15641                      lapack_int* lda, lapack_complex_float* tau,
15642                      lapack_complex_float* work, lapack_int* lwork,
15643                      lapack_int *info );
15644 void LAPACK_zgeqrfp( lapack_int* m, lapack_int* n, lapack_complex_double* a,
15645                      lapack_int* lda, lapack_complex_double* tau,
15646                      lapack_complex_double* work, lapack_int* lwork,
15647                      lapack_int *info );
15648 void LAPACK_clacgv( lapack_int* n, lapack_complex_float* x, lapack_int* incx );
15649 void LAPACK_zlacgv( lapack_int* n, lapack_complex_double* x, lapack_int* incx );
15650 void LAPACK_slarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,
15651                     float* x );
15652 void LAPACK_dlarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,
15653                     double* x );
15654 void LAPACK_clarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,
15655                     lapack_complex_float* x );
15656 void LAPACK_zlarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,
15657                     lapack_complex_double* x );
15658 void LAPACK_sgeqr2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
15659                     float* tau, float* work, lapack_int *info );
15660 void LAPACK_dgeqr2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
15661                     double* tau, double* work, lapack_int *info );
15662 void LAPACK_cgeqr2( lapack_int* m, lapack_int* n, lapack_complex_float* a,
15663                     lapack_int* lda, lapack_complex_float* tau,
15664                     lapack_complex_float* work, lapack_int *info );
15665 void LAPACK_zgeqr2( lapack_int* m, lapack_int* n, lapack_complex_double* a,
15666                     lapack_int* lda, lapack_complex_double* tau,
15667                     lapack_complex_double* work, lapack_int *info );
15668 void LAPACK_slacpy( char* uplo, lapack_int* m, lapack_int* n, const float* a,
15669                     lapack_int* lda, float* b, lapack_int* ldb );
15670 void LAPACK_dlacpy( char* uplo, lapack_int* m, lapack_int* n, const double* a,
15671                     lapack_int* lda, double* b, lapack_int* ldb );
15672 void LAPACK_clacpy( char* uplo, lapack_int* m, lapack_int* n,
15673                     const lapack_complex_float* a, lapack_int* lda,
15674                     lapack_complex_float* b, lapack_int* ldb );
15675 void LAPACK_zlacpy( char* uplo, lapack_int* m, lapack_int* n,
15676                     const lapack_complex_double* a, lapack_int* lda,
15677                     lapack_complex_double* b, lapack_int* ldb );
15678 void LAPACK_sgetf2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
15679                     lapack_int* ipiv, lapack_int *info );
15680 void LAPACK_dgetf2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
15681                     lapack_int* ipiv, lapack_int *info );
15682 void LAPACK_cgetf2( lapack_int* m, lapack_int* n, lapack_complex_float* a,
15683                     lapack_int* lda, lapack_int* ipiv, lapack_int *info );
15684 void LAPACK_zgetf2( lapack_int* m, lapack_int* n, lapack_complex_double* a,
15685                     lapack_int* lda, lapack_int* ipiv, lapack_int *info );
15686 void LAPACK_slaswp( lapack_int* n, float* a, lapack_int* lda, lapack_int* k1,
15687                     lapack_int* k2, const lapack_int* ipiv, lapack_int* incx );
15688 void LAPACK_dlaswp( lapack_int* n, double* a, lapack_int* lda, lapack_int* k1,
15689                     lapack_int* k2, const lapack_int* ipiv, lapack_int* incx );
15690 void LAPACK_claswp( lapack_int* n, lapack_complex_float* a, lapack_int* lda,
15691                     lapack_int* k1, lapack_int* k2, const lapack_int* ipiv,
15692                     lapack_int* incx );
15693 void LAPACK_zlaswp( lapack_int* n, lapack_complex_double* a, lapack_int* lda,
15694                     lapack_int* k1, lapack_int* k2, const lapack_int* ipiv,
15695                     lapack_int* incx );
15696 float LAPACK_slange( char* norm, lapack_int* m, lapack_int* n, const float* a,
15697                     lapack_int* lda, float* work );
15698 double LAPACK_dlange( char* norm, lapack_int* m, lapack_int* n, const double* a,
15699                     lapack_int* lda, double* work );
15700 float LAPACK_clange( char* norm, lapack_int* m, lapack_int* n,
15701                     const lapack_complex_float* a, lapack_int* lda, float* work );
15702 double LAPACK_zlange( char* norm, lapack_int* m, lapack_int* n,
15703                     const lapack_complex_double* a, lapack_int* lda, double* work );
15704 float LAPACK_clanhe( char* norm, char* uplo, lapack_int* n,
15705                     const lapack_complex_float* a, lapack_int* lda, float* work );
15706 double LAPACK_zlanhe( char* norm, char* uplo, lapack_int* n,
15707                     const lapack_complex_double* a, lapack_int* lda, double* work );
15708 float LAPACK_slansy( char* norm, char* uplo, lapack_int* n, const float* a,
15709                     lapack_int* lda, float* work );
15710 double LAPACK_dlansy( char* norm, char* uplo, lapack_int* n, const double* a,
15711                     lapack_int* lda, double* work );
15712 float LAPACK_clansy( char* norm, char* uplo, lapack_int* n,
15713                     const lapack_complex_float* a, lapack_int* lda, float* work );
15714 double LAPACK_zlansy( char* norm, char* uplo, lapack_int* n,
15715                     const lapack_complex_double* a, lapack_int* lda, double* work );
15716 float LAPACK_slantr( char* norm, char* uplo, char* diag, lapack_int* m,
15717                     lapack_int* n, const float* a, lapack_int* lda, float* work );
15718 double LAPACK_dlantr( char* norm, char* uplo, char* diag, lapack_int* m,
15719                     lapack_int* n, const double* a, lapack_int* lda, double* work );
15720 float LAPACK_clantr( char* norm, char* uplo, char* diag, lapack_int* m,
15721                     lapack_int* n, const lapack_complex_float* a, lapack_int* lda,
15722                     float* work );
15723 double LAPACK_zlantr( char* norm, char* uplo, char* diag, lapack_int* m,
15724                     lapack_int* n, const lapack_complex_double* a, lapack_int* lda,
15725                     double* work );
15726 float LAPACK_slamch( char* cmach );
15727 double LAPACK_dlamch( char* cmach );
15728 void LAPACK_sgelq2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
15729                     float* tau, float* work, lapack_int *info );
15730 void LAPACK_dgelq2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
15731                     double* tau, double* work, lapack_int *info );
15732 void LAPACK_cgelq2( lapack_int* m, lapack_int* n, lapack_complex_float* a,
15733                     lapack_int* lda, lapack_complex_float* tau,
15734                     lapack_complex_float* work, lapack_int *info );
15735 void LAPACK_zgelq2( lapack_int* m, lapack_int* n, lapack_complex_double* a,
15736                     lapack_int* lda, lapack_complex_double* tau,
15737                     lapack_complex_double* work, lapack_int *info );
15738 void LAPACK_slarfb( char* side, char* trans, char* direct, char* storev,
15739                     lapack_int* m, lapack_int* n, lapack_int* k, const float* v,
15740                     lapack_int* ldv, const float* t, lapack_int* ldt, float* c,
15741                     lapack_int* ldc, float* work, lapack_int* ldwork );
15742 void LAPACK_dlarfb( char* side, char* trans, char* direct, char* storev,
15743                     lapack_int* m, lapack_int* n, lapack_int* k,
15744                     const double* v, lapack_int* ldv, const double* t,
15745                     lapack_int* ldt, double* c, lapack_int* ldc, double* work,
15746                     lapack_int* ldwork );
15747 void LAPACK_clarfb( char* side, char* trans, char* direct, char* storev,
15748                     lapack_int* m, lapack_int* n, lapack_int* k,
15749                     const lapack_complex_float* v, lapack_int* ldv,
15750                     const lapack_complex_float* t, lapack_int* ldt,
15751                     lapack_complex_float* c, lapack_int* ldc,
15752                     lapack_complex_float* work, lapack_int* ldwork );
15753 void LAPACK_zlarfb( char* side, char* trans, char* direct, char* storev,
15754                     lapack_int* m, lapack_int* n, lapack_int* k,
15755                     const lapack_complex_double* v, lapack_int* ldv,
15756                     const lapack_complex_double* t, lapack_int* ldt,
15757                     lapack_complex_double* c, lapack_int* ldc,
15758                     lapack_complex_double* work, lapack_int* ldwork );
15759 void LAPACK_slarfg( lapack_int* n, float* alpha, float* x, lapack_int* incx,
15760                     float* tau );
15761 void LAPACK_dlarfg( lapack_int* n, double* alpha, double* x, lapack_int* incx,
15762                     double* tau );
15763 void LAPACK_clarfg( lapack_int* n, lapack_complex_float* alpha,
15764                     lapack_complex_float* x, lapack_int* incx,
15765                     lapack_complex_float* tau );
15766 void LAPACK_zlarfg( lapack_int* n, lapack_complex_double* alpha,
15767                     lapack_complex_double* x, lapack_int* incx,
15768                     lapack_complex_double* tau );
15769 void LAPACK_slarft( char* direct, char* storev, lapack_int* n, lapack_int* k,
15770                     const float* v, lapack_int* ldv, const float* tau, float* t,
15771                     lapack_int* ldt );
15772 void LAPACK_dlarft( char* direct, char* storev, lapack_int* n, lapack_int* k,
15773                     const double* v, lapack_int* ldv, const double* tau,
15774                     double* t, lapack_int* ldt );
15775 void LAPACK_clarft( char* direct, char* storev, lapack_int* n, lapack_int* k,
15776                     const lapack_complex_float* v, lapack_int* ldv,
15777                     const lapack_complex_float* tau, lapack_complex_float* t,
15778                     lapack_int* ldt );
15779 void LAPACK_zlarft( char* direct, char* storev, lapack_int* n, lapack_int* k,
15780                     const lapack_complex_double* v, lapack_int* ldv,
15781                     const lapack_complex_double* tau, lapack_complex_double* t,
15782                     lapack_int* ldt );
15783 void LAPACK_slarfx( char* side, lapack_int* m, lapack_int* n, const float* v,
15784                     float* tau, float* c, lapack_int* ldc, float* work );
15785 void LAPACK_dlarfx( char* side, lapack_int* m, lapack_int* n, const double* v,
15786                     double* tau, double* c, lapack_int* ldc, double* work );
15787 void LAPACK_clarfx( char* side, lapack_int* m, lapack_int* n,
15788                     const lapack_complex_float* v, lapack_complex_float* tau,
15789                     lapack_complex_float* c, lapack_int* ldc,
15790                     lapack_complex_float* work );
15791 void LAPACK_zlarfx( char* side, lapack_int* m, lapack_int* n,
15792                     const lapack_complex_double* v, lapack_complex_double* tau,
15793                     lapack_complex_double* c, lapack_int* ldc,
15794                     lapack_complex_double* work );
15795 void LAPACK_slatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,
15796                     char* sym, float* d, lapack_int* mode, float* cond,
15797                     float* dmax, lapack_int* kl, lapack_int* ku, char* pack,
15798                     float* a, lapack_int* lda, float* work, lapack_int *info );
15799 void LAPACK_dlatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,
15800                     char* sym, double* d, lapack_int* mode, double* cond,
15801                     double* dmax, lapack_int* kl, lapack_int* ku, char* pack,
15802                     double* a, lapack_int* lda, double* work,
15803                     lapack_int *info );
15804 void LAPACK_clatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,
15805                     char* sym, float* d, lapack_int* mode, float* cond,
15806                     float* dmax, lapack_int* kl, lapack_int* ku, char* pack,
15807                     lapack_complex_float* a, lapack_int* lda,
15808                     lapack_complex_float* work, lapack_int *info );
15809 void LAPACK_zlatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,
15810                     char* sym, double* d, lapack_int* mode, double* cond,
15811                     double* dmax, lapack_int* kl, lapack_int* ku, char* pack,
15812                     lapack_complex_double* a, lapack_int* lda,
15813                     lapack_complex_double* work, lapack_int *info );
15814 void LAPACK_slag2d( lapack_int* m, lapack_int* n, const float* sa,
15815                     lapack_int* ldsa, double* a, lapack_int* lda,
15816                     lapack_int *info );
15817 void LAPACK_dlag2s( lapack_int* m, lapack_int* n, const double* a,
15818                     lapack_int* lda, float* sa, lapack_int* ldsa,
15819                     lapack_int *info );
15820 void LAPACK_clag2z( lapack_int* m, lapack_int* n,
15821                     const lapack_complex_float* sa, lapack_int* ldsa,
15822                     lapack_complex_double* a, lapack_int* lda,
15823                     lapack_int *info );
15824 void LAPACK_zlag2c( lapack_int* m, lapack_int* n,
15825                     const lapack_complex_double* a, lapack_int* lda,
15826                     lapack_complex_float* sa, lapack_int* ldsa,
15827                     lapack_int *info );
15828 void LAPACK_slauum( char* uplo, lapack_int* n, float* a, lapack_int* lda,
15829                     lapack_int *info );
15830 void LAPACK_dlauum( char* uplo, lapack_int* n, double* a, lapack_int* lda,
15831                     lapack_int *info );
15832 void LAPACK_clauum( char* uplo, lapack_int* n, lapack_complex_float* a,
15833                     lapack_int* lda, lapack_int *info );
15834 void LAPACK_zlauum( char* uplo, lapack_int* n, lapack_complex_double* a,
15835                     lapack_int* lda, lapack_int *info );
15836 void LAPACK_slagge( lapack_int* m, lapack_int* n, lapack_int* kl,
15837                     lapack_int* ku, const float* d, float* a, lapack_int* lda,
15838                     lapack_int* iseed, float* work, lapack_int *info );
15839 void LAPACK_dlagge( lapack_int* m, lapack_int* n, lapack_int* kl,
15840                     lapack_int* ku, const double* d, double* a, lapack_int* lda,
15841                     lapack_int* iseed, double* work, lapack_int *info );
15842 void LAPACK_clagge( lapack_int* m, lapack_int* n, lapack_int* kl,
15843                     lapack_int* ku, const float* d, lapack_complex_float* a,
15844                     lapack_int* lda, lapack_int* iseed,
15845                     lapack_complex_float* work, lapack_int *info );
15846 void LAPACK_zlagge( lapack_int* m, lapack_int* n, lapack_int* kl,
15847                     lapack_int* ku, const double* d, lapack_complex_double* a,
15848                     lapack_int* lda, lapack_int* iseed,
15849                     lapack_complex_double* work, lapack_int *info );
15850 void LAPACK_slaset( char* uplo, lapack_int* m, lapack_int* n, float* alpha,
15851                     float* beta, float* a, lapack_int* lda );
15852 void LAPACK_dlaset( char* uplo, lapack_int* m, lapack_int* n, double* alpha,
15853                     double* beta, double* a, lapack_int* lda );
15854 void LAPACK_claset( char* uplo, lapack_int* m, lapack_int* n,
15855                     lapack_complex_float* alpha, lapack_complex_float* beta,
15856                     lapack_complex_float* a, lapack_int* lda );
15857 void LAPACK_zlaset( char* uplo, lapack_int* m, lapack_int* n,
15858                     lapack_complex_double* alpha, lapack_complex_double* beta,
15859                     lapack_complex_double* a, lapack_int* lda );
15860 void LAPACK_slasrt( char* id, lapack_int* n, float* d, lapack_int *info );
15861 void LAPACK_dlasrt( char* id, lapack_int* n, double* d, lapack_int *info );
15862 void LAPACK_claghe( lapack_int* n, lapack_int* k, const float* d,
15863                     lapack_complex_float* a, lapack_int* lda, lapack_int* iseed,
15864                     lapack_complex_float* work, lapack_int *info );
15865 void LAPACK_zlaghe( lapack_int* n, lapack_int* k, const double* d,
15866                     lapack_complex_double* a, lapack_int* lda,
15867                     lapack_int* iseed, lapack_complex_double* work,
15868                     lapack_int *info );
15869 void LAPACK_slagsy( lapack_int* n, lapack_int* k, const float* d, float* a,
15870                     lapack_int* lda, lapack_int* iseed, float* work,
15871                     lapack_int *info );
15872 void LAPACK_dlagsy( lapack_int* n, lapack_int* k, const double* d, double* a,
15873                     lapack_int* lda, lapack_int* iseed, double* work,
15874                     lapack_int *info );
15875 void LAPACK_clagsy( lapack_int* n, lapack_int* k, const float* d,
15876                     lapack_complex_float* a, lapack_int* lda, lapack_int* iseed,
15877                     lapack_complex_float* work, lapack_int *info );
15878 void LAPACK_zlagsy( lapack_int* n, lapack_int* k, const double* d,
15879                     lapack_complex_double* a, lapack_int* lda,
15880                     lapack_int* iseed, lapack_complex_double* work,
15881                     lapack_int *info );
15882 void LAPACK_slapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,
15883                     float* x, lapack_int* ldx, lapack_int* k );
15884 void LAPACK_dlapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,
15885                     double* x, lapack_int* ldx, lapack_int* k );
15886 void LAPACK_clapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,
15887                     lapack_complex_float* x, lapack_int* ldx, lapack_int* k );
15888 void LAPACK_zlapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,
15889                     lapack_complex_double* x, lapack_int* ldx, lapack_int* k );
15890 float LAPACK_slapy2( float* x, float* y );
15891 double LAPACK_dlapy2( double* x, double* y );
15892 float LAPACK_slapy3( float* x, float* y, float* z );
15893 double LAPACK_dlapy3( double* x, double* y, double* z );
15894 void LAPACK_slartgp( float* f, float* g, float* cs, float* sn, float* r );
15895 void LAPACK_dlartgp( double* f, double* g, double* cs, double* sn, double* r );
15896 void LAPACK_slartgs( float* x, float* y, float* sigma, float* cs, float* sn );
15897 void LAPACK_dlartgs( double* x, double* y, double* sigma, double* cs,
15898                      double* sn );
15899 // LAPACK 3.3.0
15900 void LAPACK_cbbcsd( char* jobu1, char* jobu2,
15901                     char* jobv1t, char* jobv2t, char* trans,
15902                     lapack_int* m, lapack_int* p, lapack_int* q,
15903                     float* theta, float* phi,
15904                     lapack_complex_float* u1, lapack_int* ldu1,
15905                     lapack_complex_float* u2, lapack_int* ldu2,
15906                     lapack_complex_float* v1t, lapack_int* ldv1t,
15907                     lapack_complex_float* v2t, lapack_int* ldv2t,
15908                     float* b11d, float* b11e, float* b12d,
15909                     float* b12e, float* b21d, float* b21e,
15910                     float* b22d, float* b22e, float* rwork,
15911                     lapack_int* lrwork , lapack_int *info );
15912 void LAPACK_cheswapr( char* uplo, lapack_int* n,
15913                       lapack_complex_float* a, lapack_int* i1,
15914                       lapack_int* i2 );
15915 void LAPACK_chetri2( char* uplo, lapack_int* n,
15916                      lapack_complex_float* a, lapack_int* lda,
15917                      const lapack_int* ipiv,
15918                      lapack_complex_float* work, lapack_int* lwork , lapack_int *info );
15919 void LAPACK_chetri2x( char* uplo, lapack_int* n,
15920                       lapack_complex_float* a, lapack_int* lda,
15921                       const lapack_int* ipiv,
15922                       lapack_complex_float* work, lapack_int* nb , lapack_int *info );
15923 void LAPACK_chetrs2( char* uplo, lapack_int* n,
15924                      lapack_int* nrhs, const lapack_complex_float* a,
15925                      lapack_int* lda, const lapack_int* ipiv,
15926                      lapack_complex_float* b, lapack_int* ldb,
15927                      lapack_complex_float* work , lapack_int *info );
15928 void LAPACK_csyconv( char* uplo, char* way,
15929                      lapack_int* n, lapack_complex_float* a,
15930                      lapack_int* lda, const lapack_int* ipiv,
15931                      lapack_complex_float* work , lapack_int *info );
15932 void LAPACK_csyswapr( char* uplo, lapack_int* n,
15933                       lapack_complex_float* a, lapack_int* i1,
15934                       lapack_int* i2 );
15935 void LAPACK_csytri2( char* uplo, lapack_int* n,
15936                      lapack_complex_float* a, lapack_int* lda,
15937                      const lapack_int* ipiv,
15938                      lapack_complex_float* work, lapack_int* lwork , lapack_int *info );
15939 void LAPACK_csytri2x( char* uplo, lapack_int* n,
15940                       lapack_complex_float* a, lapack_int* lda,
15941                       const lapack_int* ipiv,
15942                       lapack_complex_float* work, lapack_int* nb , lapack_int *info );
15943 void LAPACK_csytrs2( char* uplo, lapack_int* n,
15944                      lapack_int* nrhs, const lapack_complex_float* a,
15945                      lapack_int* lda, const lapack_int* ipiv,
15946                      lapack_complex_float* b, lapack_int* ldb,
15947                      lapack_complex_float* work , lapack_int *info );
15948 void LAPACK_cunbdb( char* trans, char* signs,
15949                     lapack_int* m, lapack_int* p, lapack_int* q,
15950                     lapack_complex_float* x11, lapack_int* ldx11,
15951                     lapack_complex_float* x12, lapack_int* ldx12,
15952                     lapack_complex_float* x21, lapack_int* ldx21,
15953                     lapack_complex_float* x22, lapack_int* ldx22,
15954                     float* theta, float* phi,
15955                     lapack_complex_float* taup1,
15956                     lapack_complex_float* taup2,
15957                     lapack_complex_float* tauq1,
15958                     lapack_complex_float* tauq2,
15959                     lapack_complex_float* work, lapack_int* lwork , lapack_int *info );
15960 void LAPACK_cuncsd( char* jobu1, char* jobu2,
15961                     char* jobv1t, char* jobv2t, char* trans,
15962                     char* signs, lapack_int* m, lapack_int* p,
15963                     lapack_int* q, lapack_complex_float* x11,
15964                     lapack_int* ldx11, lapack_complex_float* x12,
15965                     lapack_int* ldx12, lapack_complex_float* x21,
15966                     lapack_int* ldx21, lapack_complex_float* x22,
15967                     lapack_int* ldx22, float* theta,
15968                     lapack_complex_float* u1, lapack_int* ldu1,
15969                     lapack_complex_float* u2, lapack_int* ldu2,
15970                     lapack_complex_float* v1t, lapack_int* ldv1t,
15971                     lapack_complex_float* v2t, lapack_int* ldv2t,
15972                     lapack_complex_float* work, lapack_int* lwork,
15973                     float* rwork, lapack_int* lrwork,
15974                     lapack_int* iwork , lapack_int *info );
15975 void LAPACK_dbbcsd( char* jobu1, char* jobu2,
15976                     char* jobv1t, char* jobv2t, char* trans,
15977                     lapack_int* m, lapack_int* p, lapack_int* q,
15978                     double* theta, double* phi, double* u1,
15979                     lapack_int* ldu1, double* u2, lapack_int* ldu2,
15980                     double* v1t, lapack_int* ldv1t, double* v2t,
15981                     lapack_int* ldv2t, double* b11d, double* b11e,
15982                     double* b12d, double* b12e, double* b21d,
15983                     double* b21e, double* b22d, double* b22e,
15984                     double* work, lapack_int* lwork , lapack_int *info );
15985 void LAPACK_dorbdb( char* trans, char* signs,
15986                     lapack_int* m, lapack_int* p, lapack_int* q,
15987                     double* x11, lapack_int* ldx11, double* x12,
15988                     lapack_int* ldx12, double* x21, lapack_int* ldx21,
15989                     double* x22, lapack_int* ldx22, double* theta,
15990                     double* phi, double* taup1, double* taup2,
15991                     double* tauq1, double* tauq2, double* work,
15992                     lapack_int* lwork , lapack_int *info );
15993 void LAPACK_dorcsd( char* jobu1, char* jobu2,
15994                     char* jobv1t, char* jobv2t, char* trans,
15995                     char* signs, lapack_int* m, lapack_int* p,
15996                     lapack_int* q, double* x11, lapack_int* ldx11,
15997                     double* x12, lapack_int* ldx12, double* x21,
15998                     lapack_int* ldx21, double* x22, lapack_int* ldx22,
15999                     double* theta, double* u1, lapack_int* ldu1,
16000                     double* u2, lapack_int* ldu2, double* v1t,
16001                     lapack_int* ldv1t, double* v2t, lapack_int* ldv2t,
16002                     double* work, lapack_int* lwork,
16003                     lapack_int* iwork , lapack_int *info );
16004 void LAPACK_dsyconv( char* uplo, char* way,
16005                      lapack_int* n, double* a, lapack_int* lda,
16006                      const lapack_int* ipiv, double* work , lapack_int *info );
16007 void LAPACK_dsyswapr( char* uplo, lapack_int* n,
16008                       double* a, lapack_int* i1, lapack_int* i2 );
16009 void LAPACK_dsytri2( char* uplo, lapack_int* n,
16010                      double* a, lapack_int* lda,
16011                      const lapack_int* ipiv,
16012                      lapack_complex_double* work, lapack_int* lwork , lapack_int *info );
16013 void LAPACK_dsytri2x( char* uplo, lapack_int* n,
16014                       double* a, lapack_int* lda,
16015                       const lapack_int* ipiv, double* work,
16016                       lapack_int* nb , lapack_int *info );
16017 void LAPACK_dsytrs2( char* uplo, lapack_int* n,
16018                      lapack_int* nrhs, const double* a,
16019                      lapack_int* lda, const lapack_int* ipiv,
16020                      double* b, lapack_int* ldb, double* work , lapack_int *info );
16021 void LAPACK_sbbcsd( char* jobu1, char* jobu2,
16022                     char* jobv1t, char* jobv2t, char* trans,
16023                     lapack_int* m, lapack_int* p, lapack_int* q,
16024                     float* theta, float* phi, float* u1,
16025                     lapack_int* ldu1, float* u2, lapack_int* ldu2,
16026                     float* v1t, lapack_int* ldv1t, float* v2t,
16027                     lapack_int* ldv2t, float* b11d, float* b11e,
16028                     float* b12d, float* b12e, float* b21d,
16029                     float* b21e, float* b22d, float* b22e,
16030                     float* work, lapack_int* lwork , lapack_int *info );
16031 void LAPACK_sorbdb( char* trans, char* signs,
16032                     lapack_int* m, lapack_int* p, lapack_int* q,
16033                     float* x11, lapack_int* ldx11, float* x12,
16034                     lapack_int* ldx12, float* x21, lapack_int* ldx21,
16035                     float* x22, lapack_int* ldx22, float* theta,
16036                     float* phi, float* taup1, float* taup2,
16037                     float* tauq1, float* tauq2, float* work,
16038                     lapack_int* lwork , lapack_int *info );
16039 void LAPACK_sorcsd( char* jobu1, char* jobu2,
16040                     char* jobv1t, char* jobv2t, char* trans,
16041                     char* signs, lapack_int* m, lapack_int* p,
16042                     lapack_int* q, float* x11, lapack_int* ldx11,
16043                     float* x12, lapack_int* ldx12, float* x21,
16044                     lapack_int* ldx21, float* x22, lapack_int* ldx22,
16045                     float* theta, float* u1, lapack_int* ldu1,
16046                     float* u2, lapack_int* ldu2, float* v1t,
16047                     lapack_int* ldv1t, float* v2t, lapack_int* ldv2t,
16048                     float* work, lapack_int* lwork,
16049                     lapack_int* iwork , lapack_int *info );
16050 void LAPACK_ssyconv( char* uplo, char* way,
16051                      lapack_int* n, float* a, lapack_int* lda,
16052                      const lapack_int* ipiv, float* work , lapack_int *info );
16053 void LAPACK_ssyswapr( char* uplo, lapack_int* n,
16054                       float* a, lapack_int* i1, lapack_int* i2 );
16055 void LAPACK_ssytri2( char* uplo, lapack_int* n,
16056                      float* a, lapack_int* lda,
16057                      const lapack_int* ipiv,
16058                      lapack_complex_float* work, lapack_int* lwork , lapack_int *info );
16059 void LAPACK_ssytri2x( char* uplo, lapack_int* n,
16060                       float* a, lapack_int* lda,
16061                       const lapack_int* ipiv, float* work,
16062                       lapack_int* nb , lapack_int *info );
16063 void LAPACK_ssytrs2( char* uplo, lapack_int* n,
16064                      lapack_int* nrhs, const float* a,
16065                      lapack_int* lda, const lapack_int* ipiv,
16066                      float* b, lapack_int* ldb, float* work , lapack_int *info );
16067 void LAPACK_zbbcsd( char* jobu1, char* jobu2,
16068                     char* jobv1t, char* jobv2t, char* trans,
16069                     lapack_int* m, lapack_int* p, lapack_int* q,
16070                     double* theta, double* phi,
16071                     lapack_complex_double* u1, lapack_int* ldu1,
16072                     lapack_complex_double* u2, lapack_int* ldu2,
16073                     lapack_complex_double* v1t, lapack_int* ldv1t,
16074                     lapack_complex_double* v2t, lapack_int* ldv2t,
16075                     double* b11d, double* b11e, double* b12d,
16076                     double* b12e, double* b21d, double* b21e,
16077                     double* b22d, double* b22e, double* rwork,
16078                     lapack_int* lrwork , lapack_int *info );
16079 void LAPACK_zheswapr( char* uplo, lapack_int* n,
16080                       lapack_complex_double* a, lapack_int* i1,
16081                       lapack_int* i2 );
16082 void LAPACK_zhetri2( char* uplo, lapack_int* n,
16083                      lapack_complex_double* a, lapack_int* lda,
16084                      const lapack_int* ipiv,
16085                      lapack_complex_double* work, lapack_int* lwork , lapack_int *info );
16086 void LAPACK_zhetri2x( char* uplo, lapack_int* n,
16087                       lapack_complex_double* a, lapack_int* lda,
16088                       const lapack_int* ipiv,
16089                       lapack_complex_double* work, lapack_int* nb , lapack_int *info );
16090 void LAPACK_zhetrs2( char* uplo, lapack_int* n,
16091                      lapack_int* nrhs,
16092                      const lapack_complex_double* a, lapack_int* lda,
16093                      const lapack_int* ipiv,
16094                      lapack_complex_double* b, lapack_int* ldb,
16095                      lapack_complex_double* work , lapack_int *info );
16096 void LAPACK_zsyconv( char* uplo, char* way,
16097                      lapack_int* n, lapack_complex_double* a,
16098                      lapack_int* lda, const lapack_int* ipiv,
16099                      lapack_complex_double* work , lapack_int *info );
16100 void LAPACK_zsyswapr( char* uplo, lapack_int* n,
16101                       lapack_complex_double* a, lapack_int* i1,
16102                       lapack_int* i2 );
16103 void LAPACK_zsytri2( char* uplo, lapack_int* n,
16104                      lapack_complex_double* a, lapack_int* lda,
16105                      const lapack_int* ipiv,
16106                      lapack_complex_double* work, lapack_int* lwork , lapack_int *info );
16107 void LAPACK_zsytri2x( char* uplo, lapack_int* n,
16108                       lapack_complex_double* a, lapack_int* lda,
16109                       const lapack_int* ipiv,
16110                       lapack_complex_double* work, lapack_int* nb , lapack_int *info );
16111 void LAPACK_zsytrs2( char* uplo, lapack_int* n,
16112                      lapack_int* nrhs,
16113                      const lapack_complex_double* a, lapack_int* lda,
16114                      const lapack_int* ipiv,
16115                      lapack_complex_double* b, lapack_int* ldb,
16116                      lapack_complex_double* work , lapack_int *info );
16117 void LAPACK_zunbdb( char* trans, char* signs,
16118                     lapack_int* m, lapack_int* p, lapack_int* q,
16119                     lapack_complex_double* x11, lapack_int* ldx11,
16120                     lapack_complex_double* x12, lapack_int* ldx12,
16121                     lapack_complex_double* x21, lapack_int* ldx21,
16122                     lapack_complex_double* x22, lapack_int* ldx22,
16123                     double* theta, double* phi,
16124                     lapack_complex_double* taup1,
16125                     lapack_complex_double* taup2,
16126                     lapack_complex_double* tauq1,
16127                     lapack_complex_double* tauq2,
16128                     lapack_complex_double* work, lapack_int* lwork , lapack_int *info );
16129 void LAPACK_zuncsd( char* jobu1, char* jobu2,
16130                     char* jobv1t, char* jobv2t, char* trans,
16131                     char* signs, lapack_int* m, lapack_int* p,
16132                     lapack_int* q, lapack_complex_double* x11,
16133                     lapack_int* ldx11, lapack_complex_double* x12,
16134                     lapack_int* ldx12, lapack_complex_double* x21,
16135                     lapack_int* ldx21, lapack_complex_double* x22,
16136                     lapack_int* ldx22, double* theta,
16137                     lapack_complex_double* u1, lapack_int* ldu1,
16138                     lapack_complex_double* u2, lapack_int* ldu2,
16139                     lapack_complex_double* v1t, lapack_int* ldv1t,
16140                     lapack_complex_double* v2t, lapack_int* ldv2t,
16141                     lapack_complex_double* work, lapack_int* lwork,
16142                     double* rwork, lapack_int* lrwork,
16143                     lapack_int* iwork , lapack_int *info );
16144 // LAPACK 3.4.0
16145 void LAPACK_sgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16146                      lapack_int* k, lapack_int* nb, const float* v,
16147                      lapack_int* ldv, const float* t, lapack_int* ldt, float* c,
16148                      lapack_int* ldc, float* work, lapack_int *info );
16149 void LAPACK_dgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16150                      lapack_int* k, lapack_int* nb, const double* v,
16151                      lapack_int* ldv, const double* t, lapack_int* ldt,
16152                      double* c, lapack_int* ldc, double* work,
16153                      lapack_int *info );
16154 void LAPACK_cgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16155                      lapack_int* k, lapack_int* nb,
16156                      const lapack_complex_float* v, lapack_int* ldv,
16157                      const lapack_complex_float* t, lapack_int* ldt,
16158                      lapack_complex_float* c, lapack_int* ldc,
16159                      lapack_complex_float* work, lapack_int *info );
16160 void LAPACK_zgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16161                      lapack_int* k, lapack_int* nb,
16162                      const lapack_complex_double* v, lapack_int* ldv,
16163                      const lapack_complex_double* t, lapack_int* ldt,
16164                      lapack_complex_double* c, lapack_int* ldc,
16165                      lapack_complex_double* work, lapack_int *info );
16166 void LAPACK_sgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb, float* a,
16167                     lapack_int* lda, float* t, lapack_int* ldt, float* work,
16168                     lapack_int *info );
16169 void LAPACK_dgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb, double* a,
16170                     lapack_int* lda, double* t, lapack_int* ldt, double* work,
16171                     lapack_int *info );
16172 void LAPACK_cgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb,
16173                     lapack_complex_float* a, lapack_int* lda,
16174                     lapack_complex_float* t, lapack_int* ldt,
16175                     lapack_complex_float* work, lapack_int *info );
16176 void LAPACK_zgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb,
16177                     lapack_complex_double* a, lapack_int* lda,
16178                     lapack_complex_double* t, lapack_int* ldt,
16179                     lapack_complex_double* work, lapack_int *info );
16180 void LAPACK_sgeqrt2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
16181                      float* t, lapack_int* ldt, lapack_int *info );
16182 void LAPACK_dgeqrt2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
16183                      double* t, lapack_int* ldt, lapack_int *info );
16184 void LAPACK_cgeqrt2( lapack_int* m, lapack_int* n, lapack_complex_float* a,
16185                      lapack_int* lda, lapack_complex_float* t, lapack_int* ldt,
16186                      lapack_int *info );
16187 void LAPACK_zgeqrt2( lapack_int* m, lapack_int* n, lapack_complex_double* a,
16188                      lapack_int* lda, lapack_complex_double* t, lapack_int* ldt,
16189                      lapack_int *info );
16190 void LAPACK_sgeqrt3( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
16191                      float* t, lapack_int* ldt, lapack_int *info );
16192 void LAPACK_dgeqrt3( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
16193                      double* t, lapack_int* ldt, lapack_int *info );
16194 void LAPACK_cgeqrt3( lapack_int* m, lapack_int* n, lapack_complex_float* a,
16195                      lapack_int* lda, lapack_complex_float* t, lapack_int* ldt,
16196                      lapack_int *info );
16197 void LAPACK_zgeqrt3( lapack_int* m, lapack_int* n, lapack_complex_double* a,
16198                      lapack_int* lda, lapack_complex_double* t, lapack_int* ldt,
16199                      lapack_int *info );
16200 void LAPACK_stpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16201                      lapack_int* k, lapack_int* l, lapack_int* nb,
16202                      const float* v, lapack_int* ldv, const float* t,
16203                      lapack_int* ldt, float* a, lapack_int* lda, float* b,
16204                      lapack_int* ldb, float* work, lapack_int *info );
16205 void LAPACK_dtpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16206                      lapack_int* k, lapack_int* l, lapack_int* nb,
16207                      const double* v, lapack_int* ldv, const double* t,
16208                      lapack_int* ldt, double* a, lapack_int* lda, double* b,
16209                      lapack_int* ldb, double* work, lapack_int *info );
16210 void LAPACK_ctpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16211                      lapack_int* k, lapack_int* l, lapack_int* nb,
16212                      const lapack_complex_float* v, lapack_int* ldv,
16213                      const lapack_complex_float* t, lapack_int* ldt,
16214                      lapack_complex_float* a, lapack_int* lda,
16215                      lapack_complex_float* b, lapack_int* ldb,
16216                      lapack_complex_float* work, lapack_int *info );
16217 void LAPACK_ztpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,
16218                      lapack_int* k, lapack_int* l, lapack_int* nb,
16219                      const lapack_complex_double* v, lapack_int* ldv,
16220                      const lapack_complex_double* t, lapack_int* ldt,
16221                      lapack_complex_double* a, lapack_int* lda,
16222                      lapack_complex_double* b, lapack_int* ldb,
16223                      lapack_complex_double* work, lapack_int *info );
16224 void LAPACK_dtpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb,
16225                     double* a, lapack_int* lda, double* b, lapack_int* ldb,
16226                     double* t, lapack_int* ldt, double* work,
16227                     lapack_int *info );
16228 void LAPACK_ctpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb,
16229                     lapack_complex_float* a, lapack_int* lda,
16230                     lapack_complex_float* t, lapack_complex_float* b,
16231                     lapack_int* ldb, lapack_int* ldt,
16232                     lapack_complex_float* work, lapack_int *info );
16233 void LAPACK_ztpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb,
16234                     lapack_complex_double* a, lapack_int* lda,
16235                     lapack_complex_double* b, lapack_int* ldb,
16236                     lapack_complex_double* t, lapack_int* ldt,
16237                     lapack_complex_double* work, lapack_int *info );
16238 void LAPACK_stpqrt2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
16239                      float* b, lapack_int* ldb, float* t, lapack_int* ldt,
16240                      lapack_int *info );
16241 void LAPACK_dtpqrt2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
16242                      double* b, lapack_int* ldb, double* t, lapack_int* ldt,
16243                      lapack_int *info );
16244 void LAPACK_ctpqrt2( lapack_int* m, lapack_int* n, lapack_complex_float* a,
16245                      lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,
16246                      lapack_complex_float* t, lapack_int* ldt,
16247                      lapack_int *info );
16248 void LAPACK_ztpqrt2( lapack_int* m, lapack_int* n, lapack_complex_double* a,
16249                      lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,
16250                      lapack_complex_double* t, lapack_int* ldt,
16251                      lapack_int *info );
16252 void LAPACK_stprfb( char* side, char* trans, char* direct, char* storev,
16253                     lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,
16254                     const float* v, lapack_int* ldv, const float* t,
16255                     lapack_int* ldt, float* a, lapack_int* lda, float* b,
16256                     lapack_int* ldb, const float* mywork,
16257                     lapack_int* myldwork );
16258 void LAPACK_dtprfb( char* side, char* trans, char* direct, char* storev,
16259                     lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,
16260                     const double* v, lapack_int* ldv, const double* t,
16261                     lapack_int* ldt, double* a, lapack_int* lda, double* b,
16262                     lapack_int* ldb, const double* mywork,
16263                     lapack_int* myldwork );
16264 void LAPACK_ctprfb( char* side, char* trans, char* direct, char* storev,
16265                     lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,
16266                     const lapack_complex_float* v, lapack_int* ldv,
16267                     const lapack_complex_float* t, lapack_int* ldt,
16268                     lapack_complex_float* a, lapack_int* lda,
16269                     lapack_complex_float* b, lapack_int* ldb,
16270                     const float* mywork, lapack_int* myldwork );
16271 void LAPACK_ztprfb( char* side, char* trans, char* direct, char* storev,
16272                     lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,
16273                     const lapack_complex_double* v, lapack_int* ldv,
16274                     const lapack_complex_double* t, lapack_int* ldt,
16275                     lapack_complex_double* a, lapack_int* lda,
16276                     lapack_complex_double* b, lapack_int* ldb,
16277                     const double* mywork, lapack_int* myldwork );
16278 // LAPACK 3.X.X
16279 void LAPACK_csyr( char* uplo, lapack_int* n, lapack_complex_float* alpha,
16280                       const lapack_complex_float* x, lapack_int* incx,
16281                       lapack_complex_float* a, lapack_int* lda );
16282 void LAPACK_zsyr( char* uplo, lapack_int* n, lapack_complex_double* alpha,
16283                       const lapack_complex_double* x, lapack_int* incx,
16284                       lapack_complex_double* a, lapack_int* lda );
16285 
16286 #ifdef __cplusplus
16287 }
16288 #endif /* __cplusplus */
16289 
16290 #endif /* _LAPACKE_H_ */
16291 
16292 #endif /* _MKL_LAPACKE_H_ */
16293