Back to home page

EIC code displayed by LXR
 
 

    

Warning, file /include/lapack.h was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).

0001 #ifndef LAPACK_H
0002 #define LAPACK_H
0003 
0004 /*
0005 *  Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes
0006 */
0007 #ifdef HAVE_LAPACK_CONFIG_H
0008 #include "lapacke_config.h"
0009 #endif
0010 
0011 #include "lapacke_mangling.h"
0012 
0013 #include <stdlib.h>
0014 #include <stdarg.h>
0015 #include <inttypes.h>
0016 
0017 /* It seems all current Fortran compilers put strlen at end.
0018 *  Some historical compilers put strlen after the str argument
0019 *  or make the str argument into a struct. */
0020 #ifndef __EMSCRIPTEN__
0021 #define LAPACK_FORTRAN_STRLEN_END
0022 #endif
0023 
0024 #ifndef FORTRAN_STRLEN
0025   #define FORTRAN_STRLEN size_t
0026 #endif
0027 
0028 /* Complex types are structures equivalent to the
0029 * Fortran complex types COMPLEX(4) and COMPLEX(8).
0030 *
0031 * One can also redefine the types with his own types
0032 * for example by including in the code definitions like
0033 *
0034 * #define lapack_complex_float std::complex<float>
0035 * #define lapack_complex_double std::complex<double>
0036 *
0037 * or define these types in the command line:
0038 *
0039 * -Dlapack_complex_float="std::complex<float>"
0040 * -Dlapack_complex_double="std::complex<double>"
0041 */
0042 
0043 #ifndef LAPACK_COMPLEX_CUSTOM
0044 
0045 /* Complex type (single precision) */
0046 #ifndef lapack_complex_float
0047 #ifndef __cplusplus
0048 #include <complex.h>
0049 #else
0050 #include <complex>
0051 #endif
0052 #define lapack_complex_float    float _Complex
0053 #endif
0054 
0055 #ifndef lapack_complex_float_real
0056 #define lapack_complex_float_real(z)       (creal(z))
0057 #endif
0058 
0059 #ifndef lapack_complex_float_imag
0060 #define lapack_complex_float_imag(z)       (cimag(z))
0061 #endif
0062 
0063 /* Complex type (double precision) */
0064 #ifndef lapack_complex_double
0065 #ifndef __cplusplus
0066 #include <complex.h>
0067 #else
0068 #include <complex>
0069 #endif
0070 #define lapack_complex_double   double _Complex
0071 #endif
0072 
0073 #ifndef lapack_complex_double_real
0074 #define lapack_complex_double_real(z)      (creal(z))
0075 #endif
0076 
0077 #ifndef lapack_complex_double_imag
0078 #define lapack_complex_double_imag(z)       (cimag(z))
0079 #endif
0080 
0081 #endif /* LAPACK_COMPLEX_CUSTOM */
0082 
0083 
0084 #ifdef __cplusplus
0085 extern "C" {
0086 #endif
0087 
0088 /*----------------------------------------------------------------------------*/
0089 #ifndef lapack_int
0090 #if defined(LAPACK_ILP64)
0091 #define lapack_int        int64_t
0092 #else
0093 #define lapack_int        int32_t
0094 #endif
0095 #endif
0096 
0097 /*
0098  * Integer format string
0099  */
0100 #ifndef LAPACK_IFMT
0101 #if defined(LAPACK_ILP64)
0102 #define LAPACK_IFMT       PRId64
0103 #else
0104 #define LAPACK_IFMT       PRId32
0105 #endif
0106 #endif
0107 
0108 #ifndef lapack_logical
0109 #define lapack_logical    lapack_int
0110 #endif
0111 
0112 /* f2c, hence clapack and MacOS Accelerate, returns double instead of float
0113  * for sdot, slange, clange, etc. */
0114 #if defined(LAPACK_F2C)
0115     typedef double lapack_float_return;
0116 #else
0117     typedef float lapack_float_return;
0118 #endif
0119 
0120 
0121 /* Callback logical functions of one, two, or three arguments are used
0122 *  to select eigenvalues to sort to the top left of the Schur form.
0123 *  The value is selected if function returns TRUE (non-zero). */
0124 
0125 typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );
0126 typedef lapack_logical (*LAPACK_S_SELECT3)
0127     ( const float*, const float*, const float* );
0128 typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );
0129 typedef lapack_logical (*LAPACK_D_SELECT3)
0130     ( const double*, const double*, const double* );
0131 
0132 typedef lapack_logical (*LAPACK_C_SELECT1) ( const lapack_complex_float* );
0133 typedef lapack_logical (*LAPACK_C_SELECT2)
0134     ( const lapack_complex_float*, const lapack_complex_float* );
0135 typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* );
0136 typedef lapack_logical (*LAPACK_Z_SELECT2)
0137     ( const lapack_complex_double*, const lapack_complex_double* );
0138 
0139 #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
0140 lapack_logical LAPACK_lsame_base( const char* ca,  const char* cb
0141 #ifndef __EMSCRIPTEN__
0142                             ,  lapack_int lca, lapack_int lcb
0143 #endif
0144 #ifdef LAPACK_FORTRAN_STRLEN_END
0145     , FORTRAN_STRLEN, FORTRAN_STRLEN
0146 #endif
0147 );
0148 #ifdef LAPACK_FORTRAN_STRLEN_END
0149     #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
0150 #else
0151     #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
0152 #endif
0153 
0154 
0155 /*----------------------------------------------------------------------------*/
0156 /* This is in alphabetical order (ignoring leading precision). */
0157 
0158 #define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
0159 void LAPACK_cbbcsd_base(
0160     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
0161     lapack_int const* m, lapack_int const* p, lapack_int const* q,
0162     float* theta,
0163     float* phi,
0164     lapack_complex_float* U1, lapack_int const* ldu1,
0165     lapack_complex_float* U2, lapack_int const* ldu2,
0166     lapack_complex_float* V1T, lapack_int const* ldv1t,
0167     lapack_complex_float* V2T, lapack_int const* ldv2t,
0168     float* B11D,
0169     float* B11E,
0170     float* B12D,
0171     float* B12E,
0172     float* B21D,
0173     float* B21E,
0174     float* B22D,
0175     float* B22E,
0176     float* rwork, lapack_int const* lrwork,
0177     lapack_int* info
0178 #ifdef LAPACK_FORTRAN_STRLEN_END
0179     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0180 #endif
0181 );
0182 #ifdef LAPACK_FORTRAN_STRLEN_END
0183     #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
0184 #else
0185     #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
0186 #endif
0187 
0188 #define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
0189 void LAPACK_dbbcsd_base(
0190     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
0191     lapack_int const* m, lapack_int const* p, lapack_int const* q,
0192     double* theta,
0193     double* phi,
0194     double* U1, lapack_int const* ldu1,
0195     double* U2, lapack_int const* ldu2,
0196     double* V1T, lapack_int const* ldv1t,
0197     double* V2T, lapack_int const* ldv2t,
0198     double* B11D,
0199     double* B11E,
0200     double* B12D,
0201     double* B12E,
0202     double* b21d,
0203     double* b21e,
0204     double* b22d,
0205     double* b22e,
0206     double* work, lapack_int const* lwork,
0207     lapack_int* info
0208 #ifdef LAPACK_FORTRAN_STRLEN_END
0209     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0210 #endif
0211 );
0212 #ifdef LAPACK_FORTRAN_STRLEN_END
0213     #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
0214 #else
0215     #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
0216 #endif
0217 
0218 #define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
0219 void LAPACK_sbbcsd_base(
0220     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
0221     lapack_int const* m, lapack_int const* p, lapack_int const* q,
0222     float* theta,
0223     float* phi,
0224     float* U1, lapack_int const* ldu1,
0225     float* U2, lapack_int const* ldu2,
0226     float* V1T, lapack_int const* ldv1t,
0227     float* V2T, lapack_int const* ldv2t,
0228     float* B11D,
0229     float* B11E,
0230     float* B12D,
0231     float* B12E,
0232     float* B21D,
0233     float* B21E,
0234     float* B22D,
0235     float* B22E,
0236     float* work, lapack_int const* lwork,
0237     lapack_int* info
0238 #ifdef LAPACK_FORTRAN_STRLEN_END
0239     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0240 #endif
0241 );
0242 #ifdef LAPACK_FORTRAN_STRLEN_END
0243     #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
0244 #else
0245     #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
0246 #endif
0247 
0248 #define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
0249 void LAPACK_zbbcsd_base(
0250     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
0251     lapack_int const* m, lapack_int const* p, lapack_int const* q,
0252     double* theta,
0253     double* phi,
0254     lapack_complex_double* U1, lapack_int const* ldu1,
0255     lapack_complex_double* U2, lapack_int const* ldu2,
0256     lapack_complex_double* V1T, lapack_int const* ldv1t,
0257     lapack_complex_double* V2T, lapack_int const* ldv2t,
0258     double* B11D,
0259     double* B11E,
0260     double* B12D,
0261     double* B12E,
0262     double* B21D,
0263     double* B21E,
0264     double* B22D,
0265     double* B22E,
0266     double* rwork, lapack_int const* lrwork,
0267     lapack_int* info
0268 #ifdef LAPACK_FORTRAN_STRLEN_END
0269     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0270 #endif
0271 );
0272 #ifdef LAPACK_FORTRAN_STRLEN_END
0273     #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
0274 #else
0275     #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
0276 #endif
0277 
0278 #define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
0279 void LAPACK_dbdsdc_base(
0280     char const* uplo, char const* compq,
0281     lapack_int const* n,
0282     double* D,
0283     double* E,
0284     double* U, lapack_int const* ldu,
0285     double* VT, lapack_int const* ldvt,
0286     double* Q, lapack_int* IQ,
0287     double* work,
0288     lapack_int* iwork,
0289     lapack_int* info
0290 #ifdef LAPACK_FORTRAN_STRLEN_END
0291     , FORTRAN_STRLEN, FORTRAN_STRLEN
0292 #endif
0293 );
0294 #ifdef LAPACK_FORTRAN_STRLEN_END
0295     #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
0296 #else
0297     #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
0298 #endif
0299 
0300 #define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
0301 void LAPACK_sbdsdc_base(
0302     char const* uplo, char const* compq,
0303     lapack_int const* n,
0304     float* D,
0305     float* E,
0306     float* U, lapack_int const* ldu,
0307     float* VT, lapack_int const* ldvt,
0308     float* Q, lapack_int* IQ,
0309     float* work,
0310     lapack_int* iwork,
0311     lapack_int* info
0312 #ifdef LAPACK_FORTRAN_STRLEN_END
0313     , FORTRAN_STRLEN, FORTRAN_STRLEN
0314 #endif
0315 );
0316 #ifdef LAPACK_FORTRAN_STRLEN_END
0317     #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
0318 #else
0319     #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
0320 #endif
0321 
0322 #define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
0323 void LAPACK_cbdsqr_base(
0324     char const* uplo,
0325     lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
0326     float* D,
0327     float* E,
0328     lapack_complex_float* VT, lapack_int const* ldvt,
0329     lapack_complex_float* U, lapack_int const* ldu,
0330     lapack_complex_float* C, lapack_int const* ldc,
0331     float* rwork,
0332     lapack_int* info
0333 #ifdef LAPACK_FORTRAN_STRLEN_END
0334     , FORTRAN_STRLEN
0335 #endif
0336 );
0337 #ifdef LAPACK_FORTRAN_STRLEN_END
0338     #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
0339 #else
0340     #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
0341 #endif
0342 
0343 #define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
0344 void LAPACK_dbdsqr_base(
0345     char const* uplo,
0346     lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
0347     double* D,
0348     double* E,
0349     double* VT, lapack_int const* ldvt,
0350     double* U, lapack_int const* ldu,
0351     double* C, lapack_int const* ldc,
0352     double* work,
0353     lapack_int* info
0354 #ifdef LAPACK_FORTRAN_STRLEN_END
0355     , FORTRAN_STRLEN
0356 #endif
0357 );
0358 #ifdef LAPACK_FORTRAN_STRLEN_END
0359     #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
0360 #else
0361     #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
0362 #endif
0363 
0364 #define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
0365 void LAPACK_sbdsqr_base(
0366     char const* uplo,
0367     lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
0368     float* D,
0369     float* E,
0370     float* VT, lapack_int const* ldvt,
0371     float* U, lapack_int const* ldu,
0372     float* C, lapack_int const* ldc,
0373     float* work,
0374     lapack_int* info
0375 #ifdef LAPACK_FORTRAN_STRLEN_END
0376     , FORTRAN_STRLEN
0377 #endif
0378 );
0379 #ifdef LAPACK_FORTRAN_STRLEN_END
0380     #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
0381 #else
0382     #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
0383 #endif
0384 
0385 #define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
0386 void LAPACK_zbdsqr_base(
0387     char const* uplo,
0388     lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
0389     double* D,
0390     double* E,
0391     lapack_complex_double* VT, lapack_int const* ldvt,
0392     lapack_complex_double* U, lapack_int const* ldu,
0393     lapack_complex_double* C, lapack_int const* ldc,
0394     double* rwork,
0395     lapack_int* info
0396 #ifdef LAPACK_FORTRAN_STRLEN_END
0397     , FORTRAN_STRLEN
0398 #endif
0399 );
0400 #ifdef LAPACK_FORTRAN_STRLEN_END
0401     #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
0402 #else
0403     #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
0404 #endif
0405 
0406 #define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
0407 void LAPACK_dbdsvdx_base(
0408     char const* uplo, char const* jobz, char const* range,
0409     lapack_int const* n,
0410     double const* D,
0411     double const* E,
0412     double const* vl,
0413     double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
0414     double* S,
0415     double* Z, lapack_int const* ldz,
0416     double* work,
0417     lapack_int* iwork,
0418     lapack_int* info
0419 #ifdef LAPACK_FORTRAN_STRLEN_END
0420     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0421 #endif
0422 );
0423 #ifdef LAPACK_FORTRAN_STRLEN_END
0424     #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
0425 #else
0426     #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
0427 #endif
0428 
0429 #define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
0430 void LAPACK_sbdsvdx_base(
0431     char const* uplo, char const* jobz, char const* range,
0432     lapack_int const* n,
0433     float const* D,
0434     float const* E,
0435     float const* vl,
0436     float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
0437     float* S,
0438     float* Z, lapack_int const* ldz,
0439     float* work,
0440     lapack_int* iwork,
0441     lapack_int* info
0442 #ifdef LAPACK_FORTRAN_STRLEN_END
0443     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0444 #endif
0445 );
0446 #ifdef LAPACK_FORTRAN_STRLEN_END
0447     #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
0448 #else
0449     #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
0450 #endif
0451 
0452 #define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
0453 void LAPACK_ddisna_base(
0454     char const* job,
0455     lapack_int const* m, lapack_int const* n,
0456     double const* D,
0457     double* SEP,
0458     lapack_int* info
0459 #ifdef LAPACK_FORTRAN_STRLEN_END
0460     , FORTRAN_STRLEN
0461 #endif
0462 );
0463 #ifdef LAPACK_FORTRAN_STRLEN_END
0464     #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
0465 #else
0466     #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
0467 #endif
0468 
0469 #define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
0470 void LAPACK_sdisna_base(
0471     char const* job,
0472     lapack_int const* m, lapack_int const* n,
0473     float const* D,
0474     float* SEP,
0475     lapack_int* info
0476 #ifdef LAPACK_FORTRAN_STRLEN_END
0477     , FORTRAN_STRLEN
0478 #endif
0479 );
0480 #ifdef LAPACK_FORTRAN_STRLEN_END
0481     #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
0482 #else
0483     #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
0484 #endif
0485 
0486 #define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
0487 void LAPACK_cgbbrd_base(
0488     char const* vect,
0489     lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
0490     lapack_complex_float* AB, lapack_int const* ldab,
0491     float* D,
0492     float* E,
0493     lapack_complex_float* Q, lapack_int const* ldq,
0494     lapack_complex_float* PT, lapack_int const* ldpt,
0495     lapack_complex_float* C, lapack_int const* ldc,
0496     lapack_complex_float* work,
0497     float* rwork,
0498     lapack_int* info
0499 #ifdef LAPACK_FORTRAN_STRLEN_END
0500     , FORTRAN_STRLEN
0501 #endif
0502 );
0503 #ifdef LAPACK_FORTRAN_STRLEN_END
0504     #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
0505 #else
0506     #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
0507 #endif
0508 
0509 #define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
0510 void LAPACK_dgbbrd_base(
0511     char const* vect,
0512     lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
0513     double* AB, lapack_int const* ldab,
0514     double* D,
0515     double* E,
0516     double* Q, lapack_int const* ldq,
0517     double* PT, lapack_int const* ldpt,
0518     double* C, lapack_int const* ldc,
0519     double* work,
0520     lapack_int* info
0521 #ifdef LAPACK_FORTRAN_STRLEN_END
0522     , FORTRAN_STRLEN
0523 #endif
0524 );
0525 #ifdef LAPACK_FORTRAN_STRLEN_END
0526     #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
0527 #else
0528     #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
0529 #endif
0530 
0531 #define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
0532 void LAPACK_sgbbrd_base(
0533     char const* vect,
0534     lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
0535     float* AB, lapack_int const* ldab,
0536     float* D,
0537     float* E,
0538     float* Q, lapack_int const* ldq,
0539     float* PT, lapack_int const* ldpt,
0540     float* C, lapack_int const* ldc,
0541     float* work,
0542     lapack_int* info
0543 #ifdef LAPACK_FORTRAN_STRLEN_END
0544     , FORTRAN_STRLEN
0545 #endif
0546 );
0547 #ifdef LAPACK_FORTRAN_STRLEN_END
0548     #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
0549 #else
0550     #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
0551 #endif
0552 
0553 #define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
0554 void LAPACK_zgbbrd_base(
0555     char const* vect,
0556     lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
0557     lapack_complex_double* AB, lapack_int const* ldab,
0558     double* D,
0559     double* E,
0560     lapack_complex_double* Q, lapack_int const* ldq,
0561     lapack_complex_double* PT, lapack_int const* ldpt,
0562     lapack_complex_double* C, lapack_int const* ldc,
0563     lapack_complex_double* work,
0564     double* rwork,
0565     lapack_int* info
0566 #ifdef LAPACK_FORTRAN_STRLEN_END
0567     , FORTRAN_STRLEN
0568 #endif
0569 );
0570 #ifdef LAPACK_FORTRAN_STRLEN_END
0571     #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
0572 #else
0573     #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
0574 #endif
0575 
0576 #define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
0577 void LAPACK_cgbcon_base(
0578     char const* norm,
0579     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0580     lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
0581     float const* anorm,
0582     float* rcond,
0583     lapack_complex_float* work,
0584     float* rwork,
0585     lapack_int* info
0586 #ifdef LAPACK_FORTRAN_STRLEN_END
0587     , FORTRAN_STRLEN
0588 #endif
0589 );
0590 #ifdef LAPACK_FORTRAN_STRLEN_END
0591     #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
0592 #else
0593     #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
0594 #endif
0595 
0596 #define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
0597 void LAPACK_dgbcon_base(
0598     char const* norm,
0599     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0600     double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
0601     double const* anorm,
0602     double* rcond,
0603     double* work,
0604     lapack_int* iwork,
0605     lapack_int* info
0606 #ifdef LAPACK_FORTRAN_STRLEN_END
0607     , FORTRAN_STRLEN
0608 #endif
0609 );
0610 #ifdef LAPACK_FORTRAN_STRLEN_END
0611     #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
0612 #else
0613     #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
0614 #endif
0615 
0616 #define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
0617 void LAPACK_sgbcon_base(
0618     char const* norm,
0619     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0620     float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
0621     float const* anorm,
0622     float* rcond,
0623     float* work,
0624     lapack_int* iwork,
0625     lapack_int* info
0626 #ifdef LAPACK_FORTRAN_STRLEN_END
0627     , FORTRAN_STRLEN
0628 #endif
0629 );
0630 #ifdef LAPACK_FORTRAN_STRLEN_END
0631     #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
0632 #else
0633     #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
0634 #endif
0635 
0636 #define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
0637 void LAPACK_zgbcon_base(
0638     char const* norm,
0639     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0640     lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
0641     double const* anorm,
0642     double* rcond,
0643     lapack_complex_double* work,
0644     double* rwork,
0645     lapack_int* info
0646 #ifdef LAPACK_FORTRAN_STRLEN_END
0647     , FORTRAN_STRLEN
0648 #endif
0649 );
0650 #ifdef LAPACK_FORTRAN_STRLEN_END
0651     #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
0652 #else
0653     #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
0654 #endif
0655 
0656 #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
0657 void LAPACK_cgbequ(
0658     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0659     lapack_complex_float const* AB, lapack_int const* ldab,
0660     float* R,
0661     float* C,
0662     float* rowcnd,
0663     float* colcnd,
0664     float* amax,
0665     lapack_int* info );
0666 
0667 #define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
0668 void LAPACK_dgbequ(
0669     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0670     double const* AB, lapack_int const* ldab,
0671     double* R,
0672     double* C,
0673     double* rowcnd,
0674     double* colcnd,
0675     double* amax,
0676     lapack_int* info );
0677 
0678 #define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
0679 void LAPACK_sgbequ(
0680     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0681     float const* AB, lapack_int const* ldab,
0682     float* R,
0683     float* C,
0684     float* rowcnd,
0685     float* colcnd,
0686     float* amax,
0687     lapack_int* info );
0688 
0689 #define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
0690 void LAPACK_zgbequ(
0691     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0692     lapack_complex_double const* AB, lapack_int const* ldab,
0693     double* R,
0694     double* C,
0695     double* rowcnd,
0696     double* colcnd,
0697     double* amax,
0698     lapack_int* info );
0699 
0700 #define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
0701 void LAPACK_cgbequb(
0702     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0703     lapack_complex_float const* AB, lapack_int const* ldab,
0704     float* R,
0705     float* C,
0706     float* rowcnd,
0707     float* colcnd,
0708     float* amax,
0709     lapack_int* info );
0710 
0711 #define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
0712 void LAPACK_dgbequb(
0713     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0714     double const* AB, lapack_int const* ldab,
0715     double* R,
0716     double* C,
0717     double* rowcnd,
0718     double* colcnd,
0719     double* amax,
0720     lapack_int* info );
0721 
0722 #define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
0723 void LAPACK_sgbequb(
0724     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0725     float const* AB, lapack_int const* ldab,
0726     float* R,
0727     float* C,
0728     float* rowcnd,
0729     float* colcnd,
0730     float* amax,
0731     lapack_int* info );
0732 
0733 #define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
0734 void LAPACK_zgbequb(
0735     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
0736     lapack_complex_double const* AB, lapack_int const* ldab,
0737     double* R,
0738     double* C,
0739     double* rowcnd,
0740     double* colcnd,
0741     double* amax,
0742     lapack_int* info );
0743 
0744 #define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
0745 void LAPACK_cgbrfs_base(
0746     char const* trans,
0747     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0748     lapack_complex_float const* AB, lapack_int const* ldab,
0749     lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0750     lapack_complex_float const* B, lapack_int const* ldb,
0751     lapack_complex_float* X, lapack_int const* ldx,
0752     float* ferr,
0753     float* berr,
0754     lapack_complex_float* work,
0755     float* rwork,
0756     lapack_int* info
0757 #ifdef LAPACK_FORTRAN_STRLEN_END
0758     , FORTRAN_STRLEN
0759 #endif
0760 );
0761 #ifdef LAPACK_FORTRAN_STRLEN_END
0762     #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
0763 #else
0764     #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
0765 #endif
0766 
0767 #define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
0768 void LAPACK_dgbrfs_base(
0769     char const* trans,
0770     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0771     double const* AB, lapack_int const* ldab,
0772     double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0773     double const* B, lapack_int const* ldb,
0774     double* X, lapack_int const* ldx,
0775     double* ferr,
0776     double* berr,
0777     double* work,
0778     lapack_int* iwork,
0779     lapack_int* info
0780 #ifdef LAPACK_FORTRAN_STRLEN_END
0781     , FORTRAN_STRLEN
0782 #endif
0783 );
0784 #ifdef LAPACK_FORTRAN_STRLEN_END
0785     #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
0786 #else
0787     #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
0788 #endif
0789 
0790 #define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
0791 void LAPACK_sgbrfs_base(
0792     char const* trans,
0793     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0794     float const* AB, lapack_int const* ldab,
0795     float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0796     float const* B, lapack_int const* ldb,
0797     float* X, lapack_int const* ldx,
0798     float* ferr,
0799     float* berr,
0800     float* work,
0801     lapack_int* iwork,
0802     lapack_int* info
0803 #ifdef LAPACK_FORTRAN_STRLEN_END
0804     , FORTRAN_STRLEN
0805 #endif
0806 );
0807 #ifdef LAPACK_FORTRAN_STRLEN_END
0808     #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
0809 #else
0810     #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
0811 #endif
0812 
0813 #define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
0814 void LAPACK_zgbrfs_base(
0815     char const* trans,
0816     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0817     lapack_complex_double const* AB, lapack_int const* ldab,
0818     lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0819     lapack_complex_double const* B, lapack_int const* ldb,
0820     lapack_complex_double* X, lapack_int const* ldx,
0821     double* ferr,
0822     double* berr,
0823     lapack_complex_double* work,
0824     double* rwork,
0825     lapack_int* info
0826 #ifdef LAPACK_FORTRAN_STRLEN_END
0827     , FORTRAN_STRLEN
0828 #endif
0829 );
0830 #ifdef LAPACK_FORTRAN_STRLEN_END
0831     #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
0832 #else
0833     #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
0834 #endif
0835 
0836 #define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
0837 void LAPACK_cgbrfsx_base(
0838     char const* trans, char const* equed,
0839     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0840     lapack_complex_float const* AB, lapack_int const* ldab,
0841     lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0842     const float* R,
0843     const float* C,
0844     lapack_complex_float const* B, lapack_int const* ldb,
0845     lapack_complex_float* X, lapack_int const* ldx,
0846     float* rcond,
0847     float* berr, lapack_int const* n_err_bnds,
0848     float* err_bnds_norm,
0849     float* err_bnds_comp, lapack_int const* nparams,
0850     float* params,
0851     lapack_complex_float* work,
0852     float* rwork,
0853     lapack_int* info
0854 #ifdef LAPACK_FORTRAN_STRLEN_END
0855     , FORTRAN_STRLEN, FORTRAN_STRLEN
0856 #endif
0857 );
0858 #ifdef LAPACK_FORTRAN_STRLEN_END
0859     #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
0860 #else
0861     #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
0862 #endif
0863 
0864 #define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
0865 void LAPACK_dgbrfsx_base(
0866     char const* trans, char const* equed,
0867     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0868     double const* AB, lapack_int const* ldab,
0869     double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0870     const double* R,
0871     const double* C,
0872     double const* B, lapack_int const* ldb,
0873     double* X, lapack_int const* ldx,
0874     double* rcond,
0875     double* berr, lapack_int const* n_err_bnds,
0876     double* err_bnds_norm,
0877     double* err_bnds_comp, lapack_int const* nparams,
0878     double* params,
0879     double* work,
0880     lapack_int* iwork,
0881     lapack_int* info
0882 #ifdef LAPACK_FORTRAN_STRLEN_END
0883     , FORTRAN_STRLEN, FORTRAN_STRLEN
0884 #endif
0885 );
0886 #ifdef LAPACK_FORTRAN_STRLEN_END
0887     #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
0888 #else
0889     #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
0890 #endif
0891 
0892 #define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
0893 void LAPACK_sgbrfsx_base(
0894     char const* trans, char const* equed,
0895     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0896     float const* AB, lapack_int const* ldab,
0897     float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0898     const float* R,
0899     const float* C,
0900     float const* B, lapack_int const* ldb,
0901     float* X, lapack_int const* ldx,
0902     float* rcond,
0903     float* berr, lapack_int const* n_err_bnds,
0904     float* err_bnds_norm,
0905     float* err_bnds_comp, lapack_int const* nparams,
0906     float* params,
0907     float* work,
0908     lapack_int* iwork,
0909     lapack_int* info
0910 #ifdef LAPACK_FORTRAN_STRLEN_END
0911     , FORTRAN_STRLEN, FORTRAN_STRLEN
0912 #endif
0913 );
0914 #ifdef LAPACK_FORTRAN_STRLEN_END
0915     #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
0916 #else
0917     #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
0918 #endif
0919 
0920 #define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
0921 void LAPACK_zgbrfsx_base(
0922     char const* trans, char const* equed,
0923     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0924     lapack_complex_double const* AB, lapack_int const* ldab,
0925     lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
0926     const double* R,
0927     const double* C,
0928     lapack_complex_double const* B, lapack_int const* ldb,
0929     lapack_complex_double* X, lapack_int const* ldx,
0930     double* rcond,
0931     double* berr, lapack_int const* n_err_bnds,
0932     double* err_bnds_norm,
0933     double* err_bnds_comp, lapack_int const* nparams,
0934     double* params,
0935     lapack_complex_double* work,
0936     double* rwork,
0937     lapack_int* info
0938 #ifdef LAPACK_FORTRAN_STRLEN_END
0939     , FORTRAN_STRLEN, FORTRAN_STRLEN
0940 #endif
0941 );
0942 #ifdef LAPACK_FORTRAN_STRLEN_END
0943     #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
0944 #else
0945     #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
0946 #endif
0947 
0948 #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
0949 void LAPACK_cgbsv(
0950     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0951     lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
0952     lapack_complex_float* B, lapack_int const* ldb,
0953     lapack_int* info );
0954 
0955 #define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
0956 void LAPACK_dgbsv(
0957     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0958     double* AB, lapack_int const* ldab, lapack_int* ipiv,
0959     double* B, lapack_int const* ldb,
0960     lapack_int* info );
0961 
0962 #define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
0963 void LAPACK_sgbsv(
0964     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0965     float* AB, lapack_int const* ldab, lapack_int* ipiv,
0966     float* B, lapack_int const* ldb,
0967     lapack_int* info );
0968 
0969 #define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
0970 void LAPACK_zgbsv(
0971     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0972     lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
0973     lapack_complex_double* B, lapack_int const* ldb,
0974     lapack_int* info );
0975 
0976 #define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
0977 void LAPACK_cgbsvx_base(
0978     char const* fact, char const* trans,
0979     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
0980     lapack_complex_float* AB, lapack_int const* ldab,
0981     lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
0982     float* R,
0983     float* C,
0984     lapack_complex_float* B,
0985     lapack_int const* ldb,
0986     lapack_complex_float* X, lapack_int const* ldx,
0987     float* rcond,
0988     float* ferr,
0989     float* berr,
0990     lapack_complex_float* work,
0991     float* rwork,
0992     lapack_int* info
0993 #ifdef LAPACK_FORTRAN_STRLEN_END
0994     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
0995 #endif
0996 );
0997 #ifdef LAPACK_FORTRAN_STRLEN_END
0998     #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
0999 #else
1000     #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
1001 #endif
1002 
1003 #define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
1004 void LAPACK_dgbsvx_base(
1005     char const* fact, char const* trans,
1006     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1007     double* AB, lapack_int const* ldab,
1008     double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1009     double* R,
1010     double* C,
1011     double* B,
1012     lapack_int const* ldb,
1013     double* X, lapack_int const* ldx,
1014     double* rcond,
1015     double* ferr,
1016     double* berr,
1017     double* work,
1018     lapack_int* iwork,
1019     lapack_int* info
1020 #ifdef LAPACK_FORTRAN_STRLEN_END
1021     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1022 #endif
1023 );
1024 #ifdef LAPACK_FORTRAN_STRLEN_END
1025     #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1026 #else
1027     #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1028 #endif
1029 
1030 #define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
1031 void LAPACK_sgbsvx_base(
1032     char const* fact, char const* trans,
1033     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1034     float* AB, lapack_int const* ldab,
1035     float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1036     float* R,
1037     float* C,
1038     float* B,
1039     lapack_int const* ldb,
1040     float* X, lapack_int const* ldx,
1041     float* rcond,
1042     float* ferr,
1043     float* berr,
1044     float* work,
1045     lapack_int* iwork,
1046     lapack_int* info
1047 #ifdef LAPACK_FORTRAN_STRLEN_END
1048     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1049 #endif
1050 );
1051 #ifdef LAPACK_FORTRAN_STRLEN_END
1052     #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1053 #else
1054     #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1055 #endif
1056 
1057 #define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
1058 void LAPACK_zgbsvx_base(
1059     char const* fact, char const* trans,
1060     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1061     lapack_complex_double* AB, lapack_int const* ldab,
1062     lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1063     double* R,
1064     double* C,
1065     lapack_complex_double* B,
1066     lapack_int const* ldb,
1067     lapack_complex_double* X, lapack_int const* ldx,
1068     double* rcond,
1069     double* ferr,
1070     double* berr,
1071     lapack_complex_double* work,
1072     double* rwork,
1073     lapack_int* info
1074 #ifdef LAPACK_FORTRAN_STRLEN_END
1075     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1076 #endif
1077 );
1078 #ifdef LAPACK_FORTRAN_STRLEN_END
1079     #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1080 #else
1081     #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1082 #endif
1083 
1084 #define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
1085 void LAPACK_cgbsvxx_base(
1086     char const* fact, char const* trans,
1087     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1088     lapack_complex_float* AB, lapack_int const* ldab,
1089     lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1090     float* R,
1091     float* C,
1092     lapack_complex_float* B,
1093     lapack_int const* ldb,
1094     lapack_complex_float* X, lapack_int const* ldx,
1095     float* rcond,
1096     float* rpvgrw,
1097     float* berr, lapack_int const* n_err_bnds,
1098     float* err_bnds_norm,
1099     float* err_bnds_comp, lapack_int const* nparams,
1100     float* params,
1101     lapack_complex_float* work,
1102     float* rwork,
1103     lapack_int* info
1104 #ifdef LAPACK_FORTRAN_STRLEN_END
1105     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1106 #endif
1107 );
1108 #ifdef LAPACK_FORTRAN_STRLEN_END
1109     #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1110 #else
1111     #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1112 #endif
1113 
1114 #define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
1115 void LAPACK_dgbsvxx_base(
1116     char const* fact, char const* trans,
1117     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1118     double* AB, lapack_int const* ldab,
1119     double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1120     double* R,
1121     double* C,
1122     double* B,
1123     lapack_int const* ldb,
1124     double* X, lapack_int const* ldx,
1125     double* rcond,
1126     double* rpvgrw,
1127     double* berr, lapack_int const* n_err_bnds,
1128     double* err_bnds_norm,
1129     double* err_bnds_comp, lapack_int const* nparams,
1130     double* params,
1131     double* work,
1132     lapack_int* iwork,
1133     lapack_int* info
1134 #ifdef LAPACK_FORTRAN_STRLEN_END
1135     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1136 #endif
1137 );
1138 #ifdef LAPACK_FORTRAN_STRLEN_END
1139     #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1140 #else
1141     #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1142 #endif
1143 
1144 #define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
1145 void LAPACK_sgbsvxx_base(
1146     char const* fact, char const* trans,
1147     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1148     float* AB, lapack_int const* ldab,
1149     float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1150     float* R,
1151     float* C,
1152     float* B,
1153     lapack_int const* ldb,
1154     float* X, lapack_int const* ldx,
1155     float* rcond,
1156     float* rpvgrw,
1157     float* berr, lapack_int const* n_err_bnds,
1158     float* err_bnds_norm,
1159     float* err_bnds_comp, lapack_int const* nparams,
1160     float* params,
1161     float* work,
1162     lapack_int* iwork,
1163     lapack_int* info
1164 #ifdef LAPACK_FORTRAN_STRLEN_END
1165     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1166 #endif
1167 );
1168 #ifdef LAPACK_FORTRAN_STRLEN_END
1169     #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1170 #else
1171     #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1172 #endif
1173 
1174 #define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
1175 void LAPACK_zgbsvxx_base(
1176     char const* fact, char const* trans,
1177     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1178     lapack_complex_double* AB, lapack_int const* ldab,
1179     lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1180     double* R,
1181     double* C,
1182     lapack_complex_double* B,
1183     lapack_int const* ldb,
1184     lapack_complex_double* X, lapack_int const* ldx,
1185     double* rcond,
1186     double* rpvgrw,
1187     double* berr, lapack_int const* n_err_bnds,
1188     double* err_bnds_norm,
1189     double* err_bnds_comp, lapack_int const* nparams,
1190     double* params,
1191     lapack_complex_double* work,
1192     double* rwork,
1193     lapack_int* info
1194 #ifdef LAPACK_FORTRAN_STRLEN_END
1195     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1196 #endif
1197 );
1198 #ifdef LAPACK_FORTRAN_STRLEN_END
1199     #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1200 #else
1201     #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1202 #endif
1203 
1204 #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1205 void LAPACK_cgbtrf(
1206     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1207     lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
1208     lapack_int* info );
1209 
1210 #define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1211 void LAPACK_dgbtrf(
1212     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1213     double* AB, lapack_int const* ldab, lapack_int* ipiv,
1214     lapack_int* info );
1215 
1216 #define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1217 void LAPACK_sgbtrf(
1218     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1219     float* AB, lapack_int const* ldab, lapack_int* ipiv,
1220     lapack_int* info );
1221 
1222 #define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1223 void LAPACK_zgbtrf(
1224     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1225     lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
1226     lapack_int* info );
1227 
1228 #define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1229 void LAPACK_cgbtrs_base(
1230     char const* trans,
1231     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1232     lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1233     lapack_complex_float* B, lapack_int const* ldb,
1234     lapack_int* info
1235 #ifdef LAPACK_FORTRAN_STRLEN_END
1236     , FORTRAN_STRLEN
1237 #endif
1238 );
1239 #ifdef LAPACK_FORTRAN_STRLEN_END
1240     #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1241 #else
1242     #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1243 #endif
1244 
1245 #define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1246 void LAPACK_dgbtrs_base(
1247     char const* trans,
1248     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1249     double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1250     double* B, lapack_int const* ldb,
1251     lapack_int* info
1252 #ifdef LAPACK_FORTRAN_STRLEN_END
1253     , FORTRAN_STRLEN
1254 #endif
1255 );
1256 #ifdef LAPACK_FORTRAN_STRLEN_END
1257     #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1258 #else
1259     #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1260 #endif
1261 
1262 #define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1263 void LAPACK_sgbtrs_base(
1264     char const* trans,
1265     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1266     float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1267     float* B, lapack_int const* ldb,
1268     lapack_int* info
1269 #ifdef LAPACK_FORTRAN_STRLEN_END
1270     , FORTRAN_STRLEN
1271 #endif
1272 );
1273 #ifdef LAPACK_FORTRAN_STRLEN_END
1274     #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1275 #else
1276     #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1277 #endif
1278 
1279 #define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1280 void LAPACK_zgbtrs_base(
1281     char const* trans,
1282     lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1283     lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1284     lapack_complex_double* B, lapack_int const* ldb,
1285     lapack_int* info
1286 #ifdef LAPACK_FORTRAN_STRLEN_END
1287     , FORTRAN_STRLEN
1288 #endif
1289 );
1290 #ifdef LAPACK_FORTRAN_STRLEN_END
1291     #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1292 #else
1293     #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1294 #endif
1295 
1296 #define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
1297 void LAPACK_cgebak_base(
1298     char const* job, char const* side,
1299     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1300     float const* scale, lapack_int const* m,
1301     lapack_complex_float* V, lapack_int const* ldv,
1302     lapack_int* info
1303 #ifdef LAPACK_FORTRAN_STRLEN_END
1304     , FORTRAN_STRLEN, FORTRAN_STRLEN
1305 #endif
1306 );
1307 #ifdef LAPACK_FORTRAN_STRLEN_END
1308     #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1309 #else
1310     #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1311 #endif
1312 
1313 #define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
1314 void LAPACK_dgebak_base(
1315     char const* job, char const* side,
1316     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1317     double const* scale, lapack_int const* m,
1318     double* V, lapack_int const* ldv,
1319     lapack_int* info
1320 #ifdef LAPACK_FORTRAN_STRLEN_END
1321     , FORTRAN_STRLEN, FORTRAN_STRLEN
1322 #endif
1323 );
1324 #ifdef LAPACK_FORTRAN_STRLEN_END
1325     #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1326 #else
1327     #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1328 #endif
1329 
1330 #define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
1331 void LAPACK_sgebak_base(
1332     char const* job, char const* side,
1333     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1334     float const* scale, lapack_int const* m,
1335     float* V, lapack_int const* ldv,
1336     lapack_int* info
1337 #ifdef LAPACK_FORTRAN_STRLEN_END
1338     , FORTRAN_STRLEN, FORTRAN_STRLEN
1339 #endif
1340 );
1341 #ifdef LAPACK_FORTRAN_STRLEN_END
1342     #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1343 #else
1344     #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1345 #endif
1346 
1347 #define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
1348 void LAPACK_zgebak_base(
1349     char const* job, char const* side,
1350     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1351     double const* scale, lapack_int const* m,
1352     lapack_complex_double* V, lapack_int const* ldv,
1353     lapack_int* info
1354 #ifdef LAPACK_FORTRAN_STRLEN_END
1355     , FORTRAN_STRLEN, FORTRAN_STRLEN
1356 #endif
1357 );
1358 #ifdef LAPACK_FORTRAN_STRLEN_END
1359     #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1360 #else
1361     #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1362 #endif
1363 
1364 #define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1365 void LAPACK_cgebal_base(
1366     char const* job,
1367     lapack_int const* n,
1368     lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1369     float* scale,
1370     lapack_int* info
1371 #ifdef LAPACK_FORTRAN_STRLEN_END
1372     , FORTRAN_STRLEN
1373 #endif
1374 );
1375 #ifdef LAPACK_FORTRAN_STRLEN_END
1376     #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1377 #else
1378     #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1379 #endif
1380 
1381 #define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1382 void LAPACK_dgebal_base(
1383     char const* job,
1384     lapack_int const* n,
1385     double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1386     double* scale,
1387     lapack_int* info
1388 #ifdef LAPACK_FORTRAN_STRLEN_END
1389     , FORTRAN_STRLEN
1390 #endif
1391 );
1392 #ifdef LAPACK_FORTRAN_STRLEN_END
1393     #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1394 #else
1395     #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1396 #endif
1397 
1398 #define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1399 void LAPACK_sgebal_base(
1400     char const* job,
1401     lapack_int const* n,
1402     float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1403     float* scale,
1404     lapack_int* info
1405 #ifdef LAPACK_FORTRAN_STRLEN_END
1406     , FORTRAN_STRLEN
1407 #endif
1408 );
1409 #ifdef LAPACK_FORTRAN_STRLEN_END
1410     #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1411 #else
1412     #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1413 #endif
1414 
1415 #define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1416 void LAPACK_zgebal_base(
1417     char const* job,
1418     lapack_int const* n,
1419     lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1420     double* scale,
1421     lapack_int* info
1422 #ifdef LAPACK_FORTRAN_STRLEN_END
1423     , FORTRAN_STRLEN
1424 #endif
1425 );
1426 #ifdef LAPACK_FORTRAN_STRLEN_END
1427     #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1428 #else
1429     #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1430 #endif
1431 
1432 #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1433 void LAPACK_cgebrd(
1434     lapack_int const* m, lapack_int const* n,
1435     lapack_complex_float* A, lapack_int const* lda,
1436     float* D,
1437     float* E,
1438     lapack_complex_float* tauq,
1439     lapack_complex_float* taup,
1440     lapack_complex_float* work, lapack_int const* lwork,
1441     lapack_int* info );
1442 
1443 #define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1444 void LAPACK_dgebrd(
1445     lapack_int const* m, lapack_int const* n,
1446     double* A, lapack_int const* lda,
1447     double* D,
1448     double* E,
1449     double* tauq,
1450     double* taup,
1451     double* work, lapack_int const* lwork,
1452     lapack_int* info );
1453 
1454 #define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1455 void LAPACK_sgebrd(
1456     lapack_int const* m, lapack_int const* n,
1457     float* A, lapack_int const* lda,
1458     float* D,
1459     float* E,
1460     float* tauq,
1461     float* taup,
1462     float* work, lapack_int const* lwork,
1463     lapack_int* info );
1464 
1465 #define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1466 void LAPACK_zgebrd(
1467     lapack_int const* m, lapack_int const* n,
1468     lapack_complex_double* A, lapack_int const* lda,
1469     double* D,
1470     double* E,
1471     lapack_complex_double* tauq,
1472     lapack_complex_double* taup,
1473     lapack_complex_double* work, lapack_int const* lwork,
1474     lapack_int* info );
1475 
1476 #define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1477 void LAPACK_cgecon_base(
1478     char const* norm,
1479     lapack_int const* n,
1480     lapack_complex_float const* A, lapack_int const* lda,
1481     float const* anorm,
1482     float* rcond,
1483     lapack_complex_float* work,
1484     float* rwork,
1485     lapack_int* info
1486 #ifdef LAPACK_FORTRAN_STRLEN_END
1487     , FORTRAN_STRLEN
1488 #endif
1489 );
1490 #ifdef LAPACK_FORTRAN_STRLEN_END
1491     #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1492 #else
1493     #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1494 #endif
1495 
1496 #define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1497 void LAPACK_dgecon_base(
1498     char const* norm,
1499     lapack_int const* n,
1500     double const* A, lapack_int const* lda,
1501     double const* anorm,
1502     double* rcond,
1503     double* work,
1504     lapack_int* iwork,
1505     lapack_int* info
1506 #ifdef LAPACK_FORTRAN_STRLEN_END
1507     , FORTRAN_STRLEN
1508 #endif
1509 );
1510 #ifdef LAPACK_FORTRAN_STRLEN_END
1511     #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1512 #else
1513     #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1514 #endif
1515 
1516 #define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1517 void LAPACK_sgecon_base(
1518     char const* norm,
1519     lapack_int const* n,
1520     float const* A, lapack_int const* lda,
1521     float const* anorm,
1522     float* rcond,
1523     float* work,
1524     lapack_int* iwork,
1525     lapack_int* info
1526 #ifdef LAPACK_FORTRAN_STRLEN_END
1527     , FORTRAN_STRLEN
1528 #endif
1529 );
1530 #ifdef LAPACK_FORTRAN_STRLEN_END
1531     #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1532 #else
1533     #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1534 #endif
1535 
1536 #define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1537 void LAPACK_zgecon_base(
1538     char const* norm,
1539     lapack_int const* n,
1540     lapack_complex_double const* A, lapack_int const* lda,
1541     double const* anorm,
1542     double* rcond,
1543     lapack_complex_double* work,
1544     double* rwork,
1545     lapack_int* info
1546 #ifdef LAPACK_FORTRAN_STRLEN_END
1547     , FORTRAN_STRLEN
1548 #endif
1549 );
1550 #ifdef LAPACK_FORTRAN_STRLEN_END
1551     #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1552 #else
1553     #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1554 #endif
1555 
1556 #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1557 void LAPACK_cgeequ(
1558     lapack_int const* m, lapack_int const* n,
1559     lapack_complex_float const* A, lapack_int const* lda,
1560     float* R,
1561     float* C,
1562     float* rowcnd,
1563     float* colcnd,
1564     float* amax,
1565     lapack_int* info );
1566 
1567 #define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1568 void LAPACK_dgeequ(
1569     lapack_int const* m, lapack_int const* n,
1570     double const* A, lapack_int const* lda,
1571     double* R,
1572     double* C,
1573     double* rowcnd,
1574     double* colcnd,
1575     double* amax,
1576     lapack_int* info );
1577 
1578 #define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1579 void LAPACK_sgeequ(
1580     lapack_int const* m, lapack_int const* n,
1581     float const* A, lapack_int const* lda,
1582     float* R,
1583     float* C,
1584     float* rowcnd,
1585     float* colcnd,
1586     float* amax,
1587     lapack_int* info );
1588 
1589 #define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1590 void LAPACK_zgeequ(
1591     lapack_int const* m, lapack_int const* n,
1592     lapack_complex_double const* A, lapack_int const* lda,
1593     double* R,
1594     double* C,
1595     double* rowcnd,
1596     double* colcnd,
1597     double* amax,
1598     lapack_int* info );
1599 
1600 #define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1601 void LAPACK_cgeequb(
1602     lapack_int const* m, lapack_int const* n,
1603     lapack_complex_float const* A, lapack_int const* lda,
1604     float* R,
1605     float* C,
1606     float* rowcnd,
1607     float* colcnd,
1608     float* amax,
1609     lapack_int* info );
1610 
1611 #define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1612 void LAPACK_dgeequb(
1613     lapack_int const* m, lapack_int const* n,
1614     double const* A, lapack_int const* lda,
1615     double* R,
1616     double* C,
1617     double* rowcnd,
1618     double* colcnd,
1619     double* amax,
1620     lapack_int* info );
1621 
1622 #define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1623 void LAPACK_sgeequb(
1624     lapack_int const* m, lapack_int const* n,
1625     float const* A, lapack_int const* lda,
1626     float* R,
1627     float* C,
1628     float* rowcnd,
1629     float* colcnd,
1630     float* amax,
1631     lapack_int* info );
1632 
1633 #define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1634 void LAPACK_zgeequb(
1635     lapack_int const* m, lapack_int const* n,
1636     lapack_complex_double const* A, lapack_int const* lda,
1637     double* R,
1638     double* C,
1639     double* rowcnd,
1640     double* colcnd,
1641     double* amax,
1642     lapack_int* info );
1643 
1644 #define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
1645 void LAPACK_cgees_base(
1646     char const* jobvs, char const* sort, LAPACK_C_SELECT1 select,
1647     lapack_int const* n,
1648     lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1649     lapack_complex_float* W,
1650     lapack_complex_float* VS, lapack_int const* ldvs,
1651     lapack_complex_float* work, lapack_int const* lwork,
1652     float* rwork, lapack_logical* BWORK,
1653     lapack_int* info
1654 #ifdef LAPACK_FORTRAN_STRLEN_END
1655     , FORTRAN_STRLEN, FORTRAN_STRLEN
1656 #endif
1657 );
1658 #ifdef LAPACK_FORTRAN_STRLEN_END
1659     #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1660 #else
1661     #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1662 #endif
1663 
1664 #define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
1665 void LAPACK_dgees_base(
1666     char const* jobvs, char const* sort, LAPACK_D_SELECT2 select,
1667     lapack_int const* n,
1668     double* A, lapack_int const* lda, lapack_int* sdim,
1669     double* WR,
1670     double* WI,
1671     double* VS, lapack_int const* ldvs,
1672     double* work, lapack_int const* lwork, lapack_logical* BWORK,
1673     lapack_int* info
1674 #ifdef LAPACK_FORTRAN_STRLEN_END
1675     , FORTRAN_STRLEN, FORTRAN_STRLEN
1676 #endif
1677 );
1678 #ifdef LAPACK_FORTRAN_STRLEN_END
1679     #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1680 #else
1681     #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1682 #endif
1683 
1684 #define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
1685 void LAPACK_sgees_base(
1686     char const* jobvs, char const* sort, LAPACK_S_SELECT2 select,
1687     lapack_int const* n,
1688     float* A, lapack_int const* lda, lapack_int* sdim,
1689     float* WR,
1690     float* WI,
1691     float* VS, lapack_int const* ldvs,
1692     float* work, lapack_int const* lwork, lapack_logical* BWORK,
1693     lapack_int* info
1694 #ifdef LAPACK_FORTRAN_STRLEN_END
1695     , FORTRAN_STRLEN, FORTRAN_STRLEN
1696 #endif
1697 );
1698 #ifdef LAPACK_FORTRAN_STRLEN_END
1699     #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1700 #else
1701     #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1702 #endif
1703 
1704 #define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
1705 void LAPACK_zgees_base(
1706     char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select,
1707     lapack_int const* n,
1708     lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1709     lapack_complex_double* W,
1710     lapack_complex_double* VS, lapack_int const* ldvs,
1711     lapack_complex_double* work, lapack_int const* lwork,
1712     double* rwork, lapack_logical* BWORK,
1713     lapack_int* info
1714 #ifdef LAPACK_FORTRAN_STRLEN_END
1715     , FORTRAN_STRLEN, FORTRAN_STRLEN
1716 #endif
1717 );
1718 #ifdef LAPACK_FORTRAN_STRLEN_END
1719     #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1720 #else
1721     #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1722 #endif
1723 
1724 #define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
1725 void LAPACK_cgeesx_base(
1726     char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense,
1727     lapack_int const* n,
1728     lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1729     lapack_complex_float* W,
1730     lapack_complex_float* VS, lapack_int const* ldvs,
1731     float* rconde,
1732     float* rcondv,
1733     lapack_complex_float* work, lapack_int const* lwork,
1734     float* rwork, lapack_logical* BWORK,
1735     lapack_int* info
1736 #ifdef LAPACK_FORTRAN_STRLEN_END
1737     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1738 #endif
1739 );
1740 #ifdef LAPACK_FORTRAN_STRLEN_END
1741     #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1742 #else
1743     #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1744 #endif
1745 
1746 #define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
1747 void LAPACK_dgeesx_base(
1748     char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense,
1749     lapack_int const* n,
1750     double* A, lapack_int const* lda, lapack_int* sdim,
1751     double* WR,
1752     double* WI,
1753     double* VS, lapack_int const* ldvs,
1754     double* rconde,
1755     double* rcondv,
1756     double* work, lapack_int const* lwork,
1757     lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1758     lapack_int* info
1759 #ifdef LAPACK_FORTRAN_STRLEN_END
1760     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1761 #endif
1762 );
1763 #ifdef LAPACK_FORTRAN_STRLEN_END
1764     #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1765 #else
1766     #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1767 #endif
1768 
1769 #define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
1770 void LAPACK_sgeesx_base(
1771     char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense,
1772     lapack_int const* n,
1773     float* A, lapack_int const* lda, lapack_int* sdim,
1774     float* WR,
1775     float* WI,
1776     float* VS, lapack_int const* ldvs,
1777     float* rconde,
1778     float* rcondv,
1779     float* work, lapack_int const* lwork,
1780     lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1781     lapack_int* info
1782 #ifdef LAPACK_FORTRAN_STRLEN_END
1783     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1784 #endif
1785 );
1786 #ifdef LAPACK_FORTRAN_STRLEN_END
1787     #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1788 #else
1789     #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1790 #endif
1791 
1792 #define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
1793 void LAPACK_zgeesx_base(
1794     char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense,
1795     lapack_int const* n,
1796     lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1797     lapack_complex_double* W,
1798     lapack_complex_double* VS, lapack_int const* ldvs,
1799     double* rconde,
1800     double* rcondv,
1801     lapack_complex_double* work, lapack_int const* lwork,
1802     double* rwork, lapack_logical* BWORK,
1803     lapack_int* info
1804 #ifdef LAPACK_FORTRAN_STRLEN_END
1805     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1806 #endif
1807 );
1808 #ifdef LAPACK_FORTRAN_STRLEN_END
1809     #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1810 #else
1811     #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1812 #endif
1813 
1814 #define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
1815 void LAPACK_cgeev_base(
1816     char const* jobvl, char const* jobvr,
1817     lapack_int const* n,
1818     lapack_complex_float* A, lapack_int const* lda,
1819     lapack_complex_float* W,
1820     lapack_complex_float* VL, lapack_int const* ldvl,
1821     lapack_complex_float* VR, lapack_int const* ldvr,
1822     lapack_complex_float* work, lapack_int const* lwork,
1823     float* rwork,
1824     lapack_int* info
1825 #ifdef LAPACK_FORTRAN_STRLEN_END
1826     , FORTRAN_STRLEN, FORTRAN_STRLEN
1827 #endif
1828 );
1829 #ifdef LAPACK_FORTRAN_STRLEN_END
1830     #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1831 #else
1832     #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1833 #endif
1834 
1835 #define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1836 void LAPACK_dgeev_base(
1837     char const* jobvl, char const* jobvr,
1838     lapack_int const* n,
1839     double* A, lapack_int const* lda,
1840     double* WR,
1841     double* WI,
1842     double* VL, lapack_int const* ldvl,
1843     double* VR, lapack_int const* ldvr,
1844     double* work, lapack_int const* lwork,
1845     lapack_int* info
1846 #ifdef LAPACK_FORTRAN_STRLEN_END
1847     , FORTRAN_STRLEN, FORTRAN_STRLEN
1848 #endif
1849 );
1850 #ifdef LAPACK_FORTRAN_STRLEN_END
1851     #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1852 #else
1853     #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1854 #endif
1855 
1856 #define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1857 void LAPACK_sgeev_base(
1858     char const* jobvl, char const* jobvr,
1859     lapack_int const* n,
1860     float* A, lapack_int const* lda,
1861     float* WR,
1862     float* WI,
1863     float* VL, lapack_int const* ldvl,
1864     float* VR, lapack_int const* ldvr,
1865     float* work, lapack_int const* lwork,
1866     lapack_int* info
1867 #ifdef LAPACK_FORTRAN_STRLEN_END
1868     , FORTRAN_STRLEN, FORTRAN_STRLEN
1869 #endif
1870 );
1871 #ifdef LAPACK_FORTRAN_STRLEN_END
1872     #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1873 #else
1874     #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1875 #endif
1876 
1877 #define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
1878 void LAPACK_zgeev_base(
1879     char const* jobvl, char const* jobvr,
1880     lapack_int const* n,
1881     lapack_complex_double* A, lapack_int const* lda,
1882     lapack_complex_double* W,
1883     lapack_complex_double* VL, lapack_int const* ldvl,
1884     lapack_complex_double* VR, lapack_int const* ldvr,
1885     lapack_complex_double* work, lapack_int const* lwork,
1886     double* rwork,
1887     lapack_int* info
1888 #ifdef LAPACK_FORTRAN_STRLEN_END
1889     , FORTRAN_STRLEN, FORTRAN_STRLEN
1890 #endif
1891 );
1892 #ifdef LAPACK_FORTRAN_STRLEN_END
1893     #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1894 #else
1895     #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1896 #endif
1897 
1898 #define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
1899 void LAPACK_cgeevx_base(
1900     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1901     lapack_int const* n,
1902     lapack_complex_float* A, lapack_int const* lda,
1903     lapack_complex_float* W,
1904     lapack_complex_float* VL, lapack_int const* ldvl,
1905     lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1906     float* scale,
1907     float* abnrm,
1908     float* rconde,
1909     float* rcondv,
1910     lapack_complex_float* work, lapack_int const* lwork,
1911     float* rwork,
1912     lapack_int* info
1913 #ifdef LAPACK_FORTRAN_STRLEN_END
1914     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1915 #endif
1916 );
1917 #ifdef LAPACK_FORTRAN_STRLEN_END
1918     #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1919 #else
1920     #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1921 #endif
1922 
1923 #define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
1924 void LAPACK_dgeevx_base(
1925     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1926     lapack_int const* n,
1927     double* A, lapack_int const* lda,
1928     double* WR,
1929     double* WI,
1930     double* VL, lapack_int const* ldvl,
1931     double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1932     double* scale,
1933     double* abnrm,
1934     double* rconde,
1935     double* rcondv,
1936     double* work, lapack_int const* lwork,
1937     lapack_int* iwork,
1938     lapack_int* info
1939 #ifdef LAPACK_FORTRAN_STRLEN_END
1940     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1941 #endif
1942 );
1943 #ifdef LAPACK_FORTRAN_STRLEN_END
1944     #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1945 #else
1946     #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1947 #endif
1948 
1949 #define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
1950 void LAPACK_sgeevx_base(
1951     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1952     lapack_int const* n,
1953     float* A, lapack_int const* lda,
1954     float* WR,
1955     float* WI,
1956     float* VL, lapack_int const* ldvl,
1957     float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1958     float* scale,
1959     float* abnrm,
1960     float* rconde,
1961     float* rcondv,
1962     float* work, lapack_int const* lwork,
1963     lapack_int* iwork,
1964     lapack_int* info
1965 #ifdef LAPACK_FORTRAN_STRLEN_END
1966     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1967 #endif
1968 );
1969 #ifdef LAPACK_FORTRAN_STRLEN_END
1970     #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1971 #else
1972     #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1973 #endif
1974 
1975 #define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
1976 void LAPACK_zgeevx_base(
1977     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1978     lapack_int const* n,
1979     lapack_complex_double* A, lapack_int const* lda,
1980     lapack_complex_double* W,
1981     lapack_complex_double* VL, lapack_int const* ldvl,
1982     lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1983     double* scale,
1984     double* abnrm,
1985     double* rconde,
1986     double* rcondv,
1987     lapack_complex_double* work, lapack_int const* lwork,
1988     double* rwork,
1989     lapack_int* info
1990 #ifdef LAPACK_FORTRAN_STRLEN_END
1991     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
1992 #endif
1993 );
1994 #ifdef LAPACK_FORTRAN_STRLEN_END
1995     #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1996 #else
1997     #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1998 #endif
1999 
2000 #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
2001 void LAPACK_cgehrd(
2002     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2003     lapack_complex_float* A, lapack_int const* lda,
2004     lapack_complex_float* tau,
2005     lapack_complex_float* work, lapack_int const* lwork,
2006     lapack_int* info );
2007 
2008 #define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
2009 void LAPACK_dgehrd(
2010     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2011     double* A, lapack_int const* lda,
2012     double* tau,
2013     double* work, lapack_int const* lwork,
2014     lapack_int* info );
2015 
2016 #define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
2017 void LAPACK_sgehrd(
2018     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2019     float* A, lapack_int const* lda,
2020     float* tau,
2021     float* work, lapack_int const* lwork,
2022     lapack_int* info );
2023 
2024 #define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2025 void LAPACK_zgehrd(
2026     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2027     lapack_complex_double* A, lapack_int const* lda,
2028     lapack_complex_double* tau,
2029     lapack_complex_double* work, lapack_int const* lwork,
2030     lapack_int* info );
2031 
2032 #define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
2033 void LAPACK_cgejsv_base(
2034     char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2035     lapack_int const* m, lapack_int const* n,
2036     lapack_complex_float* A, lapack_int const* lda,
2037     float* SVA,
2038     lapack_complex_float* U, lapack_int const* ldu,
2039     lapack_complex_float* V, lapack_int const* ldv,
2040     lapack_complex_float* cwork, lapack_int const* lwork,
2041     float* rwork, lapack_int const* lrwork,
2042     lapack_int* iwork,
2043     lapack_int* info
2044 #ifdef LAPACK_FORTRAN_STRLEN_END
2045     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
2046 #endif
2047 );
2048 #ifdef LAPACK_FORTRAN_STRLEN_END
2049     #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2050 #else
2051     #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2052 #endif
2053 
2054 #define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
2055 void LAPACK_dgejsv_base(
2056     char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2057     lapack_int const* m, lapack_int const* n,
2058     double* A, lapack_int const* lda,
2059     double* SVA,
2060     double* U, lapack_int const* ldu,
2061     double* V, lapack_int const* ldv,
2062     double* work, lapack_int const* lwork,
2063     lapack_int* iwork,
2064     lapack_int* info
2065 #ifdef LAPACK_FORTRAN_STRLEN_END
2066     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
2067 #endif
2068 );
2069 #ifdef LAPACK_FORTRAN_STRLEN_END
2070     #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2071 #else
2072     #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2073 #endif
2074 
2075 #define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
2076 void LAPACK_sgejsv_base(
2077     char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2078     lapack_int const* m, lapack_int const* n,
2079     float* A, lapack_int const* lda,
2080     float* SVA,
2081     float* U, lapack_int const* ldu,
2082     float* V, lapack_int const* ldv,
2083     float* work, lapack_int const* lwork,
2084     lapack_int* iwork,
2085     lapack_int* info
2086 #ifdef LAPACK_FORTRAN_STRLEN_END
2087     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
2088 #endif
2089 );
2090 #ifdef LAPACK_FORTRAN_STRLEN_END
2091     #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2092 #else
2093     #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2094 #endif
2095 
2096 #define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
2097 void LAPACK_zgejsv_base(
2098     char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2099     lapack_int const* m, lapack_int const* n,
2100     lapack_complex_double* A, lapack_int const* lda,
2101     double* SVA,
2102     lapack_complex_double* U, lapack_int const* ldu,
2103     lapack_complex_double* V, lapack_int const* ldv,
2104     lapack_complex_double* cwork, lapack_int const* lwork,
2105     double* rwork, lapack_int const* lrwork,
2106     lapack_int* iwork,
2107     lapack_int* info
2108 #ifdef LAPACK_FORTRAN_STRLEN_END
2109     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
2110 #endif
2111 );
2112 #ifdef LAPACK_FORTRAN_STRLEN_END
2113     #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2114 #else
2115     #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2116 #endif
2117 
2118 #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2119 void LAPACK_cgelq(
2120     lapack_int const* m, lapack_int const* n,
2121     lapack_complex_float* A, lapack_int const* lda,
2122     lapack_complex_float* T, lapack_int const* tsize,
2123     lapack_complex_float* work, lapack_int const* lwork,
2124     lapack_int* info );
2125 
2126 #define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2127 void LAPACK_dgelq(
2128     lapack_int const* m, lapack_int const* n,
2129     double* A, lapack_int const* lda,
2130     double* T, lapack_int const* tsize,
2131     double* work, lapack_int const* lwork,
2132     lapack_int* info );
2133 
2134 #define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2135 void LAPACK_sgelq(
2136     lapack_int const* m, lapack_int const* n,
2137     float* A, lapack_int const* lda,
2138     float* T, lapack_int const* tsize,
2139     float* work, lapack_int const* lwork,
2140     lapack_int* info );
2141 
2142 #define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2143 void LAPACK_zgelq(
2144     lapack_int const* m, lapack_int const* n,
2145     lapack_complex_double* A, lapack_int const* lda,
2146     lapack_complex_double* T, lapack_int const* tsize,
2147     lapack_complex_double* work, lapack_int const* lwork,
2148     lapack_int* info );
2149 
2150 #define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2151 void LAPACK_cgelq2(
2152     lapack_int const* m, lapack_int const* n,
2153     lapack_complex_float* A, lapack_int const* lda,
2154     lapack_complex_float* tau,
2155     lapack_complex_float* work,
2156     lapack_int* info );
2157 
2158 #define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2159 void LAPACK_dgelq2(
2160     lapack_int const* m, lapack_int const* n,
2161     double* A, lapack_int const* lda,
2162     double* tau,
2163     double* work,
2164     lapack_int* info );
2165 
2166 #define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2167 void LAPACK_sgelq2(
2168     lapack_int const* m, lapack_int const* n,
2169     float* A, lapack_int const* lda,
2170     float* tau,
2171     float* work,
2172     lapack_int* info );
2173 
2174 #define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2175 void LAPACK_zgelq2(
2176     lapack_int const* m, lapack_int const* n,
2177     lapack_complex_double* A, lapack_int const* lda,
2178     lapack_complex_double* tau,
2179     lapack_complex_double* work,
2180     lapack_int* info );
2181 
2182 #define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2183 void LAPACK_cgelqf(
2184     lapack_int const* m, lapack_int const* n,
2185     lapack_complex_float* A, lapack_int const* lda,
2186     lapack_complex_float* tau,
2187     lapack_complex_float* work, lapack_int const* lwork,
2188     lapack_int* info );
2189 
2190 #define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2191 void LAPACK_dgelqf(
2192     lapack_int const* m, lapack_int const* n,
2193     double* A, lapack_int const* lda,
2194     double* tau,
2195     double* work, lapack_int const* lwork,
2196     lapack_int* info );
2197 
2198 #define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2199 void LAPACK_sgelqf(
2200     lapack_int const* m, lapack_int const* n,
2201     float* A, lapack_int const* lda,
2202     float* tau,
2203     float* work, lapack_int const* lwork,
2204     lapack_int* info );
2205 
2206 #define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2207 void LAPACK_zgelqf(
2208     lapack_int const* m, lapack_int const* n,
2209     lapack_complex_double* A, lapack_int const* lda,
2210     lapack_complex_double* tau,
2211     lapack_complex_double* work, lapack_int const* lwork,
2212     lapack_int* info );
2213 
2214 #define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2215 void LAPACK_cgels_base(
2216     char const* trans,
2217     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2218     lapack_complex_float* A, lapack_int const* lda,
2219     lapack_complex_float* B, lapack_int const* ldb,
2220     lapack_complex_float* work, lapack_int const* lwork,
2221     lapack_int* info
2222 #ifdef LAPACK_FORTRAN_STRLEN_END
2223     , FORTRAN_STRLEN
2224 #endif
2225 );
2226 #ifdef LAPACK_FORTRAN_STRLEN_END
2227     #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2228 #else
2229     #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2230 #endif
2231 
2232 #define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2233 void LAPACK_dgels_base(
2234     char const* trans,
2235     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2236     double* A, lapack_int const* lda,
2237     double* B, lapack_int const* ldb,
2238     double* work, lapack_int const* lwork,
2239     lapack_int* info
2240 #ifdef LAPACK_FORTRAN_STRLEN_END
2241     , FORTRAN_STRLEN
2242 #endif
2243 );
2244 #ifdef LAPACK_FORTRAN_STRLEN_END
2245     #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2246 #else
2247     #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2248 #endif
2249 
2250 #define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2251 void LAPACK_sgels_base(
2252     char const* trans,
2253     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2254     float* A, lapack_int const* lda,
2255     float* B, lapack_int const* ldb,
2256     float* work, lapack_int const* lwork,
2257     lapack_int* info
2258 #ifdef LAPACK_FORTRAN_STRLEN_END
2259     , FORTRAN_STRLEN
2260 #endif
2261 );
2262 #ifdef LAPACK_FORTRAN_STRLEN_END
2263     #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2264 #else
2265     #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2266 #endif
2267 
2268 #define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2269 void LAPACK_zgels_base(
2270     char const* trans,
2271     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2272     lapack_complex_double* A, lapack_int const* lda,
2273     lapack_complex_double* B, lapack_int const* ldb,
2274     lapack_complex_double* work, lapack_int const* lwork,
2275     lapack_int* info
2276 #ifdef LAPACK_FORTRAN_STRLEN_END
2277     , FORTRAN_STRLEN
2278 #endif
2279 );
2280 #ifdef LAPACK_FORTRAN_STRLEN_END
2281     #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2282 #else
2283     #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2284 #endif
2285 
2286 #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2287 void LAPACK_cgelsd(
2288     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2289     lapack_complex_float* A, lapack_int const* lda,
2290     lapack_complex_float* B, lapack_int const* ldb,
2291     float* S,
2292     float const* rcond, lapack_int* rank,
2293     lapack_complex_float* work, lapack_int const* lwork,
2294     float* rwork,
2295     lapack_int* iwork,
2296     lapack_int* info );
2297 
2298 #define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2299 void LAPACK_dgelsd(
2300     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2301     double* A, lapack_int const* lda,
2302     double* B, lapack_int const* ldb,
2303     double* S,
2304     double const* rcond, lapack_int* rank,
2305     double* work, lapack_int const* lwork,
2306     lapack_int* iwork,
2307     lapack_int* info );
2308 
2309 #define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2310 void LAPACK_sgelsd(
2311     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2312     float* A, lapack_int const* lda,
2313     float* B, lapack_int const* ldb,
2314     float* S,
2315     float const* rcond, lapack_int* rank,
2316     float* work, lapack_int const* lwork,
2317     lapack_int* iwork,
2318     lapack_int* info );
2319 
2320 #define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2321 void LAPACK_zgelsd(
2322     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2323     lapack_complex_double* A, lapack_int const* lda,
2324     lapack_complex_double* B, lapack_int const* ldb,
2325     double* S,
2326     double const* rcond, lapack_int* rank,
2327     lapack_complex_double* work, lapack_int const* lwork,
2328     double* rwork,
2329     lapack_int* iwork,
2330     lapack_int* info );
2331 
2332 #define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2333 void LAPACK_cgelss(
2334     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2335     lapack_complex_float* A, lapack_int const* lda,
2336     lapack_complex_float* B, lapack_int const* ldb,
2337     float* S,
2338     float const* rcond, lapack_int* rank,
2339     lapack_complex_float* work, lapack_int const* lwork,
2340     float* rwork,
2341     lapack_int* info );
2342 
2343 #define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2344 void LAPACK_dgelss(
2345     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2346     double* A, lapack_int const* lda,
2347     double* B, lapack_int const* ldb,
2348     double* S,
2349     double const* rcond, lapack_int* rank,
2350     double* work, lapack_int const* lwork,
2351     lapack_int* info );
2352 
2353 #define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2354 void LAPACK_sgelss(
2355     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2356     float* A, lapack_int const* lda,
2357     float* B, lapack_int const* ldb,
2358     float* S,
2359     float const* rcond, lapack_int* rank,
2360     float* work, lapack_int const* lwork,
2361     lapack_int* info );
2362 
2363 #define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2364 void LAPACK_zgelss(
2365     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2366     lapack_complex_double* A, lapack_int const* lda,
2367     lapack_complex_double* B, lapack_int const* ldb,
2368     double* S,
2369     double const* rcond, lapack_int* rank,
2370     lapack_complex_double* work, lapack_int const* lwork,
2371     double* rwork,
2372     lapack_int* info );
2373 
2374 #define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2375 void LAPACK_cgelsy(
2376     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2377     lapack_complex_float* A, lapack_int const* lda,
2378     lapack_complex_float* B, lapack_int const* ldb, lapack_int* JPVT,
2379     float const* rcond, lapack_int* rank,
2380     lapack_complex_float* work, lapack_int const* lwork,
2381     float* rwork,
2382     lapack_int* info );
2383 
2384 #define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2385 void LAPACK_dgelsy(
2386     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2387     double* A, lapack_int const* lda,
2388     double* B, lapack_int const* ldb, lapack_int* JPVT,
2389     double const* rcond, lapack_int* rank,
2390     double* work, lapack_int const* lwork,
2391     lapack_int* info );
2392 
2393 #define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2394 void LAPACK_sgelsy(
2395     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2396     float* A, lapack_int const* lda,
2397     float* B, lapack_int const* ldb, lapack_int* JPVT,
2398     float const* rcond, lapack_int* rank,
2399     float* work, lapack_int const* lwork,
2400     lapack_int* info );
2401 
2402 #define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2403 void LAPACK_zgelsy(
2404     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2405     lapack_complex_double* A, lapack_int const* lda,
2406     lapack_complex_double* B, lapack_int const* ldb, lapack_int* JPVT,
2407     double const* rcond, lapack_int* rank,
2408     lapack_complex_double* work, lapack_int const* lwork,
2409     double* rwork,
2410     lapack_int* info );
2411 
2412 #define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
2413 void LAPACK_cgemlq_base(
2414     char const* side, char const* trans,
2415     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2416     lapack_complex_float const* A, lapack_int const* lda,
2417     lapack_complex_float const* T, lapack_int const* tsize,
2418     lapack_complex_float* C, lapack_int const* ldc,
2419     lapack_complex_float* work, lapack_int const* lwork,
2420     lapack_int* info
2421 #ifdef LAPACK_FORTRAN_STRLEN_END
2422     , FORTRAN_STRLEN, FORTRAN_STRLEN
2423 #endif
2424 );
2425 #ifdef LAPACK_FORTRAN_STRLEN_END
2426     #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2427 #else
2428     #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2429 #endif
2430 
2431 #define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
2432 void LAPACK_dgemlq_base(
2433     char const* side, char const* trans,
2434     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2435     double const* A, lapack_int const* lda,
2436     double const* T, lapack_int const* tsize,
2437     double* C, lapack_int const* ldc,
2438     double* work, lapack_int const* lwork,
2439     lapack_int* info
2440 #ifdef LAPACK_FORTRAN_STRLEN_END
2441     , FORTRAN_STRLEN, FORTRAN_STRLEN
2442 #endif
2443 );
2444 #ifdef LAPACK_FORTRAN_STRLEN_END
2445     #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2446 #else
2447     #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2448 #endif
2449 
2450 #define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
2451 void LAPACK_sgemlq_base(
2452     char const* side, char const* trans,
2453     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2454     float const* A, lapack_int const* lda,
2455     float const* T, lapack_int const* tsize,
2456     float* C, lapack_int const* ldc,
2457     float* work, lapack_int const* lwork,
2458     lapack_int* info
2459 #ifdef LAPACK_FORTRAN_STRLEN_END
2460     , FORTRAN_STRLEN, FORTRAN_STRLEN
2461 #endif
2462 );
2463 #ifdef LAPACK_FORTRAN_STRLEN_END
2464     #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2465 #else
2466     #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2467 #endif
2468 
2469 #define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
2470 void LAPACK_zgemlq_base(
2471     char const* side, char const* trans,
2472     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2473     lapack_complex_double const* A, lapack_int const* lda,
2474     lapack_complex_double const* T, lapack_int const* tsize,
2475     lapack_complex_double* C, lapack_int const* ldc,
2476     lapack_complex_double* work, lapack_int const* lwork,
2477     lapack_int* info
2478 #ifdef LAPACK_FORTRAN_STRLEN_END
2479     , FORTRAN_STRLEN, FORTRAN_STRLEN
2480 #endif
2481 );
2482 #ifdef LAPACK_FORTRAN_STRLEN_END
2483     #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2484 #else
2485     #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2486 #endif
2487 
2488 #define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
2489 void LAPACK_cgemqr_base(
2490     char const* side, char const* trans,
2491     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2492     lapack_complex_float const* A, lapack_int const* lda,
2493     lapack_complex_float const* T, lapack_int const* tsize,
2494     lapack_complex_float* C, lapack_int const* ldc,
2495     lapack_complex_float* work, lapack_int const* lwork,
2496     lapack_int* info
2497 #ifdef LAPACK_FORTRAN_STRLEN_END
2498     , FORTRAN_STRLEN, FORTRAN_STRLEN
2499 #endif
2500 );
2501 #ifdef LAPACK_FORTRAN_STRLEN_END
2502     #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2503 #else
2504     #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2505 #endif
2506 
2507 #define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
2508 void LAPACK_dgemqr_base(
2509     char const* side, char const* trans,
2510     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2511     double const* A, lapack_int const* lda,
2512     double const* T, lapack_int const* tsize,
2513     double* C, lapack_int const* ldc,
2514     double* work, lapack_int const* lwork,
2515     lapack_int* info
2516 #ifdef LAPACK_FORTRAN_STRLEN_END
2517     , FORTRAN_STRLEN, FORTRAN_STRLEN
2518 #endif
2519 );
2520 #ifdef LAPACK_FORTRAN_STRLEN_END
2521     #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2522 #else
2523     #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2524 #endif
2525 
2526 #define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
2527 void LAPACK_sgemqr_base(
2528     char const* side, char const* trans,
2529     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2530     float const* A, lapack_int const* lda,
2531     float const* T, lapack_int const* tsize,
2532     float* C, lapack_int const* ldc,
2533     float* work, lapack_int const* lwork,
2534     lapack_int* info
2535 #ifdef LAPACK_FORTRAN_STRLEN_END
2536     , FORTRAN_STRLEN, FORTRAN_STRLEN
2537 #endif
2538 );
2539 #ifdef LAPACK_FORTRAN_STRLEN_END
2540     #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2541 #else
2542     #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2543 #endif
2544 
2545 #define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
2546 void LAPACK_zgemqr_base(
2547     char const* side, char const* trans,
2548     lapack_int const* m, lapack_int const* n, lapack_int const* k,
2549     lapack_complex_double const* A, lapack_int const* lda,
2550     lapack_complex_double const* T, lapack_int const* tsize,
2551     lapack_complex_double* C, lapack_int const* ldc,
2552     lapack_complex_double* work, lapack_int const* lwork,
2553     lapack_int* info
2554 #ifdef LAPACK_FORTRAN_STRLEN_END
2555     , FORTRAN_STRLEN, FORTRAN_STRLEN
2556 #endif
2557 );
2558 #ifdef LAPACK_FORTRAN_STRLEN_END
2559     #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2560 #else
2561     #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2562 #endif
2563 
2564 #define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
2565 void LAPACK_cgemqrt_base(
2566     char const* side, char const* trans,
2567     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2568     lapack_complex_float const* V, lapack_int const* ldv,
2569     lapack_complex_float const* T, lapack_int const* ldt,
2570     lapack_complex_float* C, lapack_int const* ldc,
2571     lapack_complex_float* work,
2572     lapack_int* info
2573 #ifdef LAPACK_FORTRAN_STRLEN_END
2574     , FORTRAN_STRLEN, FORTRAN_STRLEN
2575 #endif
2576 );
2577 #ifdef LAPACK_FORTRAN_STRLEN_END
2578     #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2579 #else
2580     #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2581 #endif
2582 
2583 #define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
2584 void LAPACK_dgemqrt_base(
2585     char const* side, char const* trans,
2586     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2587     double const* V, lapack_int const* ldv,
2588     double const* T, lapack_int const* ldt,
2589     double* C, lapack_int const* ldc,
2590     double* work,
2591     lapack_int* info
2592 #ifdef LAPACK_FORTRAN_STRLEN_END
2593     , FORTRAN_STRLEN, FORTRAN_STRLEN
2594 #endif
2595 );
2596 #ifdef LAPACK_FORTRAN_STRLEN_END
2597     #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2598 #else
2599     #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2600 #endif
2601 
2602 #define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
2603 void LAPACK_sgemqrt_base(
2604     char const* side, char const* trans,
2605     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2606     float const* V, lapack_int const* ldv,
2607     float const* T, lapack_int const* ldt,
2608     float* C, lapack_int const* ldc,
2609     float* work,
2610     lapack_int* info
2611 #ifdef LAPACK_FORTRAN_STRLEN_END
2612     , FORTRAN_STRLEN, FORTRAN_STRLEN
2613 #endif
2614 );
2615 #ifdef LAPACK_FORTRAN_STRLEN_END
2616     #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2617 #else
2618     #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2619 #endif
2620 
2621 #define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
2622 void LAPACK_zgemqrt_base(
2623     char const* side, char const* trans,
2624     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2625     lapack_complex_double const* V, lapack_int const* ldv,
2626     lapack_complex_double const* T, lapack_int const* ldt,
2627     lapack_complex_double* C, lapack_int const* ldc,
2628     lapack_complex_double* work,
2629     lapack_int* info
2630 #ifdef LAPACK_FORTRAN_STRLEN_END
2631     , FORTRAN_STRLEN, FORTRAN_STRLEN
2632 #endif
2633 );
2634 #ifdef LAPACK_FORTRAN_STRLEN_END
2635     #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2636 #else
2637     #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2638 #endif
2639 
2640 #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2641 void LAPACK_cgeql2(
2642     lapack_int const* m, lapack_int const* n,
2643     lapack_complex_float* A, lapack_int const* lda,
2644     lapack_complex_float* tau,
2645     lapack_complex_float* work,
2646     lapack_int* info );
2647 
2648 #define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2649 void LAPACK_dgeql2(
2650     lapack_int const* m, lapack_int const* n,
2651     double* A, lapack_int const* lda,
2652     double* tau,
2653     double* work,
2654     lapack_int* info );
2655 
2656 #define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2657 void LAPACK_sgeql2(
2658     lapack_int const* m, lapack_int const* n,
2659     float* A, lapack_int const* lda,
2660     float* tau,
2661     float* work,
2662     lapack_int* info );
2663 
2664 #define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2665 void LAPACK_zgeql2(
2666     lapack_int const* m, lapack_int const* n,
2667     lapack_complex_double* A, lapack_int const* lda,
2668     lapack_complex_double* tau,
2669     lapack_complex_double* work,
2670     lapack_int* info );
2671 
2672 #define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2673 void LAPACK_cgeqlf(
2674     lapack_int const* m, lapack_int const* n,
2675     lapack_complex_float* A, lapack_int const* lda,
2676     lapack_complex_float* tau,
2677     lapack_complex_float* work, lapack_int const* lwork,
2678     lapack_int* info );
2679 
2680 #define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2681 void LAPACK_dgeqlf(
2682     lapack_int const* m, lapack_int const* n,
2683     double* A, lapack_int const* lda,
2684     double* tau,
2685     double* work, lapack_int const* lwork,
2686     lapack_int* info );
2687 
2688 #define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2689 void LAPACK_sgeqlf(
2690     lapack_int const* m, lapack_int const* n,
2691     float* A, lapack_int const* lda,
2692     float* tau,
2693     float* work, lapack_int const* lwork,
2694     lapack_int* info );
2695 
2696 #define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2697 void LAPACK_zgeqlf(
2698     lapack_int const* m, lapack_int const* n,
2699     lapack_complex_double* A, lapack_int const* lda,
2700     lapack_complex_double* tau,
2701     lapack_complex_double* work, lapack_int const* lwork,
2702     lapack_int* info );
2703 
2704 #define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2705 void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
2706                     lapack_int* jpvt, float* tau, float* work,
2707                     lapack_int *info );
2708 
2709 #define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2710 void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
2711                     lapack_int* jpvt, double* tau, double* work,
2712                     lapack_int *info );
2713 
2714 #define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
2715 void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
2716                     lapack_int* lda, lapack_int* jpvt,
2717                     lapack_complex_float* tau, lapack_complex_float* work,
2718                     float* rwork, lapack_int *info );
2719 
2720 #define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2721 void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
2722                     lapack_int* lda, lapack_int* jpvt,
2723                     lapack_complex_double* tau, lapack_complex_double* work,
2724                     double* rwork, lapack_int *info );
2725 
2726 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2727 void LAPACK_cgeqp3(
2728     lapack_int const* m, lapack_int const* n,
2729     lapack_complex_float* A, lapack_int const* lda, lapack_int* JPVT,
2730     lapack_complex_float* tau,
2731     lapack_complex_float* work, lapack_int const* lwork,
2732     float* rwork,
2733     lapack_int* info );
2734 
2735 #define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2736 void LAPACK_dgeqp3(
2737     lapack_int const* m, lapack_int const* n,
2738     double* A, lapack_int const* lda, lapack_int* JPVT,
2739     double* tau,
2740     double* work, lapack_int const* lwork,
2741     lapack_int* info );
2742 
2743 #define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2744 void LAPACK_sgeqp3(
2745     lapack_int const* m, lapack_int const* n,
2746     float* A, lapack_int const* lda, lapack_int* JPVT,
2747     float* tau,
2748     float* work, lapack_int const* lwork,
2749     lapack_int* info );
2750 
2751 #define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2752 void LAPACK_zgeqp3(
2753     lapack_int const* m, lapack_int const* n,
2754     lapack_complex_double* A, lapack_int const* lda, lapack_int* JPVT,
2755     lapack_complex_double* tau,
2756     lapack_complex_double* work, lapack_int const* lwork,
2757     double* rwork,
2758     lapack_int* info );
2759 
2760 #define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2761 void LAPACK_cgeqr(
2762     lapack_int const* m, lapack_int const* n,
2763     lapack_complex_float* A, lapack_int const* lda,
2764     lapack_complex_float* T, lapack_int const* tsize,
2765     lapack_complex_float* work, lapack_int const* lwork,
2766     lapack_int* info );
2767 
2768 #define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2769 void LAPACK_dgeqr(
2770     lapack_int const* m, lapack_int const* n,
2771     double* A, lapack_int const* lda,
2772     double* T, lapack_int const* tsize,
2773     double* work, lapack_int const* lwork,
2774     lapack_int* info );
2775 
2776 #define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2777 void LAPACK_sgeqr(
2778     lapack_int const* m, lapack_int const* n,
2779     float* A, lapack_int const* lda,
2780     float* T, lapack_int const* tsize,
2781     float* work, lapack_int const* lwork,
2782     lapack_int* info );
2783 
2784 #define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2785 void LAPACK_zgeqr(
2786     lapack_int const* m, lapack_int const* n,
2787     lapack_complex_double* A, lapack_int const* lda,
2788     lapack_complex_double* T, lapack_int const* tsize,
2789     lapack_complex_double* work, lapack_int const* lwork,
2790     lapack_int* info );
2791 
2792 #define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2793 void LAPACK_cgeqr2(
2794     lapack_int const* m, lapack_int const* n,
2795     lapack_complex_float* A, lapack_int const* lda,
2796     lapack_complex_float* tau,
2797     lapack_complex_float* work,
2798     lapack_int* info );
2799 
2800 #define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2801 void LAPACK_dgeqr2(
2802     lapack_int const* m, lapack_int const* n,
2803     double* A, lapack_int const* lda,
2804     double* tau,
2805     double* work,
2806     lapack_int* info );
2807 
2808 #define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2809 void LAPACK_sgeqr2(
2810     lapack_int const* m, lapack_int const* n,
2811     float* A, lapack_int const* lda,
2812     float* tau,
2813     float* work,
2814     lapack_int* info );
2815 
2816 #define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2817 void LAPACK_zgeqr2(
2818     lapack_int const* m, lapack_int const* n,
2819     lapack_complex_double* A, lapack_int const* lda,
2820     lapack_complex_double* tau,
2821     lapack_complex_double* work,
2822     lapack_int* info );
2823 
2824 #define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2825 void LAPACK_cgeqrf(
2826     lapack_int const* m, lapack_int const* n,
2827     lapack_complex_float* A, lapack_int const* lda,
2828     lapack_complex_float* tau,
2829     lapack_complex_float* work, lapack_int const* lwork,
2830     lapack_int* info );
2831 
2832 #define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2833 void LAPACK_dgeqrf(
2834     lapack_int const* m, lapack_int const* n,
2835     double* A, lapack_int const* lda,
2836     double* tau,
2837     double* work, lapack_int const* lwork,
2838     lapack_int* info );
2839 
2840 #define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2841 void LAPACK_sgeqrf(
2842     lapack_int const* m, lapack_int const* n,
2843     float* A, lapack_int const* lda,
2844     float* tau,
2845     float* work, lapack_int const* lwork,
2846     lapack_int* info );
2847 
2848 #define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2849 void LAPACK_zgeqrf(
2850     lapack_int const* m, lapack_int const* n,
2851     lapack_complex_double* A, lapack_int const* lda,
2852     lapack_complex_double* tau,
2853     lapack_complex_double* work, lapack_int const* lwork,
2854     lapack_int* info );
2855 
2856 #define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2857 void LAPACK_cgeqrfp(
2858     lapack_int const* m, lapack_int const* n,
2859     lapack_complex_float* A, lapack_int const* lda,
2860     lapack_complex_float* tau,
2861     lapack_complex_float* work, lapack_int const* lwork,
2862     lapack_int* info );
2863 
2864 #define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2865 void LAPACK_dgeqrfp(
2866     lapack_int const* m, lapack_int const* n,
2867     double* A, lapack_int const* lda,
2868     double* tau,
2869     double* work, lapack_int const* lwork,
2870     lapack_int* info );
2871 
2872 #define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2873 void LAPACK_sgeqrfp(
2874     lapack_int const* m, lapack_int const* n,
2875     float* A, lapack_int const* lda,
2876     float* tau,
2877     float* work, lapack_int const* lwork,
2878     lapack_int* info );
2879 
2880 #define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2881 void LAPACK_zgeqrfp(
2882     lapack_int const* m, lapack_int const* n,
2883     lapack_complex_double* A, lapack_int const* lda,
2884     lapack_complex_double* tau,
2885     lapack_complex_double* work, lapack_int const* lwork,
2886     lapack_int* info );
2887 
2888 #define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2889 void LAPACK_cgeqrt(
2890     lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2891     lapack_complex_float* A, lapack_int const* lda,
2892     lapack_complex_float* T, lapack_int const* ldt,
2893     lapack_complex_float* work,
2894     lapack_int* info );
2895 
2896 #define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2897 void LAPACK_dgeqrt(
2898     lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2899     double* A, lapack_int const* lda,
2900     double* T, lapack_int const* ldt,
2901     double* work,
2902     lapack_int* info );
2903 
2904 #define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2905 void LAPACK_sgeqrt(
2906     lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2907     float* A, lapack_int const* lda,
2908     float* T, lapack_int const* ldt,
2909     float* work,
2910     lapack_int* info );
2911 
2912 #define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2913 void LAPACK_zgeqrt(
2914     lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2915     lapack_complex_double* A, lapack_int const* lda,
2916     lapack_complex_double* T, lapack_int const* ldt,
2917     lapack_complex_double* work,
2918     lapack_int* info );
2919 
2920 #define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2921 void LAPACK_cgeqrt2(
2922     lapack_int const* m, lapack_int const* n,
2923     lapack_complex_float* A, lapack_int const* lda,
2924     lapack_complex_float* T, lapack_int const* ldt,
2925     lapack_int* info );
2926 
2927 #define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2928 void LAPACK_dgeqrt2(
2929     lapack_int const* m, lapack_int const* n,
2930     double* A, lapack_int const* lda,
2931     double* T, lapack_int const* ldt,
2932     lapack_int* info );
2933 
2934 #define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2935 void LAPACK_sgeqrt2(
2936     lapack_int const* m, lapack_int const* n,
2937     float* A, lapack_int const* lda,
2938     float* T, lapack_int const* ldt,
2939     lapack_int* info );
2940 
2941 #define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2942 void LAPACK_zgeqrt2(
2943     lapack_int const* m, lapack_int const* n,
2944     lapack_complex_double* A, lapack_int const* lda,
2945     lapack_complex_double* T, lapack_int const* ldt,
2946     lapack_int* info );
2947 
2948 #define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2949 void LAPACK_cgeqrt3(
2950     lapack_int const* m, lapack_int const* n,
2951     lapack_complex_float* A, lapack_int const* lda,
2952     lapack_complex_float* T, lapack_int const* ldt,
2953     lapack_int* info );
2954 
2955 #define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2956 void LAPACK_dgeqrt3(
2957     lapack_int const* m, lapack_int const* n,
2958     double* A, lapack_int const* lda,
2959     double* T, lapack_int const* ldt,
2960     lapack_int* info );
2961 
2962 #define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2963 void LAPACK_sgeqrt3(
2964     lapack_int const* m, lapack_int const* n,
2965     float* A, lapack_int const* lda,
2966     float* T, lapack_int const* ldt,
2967     lapack_int* info );
2968 
2969 #define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2970 void LAPACK_zgeqrt3(
2971     lapack_int const* m, lapack_int const* n,
2972     lapack_complex_double* A, lapack_int const* lda,
2973     lapack_complex_double* T, lapack_int const* ldt,
2974     lapack_int* info );
2975 
2976 #define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2977 void LAPACK_cgerfs_base(
2978     char const* trans,
2979     lapack_int const* n, lapack_int const* nrhs,
2980     lapack_complex_float const* A, lapack_int const* lda,
2981     lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2982     lapack_complex_float const* B, lapack_int const* ldb,
2983     lapack_complex_float* X, lapack_int const* ldx,
2984     float* ferr,
2985     float* berr,
2986     lapack_complex_float* work,
2987     float* rwork,
2988     lapack_int* info
2989 #ifdef LAPACK_FORTRAN_STRLEN_END
2990     , FORTRAN_STRLEN
2991 #endif
2992 );
2993 #ifdef LAPACK_FORTRAN_STRLEN_END
2994     #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2995 #else
2996     #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2997 #endif
2998 
2999 #define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
3000 void LAPACK_dgerfs_base(
3001     char const* trans,
3002     lapack_int const* n, lapack_int const* nrhs,
3003     double const* A, lapack_int const* lda,
3004     double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3005     double const* B, lapack_int const* ldb,
3006     double* X, lapack_int const* ldx,
3007     double* ferr,
3008     double* berr,
3009     double* work,
3010     lapack_int* iwork,
3011     lapack_int* info
3012 #ifdef LAPACK_FORTRAN_STRLEN_END
3013     , FORTRAN_STRLEN
3014 #endif
3015 );
3016 #ifdef LAPACK_FORTRAN_STRLEN_END
3017     #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
3018 #else
3019     #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
3020 #endif
3021 
3022 #define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
3023 void LAPACK_sgerfs_base(
3024     char const* trans,
3025     lapack_int const* n, lapack_int const* nrhs,
3026     float const* A, lapack_int const* lda,
3027     float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3028     float const* B, lapack_int const* ldb,
3029     float* X, lapack_int const* ldx,
3030     float* ferr,
3031     float* berr,
3032     float* work,
3033     lapack_int* iwork,
3034     lapack_int* info
3035 #ifdef LAPACK_FORTRAN_STRLEN_END
3036     , FORTRAN_STRLEN
3037 #endif
3038 );
3039 #ifdef LAPACK_FORTRAN_STRLEN_END
3040     #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3041 #else
3042     #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3043 #endif
3044 
3045 #define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3046 void LAPACK_zgerfs_base(
3047     char const* trans,
3048     lapack_int const* n, lapack_int const* nrhs,
3049     lapack_complex_double const* A, lapack_int const* lda,
3050     lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3051     lapack_complex_double const* B, lapack_int const* ldb,
3052     lapack_complex_double* X, lapack_int const* ldx,
3053     double* ferr,
3054     double* berr,
3055     lapack_complex_double* work,
3056     double* rwork,
3057     lapack_int* info
3058 #ifdef LAPACK_FORTRAN_STRLEN_END
3059     , FORTRAN_STRLEN
3060 #endif
3061 );
3062 #ifdef LAPACK_FORTRAN_STRLEN_END
3063     #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3064 #else
3065     #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3066 #endif
3067 
3068 #define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
3069 void LAPACK_cgerfsx_base(
3070     char const* trans, char const* equed,
3071     lapack_int const* n, lapack_int const* nrhs,
3072     lapack_complex_float const* A, lapack_int const* lda,
3073     lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3074     float const* R,
3075     float const* C,
3076     lapack_complex_float const* B, lapack_int const* ldb,
3077     lapack_complex_float* X, lapack_int const* ldx,
3078     float* rcond,
3079     float* berr, lapack_int const* n_err_bnds,
3080     float* err_bnds_norm,
3081     float* err_bnds_comp, lapack_int const* nparams,
3082     float* params,
3083     lapack_complex_float* work,
3084     float* rwork,
3085     lapack_int* info
3086 #ifdef LAPACK_FORTRAN_STRLEN_END
3087     , FORTRAN_STRLEN, FORTRAN_STRLEN
3088 #endif
3089 );
3090 #ifdef LAPACK_FORTRAN_STRLEN_END
3091     #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3092 #else
3093     #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3094 #endif
3095 
3096 #define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
3097 void LAPACK_dgerfsx_base(
3098     char const* trans, char const* equed,
3099     lapack_int const* n, lapack_int const* nrhs,
3100     double const* A, lapack_int const* lda,
3101     double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3102     double const* R,
3103     double const* C,
3104     double const* B, lapack_int const* ldb,
3105     double* X, lapack_int const* ldx,
3106     double* rcond,
3107     double* berr, lapack_int const* n_err_bnds,
3108     double* err_bnds_norm,
3109     double* err_bnds_comp, lapack_int const* nparams,
3110     double* params,
3111     double* work,
3112     lapack_int* iwork,
3113     lapack_int* info
3114 #ifdef LAPACK_FORTRAN_STRLEN_END
3115     , FORTRAN_STRLEN, FORTRAN_STRLEN
3116 #endif
3117 );
3118 #ifdef LAPACK_FORTRAN_STRLEN_END
3119     #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3120 #else
3121     #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3122 #endif
3123 
3124 #define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
3125 void LAPACK_sgerfsx_base(
3126     char const* trans, char const* equed,
3127     lapack_int const* n, lapack_int const* nrhs,
3128     float const* A, lapack_int const* lda,
3129     float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3130     float const* R,
3131     float const* C,
3132     float const* B, lapack_int const* ldb,
3133     float* X, lapack_int const* ldx,
3134     float* rcond,
3135     float* berr, lapack_int const* n_err_bnds,
3136     float* err_bnds_norm,
3137     float* err_bnds_comp, lapack_int const* nparams,
3138     float* params,
3139     float* work,
3140     lapack_int* iwork,
3141     lapack_int* info
3142 #ifdef LAPACK_FORTRAN_STRLEN_END
3143     , FORTRAN_STRLEN, FORTRAN_STRLEN
3144 #endif
3145 );
3146 #ifdef LAPACK_FORTRAN_STRLEN_END
3147     #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3148 #else
3149     #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3150 #endif
3151 
3152 #define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
3153 void LAPACK_zgerfsx_base(
3154     char const* trans, char const* equed,
3155     lapack_int const* n, lapack_int const* nrhs,
3156     lapack_complex_double const* A, lapack_int const* lda,
3157     lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3158     double const* R,
3159     double const* C,
3160     lapack_complex_double const* B, lapack_int const* ldb,
3161     lapack_complex_double* X, lapack_int const* ldx,
3162     double* rcond,
3163     double* berr, lapack_int const* n_err_bnds,
3164     double* err_bnds_norm,
3165     double* err_bnds_comp, lapack_int const* nparams,
3166     double* params,
3167     lapack_complex_double* work,
3168     double* rwork,
3169     lapack_int* info
3170 #ifdef LAPACK_FORTRAN_STRLEN_END
3171     , FORTRAN_STRLEN, FORTRAN_STRLEN
3172 #endif
3173 );
3174 #ifdef LAPACK_FORTRAN_STRLEN_END
3175     #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3176 #else
3177     #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3178 #endif
3179 
3180 #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3181 void LAPACK_cgerq2(
3182     lapack_int const* m, lapack_int const* n,
3183     lapack_complex_float* A, lapack_int const* lda,
3184     lapack_complex_float* tau,
3185     lapack_complex_float* work,
3186     lapack_int* info );
3187 
3188 #define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3189 void LAPACK_dgerq2(
3190     lapack_int const* m, lapack_int const* n,
3191     double* A, lapack_int const* lda,
3192     double* tau,
3193     double* work,
3194     lapack_int* info );
3195 
3196 #define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3197 void LAPACK_sgerq2(
3198     lapack_int const* m, lapack_int const* n,
3199     float* A, lapack_int const* lda,
3200     float* tau,
3201     float* work,
3202     lapack_int* info );
3203 
3204 #define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3205 void LAPACK_zgerq2(
3206     lapack_int const* m, lapack_int const* n,
3207     lapack_complex_double* A, lapack_int const* lda,
3208     lapack_complex_double* tau,
3209     lapack_complex_double* work,
3210     lapack_int* info );
3211 
3212 #define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3213 void LAPACK_cgerqf(
3214     lapack_int const* m, lapack_int const* n,
3215     lapack_complex_float* A, lapack_int const* lda,
3216     lapack_complex_float* tau,
3217     lapack_complex_float* work, lapack_int const* lwork,
3218     lapack_int* info );
3219 
3220 #define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3221 void LAPACK_dgerqf(
3222     lapack_int const* m, lapack_int const* n,
3223     double* A, lapack_int const* lda,
3224     double* tau,
3225     double* work, lapack_int const* lwork,
3226     lapack_int* info );
3227 
3228 #define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3229 void LAPACK_sgerqf(
3230     lapack_int const* m, lapack_int const* n,
3231     float* A, lapack_int const* lda,
3232     float* tau,
3233     float* work, lapack_int const* lwork,
3234     lapack_int* info );
3235 
3236 #define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3237 void LAPACK_zgerqf(
3238     lapack_int const* m, lapack_int const* n,
3239     lapack_complex_double* A, lapack_int const* lda,
3240     lapack_complex_double* tau,
3241     lapack_complex_double* work, lapack_int const* lwork,
3242     lapack_int* info );
3243 
3244 #define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3245 void LAPACK_cgesdd_base(
3246     char const* jobz,
3247     lapack_int const* m, lapack_int const* n,
3248     lapack_complex_float* A, lapack_int const* lda,
3249     float* S,
3250     lapack_complex_float* U, lapack_int const* ldu,
3251     lapack_complex_float* VT, lapack_int const* ldvt,
3252     lapack_complex_float* work, lapack_int const* lwork,
3253     float* rwork,
3254     lapack_int* iwork,
3255     lapack_int* info
3256 #ifdef LAPACK_FORTRAN_STRLEN_END
3257     , FORTRAN_STRLEN
3258 #endif
3259 );
3260 #ifdef LAPACK_FORTRAN_STRLEN_END
3261     #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3262 #else
3263     #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3264 #endif
3265 
3266 #define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3267 void LAPACK_dgesdd_base(
3268     char const* jobz,
3269     lapack_int const* m, lapack_int const* n,
3270     double* A, lapack_int const* lda,
3271     double* S,
3272     double* U, lapack_int const* ldu,
3273     double* VT, lapack_int const* ldvt,
3274     double* work, lapack_int const* lwork,
3275     lapack_int* iwork,
3276     lapack_int* info
3277 #ifdef LAPACK_FORTRAN_STRLEN_END
3278     , FORTRAN_STRLEN
3279 #endif
3280 );
3281 #ifdef LAPACK_FORTRAN_STRLEN_END
3282     #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3283 #else
3284     #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3285 #endif
3286 
3287 #define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3288 void LAPACK_sgesdd_base(
3289     char const* jobz,
3290     lapack_int const* m, lapack_int const* n,
3291     float* A, lapack_int const* lda,
3292     float* S,
3293     float* U, lapack_int const* ldu,
3294     float* VT, lapack_int const* ldvt,
3295     float* work, lapack_int const* lwork,
3296     lapack_int* iwork,
3297     lapack_int* info
3298 #ifdef LAPACK_FORTRAN_STRLEN_END
3299     , FORTRAN_STRLEN
3300 #endif
3301 );
3302 #ifdef LAPACK_FORTRAN_STRLEN_END
3303     #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3304 #else
3305     #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3306 #endif
3307 
3308 #define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3309 void LAPACK_zgesdd_base(
3310     char const* jobz,
3311     lapack_int const* m, lapack_int const* n,
3312     lapack_complex_double* A, lapack_int const* lda,
3313     double* S,
3314     lapack_complex_double* U, lapack_int const* ldu,
3315     lapack_complex_double* VT, lapack_int const* ldvt,
3316     lapack_complex_double* work, lapack_int const* lwork,
3317     double* rwork,
3318     lapack_int* iwork,
3319     lapack_int* info
3320 #ifdef LAPACK_FORTRAN_STRLEN_END
3321     , FORTRAN_STRLEN
3322 #endif
3323 );
3324 #ifdef LAPACK_FORTRAN_STRLEN_END
3325     #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3326 #else
3327     #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3328 #endif
3329 
3330 #define LAPACK_cgedmd_base LAPACK_GLOBAL(cgedmd,CGEDMD)
3331 void LAPACK_cgedmd_base(
3332     char const* jobs, char const* jobz, char const* jobr, char const* jobf,
3333     lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n,
3334     lapack_complex_float* x, lapack_int const* ldx,
3335     lapack_complex_float* y, lapack_int const* ldy, lapack_int const* nrnk,
3336     const float* tol, lapack_int* k, lapack_complex_float* eigs,
3337     lapack_complex_float* z, lapack_int const* ldz, float* res,
3338     lapack_complex_float* b, lapack_int const* ldb,
3339     lapack_complex_float* w, lapack_int const* ldw,
3340     lapack_complex_float* s, lapack_int const* lds,
3341     lapack_complex_float* zwork, lapack_int const* lzwork,
3342     float* work, lapack_int const* lwork,
3343     lapack_int* iwork, lapack_int const* liwork,
3344     lapack_int* info
3345 #ifdef LAPACK_FORTRAN_STRLEN_END
3346     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3347 #endif
3348 );
3349 #ifdef LAPACK_FORTRAN_STRLEN_END
3350     #define LAPACK_cgedmd(...) LAPACK_cgedmd_base(__VA_ARGS__, 1, 1, 1, 1)
3351 #else
3352     #define LAPACK_cgedmd(...) LAPACK_cgedmd_base(__VA_ARGS__)
3353 #endif
3354 
3355 
3356 #define LAPACK_dgedmd_base LAPACK_GLOBAL(dgedmd,DGEDMD)
3357 void LAPACK_dgedmd_base(
3358     char const* jobs, char const* jobz, char const* jobr, char const* jobf,
3359     lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n,
3360     double* x, lapack_int const* ldx,
3361     double* y, lapack_int const* ldy, lapack_int const* nrnk,
3362     const double* tol, lapack_int* k, double* reig, double* imeig,
3363     double* z, lapack_int const* ldz, double* res,
3364     double* b, lapack_int const* ldb,
3365     double* w, lapack_int const* ldw,
3366     double* s, lapack_int const* lds,
3367     double* work, lapack_int const* lwork,
3368     lapack_int* iwork, lapack_int const* liwork,
3369     lapack_int* info
3370 #ifdef LAPACK_FORTRAN_STRLEN_END
3371     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3372 #endif
3373 );
3374 #ifdef LAPACK_FORTRAN_STRLEN_END
3375     #define LAPACK_dgedmd(...) LAPACK_dgedmd_base(__VA_ARGS__, 1, 1, 1, 1)
3376 #else
3377     #define LAPACK_dgedmd(...) LAPACK_dgedmd_base(__VA_ARGS__)
3378 #endif
3379 
3380 #define LAPACK_sgedmd_base LAPACK_GLOBAL(sgedmd,SGEDMD)
3381 void LAPACK_sgedmd_base(
3382     char const* jobs, char const* jobz, char const* jobr, char const* jobf,
3383     lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n,
3384     float* x, lapack_int const* ldx,
3385     float* y, lapack_int const* ldy, lapack_int const* nrnk,
3386     const float* tol, lapack_int* k, float* reig, float *imeig,
3387     float* z, lapack_int const* ldz, float* res,
3388     float* b, lapack_int const* ldb,
3389     float* w, lapack_int const* ldw,
3390     float* s, lapack_int const* lds,
3391     float* work, lapack_int const* lwork,
3392     lapack_int* iwork, lapack_int const* liwork,
3393     lapack_int* info
3394 #ifdef LAPACK_FORTRAN_STRLEN_END
3395     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3396 #endif
3397 );
3398 #ifdef LAPACK_FORTRAN_STRLEN_END
3399     #define LAPACK_sgedmd(...) LAPACK_sgedmd_base(__VA_ARGS__, 1, 1, 1, 1)
3400 #else
3401     #define LAPACK_sgedmd(...) LAPACK_sgedmd_base(__VA_ARGS__)
3402 #endif
3403 
3404 #define LAPACK_zgedmd_base LAPACK_GLOBAL(zgedmd,ZGEDMD)
3405 void LAPACK_zgedmd_base(
3406     char const* jobs, char const* jobz, char const* jobr, char const* jobf,
3407     lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n,
3408     lapack_complex_double* x, lapack_int const* ldx,
3409     lapack_complex_double* y, lapack_int const* ldy, lapack_int const* nrnk,
3410     const double* tol, lapack_int *k, lapack_complex_double* eigs,
3411     lapack_complex_double* z, lapack_int const* ldz, double* res,
3412     lapack_complex_double* b, lapack_int const* ldb,
3413     lapack_complex_double* w, lapack_int const* ldw,
3414     lapack_complex_double* s, lapack_int const* lds,
3415     lapack_complex_double* zwork, lapack_int const* lzwork,
3416     double* rwork, lapack_int const* lrwork,
3417     lapack_int* iwork, lapack_int const* liwork,
3418     lapack_int* info
3419 #ifdef LAPACK_FORTRAN_STRLEN_END
3420     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3421 #endif
3422 );
3423 #ifdef LAPACK_FORTRAN_STRLEN_END
3424     #define LAPACK_zgedmd(...) LAPACK_zgedmd_base(__VA_ARGS__, 1, 1, 1, 1)
3425 #else
3426     #define LAPACK_zgedmd(...) LAPACK_zgedmd_base(__VA_ARGS__)
3427 #endif
3428 
3429 #define LAPACK_cgedmdq_base LAPACK_GLOBAL(cgedmdq,CGEDMDQ)
3430 void LAPACK_cgedmdq_base(
3431     char const* jobs, char const* jobz, char const* jobr, char const* jobq,
3432     char const* jobt, char const* jobf, lapack_int const* whtsvd,
3433     lapack_int const* m, lapack_int const* n,
3434     lapack_complex_float* f, lapack_int const* ldf,
3435     lapack_complex_float* x, lapack_int const* ldx,
3436     lapack_complex_float* y, lapack_int const* ldy, lapack_int const* nrnk,
3437     float const* tol, lapack_int const* k,
3438     lapack_complex_float* eigs,
3439     lapack_complex_float* z, lapack_int const* ldz, float* res,
3440     lapack_complex_float* b, lapack_int const* ldb,
3441     lapack_complex_float* v, lapack_int const* ldv,
3442     lapack_complex_float* s, lapack_int const* lds,
3443     lapack_complex_float* zwork, lapack_int const* lzwork,
3444     float* work, lapack_int const* lwork,
3445     lapack_int* iwork, lapack_int const* liwork,
3446     lapack_int* info
3447 #ifdef LAPACK_FORTRAN_STRLEN_END
3448     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3449 #endif
3450 );
3451 #ifdef LAPACK_FORTRAN_STRLEN_END
3452     #define LAPACK_cgedmdq(...) LAPACK_cgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
3453 #else
3454     #define LAPACK_cgedmdq(...) LAPACK_cgedmdq_base(__VA_ARGS__)
3455 #endif
3456 
3457 #define LAPACK_dgedmdq_base LAPACK_GLOBAL(dgedmdq,DGEDMDQ)
3458 void LAPACK_dgedmdq_base(
3459     char const* jobs, char const* jobz, char const* jobr, char const* jobq,
3460     char const* jobt, char const* jobf, lapack_int const* whtsvd,
3461     lapack_int const* m, lapack_int const* n,
3462     double* f, lapack_int const* ldf,
3463     double* x, lapack_int const* ldx,
3464     double* y, lapack_int const* ldy, lapack_int const* nrnk,
3465     double const* tol, lapack_int* k,
3466     double* reig, double *imeig,
3467     double* z, lapack_int const* ldz, double* res,
3468     double* b, lapack_int const* ldb,
3469     double* v, lapack_int const* ldv,
3470     double* s, lapack_int const* lds,
3471     double* work, lapack_int const* lwork,
3472     lapack_int* iwork, lapack_int const* liwork,
3473     lapack_int* info
3474 #ifdef LAPACK_FORTRAN_STRLEN_END
3475     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3476 #endif
3477 );
3478 #ifdef LAPACK_FORTRAN_STRLEN_END
3479     #define LAPACK_dgedmdq(...) LAPACK_dgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
3480 #else
3481     #define LAPACK_dgedmdq(...) LAPACK_dgedmdq_base(__VA_ARGS__)
3482 #endif
3483 
3484 #define LAPACK_sgedmdq_base LAPACK_GLOBAL(sgedmdq,SGEDMDQ)
3485 void LAPACK_sgedmdq_base(
3486     char const* jobs, char const* jobz, char const* jobr, char const* jobq,
3487     char const* jobt, char const* jobf, lapack_int const* whtsvd,
3488     lapack_int const* m, lapack_int const* n,
3489     float* f, lapack_int const* ldf,
3490     float* x, lapack_int const* ldx,
3491     float* y, lapack_int const* ldy, lapack_int const* nrnk,
3492     float const* tol, lapack_int const* k,
3493     float* reig, float* imeig,
3494     float* z, lapack_int const* ldz, float* res,
3495     float* b, lapack_int const* ldb,
3496     float* v, lapack_int const* ldv,
3497     float* s, lapack_int const* lds,
3498     float* work, lapack_int const* lwork,
3499     lapack_int* iwork, lapack_int const* liwork,
3500     lapack_int* info
3501 #ifdef LAPACK_FORTRAN_STRLEN_END
3502     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3503 #endif
3504 );
3505 #ifdef LAPACK_FORTRAN_STRLEN_END
3506     #define LAPACK_sgedmdq(...) LAPACK_sgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
3507 #else
3508     #define LAPACK_sgedmdq(...) LAPACK_sgedmdq_base(__VA_ARGS__)
3509 #endif
3510 
3511 #define LAPACK_zgedmdq_base LAPACK_GLOBAL(zgedmdq,ZGEDMDQ)
3512 void LAPACK_zgedmdq_base(
3513     char const* jobs, char const* jobz, char const* jobr, char const* jobq,
3514     char const* jobt, char const* jobf, lapack_int const* whtsvd,
3515     lapack_int const* m, lapack_int const* n,
3516     lapack_complex_double* f, lapack_int const* ldf,
3517     lapack_complex_double* x, lapack_int const* ldx,
3518     lapack_complex_double* y, lapack_int const* ldy, lapack_int const* nrnk,
3519     double const* tol, lapack_int const* k,
3520     lapack_complex_double* eigs,
3521     lapack_complex_double* z, lapack_int const* ldz, double* res,
3522     lapack_complex_double* b, lapack_int const* ldb,
3523     lapack_complex_double* v, lapack_int const* ldv,
3524     lapack_complex_double* s, lapack_int const* lds,
3525     lapack_complex_double* zwork, lapack_int const* lzwork,
3526     double* work, lapack_int const* lwork,
3527     lapack_int* iwork, lapack_int const* liwork,
3528     lapack_int* info
3529 
3530 #ifdef LAPACK_FORTRAN_STRLEN_END
3531     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3532 #endif
3533 );
3534 #ifdef LAPACK_FORTRAN_STRLEN_END
3535     #define LAPACK_zgedmdq(...) LAPACK_zgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
3536 #else
3537     #define LAPACK_zgedmdq(...) LAPACK_zgedmdq_base(__VA_ARGS__)
3538 #endif
3539 
3540 #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3541 lapack_int LAPACK_cgesv(
3542     lapack_int const* n, lapack_int const* nrhs,
3543     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3544     lapack_complex_float* B, lapack_int const* ldb,
3545     lapack_int* info );
3546 
3547 #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3548 lapack_int LAPACK_dgesv(
3549     lapack_int const* n, lapack_int const* nrhs,
3550     double* A, lapack_int const* lda, lapack_int* ipiv,
3551     double* B, lapack_int const* ldb,
3552     lapack_int* info );
3553 
3554 #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3555 lapack_int LAPACK_sgesv(
3556     lapack_int const* n, lapack_int const* nrhs,
3557     float* A, lapack_int const* lda, lapack_int* ipiv,
3558     float* B, lapack_int const* ldb,
3559     lapack_int* info );
3560 
3561 #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3562 lapack_int LAPACK_zgesv(
3563     lapack_int const* n, lapack_int const* nrhs,
3564     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3565     lapack_complex_double* B, lapack_int const* ldb,
3566     lapack_int* info );
3567 
3568 #define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3569 void LAPACK_dsgesv(
3570     lapack_int const* n, lapack_int const* nrhs,
3571     double* A, lapack_int const* lda, lapack_int* ipiv,
3572     double const* B, lapack_int const* ldb,
3573     double* X, lapack_int const* ldx,
3574     double* work,
3575     float* swork, lapack_int* iter,
3576     lapack_int* info );
3577 
3578 #define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3579 void LAPACK_zcgesv(
3580     lapack_int const* n, lapack_int const* nrhs,
3581     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3582     lapack_complex_double const* B, lapack_int const* ldb,
3583     lapack_complex_double* X, lapack_int const* ldx,
3584     lapack_complex_double* work,
3585     lapack_complex_float* swork,
3586     double* rwork, lapack_int* iter,
3587     lapack_int* info );
3588 
3589 #define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
3590 void LAPACK_cgesvd_base(
3591     char const* jobu, char const* jobvt,
3592     lapack_int const* m, lapack_int const* n,
3593     lapack_complex_float* A, lapack_int const* lda,
3594     float* S,
3595     lapack_complex_float* U, lapack_int const* ldu,
3596     lapack_complex_float* VT, lapack_int const* ldvt,
3597     lapack_complex_float* work, lapack_int const* lwork,
3598     float* rwork,
3599     lapack_int* info
3600 #ifdef LAPACK_FORTRAN_STRLEN_END
3601     , FORTRAN_STRLEN, FORTRAN_STRLEN
3602 #endif
3603 );
3604 #ifdef LAPACK_FORTRAN_STRLEN_END
3605     #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3606 #else
3607     #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3608 #endif
3609 
3610 #define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
3611 void LAPACK_dgesvd_base(
3612     char const* jobu, char const* jobvt,
3613     lapack_int const* m, lapack_int const* n,
3614     double* A, lapack_int const* lda,
3615     double* S,
3616     double* U, lapack_int const* ldu,
3617     double* VT, lapack_int const* ldvt,
3618     double* work, lapack_int const* lwork,
3619     lapack_int* info
3620 #ifdef LAPACK_FORTRAN_STRLEN_END
3621     , FORTRAN_STRLEN, FORTRAN_STRLEN
3622 #endif
3623 );
3624 #ifdef LAPACK_FORTRAN_STRLEN_END
3625     #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3626 #else
3627     #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3628 #endif
3629 
3630 #define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
3631 void LAPACK_sgesvd_base(
3632     char const* jobu, char const* jobvt,
3633     lapack_int const* m, lapack_int const* n,
3634     float* A, lapack_int const* lda,
3635     float* S,
3636     float* U, lapack_int const* ldu,
3637     float* VT, lapack_int const* ldvt,
3638     float* work, lapack_int const* lwork,
3639     lapack_int* info
3640 #ifdef LAPACK_FORTRAN_STRLEN_END
3641     , FORTRAN_STRLEN, FORTRAN_STRLEN
3642 #endif
3643 );
3644 #ifdef LAPACK_FORTRAN_STRLEN_END
3645     #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3646 #else
3647     #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3648 #endif
3649 
3650 #define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
3651 void LAPACK_zgesvd_base(
3652     char const* jobu, char const* jobvt,
3653     lapack_int const* m, lapack_int const* n,
3654     lapack_complex_double* A, lapack_int const* lda,
3655     double* S,
3656     lapack_complex_double* U, lapack_int const* ldu,
3657     lapack_complex_double* VT, lapack_int const* ldvt,
3658     lapack_complex_double* work, lapack_int const* lwork,
3659     double* rwork,
3660     lapack_int* info
3661 #ifdef LAPACK_FORTRAN_STRLEN_END
3662     , FORTRAN_STRLEN, FORTRAN_STRLEN
3663 #endif
3664 );
3665 #ifdef LAPACK_FORTRAN_STRLEN_END
3666     #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3667 #else
3668     #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3669 #endif
3670 
3671 #define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
3672 void LAPACK_cgesvdq_base(
3673     char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3674     lapack_int const* m, lapack_int const* n,
3675     lapack_complex_float* A, lapack_int const* lda,
3676     float* S,
3677     lapack_complex_float* U, lapack_int const* ldu,
3678     lapack_complex_float* V, lapack_int const* ldv, lapack_int* numrank,
3679     lapack_int* iwork, lapack_int const* liwork,
3680     lapack_complex_float* cwork, lapack_int* lcwork,
3681     float* rwork, lapack_int const* lrwork,
3682     lapack_int* info
3683 #ifdef LAPACK_FORTRAN_STRLEN_END
3684     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3685 #endif
3686 );
3687 #ifdef LAPACK_FORTRAN_STRLEN_END
3688     #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3689 #else
3690     #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3691 #endif
3692 
3693 #define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
3694 void LAPACK_dgesvdq_base(
3695     char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3696     lapack_int const* m, lapack_int const* n,
3697     double* A, lapack_int const* lda,
3698     double* S,
3699     double* U, lapack_int const* ldu,
3700     double* V, lapack_int const* ldv, lapack_int* numrank,
3701     lapack_int* iwork, lapack_int const* liwork,
3702     double* work, lapack_int* lwork,
3703     double* rwork, lapack_int const* lrwork,
3704     lapack_int* info
3705 #ifdef LAPACK_FORTRAN_STRLEN_END
3706     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3707 #endif
3708 );
3709 #ifdef LAPACK_FORTRAN_STRLEN_END
3710     #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3711 #else
3712     #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3713 #endif
3714 
3715 #define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
3716 void LAPACK_sgesvdq_base(
3717     char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3718     lapack_int const* m, lapack_int const* n,
3719     float* A, lapack_int const* lda,
3720     float* S,
3721     float* U, lapack_int const* ldu,
3722     float* V, lapack_int const* ldv, lapack_int* numrank,
3723     lapack_int* iwork, lapack_int const* liwork,
3724     float* work, lapack_int* lwork,
3725     float* rwork, lapack_int const* lrwork,
3726     lapack_int* info
3727 #ifdef LAPACK_FORTRAN_STRLEN_END
3728     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3729 #endif
3730 );
3731 #ifdef LAPACK_FORTRAN_STRLEN_END
3732     #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3733 #else
3734     #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3735 #endif
3736 
3737 #define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
3738 void LAPACK_zgesvdq_base(
3739     char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3740     lapack_int const* m, lapack_int const* n,
3741     lapack_complex_double* A, lapack_int const* lda,
3742     double* S,
3743     lapack_complex_double* U, lapack_int const* ldu,
3744     lapack_complex_double* V, lapack_int const* ldv, lapack_int* numrank,
3745     lapack_int* iwork, lapack_int const* liwork,
3746     lapack_complex_double* cwork, lapack_int* lcwork,
3747     double* rwork, lapack_int const* lrwork,
3748     lapack_int* info
3749 #ifdef LAPACK_FORTRAN_STRLEN_END
3750     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3751 #endif
3752 );
3753 #ifdef LAPACK_FORTRAN_STRLEN_END
3754     #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3755 #else
3756     #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3757 #endif
3758 
3759 #define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
3760 void LAPACK_cgesvdx_base(
3761     char const* jobu, char const* jobvt, char const* range,
3762     lapack_int const* m, lapack_int const* n,
3763     lapack_complex_float* A, lapack_int const* lda,
3764     float const* vl,
3765     float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3766     float* S,
3767     lapack_complex_float* U, lapack_int const* ldu,
3768     lapack_complex_float* VT, lapack_int const* ldvt,
3769     lapack_complex_float* work, lapack_int const* lwork,
3770     float* rwork,
3771     lapack_int* iwork,
3772     lapack_int* info
3773 #ifdef LAPACK_FORTRAN_STRLEN_END
3774     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3775 #endif
3776 );
3777 #ifdef LAPACK_FORTRAN_STRLEN_END
3778     #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3779 #else
3780     #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3781 #endif
3782 
3783 
3784 #define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
3785 void LAPACK_dgesvdx_base(
3786     char const* jobu, char const* jobvt, char const* range,
3787     lapack_int const* m, lapack_int const* n,
3788     double* A, lapack_int const* lda,
3789     double const* vl,
3790     double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3791     double* S,
3792     double* U, lapack_int const* ldu,
3793     double* VT, lapack_int const* ldvt,
3794     double* work, lapack_int const* lwork,
3795     lapack_int* iwork,
3796     lapack_int* info
3797 #ifdef LAPACK_FORTRAN_STRLEN_END
3798     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3799 #endif
3800 );
3801 #ifdef LAPACK_FORTRAN_STRLEN_END
3802     #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3803 #else
3804     #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3805 #endif
3806 
3807 #define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
3808 void LAPACK_sgesvdx_base(
3809     char const* jobu, char const* jobvt, char const* range,
3810     lapack_int const* m, lapack_int const* n,
3811     float* A, lapack_int const* lda,
3812     float const* vl,
3813     float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3814     float* S,
3815     float* U, lapack_int const* ldu,
3816     float* VT, lapack_int const* ldvt,
3817     float* work, lapack_int const* lwork,
3818     lapack_int* iwork,
3819     lapack_int* info
3820 #ifdef LAPACK_FORTRAN_STRLEN_END
3821     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3822 #endif
3823 );
3824 #ifdef LAPACK_FORTRAN_STRLEN_END
3825     #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3826 #else
3827     #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3828 #endif
3829 
3830 #define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
3831 void LAPACK_zgesvdx_base(
3832     char const* jobu, char const* jobvt, char const* range,
3833     lapack_int const* m, lapack_int const* n,
3834     lapack_complex_double* A, lapack_int const* lda,
3835     double const* vl,
3836     double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3837     double* S,
3838     lapack_complex_double* U, lapack_int const* ldu,
3839     lapack_complex_double* VT, lapack_int const* ldvt,
3840     lapack_complex_double* work, lapack_int const* lwork,
3841     double* rwork,
3842     lapack_int* iwork,
3843     lapack_int* info
3844 #ifdef LAPACK_FORTRAN_STRLEN_END
3845     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3846 #endif
3847 );
3848 #ifdef LAPACK_FORTRAN_STRLEN_END
3849     #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3850 #else
3851     #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3852 #endif
3853 
3854 #define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
3855 void LAPACK_cgesvj_base(
3856     char const* joba, char const* jobu, char const* jobv,
3857     lapack_int const* m, lapack_int const* n,
3858     lapack_complex_float* A, lapack_int const* lda,
3859     float* SVA, lapack_int const* mv,
3860     lapack_complex_float* V, lapack_int const* ldv,
3861     lapack_complex_float* cwork, lapack_int const* lwork,
3862     float* rwork, lapack_int const* lrwork,
3863     lapack_int* info
3864 #ifdef LAPACK_FORTRAN_STRLEN_END
3865     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3866 #endif
3867 );
3868 #ifdef LAPACK_FORTRAN_STRLEN_END
3869     #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3870 #else
3871     #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3872 #endif
3873 
3874 #define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
3875 void LAPACK_dgesvj_base(
3876     char const* joba, char const* jobu, char const* jobv,
3877     lapack_int const* m, lapack_int const* n,
3878     double* A, lapack_int const* lda,
3879     double* SVA, lapack_int const* mv,
3880     double* V, lapack_int const* ldv,
3881     double* work, lapack_int const* lwork,
3882     lapack_int* info
3883 #ifdef LAPACK_FORTRAN_STRLEN_END
3884     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3885 #endif
3886 );
3887 #ifdef LAPACK_FORTRAN_STRLEN_END
3888     #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3889 #else
3890     #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3891 #endif
3892 
3893 #define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
3894 void LAPACK_sgesvj_base(
3895     char const* joba, char const* jobu, char const* jobv,
3896     lapack_int const* m, lapack_int const* n,
3897     float* A, lapack_int const* lda,
3898     float* SVA, lapack_int const* mv,
3899     float* V, lapack_int const* ldv,
3900     float* work, lapack_int const* lwork,
3901     lapack_int* info
3902 #ifdef LAPACK_FORTRAN_STRLEN_END
3903     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3904 #endif
3905 );
3906 #ifdef LAPACK_FORTRAN_STRLEN_END
3907     #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3908 #else
3909     #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3910 #endif
3911 
3912 #define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
3913 void LAPACK_zgesvj_base(
3914     char const* joba, char const* jobu, char const* jobv,
3915     lapack_int const* m, lapack_int const* n,
3916     lapack_complex_double* A, lapack_int const* lda,
3917     double* SVA, lapack_int const* mv,
3918     lapack_complex_double* V, lapack_int const* ldv,
3919     lapack_complex_double* cwork, lapack_int const* lwork,
3920     double* rwork, lapack_int const* lrwork,
3921     lapack_int* info
3922 #ifdef LAPACK_FORTRAN_STRLEN_END
3923     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3924 #endif
3925 );
3926 #ifdef LAPACK_FORTRAN_STRLEN_END
3927     #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3928 #else
3929     #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3930 #endif
3931 
3932 #define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
3933 void LAPACK_cgesvx_base(
3934     char const* fact, char const* trans,
3935     lapack_int const* n, lapack_int const* nrhs,
3936     lapack_complex_float* A, lapack_int const* lda,
3937     lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3938     float* R,
3939     float* C,
3940     lapack_complex_float* B,
3941     lapack_int const* ldb,
3942     lapack_complex_float* X, lapack_int const* ldx,
3943     float* rcond,
3944     float* ferr,
3945     float* berr,
3946     lapack_complex_float* work,
3947     float* rwork,
3948     lapack_int* info
3949 #ifdef LAPACK_FORTRAN_STRLEN_END
3950     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3951 #endif
3952 );
3953 #ifdef LAPACK_FORTRAN_STRLEN_END
3954     #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3955 #else
3956     #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3957 #endif
3958 
3959 #define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
3960 void LAPACK_dgesvx_base(
3961     char const* fact, char const* trans,
3962     lapack_int const* n, lapack_int const* nrhs,
3963     double* A, lapack_int const* lda,
3964     double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3965     double* R,
3966     double* C,
3967     double* B,
3968     lapack_int const* ldb,
3969     double* X, lapack_int const* ldx,
3970     double* rcond,
3971     double* ferr,
3972     double* berr,
3973     double* work,
3974     lapack_int* iwork,
3975     lapack_int* info
3976 #ifdef LAPACK_FORTRAN_STRLEN_END
3977     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
3978 #endif
3979 );
3980 #ifdef LAPACK_FORTRAN_STRLEN_END
3981     #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3982 #else
3983     #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3984 #endif
3985 
3986 #define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
3987 void LAPACK_sgesvx_base(
3988     char const* fact, char const* trans,
3989     lapack_int const* n, lapack_int const* nrhs,
3990     float* A, lapack_int const* lda,
3991     float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3992     float* R,
3993     float* C,
3994     float* B,
3995     lapack_int const* ldb,
3996     float* X, lapack_int const* ldx,
3997     float* rcond,
3998     float* ferr,
3999     float* berr,
4000     float* work,
4001     lapack_int* iwork,
4002     lapack_int* info
4003 #ifdef LAPACK_FORTRAN_STRLEN_END
4004     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4005 #endif
4006 );
4007 #ifdef LAPACK_FORTRAN_STRLEN_END
4008     #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
4009 #else
4010     #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
4011 #endif
4012 
4013 #define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
4014 void LAPACK_zgesvx_base(
4015     char const* fact, char const* trans,
4016     lapack_int const* n, lapack_int const* nrhs,
4017     lapack_complex_double* A, lapack_int const* lda,
4018     lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
4019     double* R,
4020     double* C,
4021     lapack_complex_double* B,
4022     lapack_int const* ldb,
4023     lapack_complex_double* X, lapack_int const* ldx,
4024     double* rcond,
4025     double* ferr,
4026     double* berr,
4027     lapack_complex_double* work,
4028     double* rwork,
4029     lapack_int* info
4030 #ifdef LAPACK_FORTRAN_STRLEN_END
4031     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4032 #endif
4033 );
4034 #ifdef LAPACK_FORTRAN_STRLEN_END
4035     #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
4036 #else
4037     #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
4038 #endif
4039 
4040 #define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
4041 void LAPACK_cgesvxx_base(
4042     char const* fact, char const* trans,
4043     lapack_int const* n, lapack_int const* nrhs,
4044     lapack_complex_float* A, lapack_int const* lda,
4045     lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
4046     float* R,
4047     float* C,
4048     lapack_complex_float* B,
4049     lapack_int const* ldb,
4050     lapack_complex_float* X, lapack_int const* ldx,
4051     float* rcond,
4052     float* rpvgrw,
4053     float* berr, lapack_int const* n_err_bnds,
4054     float* err_bnds_norm,
4055     float* err_bnds_comp, lapack_int const* nparams,
4056     float* params,
4057     lapack_complex_float* work,
4058     float* rwork,
4059     lapack_int* info
4060 #ifdef LAPACK_FORTRAN_STRLEN_END
4061     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4062 #endif
4063 );
4064 #ifdef LAPACK_FORTRAN_STRLEN_END
4065     #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
4066 #else
4067     #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
4068 #endif
4069 
4070 #define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
4071 void LAPACK_dgesvxx_base(
4072     char const* fact, char const* trans,
4073     lapack_int const* n, lapack_int const* nrhs,
4074     double* A, lapack_int const* lda,
4075     double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
4076     double* R,
4077     double* C,
4078     double* B,
4079     lapack_int const* ldb,
4080     double* X, lapack_int const* ldx,
4081     double* rcond,
4082     double* rpvgrw,
4083     double* berr, lapack_int const* n_err_bnds,
4084     double* err_bnds_norm,
4085     double* err_bnds_comp, lapack_int const* nparams,
4086     double* params,
4087     double* work,
4088     lapack_int* iwork,
4089     lapack_int* info
4090 #ifdef LAPACK_FORTRAN_STRLEN_END
4091     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4092 #endif
4093 );
4094 #ifdef LAPACK_FORTRAN_STRLEN_END
4095     #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
4096 #else
4097     #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
4098 #endif
4099 
4100 #define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
4101 void LAPACK_sgesvxx_base(
4102     char const* fact, char const* trans,
4103     lapack_int const* n, lapack_int const* nrhs,
4104     float* A, lapack_int const* lda,
4105     float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
4106     float* R,
4107     float* C,
4108     float* B,
4109     lapack_int const* ldb,
4110     float* X, lapack_int const* ldx,
4111     float* rcond,
4112     float* rpvgrw,
4113     float* berr, lapack_int const* n_err_bnds,
4114     float* err_bnds_norm,
4115     float* err_bnds_comp, lapack_int const* nparams,
4116     float* params,
4117     float* work,
4118     lapack_int* iwork,
4119     lapack_int* info
4120 #ifdef LAPACK_FORTRAN_STRLEN_END
4121     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4122 #endif
4123 );
4124 #ifdef LAPACK_FORTRAN_STRLEN_END
4125     #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
4126 #else
4127     #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
4128 #endif
4129 
4130 #define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
4131 void LAPACK_zgesvxx_base(
4132     char const* fact, char const* trans,
4133     lapack_int const* n, lapack_int const* nrhs,
4134     lapack_complex_double* A, lapack_int const* lda,
4135     lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
4136     double* R,
4137     double* C,
4138     lapack_complex_double* B,
4139     lapack_int const* ldb,
4140     lapack_complex_double* X, lapack_int const* ldx,
4141     double* rcond,
4142     double* rpvgrw,
4143     double* berr, lapack_int const* n_err_bnds,
4144     double* err_bnds_norm,
4145     double* err_bnds_comp, lapack_int const* nparams,
4146     double* params,
4147     lapack_complex_double* work,
4148     double* rwork,
4149     lapack_int* info
4150 #ifdef LAPACK_FORTRAN_STRLEN_END
4151     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4152 #endif
4153 );
4154 #ifdef LAPACK_FORTRAN_STRLEN_END
4155     #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
4156 #else
4157     #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
4158 #endif
4159 
4160 #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
4161 lapack_int LAPACK_cgetf2(
4162     lapack_int const* m, lapack_int const* n,
4163     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
4164     lapack_int* info );
4165 
4166 #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
4167 lapack_int LAPACK_dgetf2(
4168     lapack_int const* m, lapack_int const* n,
4169     double* A, lapack_int const* lda, lapack_int* ipiv,
4170     lapack_int* info );
4171 
4172 #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
4173 lapack_int LAPACK_sgetf2(
4174     lapack_int const* m, lapack_int const* n,
4175     float* A, lapack_int const* lda, lapack_int* ipiv,
4176     lapack_int* info );
4177 
4178 #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
4179 lapack_int LAPACK_zgetf2(
4180     lapack_int const* m, lapack_int const* n,
4181     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
4182     lapack_int* info );
4183 
4184 #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
4185 lapack_int LAPACK_cgetrf(
4186     lapack_int const* m, lapack_int const* n,
4187     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
4188     lapack_int* info );
4189 
4190 #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
4191 lapack_int LAPACK_dgetrf(
4192     lapack_int const* m, lapack_int const* n,
4193     double* A, lapack_int const* lda, lapack_int* ipiv,
4194     lapack_int* info );
4195 
4196 #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
4197 lapack_int LAPACK_sgetrf(
4198     lapack_int const* m, lapack_int const* n,
4199     float* A, lapack_int const* lda, lapack_int* ipiv,
4200     lapack_int* info );
4201 
4202 #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
4203 lapack_int LAPACK_zgetrf(
4204     lapack_int const* m, lapack_int const* n,
4205     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
4206     lapack_int* info );
4207 
4208 #define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
4209 void LAPACK_cgetrf2(
4210     lapack_int const* m, lapack_int const* n,
4211     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
4212     lapack_int* info );
4213 
4214 #define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
4215 void LAPACK_dgetrf2(
4216     lapack_int const* m, lapack_int const* n,
4217     double* A, lapack_int const* lda, lapack_int* ipiv,
4218     lapack_int* info );
4219 
4220 #define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
4221 void LAPACK_sgetrf2(
4222     lapack_int const* m, lapack_int const* n,
4223     float* A, lapack_int const* lda, lapack_int* ipiv,
4224     lapack_int* info );
4225 
4226 #define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
4227 void LAPACK_zgetrf2(
4228     lapack_int const* m, lapack_int const* n,
4229     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
4230     lapack_int* info );
4231 
4232 #define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
4233 void LAPACK_cgetri(
4234     lapack_int const* n,
4235     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
4236     lapack_complex_float* work, lapack_int const* lwork,
4237     lapack_int* info );
4238 
4239 #define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4240 void LAPACK_dgetri(
4241     lapack_int const* n,
4242     double* A, lapack_int const* lda, lapack_int const* ipiv,
4243     double* work, lapack_int const* lwork,
4244     lapack_int* info );
4245 
4246 #define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4247 void LAPACK_sgetri(
4248     lapack_int const* n,
4249     float* A, lapack_int const* lda, lapack_int const* ipiv,
4250     float* work, lapack_int const* lwork,
4251     lapack_int* info );
4252 
4253 #define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4254 void LAPACK_zgetri(
4255     lapack_int const* n,
4256     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
4257     lapack_complex_double* work, lapack_int const* lwork,
4258     lapack_int* info );
4259 
4260 #define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4261 lapack_int LAPACK_cgetrs_base(
4262     char const* trans,
4263     lapack_int const* n, lapack_int const* nrhs,
4264     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
4265     lapack_complex_float* B, lapack_int const* ldb,
4266     lapack_int* info
4267 #ifdef LAPACK_FORTRAN_STRLEN_END
4268     , FORTRAN_STRLEN
4269 #endif
4270 );
4271 #ifdef LAPACK_FORTRAN_STRLEN_END
4272     #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4273 #else
4274     #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4275 #endif
4276 
4277 #define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4278 lapack_int LAPACK_dgetrs_base(
4279     char const* trans,
4280     lapack_int const* n, lapack_int const* nrhs,
4281     double const* A, lapack_int const* lda, lapack_int const* ipiv,
4282     double* B, lapack_int const* ldb,
4283     lapack_int* info
4284 #ifdef LAPACK_FORTRAN_STRLEN_END
4285     , FORTRAN_STRLEN
4286 #endif
4287 );
4288 #ifdef LAPACK_FORTRAN_STRLEN_END
4289     #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4290 #else
4291     #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4292 #endif
4293 
4294 #define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4295 lapack_int LAPACK_sgetrs_base(
4296     char const* trans,
4297     lapack_int const* n, lapack_int const* nrhs,
4298     float const* A, lapack_int const* lda, lapack_int const* ipiv,
4299     float* B, lapack_int const* ldb,
4300     lapack_int* info
4301 #ifdef LAPACK_FORTRAN_STRLEN_END
4302     , FORTRAN_STRLEN
4303 #endif
4304 );
4305 #ifdef LAPACK_FORTRAN_STRLEN_END
4306     #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4307 #else
4308     #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4309 #endif
4310 
4311 #define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4312 lapack_int LAPACK_zgetrs_base(
4313     char const* trans,
4314     lapack_int const* n, lapack_int const* nrhs,
4315     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
4316     lapack_complex_double* B, lapack_int const* ldb,
4317     lapack_int* info
4318 #ifdef LAPACK_FORTRAN_STRLEN_END
4319     , FORTRAN_STRLEN
4320 #endif
4321 );
4322 #ifdef LAPACK_FORTRAN_STRLEN_END
4323     #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4324 #else
4325     #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4326 #endif
4327 
4328 #define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4329 void LAPACK_cgetsls_base(
4330     char const* trans,
4331     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4332     lapack_complex_float* A, lapack_int const* lda,
4333     lapack_complex_float* B, lapack_int const* ldb,
4334     lapack_complex_float* work, lapack_int const* lwork,
4335     lapack_int* info
4336 #ifdef LAPACK_FORTRAN_STRLEN_END
4337     , FORTRAN_STRLEN
4338 #endif
4339 );
4340 #ifdef LAPACK_FORTRAN_STRLEN_END
4341     #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4342 #else
4343     #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4344 #endif
4345 
4346 #define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4347 void LAPACK_dgetsls_base(
4348     char const* trans,
4349     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4350     double* A, lapack_int const* lda,
4351     double* B, lapack_int const* ldb,
4352     double* work, lapack_int const* lwork,
4353     lapack_int* info
4354 #ifdef LAPACK_FORTRAN_STRLEN_END
4355     , FORTRAN_STRLEN
4356 #endif
4357 );
4358 #ifdef LAPACK_FORTRAN_STRLEN_END
4359     #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4360 #else
4361     #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4362 #endif
4363 
4364 #define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4365 void LAPACK_sgetsls_base(
4366     char const* trans,
4367     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4368     float* A, lapack_int const* lda,
4369     float* B, lapack_int const* ldb,
4370     float* work, lapack_int const* lwork,
4371     lapack_int* info
4372 #ifdef LAPACK_FORTRAN_STRLEN_END
4373     , FORTRAN_STRLEN
4374 #endif
4375 );
4376 #ifdef LAPACK_FORTRAN_STRLEN_END
4377     #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4378 #else
4379     #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4380 #endif
4381 
4382 #define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4383 void LAPACK_zgetsls_base(
4384     char const* trans,
4385     lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4386     lapack_complex_double* A, lapack_int const* lda,
4387     lapack_complex_double* B, lapack_int const* ldb,
4388     lapack_complex_double* work, lapack_int const* lwork,
4389     lapack_int* info
4390 #ifdef LAPACK_FORTRAN_STRLEN_END
4391     , FORTRAN_STRLEN
4392 #endif
4393 );
4394 #ifdef LAPACK_FORTRAN_STRLEN_END
4395     #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4396 #else
4397     #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4398 #endif
4399 
4400 #define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
4401 void LAPACK_cgetsqrhrt(
4402     lapack_int const* m, lapack_int const* n,
4403     lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4404     lapack_complex_float* A, lapack_int const* lda,
4405     lapack_complex_float* T, lapack_int const* ldt,
4406     lapack_complex_float* work, lapack_int const* lwork,
4407     lapack_int* info );
4408 
4409 #define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT)
4410 void LAPACK_dgetsqrhrt(
4411     lapack_int const* m, lapack_int const* n,
4412     lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4413     double* A, lapack_int const* lda,
4414     double* T, lapack_int const* ldt,
4415     double* work, lapack_int const* lwork,
4416     lapack_int* info );
4417 
4418 #define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT)
4419 void LAPACK_sgetsqrhrt(
4420     lapack_int const* m, lapack_int const* n,
4421     lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4422     float* A, lapack_int const* lda,
4423     float* T, lapack_int const* ldt,
4424     float* work, lapack_int const* lwork,
4425     lapack_int* info );
4426 
4427 #define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT)
4428 void LAPACK_zgetsqrhrt(
4429     lapack_int const* m, lapack_int const* n,
4430     lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4431     lapack_complex_double* A, lapack_int const* lda,
4432     lapack_complex_double* T, lapack_int const* ldt,
4433     lapack_complex_double* work, lapack_int const* lwork,
4434     lapack_int* info );
4435 
4436 #define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK)
4437 void LAPACK_cggbak_base(
4438     char const* job, char const* side,
4439     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4440     float const* lscale,
4441     float const* rscale, lapack_int const* m,
4442     lapack_complex_float* V, lapack_int const* ldv,
4443     lapack_int* info
4444 #ifdef LAPACK_FORTRAN_STRLEN_END
4445     , FORTRAN_STRLEN, FORTRAN_STRLEN
4446 #endif
4447 );
4448 #ifdef LAPACK_FORTRAN_STRLEN_END
4449     #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1)
4450 #else
4451     #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__)
4452 #endif
4453 
4454 #define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK)
4455 void LAPACK_dggbak_base(
4456     char const* job, char const* side,
4457     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4458     double const* lscale,
4459     double const* rscale, lapack_int const* m,
4460     double* V, lapack_int const* ldv,
4461     lapack_int* info
4462 #ifdef LAPACK_FORTRAN_STRLEN_END
4463     , FORTRAN_STRLEN, FORTRAN_STRLEN
4464 #endif
4465 );
4466 #ifdef LAPACK_FORTRAN_STRLEN_END
4467     #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1)
4468 #else
4469     #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__)
4470 #endif
4471 
4472 #define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK)
4473 void LAPACK_sggbak_base(
4474     char const* job, char const* side,
4475     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4476     float const* lscale,
4477     float const* rscale, lapack_int const* m,
4478     float* V, lapack_int const* ldv,
4479     lapack_int* info
4480 #ifdef LAPACK_FORTRAN_STRLEN_END
4481     , FORTRAN_STRLEN, FORTRAN_STRLEN
4482 #endif
4483 );
4484 #ifdef LAPACK_FORTRAN_STRLEN_END
4485     #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1)
4486 #else
4487     #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__)
4488 #endif
4489 
4490 #define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK)
4491 void LAPACK_zggbak_base(
4492     char const* job, char const* side,
4493     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4494     double const* lscale,
4495     double const* rscale, lapack_int const* m,
4496     lapack_complex_double* V, lapack_int const* ldv,
4497     lapack_int* info
4498 #ifdef LAPACK_FORTRAN_STRLEN_END
4499     , FORTRAN_STRLEN, FORTRAN_STRLEN
4500 #endif
4501 );
4502 #ifdef LAPACK_FORTRAN_STRLEN_END
4503     #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1)
4504 #else
4505     #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__)
4506 #endif
4507 
4508 #define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL)
4509 void LAPACK_cggbal_base(
4510     char const* job,
4511     lapack_int const* n,
4512     lapack_complex_float* A, lapack_int const* lda,
4513     lapack_complex_float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4514     float* lscale,
4515     float* rscale,
4516     float* work,
4517     lapack_int* info
4518 #ifdef LAPACK_FORTRAN_STRLEN_END
4519     , FORTRAN_STRLEN
4520 #endif
4521 );
4522 #ifdef LAPACK_FORTRAN_STRLEN_END
4523     #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1)
4524 #else
4525     #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__)
4526 #endif
4527 
4528 #define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL)
4529 void LAPACK_dggbal_base(
4530     char const* job,
4531     lapack_int const* n,
4532     double* A, lapack_int const* lda,
4533     double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4534     double* lscale,
4535     double* rscale,
4536     double* work,
4537     lapack_int* info
4538 #ifdef LAPACK_FORTRAN_STRLEN_END
4539     , FORTRAN_STRLEN
4540 #endif
4541 );
4542 #ifdef LAPACK_FORTRAN_STRLEN_END
4543     #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1)
4544 #else
4545     #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__)
4546 #endif
4547 
4548 #define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL)
4549 void LAPACK_sggbal_base(
4550     char const* job,
4551     lapack_int const* n,
4552     float* A, lapack_int const* lda,
4553     float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4554     float* lscale,
4555     float* rscale,
4556     float* work,
4557     lapack_int* info
4558 #ifdef LAPACK_FORTRAN_STRLEN_END
4559     , FORTRAN_STRLEN
4560 #endif
4561 );
4562 #ifdef LAPACK_FORTRAN_STRLEN_END
4563     #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1)
4564 #else
4565     #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__)
4566 #endif
4567 
4568 #define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL)
4569 void LAPACK_zggbal_base(
4570     char const* job,
4571     lapack_int const* n,
4572     lapack_complex_double* A, lapack_int const* lda,
4573     lapack_complex_double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4574     double* lscale,
4575     double* rscale,
4576     double* work,
4577     lapack_int* info
4578 #ifdef LAPACK_FORTRAN_STRLEN_END
4579     , FORTRAN_STRLEN
4580 #endif
4581 );
4582 #ifdef LAPACK_FORTRAN_STRLEN_END
4583     #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1)
4584 #else
4585     #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__)
4586 #endif
4587 
4588 #define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES)
4589 void LAPACK_cgges_base(
4590     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
4591     lapack_int const* n,
4592     lapack_complex_float* A, lapack_int const* lda,
4593     lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4594     lapack_complex_float* alpha,
4595     lapack_complex_float* beta,
4596     lapack_complex_float* VSL, lapack_int const* ldvsl,
4597     lapack_complex_float* VSR, lapack_int const* ldvsr,
4598     lapack_complex_float* work, lapack_int const* lwork,
4599     float* rwork, lapack_logical* BWORK,
4600     lapack_int* info
4601 #ifdef LAPACK_FORTRAN_STRLEN_END
4602     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4603 #endif
4604 );
4605 #ifdef LAPACK_FORTRAN_STRLEN_END
4606     #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1)
4607 #else
4608     #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__)
4609 #endif
4610 
4611 #define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES)
4612 void LAPACK_dgges_base(
4613     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
4614     lapack_int const* n,
4615     double* A, lapack_int const* lda,
4616     double* B, lapack_int const* ldb, lapack_int* sdim,
4617     double* alphar,
4618     double* alphai,
4619     double* beta,
4620     double* VSL, lapack_int const* ldvsl,
4621     double* VSR, lapack_int const* ldvsr,
4622     double* work, lapack_int const* lwork, lapack_logical* BWORK,
4623     lapack_int* info
4624 #ifdef LAPACK_FORTRAN_STRLEN_END
4625     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4626 #endif
4627 );
4628 #ifdef LAPACK_FORTRAN_STRLEN_END
4629     #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1)
4630 #else
4631     #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__)
4632 #endif
4633 
4634 #define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES)
4635 void LAPACK_sgges_base(
4636     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
4637     lapack_int const* n,
4638     float* A, lapack_int const* lda,
4639     float* B, lapack_int const* ldb, lapack_int* sdim,
4640     float* alphar,
4641     float* alphai,
4642     float* beta,
4643     float* VSL, lapack_int const* ldvsl,
4644     float* VSR, lapack_int const* ldvsr,
4645     float* work, lapack_int const* lwork, lapack_logical* BWORK,
4646     lapack_int* info
4647 #ifdef LAPACK_FORTRAN_STRLEN_END
4648     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4649 #endif
4650 );
4651 #ifdef LAPACK_FORTRAN_STRLEN_END
4652     #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1)
4653 #else
4654     #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__)
4655 #endif
4656 
4657 #define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES)
4658 void LAPACK_zgges_base(
4659     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
4660     lapack_int const* n,
4661     lapack_complex_double* A, lapack_int const* lda,
4662     lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4663     lapack_complex_double* alpha,
4664     lapack_complex_double* beta,
4665     lapack_complex_double* VSL, lapack_int const* ldvsl,
4666     lapack_complex_double* VSR, lapack_int const* ldvsr,
4667     lapack_complex_double* work, lapack_int const* lwork,
4668     double* rwork, lapack_logical* BWORK,
4669     lapack_int* info
4670 #ifdef LAPACK_FORTRAN_STRLEN_END
4671     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4672 #endif
4673 );
4674 #ifdef LAPACK_FORTRAN_STRLEN_END
4675     #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1)
4676 #else
4677     #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__)
4678 #endif
4679 
4680 #define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3)
4681 void LAPACK_cgges3_base(
4682     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
4683     lapack_int const* n,
4684     lapack_complex_float* A, lapack_int const* lda,
4685     lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4686     lapack_complex_float* alpha,
4687     lapack_complex_float* beta,
4688     lapack_complex_float* VSL, lapack_int const* ldvsl,
4689     lapack_complex_float* VSR, lapack_int const* ldvsr,
4690     lapack_complex_float* work, lapack_int const* lwork,
4691     float* rwork, lapack_logical* BWORK,
4692     lapack_int* info
4693 #ifdef LAPACK_FORTRAN_STRLEN_END
4694     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4695 #endif
4696 );
4697 #ifdef LAPACK_FORTRAN_STRLEN_END
4698     #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1)
4699 #else
4700     #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__)
4701 #endif
4702 
4703 #define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3)
4704 void LAPACK_dgges3_base(
4705     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
4706     lapack_int const* n,
4707     double* A, lapack_int const* lda,
4708     double* B, lapack_int const* ldb, lapack_int* sdim,
4709     double* alphar,
4710     double* alphai,
4711     double* beta,
4712     double* VSL, lapack_int const* ldvsl,
4713     double* VSR, lapack_int const* ldvsr,
4714     double* work, lapack_int const* lwork, lapack_logical* BWORK,
4715     lapack_int* info
4716 #ifdef LAPACK_FORTRAN_STRLEN_END
4717     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4718 #endif
4719 );
4720 #ifdef LAPACK_FORTRAN_STRLEN_END
4721     #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1)
4722 #else
4723     #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__)
4724 #endif
4725 
4726 #define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3)
4727 void LAPACK_sgges3_base(
4728     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
4729     lapack_int const* n,
4730     float* A, lapack_int const* lda,
4731     float* B, lapack_int const* ldb, lapack_int* sdim,
4732     float* alphar,
4733     float* alphai,
4734     float* beta,
4735     float* VSL, lapack_int const* ldvsl,
4736     float* VSR, lapack_int const* ldvsr,
4737     float* work, lapack_int const* lwork, lapack_logical* BWORK,
4738     lapack_int* info
4739 #ifdef LAPACK_FORTRAN_STRLEN_END
4740     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4741 #endif
4742 );
4743 #ifdef LAPACK_FORTRAN_STRLEN_END
4744     #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1)
4745 #else
4746     #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__)
4747 #endif
4748 
4749 #define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3)
4750 void LAPACK_zgges3_base(
4751     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
4752     lapack_int const* n,
4753     lapack_complex_double* A, lapack_int const* lda,
4754     lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4755     lapack_complex_double* alpha,
4756     lapack_complex_double* beta,
4757     lapack_complex_double* VSL, lapack_int const* ldvsl,
4758     lapack_complex_double* VSR, lapack_int const* ldvsr,
4759     lapack_complex_double* work, lapack_int const* lwork,
4760     double* rwork, lapack_logical* BWORK,
4761     lapack_int* info
4762 #ifdef LAPACK_FORTRAN_STRLEN_END
4763     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4764 #endif
4765 );
4766 #ifdef LAPACK_FORTRAN_STRLEN_END
4767     #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1)
4768 #else
4769     #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__)
4770 #endif
4771 
4772 #define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX)
4773 void LAPACK_cggesx_base(
4774     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense,
4775     lapack_int const* n,
4776     lapack_complex_float* A, lapack_int const* lda,
4777     lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4778     lapack_complex_float* alpha,
4779     lapack_complex_float* beta,
4780     lapack_complex_float* VSL, lapack_int const* ldvsl,
4781     lapack_complex_float* VSR, lapack_int const* ldvsr,
4782     float* rconde,
4783     float* rcondv,
4784     lapack_complex_float* work, lapack_int const* lwork,
4785     float* rwork,
4786     lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4787     lapack_int* info
4788 #ifdef LAPACK_FORTRAN_STRLEN_END
4789     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4790 #endif
4791 );
4792 #ifdef LAPACK_FORTRAN_STRLEN_END
4793     #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4794 #else
4795     #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__)
4796 #endif
4797 
4798 #define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX)
4799 void LAPACK_dggesx_base(
4800     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense,
4801     lapack_int const* n,
4802     double* A, lapack_int const* lda,
4803     double* B, lapack_int const* ldb, lapack_int* sdim,
4804     double* alphar,
4805     double* alphai,
4806     double* beta,
4807     double* VSL, lapack_int const* ldvsl,
4808     double* VSR, lapack_int const* ldvsr,
4809     double* rconde,
4810     double* rcondv,
4811     double* work, lapack_int const* lwork,
4812     lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4813     lapack_int* info
4814 #ifdef LAPACK_FORTRAN_STRLEN_END
4815     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4816 #endif
4817 );
4818 #ifdef LAPACK_FORTRAN_STRLEN_END
4819     #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4820 #else
4821     #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__)
4822 #endif
4823 
4824 #define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX)
4825 void LAPACK_sggesx_base(
4826     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense,
4827     lapack_int const* n,
4828     float* A, lapack_int const* lda,
4829     float* B, lapack_int const* ldb, lapack_int* sdim,
4830     float* alphar,
4831     float* alphai,
4832     float* beta,
4833     float* VSL, lapack_int const* ldvsl,
4834     float* VSR, lapack_int const* ldvsr,
4835     float* rconde,
4836     float* rcondv,
4837     float* work, lapack_int const* lwork,
4838     lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4839     lapack_int* info
4840 #ifdef LAPACK_FORTRAN_STRLEN_END
4841     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4842 #endif
4843 );
4844 #ifdef LAPACK_FORTRAN_STRLEN_END
4845     #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4846 #else
4847     #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__)
4848 #endif
4849 
4850 #define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX)
4851 void LAPACK_zggesx_base(
4852     char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense,
4853     lapack_int const* n,
4854     lapack_complex_double* A, lapack_int const* lda,
4855     lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4856     lapack_complex_double* alpha,
4857     lapack_complex_double* beta,
4858     lapack_complex_double* VSL, lapack_int const* ldvsl,
4859     lapack_complex_double* VSR, lapack_int const* ldvsr,
4860     double* rconde,
4861     double* rcondv,
4862     lapack_complex_double* work, lapack_int const* lwork,
4863     double* rwork,
4864     lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4865     lapack_int* info
4866 #ifdef LAPACK_FORTRAN_STRLEN_END
4867     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
4868 #endif
4869 );
4870 #ifdef LAPACK_FORTRAN_STRLEN_END
4871     #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4872 #else
4873     #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__)
4874 #endif
4875 
4876 #define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV)
4877 void LAPACK_cggev_base(
4878     char const* jobvl, char const* jobvr,
4879     lapack_int const* n,
4880     lapack_complex_float* A, lapack_int const* lda,
4881     lapack_complex_float* B, lapack_int const* ldb,
4882     lapack_complex_float* alpha,
4883     lapack_complex_float* beta,
4884     lapack_complex_float* VL, lapack_int const* ldvl,
4885     lapack_complex_float* VR, lapack_int const* ldvr,
4886     lapack_complex_float* work, lapack_int const* lwork,
4887     float* rwork,
4888     lapack_int* info
4889 #ifdef LAPACK_FORTRAN_STRLEN_END
4890     , FORTRAN_STRLEN, FORTRAN_STRLEN
4891 #endif
4892 );
4893 #ifdef LAPACK_FORTRAN_STRLEN_END
4894     #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1)
4895 #else
4896     #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__)
4897 #endif
4898 
4899 #define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV)
4900 void LAPACK_dggev_base(
4901     char const* jobvl, char const* jobvr,
4902     lapack_int const* n,
4903     double* A, lapack_int const* lda,
4904     double* B, lapack_int const* ldb,
4905     double* alphar,
4906     double* alphai,
4907     double* beta,
4908     double* VL, lapack_int const* ldvl,
4909     double* VR, lapack_int const* ldvr,
4910     double* work, lapack_int const* lwork,
4911     lapack_int* info
4912 #ifdef LAPACK_FORTRAN_STRLEN_END
4913     , FORTRAN_STRLEN, FORTRAN_STRLEN
4914 #endif
4915 );
4916 #ifdef LAPACK_FORTRAN_STRLEN_END
4917     #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1)
4918 #else
4919     #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__)
4920 #endif
4921 
4922 #define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV)
4923 void LAPACK_sggev_base(
4924     char const* jobvl, char const* jobvr,
4925     lapack_int const* n,
4926     float* A, lapack_int const* lda,
4927     float* B, lapack_int const* ldb,
4928     float* alphar,
4929     float* alphai,
4930     float* beta,
4931     float* VL, lapack_int const* ldvl,
4932     float* VR, lapack_int const* ldvr,
4933     float* work, lapack_int const* lwork,
4934     lapack_int* info
4935 #ifdef LAPACK_FORTRAN_STRLEN_END
4936     , FORTRAN_STRLEN, FORTRAN_STRLEN
4937 #endif
4938 );
4939 #ifdef LAPACK_FORTRAN_STRLEN_END
4940     #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1)
4941 #else
4942     #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__)
4943 #endif
4944 
4945 #define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV)
4946 void LAPACK_zggev_base(
4947     char const* jobvl, char const* jobvr,
4948     lapack_int const* n,
4949     lapack_complex_double* A, lapack_int const* lda,
4950     lapack_complex_double* B, lapack_int const* ldb,
4951     lapack_complex_double* alpha,
4952     lapack_complex_double* beta,
4953     lapack_complex_double* VL, lapack_int const* ldvl,
4954     lapack_complex_double* VR, lapack_int const* ldvr,
4955     lapack_complex_double* work, lapack_int const* lwork,
4956     double* rwork,
4957     lapack_int* info
4958 #ifdef LAPACK_FORTRAN_STRLEN_END
4959     , FORTRAN_STRLEN, FORTRAN_STRLEN
4960 #endif
4961 );
4962 #ifdef LAPACK_FORTRAN_STRLEN_END
4963     #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1)
4964 #else
4965     #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__)
4966 #endif
4967 
4968 #define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3)
4969 void LAPACK_cggev3_base(
4970     char const* jobvl, char const* jobvr,
4971     lapack_int const* n,
4972     lapack_complex_float* A, lapack_int const* lda,
4973     lapack_complex_float* B, lapack_int const* ldb,
4974     lapack_complex_float* alpha,
4975     lapack_complex_float* beta,
4976     lapack_complex_float* VL, lapack_int const* ldvl,
4977     lapack_complex_float* VR, lapack_int const* ldvr,
4978     lapack_complex_float* work, lapack_int const* lwork,
4979     float* rwork,
4980     lapack_int* info
4981 #ifdef LAPACK_FORTRAN_STRLEN_END
4982     , FORTRAN_STRLEN, FORTRAN_STRLEN
4983 #endif
4984 );
4985 #ifdef LAPACK_FORTRAN_STRLEN_END
4986     #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1)
4987 #else
4988     #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__)
4989 #endif
4990 
4991 #define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3)
4992 void LAPACK_dggev3_base(
4993     char const* jobvl, char const* jobvr,
4994     lapack_int const* n,
4995     double* A, lapack_int const* lda,
4996     double* B, lapack_int const* ldb,
4997     double* alphar,
4998     double* alphai,
4999     double* beta,
5000     double* VL, lapack_int const* ldvl,
5001     double* VR, lapack_int const* ldvr,
5002     double* work, lapack_int const* lwork,
5003     lapack_int* info
5004 #ifdef LAPACK_FORTRAN_STRLEN_END
5005     , FORTRAN_STRLEN, FORTRAN_STRLEN
5006 #endif
5007 );
5008 #ifdef LAPACK_FORTRAN_STRLEN_END
5009     #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1)
5010 #else
5011     #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__)
5012 #endif
5013 
5014 #define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3)
5015 void LAPACK_sggev3_base(
5016     char const* jobvl, char const* jobvr,
5017     lapack_int const* n,
5018     float* A, lapack_int const* lda,
5019     float* B, lapack_int const* ldb,
5020     float* alphar,
5021     float* alphai,
5022     float* beta,
5023     float* VL, lapack_int const* ldvl,
5024     float* VR, lapack_int const* ldvr,
5025     float* work, lapack_int const* lwork,
5026     lapack_int* info
5027 #ifdef LAPACK_FORTRAN_STRLEN_END
5028     , FORTRAN_STRLEN, FORTRAN_STRLEN
5029 #endif
5030 );
5031 #ifdef LAPACK_FORTRAN_STRLEN_END
5032     #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1)
5033 #else
5034     #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__)
5035 #endif
5036 
5037 #define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3)
5038 void LAPACK_zggev3_base(
5039     char const* jobvl, char const* jobvr,
5040     lapack_int const* n,
5041     lapack_complex_double* A, lapack_int const* lda,
5042     lapack_complex_double* B, lapack_int const* ldb,
5043     lapack_complex_double* alpha,
5044     lapack_complex_double* beta,
5045     lapack_complex_double* VL, lapack_int const* ldvl,
5046     lapack_complex_double* VR, lapack_int const* ldvr,
5047     lapack_complex_double* work, lapack_int const* lwork,
5048     double* rwork,
5049     lapack_int* info
5050 #ifdef LAPACK_FORTRAN_STRLEN_END
5051     , FORTRAN_STRLEN, FORTRAN_STRLEN
5052 #endif
5053 );
5054 #ifdef LAPACK_FORTRAN_STRLEN_END
5055     #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1)
5056 #else
5057     #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__)
5058 #endif
5059 
5060 #define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX)
5061 void LAPACK_cggevx_base(
5062     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
5063     lapack_int const* n,
5064     lapack_complex_float* A, lapack_int const* lda,
5065     lapack_complex_float* B, lapack_int const* ldb,
5066     lapack_complex_float* alpha,
5067     lapack_complex_float* beta,
5068     lapack_complex_float* VL, lapack_int const* ldvl,
5069     lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
5070     float* lscale,
5071     float* rscale,
5072     float* abnrm,
5073     float* bbnrm,
5074     float* rconde,
5075     float* rcondv,
5076     lapack_complex_float* work, lapack_int const* lwork,
5077     float* rwork,
5078     lapack_int* iwork, lapack_logical* BWORK,
5079     lapack_int* info
5080 #ifdef LAPACK_FORTRAN_STRLEN_END
5081     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5082 #endif
5083 );
5084 #ifdef LAPACK_FORTRAN_STRLEN_END
5085     #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1)
5086 #else
5087     #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__)
5088 #endif
5089 
5090 #define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX)
5091 void LAPACK_dggevx_base(
5092     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
5093     lapack_int const* n,
5094     double* A, lapack_int const* lda,
5095     double* B, lapack_int const* ldb,
5096     double* alphar,
5097     double* alphai,
5098     double* beta,
5099     double* VL, lapack_int const* ldvl,
5100     double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
5101     double* lscale,
5102     double* rscale,
5103     double* abnrm,
5104     double* bbnrm,
5105     double* rconde,
5106     double* rcondv,
5107     double* work, lapack_int const* lwork,
5108     lapack_int* iwork, lapack_logical* BWORK,
5109     lapack_int* info
5110 #ifdef LAPACK_FORTRAN_STRLEN_END
5111     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5112 #endif
5113 );
5114 #ifdef LAPACK_FORTRAN_STRLEN_END
5115     #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1)
5116 #else
5117     #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__)
5118 #endif
5119 
5120 #define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX)
5121 void LAPACK_sggevx_base(
5122     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
5123     lapack_int const* n,
5124     float* A, lapack_int const* lda,
5125     float* B, lapack_int const* ldb,
5126     float* alphar,
5127     float* alphai,
5128     float* beta,
5129     float* VL, lapack_int const* ldvl,
5130     float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
5131     float* lscale,
5132     float* rscale,
5133     float* abnrm,
5134     float* bbnrm,
5135     float* rconde,
5136     float* rcondv,
5137     float* work, lapack_int const* lwork,
5138     lapack_int* iwork, lapack_logical* BWORK,
5139     lapack_int* info
5140 #ifdef LAPACK_FORTRAN_STRLEN_END
5141     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5142 #endif
5143 );
5144 #ifdef LAPACK_FORTRAN_STRLEN_END
5145     #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1)
5146 #else
5147     #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__)
5148 #endif
5149 
5150 #define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX)
5151 void LAPACK_zggevx_base(
5152     char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
5153     lapack_int const* n,
5154     lapack_complex_double* A, lapack_int const* lda,
5155     lapack_complex_double* B, lapack_int const* ldb,
5156     lapack_complex_double* alpha,
5157     lapack_complex_double* beta,
5158     lapack_complex_double* VL, lapack_int const* ldvl,
5159     lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
5160     double* lscale,
5161     double* rscale,
5162     double* abnrm,
5163     double* bbnrm,
5164     double* rconde,
5165     double* rcondv,
5166     lapack_complex_double* work, lapack_int const* lwork,
5167     double* rwork,
5168     lapack_int* iwork, lapack_logical* BWORK,
5169     lapack_int* info
5170 #ifdef LAPACK_FORTRAN_STRLEN_END
5171     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5172 #endif
5173 );
5174 #ifdef LAPACK_FORTRAN_STRLEN_END
5175     #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1)
5176 #else
5177     #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__)
5178 #endif
5179 
5180 #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
5181 void LAPACK_cggglm(
5182     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5183     lapack_complex_float* A, lapack_int const* lda,
5184     lapack_complex_float* B, lapack_int const* ldb,
5185     lapack_complex_float* D,
5186     lapack_complex_float* X,
5187     lapack_complex_float* Y,
5188     lapack_complex_float* work, lapack_int const* lwork,
5189     lapack_int* info );
5190 
5191 #define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
5192 void LAPACK_dggglm(
5193     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5194     double* A, lapack_int const* lda,
5195     double* B, lapack_int const* ldb,
5196     double* D,
5197     double* X,
5198     double* Y,
5199     double* work, lapack_int const* lwork,
5200     lapack_int* info );
5201 
5202 #define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
5203 void LAPACK_sggglm(
5204     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5205     float* A, lapack_int const* lda,
5206     float* B, lapack_int const* ldb,
5207     float* D,
5208     float* X,
5209     float* Y,
5210     float* work, lapack_int const* lwork,
5211     lapack_int* info );
5212 
5213 #define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
5214 void LAPACK_zggglm(
5215     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5216     lapack_complex_double* A, lapack_int const* lda,
5217     lapack_complex_double* B, lapack_int const* ldb,
5218     lapack_complex_double* D,
5219     lapack_complex_double* X,
5220     lapack_complex_double* Y,
5221     lapack_complex_double* work, lapack_int const* lwork,
5222     lapack_int* info );
5223 
5224 #define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3)
5225 void LAPACK_cgghd3_base(
5226     char const* compq, char const* compz,
5227     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5228     lapack_complex_float* A, lapack_int const* lda,
5229     lapack_complex_float* B, lapack_int const* ldb,
5230     lapack_complex_float* Q, lapack_int const* ldq,
5231     lapack_complex_float* Z, lapack_int const* ldz,
5232     lapack_complex_float* work, lapack_int const* lwork,
5233     lapack_int* info
5234 #ifdef LAPACK_FORTRAN_STRLEN_END
5235     , FORTRAN_STRLEN, FORTRAN_STRLEN
5236 #endif
5237 );
5238 #ifdef LAPACK_FORTRAN_STRLEN_END
5239     #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1)
5240 #else
5241     #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__)
5242 #endif
5243 
5244 #define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3)
5245 void LAPACK_dgghd3_base(
5246     char const* compq, char const* compz,
5247     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5248     double* A, lapack_int const* lda,
5249     double* B, lapack_int const* ldb,
5250     double* Q, lapack_int const* ldq,
5251     double* Z, lapack_int const* ldz,
5252     double* work, lapack_int const* lwork,
5253     lapack_int* info
5254 #ifdef LAPACK_FORTRAN_STRLEN_END
5255     , FORTRAN_STRLEN, FORTRAN_STRLEN
5256 #endif
5257 );
5258 #ifdef LAPACK_FORTRAN_STRLEN_END
5259     #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1)
5260 #else
5261     #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__)
5262 #endif
5263 
5264 #define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3)
5265 void LAPACK_sgghd3_base(
5266     char const* compq, char const* compz,
5267     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5268     float* A, lapack_int const* lda,
5269     float* B, lapack_int const* ldb,
5270     float* Q, lapack_int const* ldq,
5271     float* Z, lapack_int const* ldz,
5272     float* work, lapack_int const* lwork,
5273     lapack_int* info
5274 #ifdef LAPACK_FORTRAN_STRLEN_END
5275     , FORTRAN_STRLEN, FORTRAN_STRLEN
5276 #endif
5277 );
5278 #ifdef LAPACK_FORTRAN_STRLEN_END
5279     #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1)
5280 #else
5281     #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__)
5282 #endif
5283 
5284 #define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3)
5285 void LAPACK_zgghd3_base(
5286     char const* compq, char const* compz,
5287     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5288     lapack_complex_double* A, lapack_int const* lda,
5289     lapack_complex_double* B, lapack_int const* ldb,
5290     lapack_complex_double* Q, lapack_int const* ldq,
5291     lapack_complex_double* Z, lapack_int const* ldz,
5292     lapack_complex_double* work, lapack_int const* lwork,
5293     lapack_int* info
5294 #ifdef LAPACK_FORTRAN_STRLEN_END
5295     , FORTRAN_STRLEN, FORTRAN_STRLEN
5296 #endif
5297 );
5298 #ifdef LAPACK_FORTRAN_STRLEN_END
5299     #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1)
5300 #else
5301     #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__)
5302 #endif
5303 
5304 #define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD)
5305 void LAPACK_cgghrd_base(
5306     char const* compq, char const* compz,
5307     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5308     lapack_complex_float* A, lapack_int const* lda,
5309     lapack_complex_float* B, lapack_int const* ldb,
5310     lapack_complex_float* Q, lapack_int const* ldq,
5311     lapack_complex_float* Z, lapack_int const* ldz,
5312     lapack_int* info
5313 #ifdef LAPACK_FORTRAN_STRLEN_END
5314     , FORTRAN_STRLEN, FORTRAN_STRLEN
5315 #endif
5316 );
5317 #ifdef LAPACK_FORTRAN_STRLEN_END
5318     #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1)
5319 #else
5320     #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__)
5321 #endif
5322 
5323 #define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD)
5324 void LAPACK_dgghrd_base(
5325     char const* compq, char const* compz,
5326     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5327     double* A, lapack_int const* lda,
5328     double* B, lapack_int const* ldb,
5329     double* Q, lapack_int const* ldq,
5330     double* Z, lapack_int const* ldz,
5331     lapack_int* info
5332 #ifdef LAPACK_FORTRAN_STRLEN_END
5333     , FORTRAN_STRLEN, FORTRAN_STRLEN
5334 #endif
5335 );
5336 #ifdef LAPACK_FORTRAN_STRLEN_END
5337     #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1)
5338 #else
5339     #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__)
5340 #endif
5341 
5342 #define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD)
5343 void LAPACK_sgghrd_base(
5344     char const* compq, char const* compz,
5345     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5346     float* A, lapack_int const* lda,
5347     float* B, lapack_int const* ldb,
5348     float* Q, lapack_int const* ldq,
5349     float* Z, lapack_int const* ldz,
5350     lapack_int* info
5351 #ifdef LAPACK_FORTRAN_STRLEN_END
5352     , FORTRAN_STRLEN, FORTRAN_STRLEN
5353 #endif
5354 );
5355 #ifdef LAPACK_FORTRAN_STRLEN_END
5356     #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1)
5357 #else
5358     #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__)
5359 #endif
5360 
5361 #define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD)
5362 void LAPACK_zgghrd_base(
5363     char const* compq, char const* compz,
5364     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5365     lapack_complex_double* A, lapack_int const* lda,
5366     lapack_complex_double* B, lapack_int const* ldb,
5367     lapack_complex_double* Q, lapack_int const* ldq,
5368     lapack_complex_double* Z, lapack_int const* ldz,
5369     lapack_int* info
5370 #ifdef LAPACK_FORTRAN_STRLEN_END
5371     , FORTRAN_STRLEN, FORTRAN_STRLEN
5372 #endif
5373 );
5374 #ifdef LAPACK_FORTRAN_STRLEN_END
5375     #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1)
5376 #else
5377     #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__)
5378 #endif
5379 
5380 #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
5381 void LAPACK_cgglse(
5382     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5383     lapack_complex_float* A, lapack_int const* lda,
5384     lapack_complex_float* B, lapack_int const* ldb,
5385     lapack_complex_float* C,
5386     lapack_complex_float* D,
5387     lapack_complex_float* X,
5388     lapack_complex_float* work, lapack_int const* lwork,
5389     lapack_int* info );
5390 
5391 #define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
5392 void LAPACK_dgglse(
5393     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5394     double* A, lapack_int const* lda,
5395     double* B, lapack_int const* ldb,
5396     double* C,
5397     double* D,
5398     double* X,
5399     double* work, lapack_int const* lwork,
5400     lapack_int* info );
5401 
5402 #define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
5403 void LAPACK_sgglse(
5404     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5405     float* A, lapack_int const* lda,
5406     float* B, lapack_int const* ldb,
5407     float* C,
5408     float* D,
5409     float* X,
5410     float* work, lapack_int const* lwork,
5411     lapack_int* info );
5412 
5413 #define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
5414 void LAPACK_zgglse(
5415     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5416     lapack_complex_double* A, lapack_int const* lda,
5417     lapack_complex_double* B, lapack_int const* ldb,
5418     lapack_complex_double* C,
5419     lapack_complex_double* D,
5420     lapack_complex_double* X,
5421     lapack_complex_double* work, lapack_int const* lwork,
5422     lapack_int* info );
5423 
5424 #define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
5425 void LAPACK_cggqrf(
5426     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5427     lapack_complex_float* A, lapack_int const* lda,
5428     lapack_complex_float* taua,
5429     lapack_complex_float* B, lapack_int const* ldb,
5430     lapack_complex_float* taub,
5431     lapack_complex_float* work, lapack_int const* lwork,
5432     lapack_int* info );
5433 
5434 #define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
5435 void LAPACK_dggqrf(
5436     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5437     double* A, lapack_int const* lda,
5438     double* taua,
5439     double* B, lapack_int const* ldb,
5440     double* taub,
5441     double* work, lapack_int const* lwork,
5442     lapack_int* info );
5443 
5444 #define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
5445 void LAPACK_sggqrf(
5446     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5447     float* A, lapack_int const* lda,
5448     float* taua,
5449     float* B, lapack_int const* ldb,
5450     float* taub,
5451     float* work, lapack_int const* lwork,
5452     lapack_int* info );
5453 
5454 #define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
5455 void LAPACK_zggqrf(
5456     lapack_int const* n, lapack_int const* m, lapack_int const* p,
5457     lapack_complex_double* A, lapack_int const* lda,
5458     lapack_complex_double* taua,
5459     lapack_complex_double* B, lapack_int const* ldb,
5460     lapack_complex_double* taub,
5461     lapack_complex_double* work, lapack_int const* lwork,
5462     lapack_int* info );
5463 
5464 #define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
5465 void LAPACK_cggrqf(
5466     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5467     lapack_complex_float* A, lapack_int const* lda,
5468     lapack_complex_float* taua,
5469     lapack_complex_float* B, lapack_int const* ldb,
5470     lapack_complex_float* taub,
5471     lapack_complex_float* work, lapack_int const* lwork,
5472     lapack_int* info );
5473 
5474 #define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
5475 void LAPACK_dggrqf(
5476     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5477     double* A, lapack_int const* lda,
5478     double* taua,
5479     double* B, lapack_int const* ldb,
5480     double* taub,
5481     double* work, lapack_int const* lwork,
5482     lapack_int* info );
5483 
5484 #define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
5485 void LAPACK_sggrqf(
5486     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5487     float* A, lapack_int const* lda,
5488     float* taua,
5489     float* B, lapack_int const* ldb,
5490     float* taub,
5491     float* work, lapack_int const* lwork,
5492     lapack_int* info );
5493 
5494 #define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
5495 void LAPACK_zggrqf(
5496     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5497     lapack_complex_double* A, lapack_int const* lda,
5498     lapack_complex_double* taua,
5499     lapack_complex_double* B, lapack_int const* ldb,
5500     lapack_complex_double* taub,
5501     lapack_complex_double* work, lapack_int const* lwork,
5502     lapack_int* info );
5503 
5504 #define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
5505 void LAPACK_cggsvd_base(
5506     char const* jobu, char const* jobv, char const* jobq,
5507     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5508     lapack_int* k, lapack_int* l,
5509     lapack_complex_float* a, lapack_int const* lda,
5510     lapack_complex_float* b, lapack_int const* ldb,
5511     float* alpha, float* beta,
5512     lapack_complex_float* u, lapack_int const* ldu,
5513     lapack_complex_float* v, lapack_int const* ldv,
5514     lapack_complex_float* q, lapack_int const* ldq,
5515     lapack_complex_float* work, float* rwork,
5516     lapack_int* iwork, lapack_int* info
5517 #ifdef LAPACK_FORTRAN_STRLEN_END
5518     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5519 #endif
5520 );
5521 #ifdef LAPACK_FORTRAN_STRLEN_END
5522     #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1)
5523 #else
5524     #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__)
5525 #endif
5526 
5527 #define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
5528 void LAPACK_sggsvd_base(
5529     char const* jobu, char const* jobv, char const* jobq,
5530     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5531     lapack_int* k, lapack_int* l,
5532     float* a, lapack_int const* lda,
5533     float* b, lapack_int const* ldb,
5534     float* alpha, float* beta,
5535     float* u, lapack_int const* ldu,
5536     float* v, lapack_int const* ldv,
5537     float* q, lapack_int const* ldq,
5538     float* work, lapack_int* iwork, lapack_int* info
5539 #ifdef LAPACK_FORTRAN_STRLEN_END
5540     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5541 #endif
5542 );
5543 #ifdef LAPACK_FORTRAN_STRLEN_END
5544     #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1)
5545 #else
5546     #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__)
5547 #endif
5548 
5549 #define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
5550 void LAPACK_dggsvd_base(
5551     char const* jobu, char const* jobv, char const* jobq,
5552     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5553     lapack_int* k, lapack_int* l,
5554     double* a, lapack_int const* lda,
5555     double* b, lapack_int const* ldb,
5556     double* alpha, double* beta,
5557     double* u, lapack_int const* ldu,
5558     double* v, lapack_int const* ldv,
5559     double* q, lapack_int const* ldq,
5560     double* work, lapack_int* iwork, lapack_int* info
5561 #ifdef LAPACK_FORTRAN_STRLEN_END
5562     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5563 #endif
5564 );
5565 #ifdef LAPACK_FORTRAN_STRLEN_END
5566     #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1)
5567 #else
5568     #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__)
5569 #endif
5570 
5571 #define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
5572 void LAPACK_zggsvd_base(
5573     char const* jobu, char const* jobv, char const* jobq,
5574     lapack_int const* m, lapack_int const* n, lapack_int const* p,
5575     lapack_int* k, lapack_int* l,
5576     lapack_complex_double* a, lapack_int const* lda,
5577     lapack_complex_double* b, lapack_int const* ldb,
5578     double* alpha, double* beta,
5579     lapack_complex_double* u, lapack_int const* ldu,
5580     lapack_complex_double* v, lapack_int const* ldv,
5581     lapack_complex_double* q, lapack_int const* ldq,
5582     lapack_complex_double* work, double* rwork,
5583     lapack_int* iwork, lapack_int* info
5584 #ifdef LAPACK_FORTRAN_STRLEN_END
5585     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5586 #endif
5587 );
5588 #ifdef LAPACK_FORTRAN_STRLEN_END
5589     #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1)
5590 #else
5591     #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__)
5592 #endif
5593 
5594 #define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3)
5595 void LAPACK_cggsvd3_base(
5596     char const* jobu, char const* jobv, char const* jobq,
5597     lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5598     lapack_complex_float* A, lapack_int const* lda,
5599     lapack_complex_float* B, lapack_int const* ldb,
5600     float* alpha,
5601     float* beta,
5602     lapack_complex_float* U, lapack_int const* ldu,
5603     lapack_complex_float* V, lapack_int const* ldv,
5604     lapack_complex_float* Q, lapack_int const* ldq,
5605     lapack_complex_float* work, lapack_int const* lwork,
5606     float* rwork,
5607     lapack_int* iwork,
5608     lapack_int* info
5609 #ifdef LAPACK_FORTRAN_STRLEN_END
5610     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5611 #endif
5612 );
5613 #ifdef LAPACK_FORTRAN_STRLEN_END
5614     #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1)
5615 #else
5616     #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__)
5617 #endif
5618 
5619 #define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3)
5620 void LAPACK_dggsvd3_base(
5621     char const* jobu, char const* jobv, char const* jobq,
5622     lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5623     double* A, lapack_int const* lda,
5624     double* B, lapack_int const* ldb,
5625     double* alpha,
5626     double* beta,
5627     double* U, lapack_int const* ldu,
5628     double* V, lapack_int const* ldv,
5629     double* Q, lapack_int const* ldq,
5630     double* work, lapack_int const* lwork,
5631     lapack_int* iwork,
5632     lapack_int* info
5633 #ifdef LAPACK_FORTRAN_STRLEN_END
5634     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5635 #endif
5636 );
5637 #ifdef LAPACK_FORTRAN_STRLEN_END
5638     #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1)
5639 #else
5640     #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__)
5641 #endif
5642 
5643 #define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3)
5644 void LAPACK_sggsvd3_base(
5645     char const* jobu, char const* jobv, char const* jobq,
5646     lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5647     float* A, lapack_int const* lda,
5648     float* B, lapack_int const* ldb,
5649     float* alpha,
5650     float* beta,
5651     float* U, lapack_int const* ldu,
5652     float* V, lapack_int const* ldv,
5653     float* Q, lapack_int const* ldq,
5654     float* work, lapack_int const* lwork,
5655     lapack_int* iwork,
5656     lapack_int* info
5657 #ifdef LAPACK_FORTRAN_STRLEN_END
5658     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5659 #endif
5660 );
5661 #ifdef LAPACK_FORTRAN_STRLEN_END
5662     #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1)
5663 #else
5664     #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__)
5665 #endif
5666 
5667 #define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
5668 void LAPACK_zggsvd3_base(
5669     char const* jobu, char const* jobv, char const* jobq,
5670     lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5671     lapack_complex_double* A, lapack_int const* lda,
5672     lapack_complex_double* B, lapack_int const* ldb,
5673     double* alpha,
5674     double* beta,
5675     lapack_complex_double* U, lapack_int const* ldu,
5676     lapack_complex_double* V, lapack_int const* ldv,
5677     lapack_complex_double* Q, lapack_int const* ldq,
5678     lapack_complex_double* work, lapack_int const* lwork,
5679     double* rwork,
5680     lapack_int* iwork,
5681     lapack_int* info
5682 #ifdef LAPACK_FORTRAN_STRLEN_END
5683     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5684 #endif
5685 );
5686 #ifdef LAPACK_FORTRAN_STRLEN_END
5687     #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1)
5688 #else
5689     #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__)
5690 #endif
5691 
5692 #define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
5693 void LAPACK_sggsvp_base(
5694     char const* jobu, char const* jobv, char const* jobq,
5695     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5696     float* a, lapack_int const* lda,
5697     float* b, lapack_int const* ldb,
5698     float* tola, float* tolb,
5699     lapack_int* k, lapack_int* l,
5700     float* u, lapack_int const* ldu,
5701     float* v, lapack_int const* ldv,
5702     float* q, lapack_int const* ldq,
5703     lapack_int* iwork, float* tau,
5704     float* work, lapack_int* info
5705 #ifdef LAPACK_FORTRAN_STRLEN_END
5706     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5707 #endif
5708 );
5709 #ifdef LAPACK_FORTRAN_STRLEN_END
5710     #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1)
5711 #else
5712     #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__)
5713 #endif
5714 
5715 #define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
5716 void LAPACK_dggsvp_base(
5717     char const* jobu, char const* jobv, char const* jobq,
5718     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5719     double* a, lapack_int const* lda,
5720     double* b, lapack_int const* ldb,
5721     double* tola, double* tolb,
5722     lapack_int* k, lapack_int* l,
5723     double* u, lapack_int const* ldu,
5724     double* v, lapack_int const* ldv,
5725     double* q, lapack_int const* ldq,
5726     lapack_int* iwork, double* tau,
5727     double* work, lapack_int* info
5728 #ifdef LAPACK_FORTRAN_STRLEN_END
5729     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5730 #endif
5731 );
5732 #ifdef LAPACK_FORTRAN_STRLEN_END
5733     #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1)
5734 #else
5735     #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__)
5736 #endif
5737 
5738 #define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
5739 void LAPACK_cggsvp_base(
5740     char const* jobu, char const* jobv, char const* jobq,
5741     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5742     lapack_complex_float* a, lapack_int const* lda,
5743     lapack_complex_float* b, lapack_int const* ldb,
5744     float* tola, float* tolb, lapack_int* k, lapack_int* l,
5745     lapack_complex_float* u, lapack_int const* ldu,
5746     lapack_complex_float* v, lapack_int const* ldv,
5747     lapack_complex_float* q, lapack_int const* ldq,
5748     lapack_int* iwork, float* rwork, lapack_complex_float* tau,
5749     lapack_complex_float* work, lapack_int* info
5750 #ifdef LAPACK_FORTRAN_STRLEN_END
5751     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5752 #endif
5753 );
5754 #ifdef LAPACK_FORTRAN_STRLEN_END
5755     #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1)
5756 #else
5757     #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__)
5758 #endif
5759 
5760 #define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
5761 void LAPACK_zggsvp_base(
5762     char const* jobu, char const* jobv, char const* jobq,
5763     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5764     lapack_complex_double* a, lapack_int const* lda,
5765     lapack_complex_double* b, lapack_int const* ldb,
5766     double* tola, double* tolb, lapack_int* k, lapack_int* l,
5767     lapack_complex_double* u, lapack_int const* ldu,
5768     lapack_complex_double* v, lapack_int const* ldv,
5769     lapack_complex_double* q, lapack_int const* ldq,
5770     lapack_int* iwork, double* rwork, lapack_complex_double* tau,
5771     lapack_complex_double* work, lapack_int* info
5772 #ifdef LAPACK_FORTRAN_STRLEN_END
5773     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5774 #endif
5775 );
5776 #ifdef LAPACK_FORTRAN_STRLEN_END
5777     #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1)
5778 #else
5779     #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__)
5780 #endif
5781 
5782 #define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3)
5783 void LAPACK_cggsvp3_base(
5784     char const* jobu, char const* jobv, char const* jobq,
5785     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5786     lapack_complex_float* A, lapack_int const* lda,
5787     lapack_complex_float* B, lapack_int const* ldb,
5788     float const* tola,
5789     float const* tolb, lapack_int* k, lapack_int* l,
5790     lapack_complex_float* U, lapack_int const* ldu,
5791     lapack_complex_float* V, lapack_int const* ldv,
5792     lapack_complex_float* Q, lapack_int const* ldq,
5793     lapack_int* iwork,
5794     float* rwork,
5795     lapack_complex_float* tau,
5796     lapack_complex_float* work, lapack_int const* lwork,
5797     lapack_int* info
5798 #ifdef LAPACK_FORTRAN_STRLEN_END
5799     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5800 #endif
5801 );
5802 #ifdef LAPACK_FORTRAN_STRLEN_END
5803     #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1)
5804 #else
5805     #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__)
5806 #endif
5807 
5808 #define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3)
5809 void LAPACK_dggsvp3_base(
5810     char const* jobu, char const* jobv, char const* jobq,
5811     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5812     double* A, lapack_int const* lda,
5813     double* B, lapack_int const* ldb,
5814     double const* tola,
5815     double const* tolb, lapack_int* k, lapack_int* l,
5816     double* U, lapack_int const* ldu,
5817     double* V, lapack_int const* ldv,
5818     double* Q, lapack_int const* ldq,
5819     lapack_int* iwork,
5820     double* tau,
5821     double* work, lapack_int const* lwork,
5822     lapack_int* info
5823 #ifdef LAPACK_FORTRAN_STRLEN_END
5824     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5825 #endif
5826 );
5827 #ifdef LAPACK_FORTRAN_STRLEN_END
5828     #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1)
5829 #else
5830     #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__)
5831 #endif
5832 
5833 #define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3)
5834 void LAPACK_sggsvp3_base(
5835     char const* jobu, char const* jobv, char const* jobq,
5836     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5837     float* A, lapack_int const* lda,
5838     float* B, lapack_int const* ldb,
5839     float const* tola,
5840     float const* tolb, lapack_int* k, lapack_int* l,
5841     float* U, lapack_int const* ldu,
5842     float* V, lapack_int const* ldv,
5843     float* Q, lapack_int const* ldq,
5844     lapack_int* iwork,
5845     float* tau,
5846     float* work, lapack_int const* lwork,
5847     lapack_int* info
5848 #ifdef LAPACK_FORTRAN_STRLEN_END
5849     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5850 #endif
5851 );
5852 #ifdef LAPACK_FORTRAN_STRLEN_END
5853     #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1)
5854 #else
5855     #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__)
5856 #endif
5857 
5858 #define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
5859 void LAPACK_zggsvp3_base(
5860     char const* jobu, char const* jobv, char const* jobq,
5861     lapack_int const* m, lapack_int const* p, lapack_int const* n,
5862     lapack_complex_double* A, lapack_int const* lda,
5863     lapack_complex_double* B, lapack_int const* ldb,
5864     double const* tola,
5865     double const* tolb, lapack_int* k, lapack_int* l,
5866     lapack_complex_double* U, lapack_int const* ldu,
5867     lapack_complex_double* V, lapack_int const* ldv,
5868     lapack_complex_double* Q, lapack_int const* ldq,
5869     lapack_int* iwork,
5870     double* rwork,
5871     lapack_complex_double* tau,
5872     lapack_complex_double* work, lapack_int const* lwork,
5873     lapack_int* info
5874 #ifdef LAPACK_FORTRAN_STRLEN_END
5875     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
5876 #endif
5877 );
5878 #ifdef LAPACK_FORTRAN_STRLEN_END
5879     #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1)
5880 #else
5881     #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__)
5882 #endif
5883 
5884 #define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON)
5885 void LAPACK_cgtcon_base(
5886     char const* norm,
5887     lapack_int const* n,
5888     lapack_complex_float const* DL,
5889     lapack_complex_float const* D,
5890     lapack_complex_float const* DU,
5891     lapack_complex_float const* DU2, lapack_int const* ipiv,
5892     float const* anorm,
5893     float* rcond,
5894     lapack_complex_float* work,
5895     lapack_int* info
5896 #ifdef LAPACK_FORTRAN_STRLEN_END
5897     , FORTRAN_STRLEN
5898 #endif
5899 );
5900 #ifdef LAPACK_FORTRAN_STRLEN_END
5901     #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1)
5902 #else
5903     #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__)
5904 #endif
5905 
5906 #define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON)
5907 void LAPACK_dgtcon_base(
5908     char const* norm,
5909     lapack_int const* n,
5910     double const* DL,
5911     double const* D,
5912     double const* DU,
5913     double const* DU2, lapack_int const* ipiv,
5914     double const* anorm,
5915     double* rcond,
5916     double* work,
5917     lapack_int* iwork,
5918     lapack_int* info
5919 #ifdef LAPACK_FORTRAN_STRLEN_END
5920     , FORTRAN_STRLEN
5921 #endif
5922 );
5923 #ifdef LAPACK_FORTRAN_STRLEN_END
5924     #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1)
5925 #else
5926     #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__)
5927 #endif
5928 
5929 #define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON)
5930 void LAPACK_sgtcon_base(
5931     char const* norm,
5932     lapack_int const* n,
5933     float const* DL,
5934     float const* D,
5935     float const* DU,
5936     float const* DU2, lapack_int const* ipiv,
5937     float const* anorm,
5938     float* rcond,
5939     float* work,
5940     lapack_int* iwork,
5941     lapack_int* info
5942 #ifdef LAPACK_FORTRAN_STRLEN_END
5943     , FORTRAN_STRLEN
5944 #endif
5945 );
5946 #ifdef LAPACK_FORTRAN_STRLEN_END
5947     #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1)
5948 #else
5949     #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__)
5950 #endif
5951 
5952 #define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON)
5953 void LAPACK_zgtcon_base(
5954     char const* norm,
5955     lapack_int const* n,
5956     lapack_complex_double const* DL,
5957     lapack_complex_double const* D,
5958     lapack_complex_double const* DU,
5959     lapack_complex_double const* DU2, lapack_int const* ipiv,
5960     double const* anorm,
5961     double* rcond,
5962     lapack_complex_double* work,
5963     lapack_int* info
5964 #ifdef LAPACK_FORTRAN_STRLEN_END
5965     , FORTRAN_STRLEN
5966 #endif
5967 );
5968 #ifdef LAPACK_FORTRAN_STRLEN_END
5969     #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1)
5970 #else
5971     #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__)
5972 #endif
5973 
5974 #define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS)
5975 void LAPACK_cgtrfs_base(
5976     char const* trans,
5977     lapack_int const* n, lapack_int const* nrhs,
5978     lapack_complex_float const* DL,
5979     lapack_complex_float const* D,
5980     lapack_complex_float const* DU,
5981     lapack_complex_float const* DLF,
5982     lapack_complex_float const* DF,
5983     lapack_complex_float const* DUF,
5984     lapack_complex_float const* DU2, lapack_int const* ipiv,
5985     lapack_complex_float const* B, lapack_int const* ldb,
5986     lapack_complex_float* X, lapack_int const* ldx,
5987     float* ferr,
5988     float* berr,
5989     lapack_complex_float* work,
5990     float* rwork,
5991     lapack_int* info
5992 #ifdef LAPACK_FORTRAN_STRLEN_END
5993     , FORTRAN_STRLEN
5994 #endif
5995 );
5996 #ifdef LAPACK_FORTRAN_STRLEN_END
5997     #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1)
5998 #else
5999     #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__)
6000 #endif
6001 
6002 #define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS)
6003 void LAPACK_dgtrfs_base(
6004     char const* trans,
6005     lapack_int const* n, lapack_int const* nrhs,
6006     double const* DL,
6007     double const* D,
6008     double const* DU,
6009     double const* DLF,
6010     double const* DF,
6011     double const* DUF,
6012     double const* DU2, lapack_int const* ipiv,
6013     double const* B, lapack_int const* ldb,
6014     double* X, lapack_int const* ldx,
6015     double* ferr,
6016     double* berr,
6017     double* work,
6018     lapack_int* iwork,
6019     lapack_int* info
6020 #ifdef LAPACK_FORTRAN_STRLEN_END
6021     , FORTRAN_STRLEN
6022 #endif
6023 );
6024 #ifdef LAPACK_FORTRAN_STRLEN_END
6025     #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1)
6026 #else
6027     #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__)
6028 #endif
6029 
6030 #define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS)
6031 void LAPACK_sgtrfs_base(
6032     char const* trans,
6033     lapack_int const* n, lapack_int const* nrhs,
6034     float const* DL,
6035     float const* D,
6036     float const* DU,
6037     float const* DLF,
6038     float const* DF,
6039     float const* DUF,
6040     float const* DU2, lapack_int const* ipiv,
6041     float const* B, lapack_int const* ldb,
6042     float* X, lapack_int const* ldx,
6043     float* ferr,
6044     float* berr,
6045     float* work,
6046     lapack_int* iwork,
6047     lapack_int* info
6048 #ifdef LAPACK_FORTRAN_STRLEN_END
6049     , FORTRAN_STRLEN
6050 #endif
6051 );
6052 #ifdef LAPACK_FORTRAN_STRLEN_END
6053     #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1)
6054 #else
6055     #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__)
6056 #endif
6057 
6058 #define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS)
6059 void LAPACK_zgtrfs_base(
6060     char const* trans,
6061     lapack_int const* n, lapack_int const* nrhs,
6062     lapack_complex_double const* DL,
6063     lapack_complex_double const* D,
6064     lapack_complex_double const* DU,
6065     lapack_complex_double const* DLF,
6066     lapack_complex_double const* DF,
6067     lapack_complex_double const* DUF,
6068     lapack_complex_double const* DU2, lapack_int const* ipiv,
6069     lapack_complex_double const* B, lapack_int const* ldb,
6070     lapack_complex_double* X, lapack_int const* ldx,
6071     double* ferr,
6072     double* berr,
6073     lapack_complex_double* work,
6074     double* rwork,
6075     lapack_int* info
6076 #ifdef LAPACK_FORTRAN_STRLEN_END
6077     , FORTRAN_STRLEN
6078 #endif
6079 );
6080 #ifdef LAPACK_FORTRAN_STRLEN_END
6081     #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1)
6082 #else
6083     #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__)
6084 #endif
6085 
6086 #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
6087 void LAPACK_cgtsv(
6088     lapack_int const* n, lapack_int const* nrhs,
6089     lapack_complex_float* DL,
6090     lapack_complex_float* D,
6091     lapack_complex_float* DU,
6092     lapack_complex_float* B, lapack_int const* ldb,
6093     lapack_int* info );
6094 
6095 #define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
6096 void LAPACK_dgtsv(
6097     lapack_int const* n, lapack_int const* nrhs,
6098     double* DL,
6099     double* D,
6100     double* DU,
6101     double* B, lapack_int const* ldb,
6102     lapack_int* info );
6103 
6104 #define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
6105 void LAPACK_sgtsv(
6106     lapack_int const* n, lapack_int const* nrhs,
6107     float* DL,
6108     float* D,
6109     float* DU,
6110     float* B, lapack_int const* ldb,
6111     lapack_int* info );
6112 
6113 #define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
6114 void LAPACK_zgtsv(
6115     lapack_int const* n, lapack_int const* nrhs,
6116     lapack_complex_double* DL,
6117     lapack_complex_double* D,
6118     lapack_complex_double* DU,
6119     lapack_complex_double* B, lapack_int const* ldb,
6120     lapack_int* info );
6121 
6122 #define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX)
6123 void LAPACK_cgtsvx_base(
6124     char const* fact, char const* trans,
6125     lapack_int const* n, lapack_int const* nrhs,
6126     lapack_complex_float const* DL,
6127     lapack_complex_float const* D,
6128     lapack_complex_float const* DU,
6129     lapack_complex_float* DLF,
6130     lapack_complex_float* DF,
6131     lapack_complex_float* DUF,
6132     lapack_complex_float* DU2, lapack_int* ipiv,
6133     lapack_complex_float const* B, lapack_int const* ldb,
6134     lapack_complex_float* X, lapack_int const* ldx,
6135     float* rcond,
6136     float* ferr,
6137     float* berr,
6138     lapack_complex_float* work,
6139     float* rwork,
6140     lapack_int* info
6141 #ifdef LAPACK_FORTRAN_STRLEN_END
6142     , FORTRAN_STRLEN, FORTRAN_STRLEN
6143 #endif
6144 );
6145 #ifdef LAPACK_FORTRAN_STRLEN_END
6146     #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1)
6147 #else
6148     #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__)
6149 #endif
6150 
6151 #define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX)
6152 void LAPACK_dgtsvx_base(
6153     char const* fact, char const* trans,
6154     lapack_int const* n, lapack_int const* nrhs,
6155     double const* DL,
6156     double const* D,
6157     double const* DU,
6158     double* DLF,
6159     double* DF,
6160     double* DUF,
6161     double* DU2, lapack_int* ipiv,
6162     double const* B, lapack_int const* ldb,
6163     double* X, lapack_int const* ldx,
6164     double* rcond,
6165     double* ferr,
6166     double* berr,
6167     double* work,
6168     lapack_int* iwork,
6169     lapack_int* info
6170 #ifdef LAPACK_FORTRAN_STRLEN_END
6171     , FORTRAN_STRLEN, FORTRAN_STRLEN
6172 #endif
6173 );
6174 #ifdef LAPACK_FORTRAN_STRLEN_END
6175     #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1)
6176 #else
6177     #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__)
6178 #endif
6179 
6180 #define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX)
6181 void LAPACK_sgtsvx_base(
6182     char const* fact, char const* trans,
6183     lapack_int const* n, lapack_int const* nrhs,
6184     float const* DL,
6185     float const* D,
6186     float const* DU,
6187     float* DLF,
6188     float* DF,
6189     float* DUF,
6190     float* DU2, lapack_int* ipiv,
6191     float const* B, lapack_int const* ldb,
6192     float* X, lapack_int const* ldx,
6193     float* rcond,
6194     float* ferr,
6195     float* berr,
6196     float* work,
6197     lapack_int* iwork,
6198     lapack_int* info
6199 #ifdef LAPACK_FORTRAN_STRLEN_END
6200     , FORTRAN_STRLEN, FORTRAN_STRLEN
6201 #endif
6202 );
6203 #ifdef LAPACK_FORTRAN_STRLEN_END
6204     #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1)
6205 #else
6206     #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__)
6207 #endif
6208 
6209 #define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX)
6210 void LAPACK_zgtsvx_base(
6211     char const* fact, char const* trans,
6212     lapack_int const* n, lapack_int const* nrhs,
6213     lapack_complex_double const* DL,
6214     lapack_complex_double const* D,
6215     lapack_complex_double const* DU,
6216     lapack_complex_double* DLF,
6217     lapack_complex_double* DF,
6218     lapack_complex_double* DUF,
6219     lapack_complex_double* DU2, lapack_int* ipiv,
6220     lapack_complex_double const* B, lapack_int const* ldb,
6221     lapack_complex_double* X, lapack_int const* ldx,
6222     double* rcond,
6223     double* ferr,
6224     double* berr,
6225     lapack_complex_double* work,
6226     double* rwork,
6227     lapack_int* info
6228 #ifdef LAPACK_FORTRAN_STRLEN_END
6229     , FORTRAN_STRLEN, FORTRAN_STRLEN
6230 #endif
6231 );
6232 #ifdef LAPACK_FORTRAN_STRLEN_END
6233     #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1)
6234 #else
6235     #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__)
6236 #endif
6237 
6238 #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
6239 void LAPACK_cgttrf(
6240     lapack_int const* n,
6241     lapack_complex_float* DL,
6242     lapack_complex_float* D,
6243     lapack_complex_float* DU,
6244     lapack_complex_float* DU2, lapack_int* ipiv,
6245     lapack_int* info );
6246 
6247 #define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
6248 void LAPACK_dgttrf(
6249     lapack_int const* n,
6250     double* DL,
6251     double* D,
6252     double* DU,
6253     double* DU2, lapack_int* ipiv,
6254     lapack_int* info );
6255 
6256 #define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
6257 void LAPACK_sgttrf(
6258     lapack_int const* n,
6259     float* DL,
6260     float* D,
6261     float* DU,
6262     float* DU2, lapack_int* ipiv,
6263     lapack_int* info );
6264 
6265 #define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
6266 void LAPACK_zgttrf(
6267     lapack_int const* n,
6268     lapack_complex_double* DL,
6269     lapack_complex_double* D,
6270     lapack_complex_double* DU,
6271     lapack_complex_double* DU2, lapack_int* ipiv,
6272     lapack_int* info );
6273 
6274 #define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS)
6275 void LAPACK_cgttrs_base(
6276     char const* trans,
6277     lapack_int const* n, lapack_int const* nrhs,
6278     lapack_complex_float const* DL,
6279     lapack_complex_float const* D,
6280     lapack_complex_float const* DU,
6281     lapack_complex_float const* DU2, lapack_int const* ipiv,
6282     lapack_complex_float* B, lapack_int const* ldb,
6283     lapack_int* info
6284 #ifdef LAPACK_FORTRAN_STRLEN_END
6285     , FORTRAN_STRLEN
6286 #endif
6287 );
6288 #ifdef LAPACK_FORTRAN_STRLEN_END
6289     #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1)
6290 #else
6291     #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__)
6292 #endif
6293 
6294 #define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS)
6295 void LAPACK_dgttrs_base(
6296     char const* trans,
6297     lapack_int const* n, lapack_int const* nrhs,
6298     double const* DL,
6299     double const* D,
6300     double const* DU,
6301     double const* DU2, lapack_int const* ipiv,
6302     double* B, lapack_int const* ldb,
6303     lapack_int* info
6304 #ifdef LAPACK_FORTRAN_STRLEN_END
6305     , FORTRAN_STRLEN
6306 #endif
6307 );
6308 #ifdef LAPACK_FORTRAN_STRLEN_END
6309     #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1)
6310 #else
6311     #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__)
6312 #endif
6313 
6314 #define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS)
6315 void LAPACK_sgttrs_base(
6316     char const* trans,
6317     lapack_int const* n, lapack_int const* nrhs,
6318     float const* DL,
6319     float const* D,
6320     float const* DU,
6321     float const* DU2, lapack_int const* ipiv,
6322     float* B, lapack_int const* ldb,
6323     lapack_int* info
6324 #ifdef LAPACK_FORTRAN_STRLEN_END
6325     , FORTRAN_STRLEN
6326 #endif
6327 );
6328 #ifdef LAPACK_FORTRAN_STRLEN_END
6329     #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1)
6330 #else
6331     #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__)
6332 #endif
6333 
6334 #define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS)
6335 void LAPACK_zgttrs_base(
6336     char const* trans,
6337     lapack_int const* n, lapack_int const* nrhs,
6338     lapack_complex_double const* DL,
6339     lapack_complex_double const* D,
6340     lapack_complex_double const* DU,
6341     lapack_complex_double const* DU2, lapack_int const* ipiv,
6342     lapack_complex_double* B, lapack_int const* ldb,
6343     lapack_int* info
6344 #ifdef LAPACK_FORTRAN_STRLEN_END
6345     , FORTRAN_STRLEN
6346 #endif
6347 );
6348 #ifdef LAPACK_FORTRAN_STRLEN_END
6349     #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1)
6350 #else
6351     #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__)
6352 #endif
6353 
6354 #define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV)
6355 void LAPACK_chbev_base(
6356     char const* jobz, char const* uplo,
6357     lapack_int const* n, lapack_int const* kd,
6358     lapack_complex_float* AB, lapack_int const* ldab,
6359     float* W,
6360     lapack_complex_float* Z, lapack_int const* ldz,
6361     lapack_complex_float* work,
6362     float* rwork,
6363     lapack_int* info
6364 #ifdef LAPACK_FORTRAN_STRLEN_END
6365     , FORTRAN_STRLEN, FORTRAN_STRLEN
6366 #endif
6367 );
6368 #ifdef LAPACK_FORTRAN_STRLEN_END
6369     #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1)
6370 #else
6371     #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__)
6372 #endif
6373 
6374 #define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV)
6375 void LAPACK_zhbev_base(
6376     char const* jobz, char const* uplo,
6377     lapack_int const* n, lapack_int const* kd,
6378     lapack_complex_double* AB, lapack_int const* ldab,
6379     double* W,
6380     lapack_complex_double* Z, lapack_int const* ldz,
6381     lapack_complex_double* work,
6382     double* rwork,
6383     lapack_int* info
6384 #ifdef LAPACK_FORTRAN_STRLEN_END
6385     , FORTRAN_STRLEN, FORTRAN_STRLEN
6386 #endif
6387 );
6388 #ifdef LAPACK_FORTRAN_STRLEN_END
6389     #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1)
6390 #else
6391     #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__)
6392 #endif
6393 
6394 #define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE)
6395 void LAPACK_chbev_2stage_base(
6396     char const* jobz, char const* uplo,
6397     lapack_int const* n, lapack_int const* kd,
6398     lapack_complex_float* AB, lapack_int const* ldab,
6399     float* W,
6400     lapack_complex_float* Z, lapack_int const* ldz,
6401     lapack_complex_float* work, lapack_int const* lwork,
6402     float* rwork,
6403     lapack_int* info
6404 #ifdef LAPACK_FORTRAN_STRLEN_END
6405     , FORTRAN_STRLEN, FORTRAN_STRLEN
6406 #endif
6407 );
6408 #ifdef LAPACK_FORTRAN_STRLEN_END
6409     #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1)
6410 #else
6411     #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__)
6412 #endif
6413 
6414 #define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE)
6415 void LAPACK_zhbev_2stage_base(
6416     char const* jobz, char const* uplo,
6417     lapack_int const* n, lapack_int const* kd,
6418     lapack_complex_double* AB, lapack_int const* ldab,
6419     double* W,
6420     lapack_complex_double* Z, lapack_int const* ldz,
6421     lapack_complex_double* work, lapack_int const* lwork,
6422     double* rwork,
6423     lapack_int* info
6424 #ifdef LAPACK_FORTRAN_STRLEN_END
6425     , FORTRAN_STRLEN, FORTRAN_STRLEN
6426 #endif
6427 );
6428 #ifdef LAPACK_FORTRAN_STRLEN_END
6429     #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1)
6430 #else
6431     #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__)
6432 #endif
6433 
6434 #define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD)
6435 void LAPACK_chbevd_base(
6436     char const* jobz, char const* uplo,
6437     lapack_int const* n, lapack_int const* kd,
6438     lapack_complex_float* AB, lapack_int const* ldab,
6439     float* W,
6440     lapack_complex_float* Z, lapack_int const* ldz,
6441     lapack_complex_float* work, lapack_int const* lwork,
6442     float* rwork, lapack_int const* lrwork,
6443     lapack_int* iwork, lapack_int const* liwork,
6444     lapack_int* info
6445 #ifdef LAPACK_FORTRAN_STRLEN_END
6446     , FORTRAN_STRLEN, FORTRAN_STRLEN
6447 #endif
6448 );
6449 #ifdef LAPACK_FORTRAN_STRLEN_END
6450     #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1)
6451 #else
6452     #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__)
6453 #endif
6454 
6455 #define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD)
6456 void LAPACK_zhbevd_base(
6457     char const* jobz, char const* uplo,
6458     lapack_int const* n, lapack_int const* kd,
6459     lapack_complex_double* AB, lapack_int const* ldab,
6460     double* W,
6461     lapack_complex_double* Z, lapack_int const* ldz,
6462     lapack_complex_double* work, lapack_int const* lwork,
6463     double* rwork, lapack_int const* lrwork,
6464     lapack_int* iwork, lapack_int const* liwork,
6465     lapack_int* info
6466 #ifdef LAPACK_FORTRAN_STRLEN_END
6467     , FORTRAN_STRLEN, FORTRAN_STRLEN
6468 #endif
6469 );
6470 #ifdef LAPACK_FORTRAN_STRLEN_END
6471     #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1)
6472 #else
6473     #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__)
6474 #endif
6475 
6476 #define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE)
6477 void LAPACK_chbevd_2stage_base(
6478     char const* jobz, char const* uplo,
6479     lapack_int const* n, lapack_int const* kd,
6480     lapack_complex_float* AB, lapack_int const* ldab,
6481     float* W,
6482     lapack_complex_float* Z, lapack_int const* ldz,
6483     lapack_complex_float* work, lapack_int const* lwork,
6484     float* rwork, lapack_int const* lrwork,
6485     lapack_int* iwork, lapack_int const* liwork,
6486     lapack_int* info
6487 #ifdef LAPACK_FORTRAN_STRLEN_END
6488     , FORTRAN_STRLEN, FORTRAN_STRLEN
6489 #endif
6490 );
6491 #ifdef LAPACK_FORTRAN_STRLEN_END
6492     #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1)
6493 #else
6494     #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__)
6495 #endif
6496 
6497 #define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE)
6498 void LAPACK_zhbevd_2stage_base(
6499     char const* jobz, char const* uplo,
6500     lapack_int const* n, lapack_int const* kd,
6501     lapack_complex_double* AB, lapack_int const* ldab,
6502     double* W,
6503     lapack_complex_double* Z, lapack_int const* ldz,
6504     lapack_complex_double* work, lapack_int const* lwork,
6505     double* rwork, lapack_int const* lrwork,
6506     lapack_int* iwork, lapack_int const* liwork,
6507     lapack_int* info
6508 #ifdef LAPACK_FORTRAN_STRLEN_END
6509     , FORTRAN_STRLEN, FORTRAN_STRLEN
6510 #endif
6511 );
6512 #ifdef LAPACK_FORTRAN_STRLEN_END
6513     #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1)
6514 #else
6515     #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__)
6516 #endif
6517 
6518 #define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX)
6519 void LAPACK_chbevx_base(
6520     char const* jobz, char const* range, char const* uplo,
6521     lapack_int const* n, lapack_int const* kd,
6522     lapack_complex_float* AB, lapack_int const* ldab,
6523     lapack_complex_float* Q, lapack_int const* ldq,
6524     float const* vl,
6525     float const* vu, lapack_int const* il, lapack_int const* iu,
6526     float const* abstol, lapack_int* m,
6527     float* W,
6528     lapack_complex_float* Z, lapack_int const* ldz,
6529     lapack_complex_float* work,
6530     float* rwork,
6531     lapack_int* iwork, lapack_int* IFAIL,
6532     lapack_int* info
6533 #ifdef LAPACK_FORTRAN_STRLEN_END
6534     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
6535 #endif
6536 );
6537 #ifdef LAPACK_FORTRAN_STRLEN_END
6538     #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1)
6539 #else
6540     #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__)
6541 #endif
6542 
6543 #define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX)
6544 void LAPACK_zhbevx_base(
6545     char const* jobz, char const* range, char const* uplo,
6546     lapack_int const* n, lapack_int const* kd,
6547     lapack_complex_double* AB, lapack_int const* ldab,
6548     lapack_complex_double* Q, lapack_int const* ldq,
6549     double const* vl,
6550     double const* vu, lapack_int const* il, lapack_int const* iu,
6551     double const* abstol, lapack_int* m,
6552     double* W,
6553     lapack_complex_double* Z, lapack_int const* ldz,
6554     lapack_complex_double* work,
6555     double* rwork,
6556     lapack_int* iwork, lapack_int* IFAIL,
6557     lapack_int* info
6558 #ifdef LAPACK_FORTRAN_STRLEN_END
6559     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
6560 #endif
6561 );
6562 #ifdef LAPACK_FORTRAN_STRLEN_END
6563     #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1)
6564 #else
6565     #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__)
6566 #endif
6567 
6568 #define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE)
6569 void LAPACK_chbevx_2stage_base(
6570     char const* jobz, char const* range, char const* uplo,
6571     lapack_int const* n, lapack_int const* kd,
6572     lapack_complex_float* AB, lapack_int const* ldab,
6573     lapack_complex_float* Q, lapack_int const* ldq,
6574     float const* vl,
6575     float const* vu, lapack_int const* il, lapack_int const* iu,
6576     float const* abstol, lapack_int* m,
6577     float* W,
6578     lapack_complex_float* Z, lapack_int const* ldz,
6579     lapack_complex_float* work, lapack_int const* lwork,
6580     float* rwork,
6581     lapack_int* iwork, lapack_int* IFAIL,
6582     lapack_int* info
6583 #ifdef LAPACK_FORTRAN_STRLEN_END
6584     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
6585 #endif
6586 );
6587 #ifdef LAPACK_FORTRAN_STRLEN_END
6588     #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6589 #else
6590     #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__)
6591 #endif
6592 
6593 #define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE)
6594 void LAPACK_zhbevx_2stage_base(
6595     char const* jobz, char const* range, char const* uplo,
6596     lapack_int const* n, lapack_int const* kd,
6597     lapack_complex_double* AB, lapack_int const* ldab,
6598     lapack_complex_double* Q, lapack_int const* ldq,
6599     double const* vl,
6600     double const* vu, lapack_int const* il, lapack_int const* iu,
6601     double const* abstol, lapack_int* m,
6602     double* W,
6603     lapack_complex_double* Z, lapack_int const* ldz,
6604     lapack_complex_double* work, lapack_int const* lwork,
6605     double* rwork,
6606     lapack_int* iwork, lapack_int* IFAIL,
6607     lapack_int* info
6608 #ifdef LAPACK_FORTRAN_STRLEN_END
6609     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
6610 #endif
6611 );
6612 #ifdef LAPACK_FORTRAN_STRLEN_END
6613     #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6614 #else
6615     #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__)
6616 #endif
6617 
6618 #define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST)
6619 void LAPACK_chbgst_base(
6620     char const* vect, char const* uplo,
6621     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6622     lapack_complex_float* AB, lapack_int const* ldab,
6623     lapack_complex_float const* BB, lapack_int const* ldbb,
6624     lapack_complex_float* X, lapack_int const* ldx,
6625     lapack_complex_float* work,
6626     float* rwork,
6627     lapack_int* info
6628 #ifdef LAPACK_FORTRAN_STRLEN_END
6629     , FORTRAN_STRLEN, FORTRAN_STRLEN
6630 #endif
6631 );
6632 #ifdef LAPACK_FORTRAN_STRLEN_END
6633     #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1)
6634 #else
6635     #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__)
6636 #endif
6637 
6638 #define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST)
6639 void LAPACK_zhbgst_base(
6640     char const* vect, char const* uplo,
6641     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6642     lapack_complex_double* AB, lapack_int const* ldab,
6643     lapack_complex_double const* BB, lapack_int const* ldbb,
6644     lapack_complex_double* X, lapack_int const* ldx,
6645     lapack_complex_double* work,
6646     double* rwork,
6647     lapack_int* info
6648 #ifdef LAPACK_FORTRAN_STRLEN_END
6649     , FORTRAN_STRLEN, FORTRAN_STRLEN
6650 #endif
6651 );
6652 #ifdef LAPACK_FORTRAN_STRLEN_END
6653     #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1)
6654 #else
6655     #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__)
6656 #endif
6657 
6658 #define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV)
6659 void LAPACK_chbgv_base(
6660     char const* jobz, char const* uplo,
6661     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6662     lapack_complex_float* AB, lapack_int const* ldab,
6663     lapack_complex_float* BB, lapack_int const* ldbb,
6664     float* W,
6665     lapack_complex_float* Z, lapack_int const* ldz,
6666     lapack_complex_float* work,
6667     float* rwork,
6668     lapack_int* info
6669 #ifdef LAPACK_FORTRAN_STRLEN_END
6670     , FORTRAN_STRLEN, FORTRAN_STRLEN
6671 #endif
6672 );
6673 #ifdef LAPACK_FORTRAN_STRLEN_END
6674     #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1)
6675 #else
6676     #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__)
6677 #endif
6678 
6679 #define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV)
6680 void LAPACK_zhbgv_base(
6681     char const* jobz, char const* uplo,
6682     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6683     lapack_complex_double* AB, lapack_int const* ldab,
6684     lapack_complex_double* BB, lapack_int const* ldbb,
6685     double* W,
6686     lapack_complex_double* Z, lapack_int const* ldz,
6687     lapack_complex_double* work,
6688     double* rwork,
6689     lapack_int* info
6690 #ifdef LAPACK_FORTRAN_STRLEN_END
6691     , FORTRAN_STRLEN, FORTRAN_STRLEN
6692 #endif
6693 );
6694 #ifdef LAPACK_FORTRAN_STRLEN_END
6695     #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1)
6696 #else
6697     #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__)
6698 #endif
6699 
6700 #define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD)
6701 void LAPACK_chbgvd_base(
6702     char const* jobz, char const* uplo,
6703     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6704     lapack_complex_float* AB, lapack_int const* ldab,
6705     lapack_complex_float* BB, lapack_int const* ldbb,
6706     float* W,
6707     lapack_complex_float* Z, lapack_int const* ldz,
6708     lapack_complex_float* work, lapack_int const* lwork,
6709     float* rwork, lapack_int const* lrwork,
6710     lapack_int* iwork, lapack_int const* liwork,
6711     lapack_int* info
6712 #ifdef LAPACK_FORTRAN_STRLEN_END
6713     , FORTRAN_STRLEN, FORTRAN_STRLEN
6714 #endif
6715 );
6716 #ifdef LAPACK_FORTRAN_STRLEN_END
6717     #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1)
6718 #else
6719     #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__)
6720 #endif
6721 
6722 #define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD)
6723 void LAPACK_zhbgvd_base(
6724     char const* jobz, char const* uplo,
6725     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6726     lapack_complex_double* AB, lapack_int const* ldab,
6727     lapack_complex_double* BB, lapack_int const* ldbb,
6728     double* W,
6729     lapack_complex_double* Z, lapack_int const* ldz,
6730     lapack_complex_double* work, lapack_int const* lwork,
6731     double* rwork, lapack_int const* lrwork,
6732     lapack_int* iwork, lapack_int const* liwork,
6733     lapack_int* info
6734 #ifdef LAPACK_FORTRAN_STRLEN_END
6735     , FORTRAN_STRLEN, FORTRAN_STRLEN
6736 #endif
6737 );
6738 #ifdef LAPACK_FORTRAN_STRLEN_END
6739     #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1)
6740 #else
6741     #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__)
6742 #endif
6743 
6744 #define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX)
6745 void LAPACK_chbgvx_base(
6746     char const* jobz, char const* range, char const* uplo,
6747     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6748     lapack_complex_float* AB, lapack_int const* ldab,
6749     lapack_complex_float* BB, lapack_int const* ldbb,
6750     lapack_complex_float* Q, lapack_int const* ldq,
6751     float const* vl,
6752     float const* vu, lapack_int const* il, lapack_int const* iu,
6753     float const* abstol, lapack_int* m,
6754     float* W,
6755     lapack_complex_float* Z, lapack_int const* ldz,
6756     lapack_complex_float* work,
6757     float* rwork,
6758     lapack_int* iwork, lapack_int* IFAIL,
6759     lapack_int* info
6760 #ifdef LAPACK_FORTRAN_STRLEN_END
6761     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
6762 #endif
6763 );
6764 #ifdef LAPACK_FORTRAN_STRLEN_END
6765     #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1)
6766 #else
6767     #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__)
6768 #endif
6769 
6770 #define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX)
6771 void LAPACK_zhbgvx_base(
6772     char const* jobz, char const* range, char const* uplo,
6773     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6774     lapack_complex_double* AB, lapack_int const* ldab,
6775     lapack_complex_double* BB, lapack_int const* ldbb,
6776     lapack_complex_double* Q, lapack_int const* ldq,
6777     double const* vl,
6778     double const* vu, lapack_int const* il, lapack_int const* iu,
6779     double const* abstol, lapack_int* m,
6780     double* W,
6781     lapack_complex_double* Z, lapack_int const* ldz,
6782     lapack_complex_double* work,
6783     double* rwork,
6784     lapack_int* iwork, lapack_int* IFAIL,
6785     lapack_int* info
6786 #ifdef LAPACK_FORTRAN_STRLEN_END
6787     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
6788 #endif
6789 );
6790 #ifdef LAPACK_FORTRAN_STRLEN_END
6791     #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1)
6792 #else
6793     #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__)
6794 #endif
6795 
6796 #define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD)
6797 void LAPACK_chbtrd_base(
6798     char const* vect, char const* uplo,
6799     lapack_int const* n, lapack_int const* kd,
6800     lapack_complex_float* AB, lapack_int const* ldab,
6801     float* D,
6802     float* E,
6803     lapack_complex_float* Q, lapack_int const* ldq,
6804     lapack_complex_float* work,
6805     lapack_int* info
6806 #ifdef LAPACK_FORTRAN_STRLEN_END
6807     , FORTRAN_STRLEN, FORTRAN_STRLEN
6808 #endif
6809 );
6810 #ifdef LAPACK_FORTRAN_STRLEN_END
6811     #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1)
6812 #else
6813     #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__)
6814 #endif
6815 
6816 #define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD)
6817 void LAPACK_zhbtrd_base(
6818     char const* vect, char const* uplo,
6819     lapack_int const* n, lapack_int const* kd,
6820     lapack_complex_double* AB, lapack_int const* ldab,
6821     double* D,
6822     double* E,
6823     lapack_complex_double* Q, lapack_int const* ldq,
6824     lapack_complex_double* work,
6825     lapack_int* info
6826 #ifdef LAPACK_FORTRAN_STRLEN_END
6827     , FORTRAN_STRLEN, FORTRAN_STRLEN
6828 #endif
6829 );
6830 #ifdef LAPACK_FORTRAN_STRLEN_END
6831     #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1)
6832 #else
6833     #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__)
6834 #endif
6835 
6836 #define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON)
6837 void LAPACK_checon_base(
6838     char const* uplo,
6839     lapack_int const* n,
6840     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
6841     float const* anorm,
6842     float* rcond,
6843     lapack_complex_float* work,
6844     lapack_int* info
6845 #ifdef LAPACK_FORTRAN_STRLEN_END
6846     , FORTRAN_STRLEN
6847 #endif
6848 );
6849 #ifdef LAPACK_FORTRAN_STRLEN_END
6850     #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1)
6851 #else
6852     #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__)
6853 #endif
6854 
6855 #define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON)
6856 void LAPACK_zhecon_base(
6857     char const* uplo,
6858     lapack_int const* n,
6859     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
6860     double const* anorm,
6861     double* rcond,
6862     lapack_complex_double* work,
6863     lapack_int* info
6864 #ifdef LAPACK_FORTRAN_STRLEN_END
6865     , FORTRAN_STRLEN
6866 #endif
6867 );
6868 #ifdef LAPACK_FORTRAN_STRLEN_END
6869     #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1)
6870 #else
6871     #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__)
6872 #endif
6873 
6874 #define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3)
6875 void LAPACK_checon_3_base(
6876     char const* uplo,
6877     lapack_int const* n,
6878     lapack_complex_float const* A, lapack_int const* lda,
6879     lapack_complex_float const* E, lapack_int const* ipiv,
6880     float const* anorm,
6881     float* rcond,
6882     lapack_complex_float* work,
6883     lapack_int* info
6884 #ifdef LAPACK_FORTRAN_STRLEN_END
6885     , FORTRAN_STRLEN
6886 #endif
6887 );
6888 #ifdef LAPACK_FORTRAN_STRLEN_END
6889     #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1)
6890 #else
6891     #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__)
6892 #endif
6893 
6894 #define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3)
6895 void LAPACK_zhecon_3_base(
6896     char const* uplo,
6897     lapack_int const* n,
6898     lapack_complex_double const* A, lapack_int const* lda,
6899     lapack_complex_double const* E, lapack_int const* ipiv,
6900     double const* anorm,
6901     double* rcond,
6902     lapack_complex_double* work,
6903     lapack_int* info
6904 #ifdef LAPACK_FORTRAN_STRLEN_END
6905     , FORTRAN_STRLEN
6906 #endif
6907 );
6908 #ifdef LAPACK_FORTRAN_STRLEN_END
6909     #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1)
6910 #else
6911     #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__)
6912 #endif
6913 
6914 #define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB)
6915 void LAPACK_cheequb_base(
6916     char const* uplo,
6917     lapack_int const* n,
6918     lapack_complex_float const* A, lapack_int const* lda,
6919     float* S,
6920     float* scond,
6921     float* amax,
6922     lapack_complex_float* work,
6923     lapack_int* info
6924 #ifdef LAPACK_FORTRAN_STRLEN_END
6925     , FORTRAN_STRLEN
6926 #endif
6927 );
6928 #ifdef LAPACK_FORTRAN_STRLEN_END
6929     #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1)
6930 #else
6931     #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__)
6932 #endif
6933 
6934 #define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB)
6935 void LAPACK_zheequb_base(
6936     char const* uplo,
6937     lapack_int const* n,
6938     lapack_complex_double const* A, lapack_int const* lda,
6939     double* S,
6940     double* scond,
6941     double* amax,
6942     lapack_complex_double* work,
6943     lapack_int* info
6944 #ifdef LAPACK_FORTRAN_STRLEN_END
6945     , FORTRAN_STRLEN
6946 #endif
6947 );
6948 #ifdef LAPACK_FORTRAN_STRLEN_END
6949     #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1)
6950 #else
6951     #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__)
6952 #endif
6953 
6954 #define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV)
6955 void LAPACK_cheev_base(
6956     char const* jobz, char const* uplo,
6957     lapack_int const* n,
6958     lapack_complex_float* A, lapack_int const* lda,
6959     float* W,
6960     lapack_complex_float* work, lapack_int const* lwork,
6961     float* rwork,
6962     lapack_int* info
6963 #ifdef LAPACK_FORTRAN_STRLEN_END
6964     , FORTRAN_STRLEN, FORTRAN_STRLEN
6965 #endif
6966 );
6967 #ifdef LAPACK_FORTRAN_STRLEN_END
6968     #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1)
6969 #else
6970     #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__)
6971 #endif
6972 
6973 #define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV)
6974 void LAPACK_zheev_base(
6975     char const* jobz, char const* uplo,
6976     lapack_int const* n,
6977     lapack_complex_double* A, lapack_int const* lda,
6978     double* W,
6979     lapack_complex_double* work, lapack_int const* lwork,
6980     double* rwork,
6981     lapack_int* info
6982 #ifdef LAPACK_FORTRAN_STRLEN_END
6983     , FORTRAN_STRLEN, FORTRAN_STRLEN
6984 #endif
6985 );
6986 #ifdef LAPACK_FORTRAN_STRLEN_END
6987     #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1)
6988 #else
6989     #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__)
6990 #endif
6991 
6992 #define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE)
6993 void LAPACK_cheev_2stage_base(
6994     char const* jobz, char const* uplo,
6995     lapack_int const* n,
6996     lapack_complex_float* A, lapack_int const* lda,
6997     float* W,
6998     lapack_complex_float* work, lapack_int const* lwork,
6999     float* rwork,
7000     lapack_int* info
7001 #ifdef LAPACK_FORTRAN_STRLEN_END
7002     , FORTRAN_STRLEN, FORTRAN_STRLEN
7003 #endif
7004 );
7005 #ifdef LAPACK_FORTRAN_STRLEN_END
7006     #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1)
7007 #else
7008     #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__)
7009 #endif
7010 
7011 #define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE)
7012 void LAPACK_zheev_2stage_base(
7013     char const* jobz, char const* uplo,
7014     lapack_int const* n,
7015     lapack_complex_double* A, lapack_int const* lda,
7016     double* W,
7017     lapack_complex_double* work, lapack_int const* lwork,
7018     double* rwork,
7019     lapack_int* info
7020 #ifdef LAPACK_FORTRAN_STRLEN_END
7021     , FORTRAN_STRLEN, FORTRAN_STRLEN
7022 #endif
7023 );
7024 #ifdef LAPACK_FORTRAN_STRLEN_END
7025     #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1)
7026 #else
7027     #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__)
7028 #endif
7029 
7030 #define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD)
7031 void LAPACK_cheevd_base(
7032     char const* jobz, char const* uplo,
7033     lapack_int const* n,
7034     lapack_complex_float* A, lapack_int const* lda,
7035     float* W,
7036     lapack_complex_float* work, lapack_int const* lwork,
7037     float* rwork, lapack_int const* lrwork,
7038     lapack_int* iwork, lapack_int const* liwork,
7039     lapack_int* info
7040 #ifdef LAPACK_FORTRAN_STRLEN_END
7041     , FORTRAN_STRLEN, FORTRAN_STRLEN
7042 #endif
7043 );
7044 #ifdef LAPACK_FORTRAN_STRLEN_END
7045     #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1)
7046 #else
7047     #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__)
7048 #endif
7049 
7050 #define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD)
7051 void LAPACK_zheevd_base(
7052     char const* jobz, char const* uplo,
7053     lapack_int const* n,
7054     lapack_complex_double* A, lapack_int const* lda,
7055     double* W,
7056     lapack_complex_double* work, lapack_int const* lwork,
7057     double* rwork, lapack_int const* lrwork,
7058     lapack_int* iwork, lapack_int const* liwork,
7059     lapack_int* info
7060 #ifdef LAPACK_FORTRAN_STRLEN_END
7061     , FORTRAN_STRLEN, FORTRAN_STRLEN
7062 #endif
7063 );
7064 #ifdef LAPACK_FORTRAN_STRLEN_END
7065     #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1)
7066 #else
7067     #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__)
7068 #endif
7069 
7070 #define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE)
7071 void LAPACK_cheevd_2stage_base(
7072     char const* jobz, char const* uplo,
7073     lapack_int const* n,
7074     lapack_complex_float* A, lapack_int const* lda,
7075     float* W,
7076     lapack_complex_float* work, lapack_int const* lwork,
7077     float* rwork, lapack_int const* lrwork,
7078     lapack_int* iwork, lapack_int const* liwork,
7079     lapack_int* info
7080 #ifdef LAPACK_FORTRAN_STRLEN_END
7081     , FORTRAN_STRLEN, FORTRAN_STRLEN
7082 #endif
7083 );
7084 #ifdef LAPACK_FORTRAN_STRLEN_END
7085     #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1)
7086 #else
7087     #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__)
7088 #endif
7089 
7090 #define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE)
7091 void LAPACK_zheevd_2stage_base(
7092     char const* jobz, char const* uplo,
7093     lapack_int const* n,
7094     lapack_complex_double* A, lapack_int const* lda,
7095     double* W,
7096     lapack_complex_double* work, lapack_int const* lwork,
7097     double* rwork, lapack_int const* lrwork,
7098     lapack_int* iwork, lapack_int const* liwork,
7099     lapack_int* info
7100 #ifdef LAPACK_FORTRAN_STRLEN_END
7101     , FORTRAN_STRLEN, FORTRAN_STRLEN
7102 #endif
7103 );
7104 #ifdef LAPACK_FORTRAN_STRLEN_END
7105     #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1)
7106 #else
7107     #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__)
7108 #endif
7109 
7110 #define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR)
7111 void LAPACK_cheevr_base(
7112     char const* jobz, char const* range, char const* uplo,
7113     lapack_int const* n,
7114     lapack_complex_float* A, lapack_int const* lda,
7115     float const* vl,
7116     float const* vu, lapack_int const* il, lapack_int const* iu,
7117     float const* abstol, lapack_int* m,
7118     float* W,
7119     lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
7120     lapack_complex_float* work, lapack_int const* lwork,
7121     float* rwork, lapack_int const* lrwork,
7122     lapack_int* iwork, lapack_int const* liwork,
7123     lapack_int* info
7124 #ifdef LAPACK_FORTRAN_STRLEN_END
7125     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7126 #endif
7127 );
7128 #ifdef LAPACK_FORTRAN_STRLEN_END
7129     #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1)
7130 #else
7131     #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__)
7132 #endif
7133 
7134 #define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR)
7135 void LAPACK_zheevr_base(
7136     char const* jobz, char const* range, char const* uplo,
7137     lapack_int const* n,
7138     lapack_complex_double* A, lapack_int const* lda,
7139     double const* vl,
7140     double const* vu, lapack_int const* il, lapack_int const* iu,
7141     double const* abstol, lapack_int* m,
7142     double* W,
7143     lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
7144     lapack_complex_double* work, lapack_int const* lwork,
7145     double* rwork, lapack_int const* lrwork,
7146     lapack_int* iwork, lapack_int const* liwork,
7147     lapack_int* info
7148 #ifdef LAPACK_FORTRAN_STRLEN_END
7149     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7150 #endif
7151 );
7152 #ifdef LAPACK_FORTRAN_STRLEN_END
7153     #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1)
7154 #else
7155     #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__)
7156 #endif
7157 
7158 #define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE)
7159 void LAPACK_cheevr_2stage_base(
7160     char const* jobz, char const* range, char const* uplo,
7161     lapack_int const* n,
7162     lapack_complex_float* A, lapack_int const* lda,
7163     float const* vl,
7164     float const* vu, lapack_int const* il, lapack_int const* iu,
7165     float const* abstol, lapack_int* m,
7166     float* W,
7167     lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
7168     lapack_complex_float* work, lapack_int const* lwork,
7169     float* rwork, lapack_int const* lrwork,
7170     lapack_int* iwork, lapack_int const* liwork,
7171     lapack_int* info
7172 #ifdef LAPACK_FORTRAN_STRLEN_END
7173     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7174 #endif
7175 );
7176 #ifdef LAPACK_FORTRAN_STRLEN_END
7177     #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
7178 #else
7179     #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__)
7180 #endif
7181 
7182 #define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE)
7183 void LAPACK_zheevr_2stage_base(
7184     char const* jobz, char const* range, char const* uplo,
7185     lapack_int const* n,
7186     lapack_complex_double* A, lapack_int const* lda,
7187     double const* vl,
7188     double const* vu, lapack_int const* il, lapack_int const* iu,
7189     double const* abstol, lapack_int* m,
7190     double* W,
7191     lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
7192     lapack_complex_double* work, lapack_int const* lwork,
7193     double* rwork, lapack_int const* lrwork,
7194     lapack_int* iwork, lapack_int const* liwork,
7195     lapack_int* info
7196 #ifdef LAPACK_FORTRAN_STRLEN_END
7197     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7198 #endif
7199 );
7200 #ifdef LAPACK_FORTRAN_STRLEN_END
7201     #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
7202 #else
7203     #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__)
7204 #endif
7205 
7206 #define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX)
7207 void LAPACK_cheevx_base(
7208     char const* jobz, char const* range, char const* uplo,
7209     lapack_int const* n,
7210     lapack_complex_float* A, lapack_int const* lda,
7211     float const* vl,
7212     float const* vu, lapack_int const* il, lapack_int const* iu,
7213     float const* abstol, lapack_int* m,
7214     float* W,
7215     lapack_complex_float* Z, lapack_int const* ldz,
7216     lapack_complex_float* work, lapack_int const* lwork,
7217     float* rwork,
7218     lapack_int* iwork, lapack_int* IFAIL,
7219     lapack_int* info
7220 #ifdef LAPACK_FORTRAN_STRLEN_END
7221     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7222 #endif
7223 );
7224 #ifdef LAPACK_FORTRAN_STRLEN_END
7225     #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1)
7226 #else
7227     #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__)
7228 #endif
7229 
7230 #define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX)
7231 void LAPACK_zheevx_base(
7232     char const* jobz, char const* range, char const* uplo,
7233     lapack_int const* n,
7234     lapack_complex_double* A, lapack_int const* lda,
7235     double const* vl,
7236     double const* vu, lapack_int const* il, lapack_int const* iu,
7237     double const* abstol, lapack_int* m,
7238     double* W,
7239     lapack_complex_double* Z, lapack_int const* ldz,
7240     lapack_complex_double* work, lapack_int const* lwork,
7241     double* rwork,
7242     lapack_int* iwork, lapack_int* IFAIL,
7243     lapack_int* info
7244 #ifdef LAPACK_FORTRAN_STRLEN_END
7245     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7246 #endif
7247 );
7248 #ifdef LAPACK_FORTRAN_STRLEN_END
7249     #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1)
7250 #else
7251     #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__)
7252 #endif
7253 
7254 #define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE)
7255 void LAPACK_cheevx_2stage_base(
7256     char const* jobz, char const* range, char const* uplo,
7257     lapack_int const* n,
7258     lapack_complex_float* A, lapack_int const* lda,
7259     float const* vl,
7260     float const* vu, lapack_int const* il, lapack_int const* iu,
7261     float const* abstol, lapack_int* m,
7262     float* W,
7263     lapack_complex_float* Z, lapack_int const* ldz,
7264     lapack_complex_float* work, lapack_int const* lwork,
7265     float* rwork,
7266     lapack_int* iwork, lapack_int* IFAIL,
7267     lapack_int* info
7268 #ifdef LAPACK_FORTRAN_STRLEN_END
7269     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7270 #endif
7271 );
7272 #ifdef LAPACK_FORTRAN_STRLEN_END
7273     #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7274 #else
7275     #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__)
7276 #endif
7277 
7278 #define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE)
7279 void LAPACK_zheevx_2stage_base(
7280     char const* jobz, char const* range, char const* uplo,
7281     lapack_int const* n,
7282     lapack_complex_double* A, lapack_int const* lda,
7283     double const* vl,
7284     double const* vu, lapack_int const* il, lapack_int const* iu,
7285     double const* abstol, lapack_int* m,
7286     double* W,
7287     lapack_complex_double* Z, lapack_int const* ldz,
7288     lapack_complex_double* work, lapack_int const* lwork,
7289     double* rwork,
7290     lapack_int* iwork, lapack_int* IFAIL,
7291     lapack_int* info
7292 #ifdef LAPACK_FORTRAN_STRLEN_END
7293     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7294 #endif
7295 );
7296 #ifdef LAPACK_FORTRAN_STRLEN_END
7297     #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7298 #else
7299     #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__)
7300 #endif
7301 
7302 #define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST)
7303 void LAPACK_chegst_base(
7304     lapack_int const* itype, char const* uplo,
7305     lapack_int const* n,
7306     lapack_complex_float* A, lapack_int const* lda,
7307     const lapack_complex_float* B, lapack_int const* ldb,
7308     lapack_int* info
7309 #ifdef LAPACK_FORTRAN_STRLEN_END
7310     , FORTRAN_STRLEN
7311 #endif
7312 );
7313 #ifdef LAPACK_FORTRAN_STRLEN_END
7314     #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1)
7315 #else
7316     #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__)
7317 #endif
7318 
7319 #define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST)
7320 void LAPACK_zhegst_base(
7321     lapack_int const* itype, char const* uplo,
7322     lapack_int const* n,
7323     lapack_complex_double* A, lapack_int const* lda,
7324     const lapack_complex_double* B, lapack_int const* ldb,
7325     lapack_int* info
7326 #ifdef LAPACK_FORTRAN_STRLEN_END
7327     , FORTRAN_STRLEN
7328 #endif
7329 );
7330 #ifdef LAPACK_FORTRAN_STRLEN_END
7331     #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1)
7332 #else
7333     #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__)
7334 #endif
7335 
7336 #define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV)
7337 void LAPACK_chegv_base(
7338     lapack_int const* itype, char const* jobz, char const* uplo,
7339     lapack_int const* n,
7340     lapack_complex_float* A, lapack_int const* lda,
7341     lapack_complex_float* B, lapack_int const* ldb,
7342     float* W,
7343     lapack_complex_float* work, lapack_int const* lwork,
7344     float* rwork,
7345     lapack_int* info
7346 #ifdef LAPACK_FORTRAN_STRLEN_END
7347     , FORTRAN_STRLEN, FORTRAN_STRLEN
7348 #endif
7349 );
7350 #ifdef LAPACK_FORTRAN_STRLEN_END
7351     #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1)
7352 #else
7353     #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__)
7354 #endif
7355 
7356 #define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV)
7357 void LAPACK_zhegv_base(
7358     lapack_int const* itype, char const* jobz, char const* uplo,
7359     lapack_int const* n,
7360     lapack_complex_double* A, lapack_int const* lda,
7361     lapack_complex_double* B, lapack_int const* ldb,
7362     double* W,
7363     lapack_complex_double* work, lapack_int const* lwork,
7364     double* rwork,
7365     lapack_int* info
7366 #ifdef LAPACK_FORTRAN_STRLEN_END
7367     , FORTRAN_STRLEN, FORTRAN_STRLEN
7368 #endif
7369 );
7370 #ifdef LAPACK_FORTRAN_STRLEN_END
7371     #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1)
7372 #else
7373     #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__)
7374 #endif
7375 
7376 #define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE)
7377 void LAPACK_chegv_2stage_base(
7378     lapack_int const* itype, char const* jobz, char const* uplo,
7379     lapack_int const* n,
7380     lapack_complex_float* A, lapack_int const* lda,
7381     lapack_complex_float* B, lapack_int const* ldb,
7382     float* W,
7383     lapack_complex_float* work, lapack_int const* lwork,
7384     float* rwork,
7385     lapack_int* info
7386 #ifdef LAPACK_FORTRAN_STRLEN_END
7387     , FORTRAN_STRLEN, FORTRAN_STRLEN
7388 #endif
7389 );
7390 #ifdef LAPACK_FORTRAN_STRLEN_END
7391     #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1)
7392 #else
7393     #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__)
7394 #endif
7395 
7396 #define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE)
7397 void LAPACK_zhegv_2stage_base(
7398     lapack_int const* itype, char const* jobz, char const* uplo,
7399     lapack_int const* n,
7400     lapack_complex_double* A, lapack_int const* lda,
7401     lapack_complex_double* B, lapack_int const* ldb,
7402     double* W,
7403     lapack_complex_double* work, lapack_int const* lwork,
7404     double* rwork,
7405     lapack_int* info
7406 #ifdef LAPACK_FORTRAN_STRLEN_END
7407     , FORTRAN_STRLEN, FORTRAN_STRLEN
7408 #endif
7409 );
7410 #ifdef LAPACK_FORTRAN_STRLEN_END
7411     #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1)
7412 #else
7413     #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__)
7414 #endif
7415 
7416 #define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD)
7417 void LAPACK_chegvd_base(
7418     lapack_int const* itype, char const* jobz, char const* uplo,
7419     lapack_int const* n,
7420     lapack_complex_float* A, lapack_int const* lda,
7421     lapack_complex_float* B, lapack_int const* ldb,
7422     float* W,
7423     lapack_complex_float* work, lapack_int const* lwork,
7424     float* rwork, lapack_int const* lrwork,
7425     lapack_int* iwork, lapack_int const* liwork,
7426     lapack_int* info
7427 #ifdef LAPACK_FORTRAN_STRLEN_END
7428     , FORTRAN_STRLEN, FORTRAN_STRLEN
7429 #endif
7430 );
7431 #ifdef LAPACK_FORTRAN_STRLEN_END
7432     #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1)
7433 #else
7434     #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__)
7435 #endif
7436 
7437 #define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD)
7438 void LAPACK_zhegvd_base(
7439     lapack_int const* itype, char const* jobz, char const* uplo,
7440     lapack_int const* n,
7441     lapack_complex_double* A, lapack_int const* lda,
7442     lapack_complex_double* B, lapack_int const* ldb,
7443     double* W,
7444     lapack_complex_double* work, lapack_int const* lwork,
7445     double* rwork, lapack_int const* lrwork,
7446     lapack_int* iwork, lapack_int const* liwork,
7447     lapack_int* info
7448 #ifdef LAPACK_FORTRAN_STRLEN_END
7449     , FORTRAN_STRLEN, FORTRAN_STRLEN
7450 #endif
7451 );
7452 #ifdef LAPACK_FORTRAN_STRLEN_END
7453     #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1)
7454 #else
7455     #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__)
7456 #endif
7457 
7458 #define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX)
7459 void LAPACK_chegvx_base(
7460     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
7461     lapack_int const* n,
7462     lapack_complex_float* A, lapack_int const* lda,
7463     lapack_complex_float* B, lapack_int const* ldb,
7464     float const* vl,
7465     float const* vu, lapack_int const* il, lapack_int const* iu,
7466     float const* abstol, lapack_int* m,
7467     float* W,
7468     lapack_complex_float* Z, lapack_int const* ldz,
7469     lapack_complex_float* work, lapack_int const* lwork,
7470     float* rwork,
7471     lapack_int* iwork, lapack_int* IFAIL,
7472     lapack_int* info
7473 #ifdef LAPACK_FORTRAN_STRLEN_END
7474     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7475 #endif
7476 );
7477 #ifdef LAPACK_FORTRAN_STRLEN_END
7478     #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1)
7479 #else
7480     #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__)
7481 #endif
7482 
7483 #define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX)
7484 void LAPACK_zhegvx_base(
7485     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
7486     lapack_int const* n,
7487     lapack_complex_double* A, lapack_int const* lda,
7488     lapack_complex_double* B, lapack_int const* ldb,
7489     double const* vl,
7490     double const* vu, lapack_int const* il, lapack_int const* iu,
7491     double const* abstol, lapack_int* m,
7492     double* W,
7493     lapack_complex_double* Z, lapack_int const* ldz,
7494     lapack_complex_double* work, lapack_int const* lwork,
7495     double* rwork,
7496     lapack_int* iwork, lapack_int* IFAIL,
7497     lapack_int* info
7498 #ifdef LAPACK_FORTRAN_STRLEN_END
7499     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7500 #endif
7501 );
7502 #ifdef LAPACK_FORTRAN_STRLEN_END
7503     #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1)
7504 #else
7505     #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__)
7506 #endif
7507 
7508 #define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS)
7509 void LAPACK_cherfs_base(
7510     char const* uplo,
7511     lapack_int const* n, lapack_int const* nrhs,
7512     lapack_complex_float const* A, lapack_int const* lda,
7513     lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7514     lapack_complex_float const* B, lapack_int const* ldb,
7515     lapack_complex_float* X, lapack_int const* ldx,
7516     float* ferr,
7517     float* berr,
7518     lapack_complex_float* work,
7519     float* rwork,
7520     lapack_int* info
7521 #ifdef LAPACK_FORTRAN_STRLEN_END
7522     , FORTRAN_STRLEN
7523 #endif
7524 );
7525 #ifdef LAPACK_FORTRAN_STRLEN_END
7526     #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1)
7527 #else
7528     #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__)
7529 #endif
7530 
7531 #define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS)
7532 void LAPACK_zherfs_base(
7533     char const* uplo,
7534     lapack_int const* n, lapack_int const* nrhs,
7535     lapack_complex_double const* A, lapack_int const* lda,
7536     lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7537     lapack_complex_double const* B, lapack_int const* ldb,
7538     lapack_complex_double* X, lapack_int const* ldx,
7539     double* ferr,
7540     double* berr,
7541     lapack_complex_double* work,
7542     double* rwork,
7543     lapack_int* info
7544 #ifdef LAPACK_FORTRAN_STRLEN_END
7545     , FORTRAN_STRLEN
7546 #endif
7547 );
7548 #ifdef LAPACK_FORTRAN_STRLEN_END
7549     #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1)
7550 #else
7551     #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__)
7552 #endif
7553 
7554 #define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX)
7555 void LAPACK_cherfsx_base(
7556     char const* uplo, char const* equed,
7557     lapack_int const* n, lapack_int const* nrhs,
7558     lapack_complex_float const* A, lapack_int const* lda,
7559     lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7560     const float* S,
7561     lapack_complex_float const* B, lapack_int const* ldb,
7562     lapack_complex_float* X, lapack_int const* ldx,
7563     float* rcond,
7564     float* berr, lapack_int const* n_err_bnds,
7565     float* err_bnds_norm,
7566     float* err_bnds_comp, lapack_int const* nparams,
7567     float* params,
7568     lapack_complex_float* work,
7569     float* rwork,
7570     lapack_int* info
7571 #ifdef LAPACK_FORTRAN_STRLEN_END
7572     , FORTRAN_STRLEN, FORTRAN_STRLEN
7573 #endif
7574 );
7575 #ifdef LAPACK_FORTRAN_STRLEN_END
7576     #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1)
7577 #else
7578     #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__)
7579 #endif
7580 
7581 #define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX)
7582 void LAPACK_zherfsx_base(
7583     char const* uplo, char const* equed,
7584     lapack_int const* n, lapack_int const* nrhs,
7585     lapack_complex_double const* A, lapack_int const* lda,
7586     lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7587     const double* S,
7588     lapack_complex_double const* B, lapack_int const* ldb,
7589     lapack_complex_double* X, lapack_int const* ldx,
7590     double* rcond,
7591     double* berr, lapack_int const* n_err_bnds,
7592     double* err_bnds_norm,
7593     double* err_bnds_comp, lapack_int const* nparams,
7594     double* params,
7595     lapack_complex_double* work,
7596     double* rwork,
7597     lapack_int* info
7598 #ifdef LAPACK_FORTRAN_STRLEN_END
7599     , FORTRAN_STRLEN, FORTRAN_STRLEN
7600 #endif
7601 );
7602 #ifdef LAPACK_FORTRAN_STRLEN_END
7603     #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1)
7604 #else
7605     #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__)
7606 #endif
7607 
7608 #define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV)
7609 void LAPACK_chesv_base(
7610     char const* uplo,
7611     lapack_int const* n, lapack_int const* nrhs,
7612     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7613     lapack_complex_float* B, lapack_int const* ldb,
7614     lapack_complex_float* work, lapack_int const* lwork,
7615     lapack_int* info
7616 #ifdef LAPACK_FORTRAN_STRLEN_END
7617     , FORTRAN_STRLEN
7618 #endif
7619 );
7620 #ifdef LAPACK_FORTRAN_STRLEN_END
7621     #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1)
7622 #else
7623     #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__)
7624 #endif
7625 
7626 #define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV)
7627 void LAPACK_zhesv_base(
7628     char const* uplo,
7629     lapack_int const* n, lapack_int const* nrhs,
7630     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7631     lapack_complex_double* B, lapack_int const* ldb,
7632     lapack_complex_double* work, lapack_int const* lwork,
7633     lapack_int* info
7634 #ifdef LAPACK_FORTRAN_STRLEN_END
7635     , FORTRAN_STRLEN
7636 #endif
7637 );
7638 #ifdef LAPACK_FORTRAN_STRLEN_END
7639     #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1)
7640 #else
7641     #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__)
7642 #endif
7643 
7644 #define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA)
7645 void LAPACK_chesv_aa_base(
7646     char const* uplo,
7647     lapack_int const* n, lapack_int const* nrhs,
7648     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7649     lapack_complex_float* B, lapack_int const* ldb,
7650     lapack_complex_float* work, lapack_int const* lwork,
7651     lapack_int* info
7652 #ifdef LAPACK_FORTRAN_STRLEN_END
7653     , FORTRAN_STRLEN
7654 #endif
7655 );
7656 #ifdef LAPACK_FORTRAN_STRLEN_END
7657     #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1)
7658 #else
7659     #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__)
7660 #endif
7661 
7662 #define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA)
7663 void LAPACK_zhesv_aa_base(
7664     char const* uplo,
7665     lapack_int const* n, lapack_int const* nrhs,
7666     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7667     lapack_complex_double* B, lapack_int const* ldb,
7668     lapack_complex_double* work, lapack_int const* lwork,
7669     lapack_int* info
7670 #ifdef LAPACK_FORTRAN_STRLEN_END
7671     , FORTRAN_STRLEN
7672 #endif
7673 );
7674 #ifdef LAPACK_FORTRAN_STRLEN_END
7675     #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1)
7676 #else
7677     #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__)
7678 #endif
7679 
7680 #define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE)
7681 void LAPACK_chesv_aa_2stage_base(
7682     char const* uplo,
7683     lapack_int const* n, lapack_int const* nrhs,
7684     lapack_complex_float* A, lapack_int const* lda,
7685     lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7686     lapack_complex_float* B, lapack_int const* ldb,
7687     lapack_complex_float* work, lapack_int const* lwork,
7688     lapack_int* info
7689 #ifdef LAPACK_FORTRAN_STRLEN_END
7690     , FORTRAN_STRLEN
7691 #endif
7692 );
7693 #ifdef LAPACK_FORTRAN_STRLEN_END
7694     #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1)
7695 #else
7696     #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__)
7697 #endif
7698 
7699 #define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE)
7700 void LAPACK_zhesv_aa_2stage_base(
7701     char const* uplo,
7702     lapack_int const* n, lapack_int const* nrhs,
7703     lapack_complex_double* A, lapack_int const* lda,
7704     lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7705     lapack_complex_double* B, lapack_int const* ldb,
7706     lapack_complex_double* work, lapack_int const* lwork,
7707     lapack_int* info
7708 #ifdef LAPACK_FORTRAN_STRLEN_END
7709     , FORTRAN_STRLEN
7710 #endif
7711 );
7712 #ifdef LAPACK_FORTRAN_STRLEN_END
7713     #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1)
7714 #else
7715     #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__)
7716 #endif
7717 
7718 #define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK)
7719 void LAPACK_chesv_rk_base(
7720     char const* uplo,
7721     lapack_int const* n, lapack_int const* nrhs,
7722     lapack_complex_float* A, lapack_int const* lda,
7723     lapack_complex_float* E, lapack_int* ipiv,
7724     lapack_complex_float* B, lapack_int const* ldb,
7725     lapack_complex_float* work, lapack_int const* lwork,
7726     lapack_int* info
7727 #ifdef LAPACK_FORTRAN_STRLEN_END
7728     , FORTRAN_STRLEN
7729 #endif
7730 );
7731 #ifdef LAPACK_FORTRAN_STRLEN_END
7732     #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1)
7733 #else
7734     #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__)
7735 #endif
7736 
7737 #define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK)
7738 void LAPACK_zhesv_rk_base(
7739     char const* uplo,
7740     lapack_int const* n, lapack_int const* nrhs,
7741     lapack_complex_double* A, lapack_int const* lda,
7742     lapack_complex_double* E, lapack_int* ipiv,
7743     lapack_complex_double* B, lapack_int const* ldb,
7744     lapack_complex_double* work, lapack_int const* lwork,
7745     lapack_int* info
7746 #ifdef LAPACK_FORTRAN_STRLEN_END
7747     , FORTRAN_STRLEN
7748 #endif
7749 );
7750 #ifdef LAPACK_FORTRAN_STRLEN_END
7751     #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1)
7752 #else
7753     #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__)
7754 #endif
7755 
7756 #define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK)
7757 void LAPACK_chesv_rook_base(
7758     char const* uplo,
7759     lapack_int const* n, lapack_int const* nrhs,
7760     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7761     lapack_complex_float* B, lapack_int const* ldb,
7762     lapack_complex_float* work, lapack_int const* lwork,
7763     lapack_int* info
7764 #ifdef LAPACK_FORTRAN_STRLEN_END
7765     , FORTRAN_STRLEN
7766 #endif
7767 );
7768 #ifdef LAPACK_FORTRAN_STRLEN_END
7769     #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1)
7770 #else
7771     #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__)
7772 #endif
7773 
7774 #define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK)
7775 void LAPACK_zhesv_rook_base(
7776     char const* uplo,
7777     lapack_int const* n, lapack_int const* nrhs,
7778     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7779     lapack_complex_double* B, lapack_int const* ldb,
7780     lapack_complex_double* work, lapack_int const* lwork,
7781     lapack_int* info
7782 #ifdef LAPACK_FORTRAN_STRLEN_END
7783     , FORTRAN_STRLEN
7784 #endif
7785 );
7786 #ifdef LAPACK_FORTRAN_STRLEN_END
7787     #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1)
7788 #else
7789     #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__)
7790 #endif
7791 
7792 #define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX)
7793 void LAPACK_chesvx_base(
7794     char const* fact, char const* uplo,
7795     lapack_int const* n, lapack_int const* nrhs,
7796     lapack_complex_float const* A, lapack_int const* lda,
7797     lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv,
7798     lapack_complex_float const* B, lapack_int const* ldb,
7799     lapack_complex_float* X, lapack_int const* ldx,
7800     float* rcond,
7801     float* ferr,
7802     float* berr,
7803     lapack_complex_float* work, lapack_int const* lwork,
7804     float* rwork,
7805     lapack_int* info
7806 #ifdef LAPACK_FORTRAN_STRLEN_END
7807     , FORTRAN_STRLEN, FORTRAN_STRLEN
7808 #endif
7809 );
7810 #ifdef LAPACK_FORTRAN_STRLEN_END
7811     #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1)
7812 #else
7813     #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__)
7814 #endif
7815 
7816 #define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX)
7817 void LAPACK_zhesvx_base(
7818     char const* fact, char const* uplo,
7819     lapack_int const* n, lapack_int const* nrhs,
7820     lapack_complex_double const* A, lapack_int const* lda,
7821     lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv,
7822     lapack_complex_double const* B, lapack_int const* ldb,
7823     lapack_complex_double* X, lapack_int const* ldx,
7824     double* rcond,
7825     double* ferr,
7826     double* berr,
7827     lapack_complex_double* work, lapack_int const* lwork,
7828     double* rwork,
7829     lapack_int* info
7830 #ifdef LAPACK_FORTRAN_STRLEN_END
7831     , FORTRAN_STRLEN, FORTRAN_STRLEN
7832 #endif
7833 );
7834 #ifdef LAPACK_FORTRAN_STRLEN_END
7835     #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1)
7836 #else
7837     #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__)
7838 #endif
7839 
7840 #define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX)
7841 void LAPACK_chesvxx_base(
7842     char const* fact, char const* uplo,
7843     lapack_int const* n, lapack_int const* nrhs,
7844     lapack_complex_float* A, lapack_int const* lda,
7845     lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
7846     float* S,
7847     lapack_complex_float* B,
7848     lapack_int const* ldb,
7849     lapack_complex_float* X, lapack_int const* ldx,
7850     float* rcond,
7851     float* rpvgrw,
7852     float* berr, lapack_int const* n_err_bnds,
7853     float* err_bnds_norm,
7854     float* err_bnds_comp, lapack_int const* nparams,
7855     float* params,
7856     lapack_complex_float* work,
7857     float* rwork,
7858     lapack_int* info
7859 #ifdef LAPACK_FORTRAN_STRLEN_END
7860     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7861 #endif
7862 );
7863 #ifdef LAPACK_FORTRAN_STRLEN_END
7864     #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1)
7865 #else
7866     #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__)
7867 #endif
7868 
7869 #define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX)
7870 void LAPACK_zhesvxx_base(
7871     char const* fact, char const* uplo,
7872     lapack_int const* n, lapack_int const* nrhs,
7873     lapack_complex_double* A, lapack_int const* lda,
7874     lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
7875     double* S,
7876     lapack_complex_double* B,
7877     lapack_int const* ldb,
7878     lapack_complex_double* X, lapack_int const* ldx,
7879     double* rcond,
7880     double* rpvgrw,
7881     double* berr, lapack_int const* n_err_bnds,
7882     double* err_bnds_norm,
7883     double* err_bnds_comp, lapack_int const* nparams,
7884     double* params,
7885     lapack_complex_double* work,
7886     double* rwork,
7887     lapack_int* info
7888 #ifdef LAPACK_FORTRAN_STRLEN_END
7889     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
7890 #endif
7891 );
7892 #ifdef LAPACK_FORTRAN_STRLEN_END
7893     #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1)
7894 #else
7895     #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__)
7896 #endif
7897 
7898 #define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR)
7899 void LAPACK_cheswapr_base(
7900     char const* uplo,
7901     lapack_int const* n,
7902     lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7903 #ifdef LAPACK_FORTRAN_STRLEN_END
7904     , FORTRAN_STRLEN
7905 #endif
7906 );
7907 #ifdef LAPACK_FORTRAN_STRLEN_END
7908     #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1)
7909 #else
7910     #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__)
7911 #endif
7912 
7913 #define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR)
7914 void LAPACK_zheswapr_base(
7915     char const* uplo,
7916     lapack_int const* n,
7917     lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7918 #ifdef LAPACK_FORTRAN_STRLEN_END
7919     , FORTRAN_STRLEN
7920 #endif
7921 );
7922 #ifdef LAPACK_FORTRAN_STRLEN_END
7923     #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1)
7924 #else
7925     #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__)
7926 #endif
7927 
7928 #define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD)
7929 void LAPACK_chetrd_base(
7930     char const* uplo,
7931     lapack_int const* n,
7932     lapack_complex_float* A, lapack_int const* lda,
7933     float* D,
7934     float* E,
7935     lapack_complex_float* tau,
7936     lapack_complex_float* work, lapack_int const* lwork,
7937     lapack_int* info
7938 #ifdef LAPACK_FORTRAN_STRLEN_END
7939     , FORTRAN_STRLEN
7940 #endif
7941 );
7942 #ifdef LAPACK_FORTRAN_STRLEN_END
7943     #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1)
7944 #else
7945     #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__)
7946 #endif
7947 
7948 #define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD)
7949 void LAPACK_zhetrd_base(
7950     char const* uplo,
7951     lapack_int const* n,
7952     lapack_complex_double* A, lapack_int const* lda,
7953     double* D,
7954     double* E,
7955     lapack_complex_double* tau,
7956     lapack_complex_double* work, lapack_int const* lwork,
7957     lapack_int* info
7958 #ifdef LAPACK_FORTRAN_STRLEN_END
7959     , FORTRAN_STRLEN
7960 #endif
7961 );
7962 #ifdef LAPACK_FORTRAN_STRLEN_END
7963     #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1)
7964 #else
7965     #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__)
7966 #endif
7967 
7968 #define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE)
7969 void LAPACK_chetrd_2stage_base(
7970     char const* vect, char const* uplo,
7971     lapack_int const* n,
7972     lapack_complex_float* A, lapack_int const* lda,
7973     float* D,
7974     float* E,
7975     lapack_complex_float* tau,
7976     lapack_complex_float* HOUS2, lapack_int const* lhous2,
7977     lapack_complex_float* work, lapack_int const* lwork,
7978     lapack_int* info
7979 #ifdef LAPACK_FORTRAN_STRLEN_END
7980     , FORTRAN_STRLEN, FORTRAN_STRLEN
7981 #endif
7982 );
7983 #ifdef LAPACK_FORTRAN_STRLEN_END
7984     #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1)
7985 #else
7986     #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__)
7987 #endif
7988 
7989 #define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE)
7990 void LAPACK_zhetrd_2stage_base(
7991     char const* vect, char const* uplo,
7992     lapack_int const* n,
7993     lapack_complex_double* A, lapack_int const* lda,
7994     double* D,
7995     double* E,
7996     lapack_complex_double* tau,
7997     lapack_complex_double* HOUS2, lapack_int const* lhous2,
7998     lapack_complex_double* work, lapack_int const* lwork,
7999     lapack_int* info
8000 #ifdef LAPACK_FORTRAN_STRLEN_END
8001     , FORTRAN_STRLEN, FORTRAN_STRLEN
8002 #endif
8003 );
8004 #ifdef LAPACK_FORTRAN_STRLEN_END
8005     #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1)
8006 #else
8007     #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__)
8008 #endif
8009 
8010 #define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF)
8011 void LAPACK_chetrf_base(
8012     char const* uplo,
8013     lapack_int const* n,
8014     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
8015     lapack_complex_float* work, lapack_int const* lwork,
8016     lapack_int* info
8017 #ifdef LAPACK_FORTRAN_STRLEN_END
8018     , FORTRAN_STRLEN
8019 #endif
8020 );
8021 #ifdef LAPACK_FORTRAN_STRLEN_END
8022     #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1)
8023 #else
8024     #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__)
8025 #endif
8026 
8027 #define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF)
8028 void LAPACK_zhetrf_base(
8029     char const* uplo,
8030     lapack_int const* n,
8031     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
8032     lapack_complex_double* work, lapack_int const* lwork,
8033     lapack_int* info
8034 #ifdef LAPACK_FORTRAN_STRLEN_END
8035     , FORTRAN_STRLEN
8036 #endif
8037 );
8038 #ifdef LAPACK_FORTRAN_STRLEN_END
8039     #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1)
8040 #else
8041     #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__)
8042 #endif
8043 
8044 #define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA)
8045 void LAPACK_chetrf_aa_base(
8046     char const* uplo,
8047     lapack_int const* n,
8048     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
8049     lapack_complex_float* work, lapack_int const* lwork,
8050     lapack_int* info
8051 #ifdef LAPACK_FORTRAN_STRLEN_END
8052     , FORTRAN_STRLEN
8053 #endif
8054 );
8055 #ifdef LAPACK_FORTRAN_STRLEN_END
8056     #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1)
8057 #else
8058     #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__)
8059 #endif
8060 
8061 #define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA)
8062 void LAPACK_zhetrf_aa_base(
8063     char const* uplo,
8064     lapack_int const* n,
8065     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
8066     lapack_complex_double* work, lapack_int const* lwork,
8067     lapack_int* info
8068 #ifdef LAPACK_FORTRAN_STRLEN_END
8069     , FORTRAN_STRLEN
8070 #endif
8071 );
8072 #ifdef LAPACK_FORTRAN_STRLEN_END
8073     #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1)
8074 #else
8075     #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__)
8076 #endif
8077 
8078 #define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE)
8079 void LAPACK_chetrf_aa_2stage_base(
8080     char const* uplo,
8081     lapack_int const* n,
8082     lapack_complex_float* A, lapack_int const* lda,
8083     lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
8084     lapack_complex_float* work, lapack_int const* lwork,
8085     lapack_int* info
8086 #ifdef LAPACK_FORTRAN_STRLEN_END
8087     , FORTRAN_STRLEN
8088 #endif
8089 );
8090 #ifdef LAPACK_FORTRAN_STRLEN_END
8091     #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1)
8092 #else
8093     #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__)
8094 #endif
8095 
8096 #define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE)
8097 void LAPACK_zhetrf_aa_2stage_base(
8098     char const* uplo,
8099     lapack_int const* n,
8100     lapack_complex_double* A, lapack_int const* lda,
8101     lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
8102     lapack_complex_double* work, lapack_int const* lwork,
8103     lapack_int* info
8104 #ifdef LAPACK_FORTRAN_STRLEN_END
8105     , FORTRAN_STRLEN
8106 #endif
8107 );
8108 #ifdef LAPACK_FORTRAN_STRLEN_END
8109     #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1)
8110 #else
8111     #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__)
8112 #endif
8113 
8114 #define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK)
8115 void LAPACK_chetrf_rk_base(
8116     char const* uplo,
8117     lapack_int const* n,
8118     lapack_complex_float* A, lapack_int const* lda,
8119     lapack_complex_float* E, lapack_int* ipiv,
8120     lapack_complex_float* work, lapack_int const* lwork,
8121     lapack_int* info
8122 #ifdef LAPACK_FORTRAN_STRLEN_END
8123     , FORTRAN_STRLEN
8124 #endif
8125 );
8126 #ifdef LAPACK_FORTRAN_STRLEN_END
8127     #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1)
8128 #else
8129     #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__)
8130 #endif
8131 
8132 #define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK)
8133 void LAPACK_zhetrf_rk_base(
8134     char const* uplo,
8135     lapack_int const* n,
8136     lapack_complex_double* A, lapack_int const* lda,
8137     lapack_complex_double* E, lapack_int* ipiv,
8138     lapack_complex_double* work, lapack_int const* lwork,
8139     lapack_int* info
8140 #ifdef LAPACK_FORTRAN_STRLEN_END
8141     , FORTRAN_STRLEN
8142 #endif
8143 );
8144 #ifdef LAPACK_FORTRAN_STRLEN_END
8145     #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1)
8146 #else
8147     #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__)
8148 #endif
8149 
8150 #define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK)
8151 void LAPACK_chetrf_rook_base(
8152     char const* uplo,
8153     lapack_int const* n,
8154     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
8155     lapack_complex_float* work, lapack_int const* lwork,
8156     lapack_int* info
8157 #ifdef LAPACK_FORTRAN_STRLEN_END
8158     , FORTRAN_STRLEN
8159 #endif
8160 );
8161 #ifdef LAPACK_FORTRAN_STRLEN_END
8162     #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1)
8163 #else
8164     #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__)
8165 #endif
8166 
8167 #define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK)
8168 void LAPACK_zhetrf_rook_base(
8169     char const* uplo,
8170     lapack_int const* n,
8171     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
8172     lapack_complex_double* work, lapack_int const* lwork,
8173     lapack_int* info
8174 #ifdef LAPACK_FORTRAN_STRLEN_END
8175     , FORTRAN_STRLEN
8176 #endif
8177 );
8178 #ifdef LAPACK_FORTRAN_STRLEN_END
8179     #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1)
8180 #else
8181     #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__)
8182 #endif
8183 
8184 #define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI)
8185 void LAPACK_chetri_base(
8186     char const* uplo,
8187     lapack_int const* n,
8188     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8189     lapack_complex_float* work,
8190     lapack_int* info
8191 #ifdef LAPACK_FORTRAN_STRLEN_END
8192     , FORTRAN_STRLEN
8193 #endif
8194 );
8195 #ifdef LAPACK_FORTRAN_STRLEN_END
8196     #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1)
8197 #else
8198     #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__)
8199 #endif
8200 
8201 #define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI)
8202 void LAPACK_zhetri_base(
8203     char const* uplo,
8204     lapack_int const* n,
8205     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8206     lapack_complex_double* work,
8207     lapack_int* info
8208 #ifdef LAPACK_FORTRAN_STRLEN_END
8209     , FORTRAN_STRLEN
8210 #endif
8211 );
8212 #ifdef LAPACK_FORTRAN_STRLEN_END
8213     #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1)
8214 #else
8215     #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__)
8216 #endif
8217 
8218 #define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2)
8219 void LAPACK_chetri2_base(
8220     char const* uplo,
8221     lapack_int const* n,
8222     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8223     lapack_complex_float* work, lapack_int const* lwork,
8224     lapack_int* info
8225 #ifdef LAPACK_FORTRAN_STRLEN_END
8226     , FORTRAN_STRLEN
8227 #endif
8228 );
8229 #ifdef LAPACK_FORTRAN_STRLEN_END
8230     #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1)
8231 #else
8232     #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__)
8233 #endif
8234 
8235 #define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2)
8236 void LAPACK_zhetri2_base(
8237     char const* uplo,
8238     lapack_int const* n,
8239     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8240     lapack_complex_double* work, lapack_int const* lwork,
8241     lapack_int* info
8242 #ifdef LAPACK_FORTRAN_STRLEN_END
8243     , FORTRAN_STRLEN
8244 #endif
8245 );
8246 #ifdef LAPACK_FORTRAN_STRLEN_END
8247     #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1)
8248 #else
8249     #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__)
8250 #endif
8251 
8252 #define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X)
8253 void LAPACK_chetri2x_base(
8254     char const* uplo,
8255     lapack_int const* n,
8256     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8257     lapack_complex_float* work, lapack_int const* nb,
8258     lapack_int* info
8259 #ifdef LAPACK_FORTRAN_STRLEN_END
8260     , FORTRAN_STRLEN
8261 #endif
8262 );
8263 #ifdef LAPACK_FORTRAN_STRLEN_END
8264     #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1)
8265 #else
8266     #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__)
8267 #endif
8268 
8269 #define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
8270 void LAPACK_zhetri2x_base(
8271     char const* uplo,
8272     lapack_int const* n,
8273     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8274     lapack_complex_double* work, lapack_int const* nb,
8275     lapack_int* info
8276 #ifdef LAPACK_FORTRAN_STRLEN_END
8277     , FORTRAN_STRLEN
8278 #endif
8279 );
8280 #ifdef LAPACK_FORTRAN_STRLEN_END
8281     #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1)
8282 #else
8283     #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__)
8284 #endif
8285 
8286 #define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3)
8287 void LAPACK_chetri_3_base(
8288     char const* uplo,
8289     lapack_int const* n,
8290     lapack_complex_float* A, lapack_int const* lda,
8291     lapack_complex_float const* E, lapack_int const* ipiv,
8292     lapack_complex_float* work, lapack_int const* lwork,
8293     lapack_int* info
8294 #ifdef LAPACK_FORTRAN_STRLEN_END
8295     , FORTRAN_STRLEN
8296 #endif
8297 );
8298 #ifdef LAPACK_FORTRAN_STRLEN_END
8299     #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1)
8300 #else
8301     #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__)
8302 #endif
8303 
8304 #define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3)
8305 void LAPACK_zhetri_3_base(
8306     char const* uplo,
8307     lapack_int const* n,
8308     lapack_complex_double* A, lapack_int const* lda,
8309     lapack_complex_double const* E, lapack_int const* ipiv,
8310     lapack_complex_double* work, lapack_int const* lwork,
8311     lapack_int* info
8312 #ifdef LAPACK_FORTRAN_STRLEN_END
8313     , FORTRAN_STRLEN
8314 #endif
8315 );
8316 #ifdef LAPACK_FORTRAN_STRLEN_END
8317     #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1)
8318 #else
8319     #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__)
8320 #endif
8321 
8322 #define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS)
8323 void LAPACK_chetrs_base(
8324     char const* uplo,
8325     lapack_int const* n, lapack_int const* nrhs,
8326     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8327     lapack_complex_float* B, lapack_int const* ldb,
8328     lapack_int* info
8329 #ifdef LAPACK_FORTRAN_STRLEN_END
8330     , FORTRAN_STRLEN
8331 #endif
8332 );
8333 #ifdef LAPACK_FORTRAN_STRLEN_END
8334     #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1)
8335 #else
8336     #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__)
8337 #endif
8338 
8339 #define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS)
8340 void LAPACK_zhetrs_base(
8341     char const* uplo,
8342     lapack_int const* n, lapack_int const* nrhs,
8343     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8344     lapack_complex_double* B, lapack_int const* ldb,
8345     lapack_int* info
8346 #ifdef LAPACK_FORTRAN_STRLEN_END
8347     , FORTRAN_STRLEN
8348 #endif
8349 );
8350 #ifdef LAPACK_FORTRAN_STRLEN_END
8351     #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1)
8352 #else
8353     #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__)
8354 #endif
8355 
8356 #define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2)
8357 void LAPACK_chetrs2_base(
8358     char const* uplo,
8359     lapack_int const* n, lapack_int const* nrhs,
8360     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8361     lapack_complex_float* B, lapack_int const* ldb,
8362     lapack_complex_float* work,
8363     lapack_int* info
8364 #ifdef LAPACK_FORTRAN_STRLEN_END
8365     , FORTRAN_STRLEN
8366 #endif
8367 );
8368 #ifdef LAPACK_FORTRAN_STRLEN_END
8369     #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1)
8370 #else
8371     #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__)
8372 #endif
8373 
8374 #define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2)
8375 void LAPACK_zhetrs2_base(
8376     char const* uplo,
8377     lapack_int const* n, lapack_int const* nrhs,
8378     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8379     lapack_complex_double* B, lapack_int const* ldb,
8380     lapack_complex_double* work,
8381     lapack_int* info
8382 #ifdef LAPACK_FORTRAN_STRLEN_END
8383     , FORTRAN_STRLEN
8384 #endif
8385 );
8386 #ifdef LAPACK_FORTRAN_STRLEN_END
8387     #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1)
8388 #else
8389     #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__)
8390 #endif
8391 
8392 #define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3)
8393 void LAPACK_chetrs_3_base(
8394     char const* uplo,
8395     lapack_int const* n, lapack_int const* nrhs,
8396     lapack_complex_float const* A, lapack_int const* lda,
8397     lapack_complex_float const* E, lapack_int const* ipiv,
8398     lapack_complex_float* B, lapack_int const* ldb,
8399     lapack_int* info
8400 #ifdef LAPACK_FORTRAN_STRLEN_END
8401     , FORTRAN_STRLEN
8402 #endif
8403 );
8404 #ifdef LAPACK_FORTRAN_STRLEN_END
8405     #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1)
8406 #else
8407     #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__)
8408 #endif
8409 
8410 #define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3)
8411 void LAPACK_zhetrs_3_base(
8412     char const* uplo,
8413     lapack_int const* n, lapack_int const* nrhs,
8414     lapack_complex_double const* A, lapack_int const* lda,
8415     lapack_complex_double const* E, lapack_int const* ipiv,
8416     lapack_complex_double* B, lapack_int const* ldb,
8417     lapack_int* info
8418 #ifdef LAPACK_FORTRAN_STRLEN_END
8419     , FORTRAN_STRLEN
8420 #endif
8421 );
8422 #ifdef LAPACK_FORTRAN_STRLEN_END
8423     #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1)
8424 #else
8425     #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__)
8426 #endif
8427 
8428 #define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA)
8429 void LAPACK_chetrs_aa_base(
8430     char const* uplo,
8431     lapack_int const* n, lapack_int const* nrhs,
8432     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8433     lapack_complex_float* B, lapack_int const* ldb,
8434     lapack_complex_float* work, lapack_int const* lwork,
8435     lapack_int* info
8436 #ifdef LAPACK_FORTRAN_STRLEN_END
8437     , FORTRAN_STRLEN
8438 #endif
8439 );
8440 #ifdef LAPACK_FORTRAN_STRLEN_END
8441     #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1)
8442 #else
8443     #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__)
8444 #endif
8445 
8446 #define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA)
8447 void LAPACK_zhetrs_aa_base(
8448     char const* uplo,
8449     lapack_int const* n, lapack_int const* nrhs,
8450     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8451     lapack_complex_double* B, lapack_int const* ldb,
8452     lapack_complex_double* work, lapack_int const* lwork,
8453     lapack_int* info
8454 #ifdef LAPACK_FORTRAN_STRLEN_END
8455     , FORTRAN_STRLEN
8456 #endif
8457 );
8458 #ifdef LAPACK_FORTRAN_STRLEN_END
8459     #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1)
8460 #else
8461     #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__)
8462 #endif
8463 
8464 #define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE)
8465 void LAPACK_chetrs_aa_2stage_base(
8466     char const* uplo,
8467     lapack_int const* n, lapack_int const* nrhs,
8468     lapack_complex_float const* A, lapack_int const* lda,
8469     lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8470     lapack_complex_float* B, lapack_int const* ldb,
8471     lapack_int* info
8472 #ifdef LAPACK_FORTRAN_STRLEN_END
8473     , FORTRAN_STRLEN
8474 #endif
8475 );
8476 #ifdef LAPACK_FORTRAN_STRLEN_END
8477     #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1)
8478 #else
8479     #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__)
8480 #endif
8481 
8482 #define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE)
8483 void LAPACK_zhetrs_aa_2stage_base(
8484     char const* uplo,
8485     lapack_int const* n, lapack_int const* nrhs,
8486     lapack_complex_double const* A, lapack_int const* lda,
8487     lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8488     lapack_complex_double* B, lapack_int const* ldb,
8489     lapack_int* info
8490 #ifdef LAPACK_FORTRAN_STRLEN_END
8491     , FORTRAN_STRLEN
8492 #endif
8493 );
8494 #ifdef LAPACK_FORTRAN_STRLEN_END
8495     #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1)
8496 #else
8497     #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__)
8498 #endif
8499 
8500 #define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK)
8501 void LAPACK_chetrs_rook_base(
8502     char const* uplo,
8503     lapack_int const* n, lapack_int const* nrhs,
8504     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8505     lapack_complex_float* B, lapack_int const* ldb,
8506     lapack_int* info
8507 #ifdef LAPACK_FORTRAN_STRLEN_END
8508     , FORTRAN_STRLEN
8509 #endif
8510 );
8511 #ifdef LAPACK_FORTRAN_STRLEN_END
8512     #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1)
8513 #else
8514     #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__)
8515 #endif
8516 
8517 #define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK)
8518 void LAPACK_zhetrs_rook_base(
8519     char const* uplo,
8520     lapack_int const* n, lapack_int const* nrhs,
8521     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8522     lapack_complex_double* B, lapack_int const* ldb,
8523     lapack_int* info
8524 #ifdef LAPACK_FORTRAN_STRLEN_END
8525     , FORTRAN_STRLEN
8526 #endif
8527 );
8528 #ifdef LAPACK_FORTRAN_STRLEN_END
8529     #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1)
8530 #else
8531     #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__)
8532 #endif
8533 
8534 #define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK)
8535 void LAPACK_chfrk_base(
8536     char const* transr, char const* uplo, char const* trans,
8537     lapack_int const* n, lapack_int const* k,
8538     float const* alpha,
8539     lapack_complex_float const* A, lapack_int const* lda,
8540     float const* beta,
8541     lapack_complex_float* C
8542 #ifdef LAPACK_FORTRAN_STRLEN_END
8543     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8544 #endif
8545 );
8546 #ifdef LAPACK_FORTRAN_STRLEN_END
8547     #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1)
8548 #else
8549     #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__)
8550 #endif
8551 
8552 #define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK)
8553 void LAPACK_zhfrk_base(
8554     char const* transr, char const* uplo, char const* trans,
8555     lapack_int const* n, lapack_int const* k,
8556     double const* alpha,
8557     lapack_complex_double const* A, lapack_int const* lda,
8558     double const* beta,
8559     lapack_complex_double* C
8560 #ifdef LAPACK_FORTRAN_STRLEN_END
8561     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8562 #endif
8563 );
8564 #ifdef LAPACK_FORTRAN_STRLEN_END
8565     #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1)
8566 #else
8567     #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__)
8568 #endif
8569 
8570 #define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ)
8571 void LAPACK_chgeqz_base(
8572     char const* job, char const* compq, char const* compz,
8573     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8574     lapack_complex_float* H, lapack_int const* ldh,
8575     lapack_complex_float* T, lapack_int const* ldt,
8576     lapack_complex_float* alpha,
8577     lapack_complex_float* beta,
8578     lapack_complex_float* Q, lapack_int const* ldq,
8579     lapack_complex_float* Z, lapack_int const* ldz,
8580     lapack_complex_float* work, lapack_int const* lwork,
8581     float* rwork,
8582     lapack_int* info
8583 #ifdef LAPACK_FORTRAN_STRLEN_END
8584     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8585 #endif
8586 );
8587 #ifdef LAPACK_FORTRAN_STRLEN_END
8588     #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1)
8589 #else
8590     #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__)
8591 #endif
8592 
8593 #define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ)
8594 void LAPACK_dhgeqz_base(
8595     char const* job, char const* compq, char const* compz,
8596     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8597     double* H, lapack_int const* ldh,
8598     double* T, lapack_int const* ldt,
8599     double* alphar,
8600     double* alphai,
8601     double* beta,
8602     double* Q, lapack_int const* ldq,
8603     double* Z, lapack_int const* ldz,
8604     double* work, lapack_int const* lwork,
8605     lapack_int* info
8606 #ifdef LAPACK_FORTRAN_STRLEN_END
8607     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8608 #endif
8609 );
8610 #ifdef LAPACK_FORTRAN_STRLEN_END
8611     #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1)
8612 #else
8613     #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__)
8614 #endif
8615 
8616 #define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ)
8617 void LAPACK_shgeqz_base(
8618     char const* job, char const* compq, char const* compz,
8619     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8620     float* H, lapack_int const* ldh,
8621     float* T, lapack_int const* ldt,
8622     float* alphar,
8623     float* alphai,
8624     float* beta,
8625     float* Q, lapack_int const* ldq,
8626     float* Z, lapack_int const* ldz,
8627     float* work, lapack_int const* lwork,
8628     lapack_int* info
8629 #ifdef LAPACK_FORTRAN_STRLEN_END
8630     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8631 #endif
8632 );
8633 #ifdef LAPACK_FORTRAN_STRLEN_END
8634     #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1)
8635 #else
8636     #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__)
8637 #endif
8638 
8639 #define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
8640 void LAPACK_zhgeqz_base(
8641     char const* job, char const* compq, char const* compz,
8642     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8643     lapack_complex_double* H, lapack_int const* ldh,
8644     lapack_complex_double* T, lapack_int const* ldt,
8645     lapack_complex_double* alpha,
8646     lapack_complex_double* beta,
8647     lapack_complex_double* Q, lapack_int const* ldq,
8648     lapack_complex_double* Z, lapack_int const* ldz,
8649     lapack_complex_double* work, lapack_int const* lwork,
8650     double* rwork,
8651     lapack_int* info
8652 #ifdef LAPACK_FORTRAN_STRLEN_END
8653     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8654 #endif
8655 );
8656 #ifdef LAPACK_FORTRAN_STRLEN_END
8657     #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1)
8658 #else
8659     #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__)
8660 #endif
8661 
8662 #define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON)
8663 void LAPACK_chpcon_base(
8664     char const* uplo,
8665     lapack_int const* n,
8666     lapack_complex_float const* AP, lapack_int const* ipiv,
8667     float const* anorm,
8668     float* rcond,
8669     lapack_complex_float* work,
8670     lapack_int* info
8671 #ifdef LAPACK_FORTRAN_STRLEN_END
8672     , FORTRAN_STRLEN
8673 #endif
8674 );
8675 #ifdef LAPACK_FORTRAN_STRLEN_END
8676     #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1)
8677 #else
8678     #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__)
8679 #endif
8680 
8681 #define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON)
8682 void LAPACK_zhpcon_base(
8683     char const* uplo,
8684     lapack_int const* n,
8685     lapack_complex_double const* AP, lapack_int const* ipiv,
8686     double const* anorm,
8687     double* rcond,
8688     lapack_complex_double* work,
8689     lapack_int* info
8690 #ifdef LAPACK_FORTRAN_STRLEN_END
8691     , FORTRAN_STRLEN
8692 #endif
8693 );
8694 #ifdef LAPACK_FORTRAN_STRLEN_END
8695     #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1)
8696 #else
8697     #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__)
8698 #endif
8699 
8700 #define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV)
8701 void LAPACK_chpev_base(
8702     char const* jobz, char const* uplo,
8703     lapack_int const* n,
8704     lapack_complex_float* AP,
8705     float* W,
8706     lapack_complex_float* Z, lapack_int const* ldz,
8707     lapack_complex_float* work,
8708     float* rwork,
8709     lapack_int* info
8710 #ifdef LAPACK_FORTRAN_STRLEN_END
8711     , FORTRAN_STRLEN, FORTRAN_STRLEN
8712 #endif
8713 );
8714 #ifdef LAPACK_FORTRAN_STRLEN_END
8715     #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1)
8716 #else
8717     #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__)
8718 #endif
8719 
8720 #define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV)
8721 void LAPACK_zhpev_base(
8722     char const* jobz, char const* uplo,
8723     lapack_int const* n,
8724     lapack_complex_double* AP,
8725     double* W,
8726     lapack_complex_double* Z, lapack_int const* ldz,
8727     lapack_complex_double* work,
8728     double* rwork,
8729     lapack_int* info
8730 #ifdef LAPACK_FORTRAN_STRLEN_END
8731     , FORTRAN_STRLEN, FORTRAN_STRLEN
8732 #endif
8733 );
8734 #ifdef LAPACK_FORTRAN_STRLEN_END
8735     #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1)
8736 #else
8737     #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__)
8738 #endif
8739 
8740 #define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD)
8741 void LAPACK_chpevd_base(
8742     char const* jobz, char const* uplo,
8743     lapack_int const* n,
8744     lapack_complex_float* AP,
8745     float* W,
8746     lapack_complex_float* Z, lapack_int const* ldz,
8747     lapack_complex_float* work, lapack_int const* lwork,
8748     float* rwork, lapack_int const* lrwork,
8749     lapack_int* iwork, lapack_int const* liwork,
8750     lapack_int* info
8751 #ifdef LAPACK_FORTRAN_STRLEN_END
8752     , FORTRAN_STRLEN, FORTRAN_STRLEN
8753 #endif
8754 );
8755 #ifdef LAPACK_FORTRAN_STRLEN_END
8756     #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1)
8757 #else
8758     #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__)
8759 #endif
8760 
8761 #define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD)
8762 void LAPACK_zhpevd_base(
8763     char const* jobz, char const* uplo,
8764     lapack_int const* n,
8765     lapack_complex_double* AP,
8766     double* W,
8767     lapack_complex_double* Z, lapack_int const* ldz,
8768     lapack_complex_double* work, lapack_int const* lwork,
8769     double* rwork, lapack_int const* lrwork,
8770     lapack_int* iwork, lapack_int const* liwork,
8771     lapack_int* info
8772 #ifdef LAPACK_FORTRAN_STRLEN_END
8773     , FORTRAN_STRLEN, FORTRAN_STRLEN
8774 #endif
8775 );
8776 #ifdef LAPACK_FORTRAN_STRLEN_END
8777     #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1)
8778 #else
8779     #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__)
8780 #endif
8781 
8782 #define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX)
8783 void LAPACK_chpevx_base(
8784     char const* jobz, char const* range, char const* uplo,
8785     lapack_int const* n,
8786     lapack_complex_float* AP,
8787     float const* vl,
8788     float const* vu, lapack_int const* il, lapack_int const* iu,
8789     float const* abstol, lapack_int* m,
8790     float* W,
8791     lapack_complex_float* Z, lapack_int const* ldz,
8792     lapack_complex_float* work,
8793     float* rwork,
8794     lapack_int* iwork, lapack_int* IFAIL,
8795     lapack_int* info
8796 #ifdef LAPACK_FORTRAN_STRLEN_END
8797     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8798 #endif
8799 );
8800 #ifdef LAPACK_FORTRAN_STRLEN_END
8801     #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1)
8802 #else
8803     #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__)
8804 #endif
8805 
8806 #define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX)
8807 void LAPACK_zhpevx_base(
8808     char const* jobz, char const* range, char const* uplo,
8809     lapack_int const* n,
8810     lapack_complex_double* AP,
8811     double const* vl,
8812     double const* vu, lapack_int const* il, lapack_int const* iu,
8813     double const* abstol, lapack_int* m,
8814     double* W,
8815     lapack_complex_double* Z, lapack_int const* ldz,
8816     lapack_complex_double* work,
8817     double* rwork,
8818     lapack_int* iwork, lapack_int* IFAIL,
8819     lapack_int* info
8820 #ifdef LAPACK_FORTRAN_STRLEN_END
8821     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8822 #endif
8823 );
8824 #ifdef LAPACK_FORTRAN_STRLEN_END
8825     #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1)
8826 #else
8827     #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__)
8828 #endif
8829 
8830 #define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST)
8831 void LAPACK_chpgst_base(
8832     lapack_int const* itype, char const* uplo,
8833     lapack_int const* n,
8834     lapack_complex_float* AP,
8835     lapack_complex_float const* BP,
8836     lapack_int* info
8837 #ifdef LAPACK_FORTRAN_STRLEN_END
8838     , FORTRAN_STRLEN
8839 #endif
8840 );
8841 #ifdef LAPACK_FORTRAN_STRLEN_END
8842     #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1)
8843 #else
8844     #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__)
8845 #endif
8846 
8847 #define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST)
8848 void LAPACK_zhpgst_base(
8849     lapack_int const* itype, char const* uplo,
8850     lapack_int const* n,
8851     lapack_complex_double* AP,
8852     lapack_complex_double const* BP,
8853     lapack_int* info
8854 #ifdef LAPACK_FORTRAN_STRLEN_END
8855     , FORTRAN_STRLEN
8856 #endif
8857 );
8858 #ifdef LAPACK_FORTRAN_STRLEN_END
8859     #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1)
8860 #else
8861     #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__)
8862 #endif
8863 
8864 #define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV)
8865 void LAPACK_chpgv_base(
8866     lapack_int const* itype, char const* jobz, char const* uplo,
8867     lapack_int const* n,
8868     lapack_complex_float* AP,
8869     lapack_complex_float* BP,
8870     float* W,
8871     lapack_complex_float* Z, lapack_int const* ldz,
8872     lapack_complex_float* work,
8873     float* rwork,
8874     lapack_int* info
8875 #ifdef LAPACK_FORTRAN_STRLEN_END
8876     , FORTRAN_STRLEN, FORTRAN_STRLEN
8877 #endif
8878 );
8879 #ifdef LAPACK_FORTRAN_STRLEN_END
8880     #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1)
8881 #else
8882     #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__)
8883 #endif
8884 
8885 #define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV)
8886 void LAPACK_zhpgv_base(
8887     lapack_int const* itype, char const* jobz, char const* uplo,
8888     lapack_int const* n,
8889     lapack_complex_double* AP,
8890     lapack_complex_double* BP,
8891     double* W,
8892     lapack_complex_double* Z, lapack_int const* ldz,
8893     lapack_complex_double* work,
8894     double* rwork,
8895     lapack_int* info
8896 #ifdef LAPACK_FORTRAN_STRLEN_END
8897     , FORTRAN_STRLEN, FORTRAN_STRLEN
8898 #endif
8899 );
8900 #ifdef LAPACK_FORTRAN_STRLEN_END
8901     #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1)
8902 #else
8903     #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__)
8904 #endif
8905 
8906 #define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD)
8907 void LAPACK_chpgvd_base(
8908     lapack_int const* itype, char const* jobz, char const* uplo,
8909     lapack_int const* n,
8910     lapack_complex_float* AP,
8911     lapack_complex_float* BP,
8912     float* W,
8913     lapack_complex_float* Z, lapack_int const* ldz,
8914     lapack_complex_float* work, lapack_int const* lwork,
8915     float* rwork, lapack_int const* lrwork,
8916     lapack_int* iwork, lapack_int const* liwork,
8917     lapack_int* info
8918 #ifdef LAPACK_FORTRAN_STRLEN_END
8919     , FORTRAN_STRLEN, FORTRAN_STRLEN
8920 #endif
8921 );
8922 #ifdef LAPACK_FORTRAN_STRLEN_END
8923     #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1)
8924 #else
8925     #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__)
8926 #endif
8927 
8928 #define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD)
8929 void LAPACK_zhpgvd_base(
8930     lapack_int const* itype, char const* jobz, char const* uplo,
8931     lapack_int const* n,
8932     lapack_complex_double* AP,
8933     lapack_complex_double* BP,
8934     double* W,
8935     lapack_complex_double* Z, lapack_int const* ldz,
8936     lapack_complex_double* work, lapack_int const* lwork,
8937     double* rwork, lapack_int const* lrwork,
8938     lapack_int* iwork, lapack_int const* liwork,
8939     lapack_int* info
8940 #ifdef LAPACK_FORTRAN_STRLEN_END
8941     , FORTRAN_STRLEN, FORTRAN_STRLEN
8942 #endif
8943 );
8944 #ifdef LAPACK_FORTRAN_STRLEN_END
8945     #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1)
8946 #else
8947     #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__)
8948 #endif
8949 
8950 #define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX)
8951 void LAPACK_chpgvx_base(
8952     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
8953     lapack_int const* n,
8954     lapack_complex_float* AP,
8955     lapack_complex_float* BP,
8956     float const* vl,
8957     float const* vu, lapack_int const* il, lapack_int const* iu,
8958     float const* abstol, lapack_int* m,
8959     float* W,
8960     lapack_complex_float* Z, lapack_int const* ldz,
8961     lapack_complex_float* work,
8962     float* rwork,
8963     lapack_int* iwork, lapack_int* IFAIL,
8964     lapack_int* info
8965 #ifdef LAPACK_FORTRAN_STRLEN_END
8966     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8967 #endif
8968 );
8969 #ifdef LAPACK_FORTRAN_STRLEN_END
8970     #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1)
8971 #else
8972     #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__)
8973 #endif
8974 
8975 #define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX)
8976 void LAPACK_zhpgvx_base(
8977     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
8978     lapack_int const* n,
8979     lapack_complex_double* AP,
8980     lapack_complex_double* BP,
8981     double const* vl,
8982     double const* vu, lapack_int const* il, lapack_int const* iu,
8983     double const* abstol, lapack_int* m,
8984     double* W,
8985     lapack_complex_double* Z, lapack_int const* ldz,
8986     lapack_complex_double* work,
8987     double* rwork,
8988     lapack_int* iwork, lapack_int* IFAIL,
8989     lapack_int* info
8990 #ifdef LAPACK_FORTRAN_STRLEN_END
8991     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
8992 #endif
8993 );
8994 #ifdef LAPACK_FORTRAN_STRLEN_END
8995     #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1)
8996 #else
8997     #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__)
8998 #endif
8999 
9000 #define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS)
9001 void LAPACK_chprfs_base(
9002     char const* uplo,
9003     lapack_int const* n, lapack_int const* nrhs,
9004     lapack_complex_float const* AP,
9005     lapack_complex_float const* AFP, lapack_int const* ipiv,
9006     lapack_complex_float const* B, lapack_int const* ldb,
9007     lapack_complex_float* X, lapack_int const* ldx,
9008     float* ferr,
9009     float* berr,
9010     lapack_complex_float* work,
9011     float* rwork,
9012     lapack_int* info
9013 #ifdef LAPACK_FORTRAN_STRLEN_END
9014     , FORTRAN_STRLEN
9015 #endif
9016 );
9017 #ifdef LAPACK_FORTRAN_STRLEN_END
9018     #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1)
9019 #else
9020     #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__)
9021 #endif
9022 
9023 #define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS)
9024 void LAPACK_zhprfs_base(
9025     char const* uplo,
9026     lapack_int const* n, lapack_int const* nrhs,
9027     lapack_complex_double const* AP,
9028     lapack_complex_double const* AFP, lapack_int const* ipiv,
9029     lapack_complex_double const* B, lapack_int const* ldb,
9030     lapack_complex_double* X, lapack_int const* ldx,
9031     double* ferr,
9032     double* berr,
9033     lapack_complex_double* work,
9034     double* rwork,
9035     lapack_int* info
9036 #ifdef LAPACK_FORTRAN_STRLEN_END
9037     , FORTRAN_STRLEN
9038 #endif
9039 );
9040 #ifdef LAPACK_FORTRAN_STRLEN_END
9041     #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1)
9042 #else
9043     #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__)
9044 #endif
9045 
9046 #define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV)
9047 void LAPACK_chpsv_base(
9048     char const* uplo,
9049     lapack_int const* n, lapack_int const* nrhs,
9050     lapack_complex_float* AP, lapack_int* ipiv,
9051     lapack_complex_float* B, lapack_int const* ldb,
9052     lapack_int* info
9053 #ifdef LAPACK_FORTRAN_STRLEN_END
9054     , FORTRAN_STRLEN
9055 #endif
9056 );
9057 #ifdef LAPACK_FORTRAN_STRLEN_END
9058     #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1)
9059 #else
9060     #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__)
9061 #endif
9062 
9063 #define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV)
9064 void LAPACK_zhpsv_base(
9065     char const* uplo,
9066     lapack_int const* n, lapack_int const* nrhs,
9067     lapack_complex_double* AP, lapack_int* ipiv,
9068     lapack_complex_double* B, lapack_int const* ldb,
9069     lapack_int* info
9070 #ifdef LAPACK_FORTRAN_STRLEN_END
9071     , FORTRAN_STRLEN
9072 #endif
9073 );
9074 #ifdef LAPACK_FORTRAN_STRLEN_END
9075     #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1)
9076 #else
9077     #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__)
9078 #endif
9079 
9080 #define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX)
9081 void LAPACK_chpsvx_base(
9082     char const* fact, char const* uplo,
9083     lapack_int const* n, lapack_int const* nrhs,
9084     lapack_complex_float const* AP,
9085     lapack_complex_float* AFP, lapack_int* ipiv,
9086     lapack_complex_float const* B, lapack_int const* ldb,
9087     lapack_complex_float* X, lapack_int const* ldx,
9088     float* rcond,
9089     float* ferr,
9090     float* berr,
9091     lapack_complex_float* work,
9092     float* rwork,
9093     lapack_int* info
9094 #ifdef LAPACK_FORTRAN_STRLEN_END
9095     , FORTRAN_STRLEN, FORTRAN_STRLEN
9096 #endif
9097 );
9098 #ifdef LAPACK_FORTRAN_STRLEN_END
9099     #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1)
9100 #else
9101     #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__)
9102 #endif
9103 
9104 #define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX)
9105 void LAPACK_zhpsvx_base(
9106     char const* fact, char const* uplo,
9107     lapack_int const* n, lapack_int const* nrhs,
9108     lapack_complex_double const* AP,
9109     lapack_complex_double* AFP, lapack_int* ipiv,
9110     lapack_complex_double const* B, lapack_int const* ldb,
9111     lapack_complex_double* X, lapack_int const* ldx,
9112     double* rcond,
9113     double* ferr,
9114     double* berr,
9115     lapack_complex_double* work,
9116     double* rwork,
9117     lapack_int* info
9118 #ifdef LAPACK_FORTRAN_STRLEN_END
9119     , FORTRAN_STRLEN, FORTRAN_STRLEN
9120 #endif
9121 );
9122 #ifdef LAPACK_FORTRAN_STRLEN_END
9123     #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1)
9124 #else
9125     #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__)
9126 #endif
9127 
9128 #define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD)
9129 void LAPACK_chptrd_base(
9130     char const* uplo,
9131     lapack_int const* n,
9132     lapack_complex_float* AP,
9133     float* D,
9134     float* E,
9135     lapack_complex_float* tau,
9136     lapack_int* info
9137 #ifdef LAPACK_FORTRAN_STRLEN_END
9138     , FORTRAN_STRLEN
9139 #endif
9140 );
9141 #ifdef LAPACK_FORTRAN_STRLEN_END
9142     #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1)
9143 #else
9144     #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__)
9145 #endif
9146 
9147 #define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD)
9148 void LAPACK_zhptrd_base(
9149     char const* uplo,
9150     lapack_int const* n,
9151     lapack_complex_double* AP,
9152     double* D,
9153     double* E,
9154     lapack_complex_double* tau,
9155     lapack_int* info
9156 #ifdef LAPACK_FORTRAN_STRLEN_END
9157     , FORTRAN_STRLEN
9158 #endif
9159 );
9160 #ifdef LAPACK_FORTRAN_STRLEN_END
9161     #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1)
9162 #else
9163     #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__)
9164 #endif
9165 
9166 #define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF)
9167 void LAPACK_chptrf_base(
9168     char const* uplo,
9169     lapack_int const* n,
9170     lapack_complex_float* AP, lapack_int* ipiv,
9171     lapack_int* info
9172 #ifdef LAPACK_FORTRAN_STRLEN_END
9173     , FORTRAN_STRLEN
9174 #endif
9175 );
9176 #ifdef LAPACK_FORTRAN_STRLEN_END
9177     #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1)
9178 #else
9179     #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__)
9180 #endif
9181 
9182 #define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF)
9183 void LAPACK_zhptrf_base(
9184     char const* uplo,
9185     lapack_int const* n,
9186     lapack_complex_double* AP, lapack_int* ipiv,
9187     lapack_int* info
9188 #ifdef LAPACK_FORTRAN_STRLEN_END
9189     , FORTRAN_STRLEN
9190 #endif
9191 );
9192 #ifdef LAPACK_FORTRAN_STRLEN_END
9193     #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1)
9194 #else
9195     #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__)
9196 #endif
9197 
9198 #define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI)
9199 void LAPACK_chptri_base(
9200     char const* uplo,
9201     lapack_int const* n,
9202     lapack_complex_float* AP, lapack_int const* ipiv,
9203     lapack_complex_float* work,
9204     lapack_int* info
9205 #ifdef LAPACK_FORTRAN_STRLEN_END
9206     , FORTRAN_STRLEN
9207 #endif
9208 );
9209 #ifdef LAPACK_FORTRAN_STRLEN_END
9210     #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1)
9211 #else
9212     #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__)
9213 #endif
9214 
9215 #define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI)
9216 void LAPACK_zhptri_base(
9217     char const* uplo,
9218     lapack_int const* n,
9219     lapack_complex_double* AP, lapack_int const* ipiv,
9220     lapack_complex_double* work,
9221     lapack_int* info
9222 #ifdef LAPACK_FORTRAN_STRLEN_END
9223     , FORTRAN_STRLEN
9224 #endif
9225 );
9226 #ifdef LAPACK_FORTRAN_STRLEN_END
9227     #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1)
9228 #else
9229     #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__)
9230 #endif
9231 
9232 #define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS)
9233 void LAPACK_chptrs_base(
9234     char const* uplo,
9235     lapack_int const* n, lapack_int const* nrhs,
9236     lapack_complex_float const* AP, lapack_int const* ipiv,
9237     lapack_complex_float* B, lapack_int const* ldb,
9238     lapack_int* info
9239 #ifdef LAPACK_FORTRAN_STRLEN_END
9240     , FORTRAN_STRLEN
9241 #endif
9242 );
9243 #ifdef LAPACK_FORTRAN_STRLEN_END
9244     #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1)
9245 #else
9246     #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__)
9247 #endif
9248 
9249 #define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS)
9250 void LAPACK_zhptrs_base(
9251     char const* uplo,
9252     lapack_int const* n, lapack_int const* nrhs,
9253     lapack_complex_double const* AP, lapack_int const* ipiv,
9254     lapack_complex_double* B, lapack_int const* ldb,
9255     lapack_int* info
9256 #ifdef LAPACK_FORTRAN_STRLEN_END
9257     , FORTRAN_STRLEN
9258 #endif
9259 );
9260 #ifdef LAPACK_FORTRAN_STRLEN_END
9261     #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1)
9262 #else
9263     #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__)
9264 #endif
9265 
9266 #define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN)
9267 void LAPACK_chsein_base(
9268     char const* side, char const* eigsrc, char const* initv,
9269     lapack_logical const* select,
9270     lapack_int const* n,
9271     lapack_complex_float const* H, lapack_int const* ldh,
9272     lapack_complex_float* W,
9273     lapack_complex_float* VL, lapack_int const* ldvl,
9274     lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9275     lapack_complex_float* work,
9276     float* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9277     lapack_int* info
9278 #ifdef LAPACK_FORTRAN_STRLEN_END
9279     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
9280 #endif
9281 );
9282 #ifdef LAPACK_FORTRAN_STRLEN_END
9283     #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1)
9284 #else
9285     #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__)
9286 #endif
9287 
9288 #define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN)
9289 void LAPACK_dhsein_base(
9290     char const* side, char const* eigsrc, char const* initv,
9291     lapack_logical* select,
9292     lapack_int const* n,
9293     double const* H, lapack_int const* ldh,
9294     double* WR,
9295     double const* WI,
9296     double* VL, lapack_int const* ldvl,
9297     double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9298     double* work, lapack_int* IFAILL, lapack_int* IFAILR,
9299     lapack_int* info
9300 #ifdef LAPACK_FORTRAN_STRLEN_END
9301     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
9302 #endif
9303 );
9304 #ifdef LAPACK_FORTRAN_STRLEN_END
9305     #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1)
9306 #else
9307     #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__)
9308 #endif
9309 
9310 #define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN)
9311 void LAPACK_shsein_base(
9312     char const* side, char const* eigsrc, char const* initv,
9313     lapack_logical* select,
9314     lapack_int const* n,
9315     float const* H, lapack_int const* ldh,
9316     float* WR,
9317     float const* WI,
9318     float* VL, lapack_int const* ldvl,
9319     float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9320     float* work, lapack_int* IFAILL, lapack_int* IFAILR,
9321     lapack_int* info
9322 #ifdef LAPACK_FORTRAN_STRLEN_END
9323     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
9324 #endif
9325 );
9326 #ifdef LAPACK_FORTRAN_STRLEN_END
9327     #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1)
9328 #else
9329     #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__)
9330 #endif
9331 
9332 #define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN)
9333 void LAPACK_zhsein_base(
9334     char const* side, char const* eigsrc, char const* initv,
9335     lapack_logical const* select,
9336     lapack_int const* n,
9337     lapack_complex_double const* H, lapack_int const* ldh,
9338     lapack_complex_double* W,
9339     lapack_complex_double* VL, lapack_int const* ldvl,
9340     lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9341     lapack_complex_double* work,
9342     double* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9343     lapack_int* info
9344 #ifdef LAPACK_FORTRAN_STRLEN_END
9345     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
9346 #endif
9347 );
9348 #ifdef LAPACK_FORTRAN_STRLEN_END
9349     #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1)
9350 #else
9351     #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__)
9352 #endif
9353 
9354 #define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR)
9355 void LAPACK_chseqr_base(
9356     char const* job, char const* compz,
9357     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9358     lapack_complex_float* H, lapack_int const* ldh,
9359     lapack_complex_float* W,
9360     lapack_complex_float* Z, lapack_int const* ldz,
9361     lapack_complex_float* work, lapack_int const* lwork,
9362     lapack_int* info
9363 #ifdef LAPACK_FORTRAN_STRLEN_END
9364     , FORTRAN_STRLEN, FORTRAN_STRLEN
9365 #endif
9366 );
9367 #ifdef LAPACK_FORTRAN_STRLEN_END
9368     #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1)
9369 #else
9370     #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__)
9371 #endif
9372 
9373 #define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR)
9374 void LAPACK_dhseqr_base(
9375     char const* job, char const* compz,
9376     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9377     double* H, lapack_int const* ldh,
9378     double* WR,
9379     double* WI,
9380     double* Z, lapack_int const* ldz,
9381     double* work, lapack_int const* lwork,
9382     lapack_int* info
9383 #ifdef LAPACK_FORTRAN_STRLEN_END
9384     , FORTRAN_STRLEN, FORTRAN_STRLEN
9385 #endif
9386 );
9387 #ifdef LAPACK_FORTRAN_STRLEN_END
9388     #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1)
9389 #else
9390     #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__)
9391 #endif
9392 
9393 #define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR)
9394 void LAPACK_shseqr_base(
9395     char const* job, char const* compz,
9396     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9397     float* H, lapack_int const* ldh,
9398     float* WR,
9399     float* WI,
9400     float* Z, lapack_int const* ldz,
9401     float* work, lapack_int const* lwork,
9402     lapack_int* info
9403 #ifdef LAPACK_FORTRAN_STRLEN_END
9404     , FORTRAN_STRLEN, FORTRAN_STRLEN
9405 #endif
9406 );
9407 #ifdef LAPACK_FORTRAN_STRLEN_END
9408     #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1)
9409 #else
9410     #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__)
9411 #endif
9412 
9413 #define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR)
9414 void LAPACK_zhseqr_base(
9415     char const* job, char const* compz,
9416     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9417     lapack_complex_double* H, lapack_int const* ldh,
9418     lapack_complex_double* W,
9419     lapack_complex_double* Z, lapack_int const* ldz,
9420     lapack_complex_double* work, lapack_int const* lwork,
9421     lapack_int* info
9422 #ifdef LAPACK_FORTRAN_STRLEN_END
9423     , FORTRAN_STRLEN, FORTRAN_STRLEN
9424 #endif
9425 );
9426 #ifdef LAPACK_FORTRAN_STRLEN_END
9427     #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1)
9428 #else
9429     #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__)
9430 #endif
9431 
9432 #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
9433 void LAPACK_clacgv(
9434     lapack_int const* n,
9435     lapack_complex_float* X, lapack_int const* incx );
9436 
9437 #define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
9438 void LAPACK_zlacgv(
9439     lapack_int const* n,
9440     lapack_complex_double* X, lapack_int const* incx );
9441 
9442 #define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2)
9443 void LAPACK_clacn2(
9444     lapack_int const* n,
9445     lapack_complex_float* V,
9446     lapack_complex_float* X,
9447     float* est, lapack_int* kase, lapack_int* ISAVE );
9448 
9449 #define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2)
9450 void LAPACK_dlacn2(
9451     lapack_int const* n,
9452     double* V,
9453     double* X, lapack_int* ISGN,
9454     double* est, lapack_int* kase, lapack_int* ISAVE );
9455 
9456 #define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2)
9457 void LAPACK_slacn2(
9458     lapack_int const* n,
9459     float* V,
9460     float* X, lapack_int* ISGN,
9461     float* est, lapack_int* kase, lapack_int* ISAVE );
9462 
9463 #define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2)
9464 void LAPACK_zlacn2(
9465     lapack_int const* n,
9466     lapack_complex_double* V,
9467     lapack_complex_double* X,
9468     double* est, lapack_int* kase, lapack_int* ISAVE );
9469 
9470 #define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2)
9471 void LAPACK_clacp2_base(
9472     char const* uplo,
9473     lapack_int const* m, lapack_int const* n,
9474     float const* A, lapack_int const* lda,
9475     lapack_complex_float* B, lapack_int const* ldb
9476 #ifdef LAPACK_FORTRAN_STRLEN_END
9477     , FORTRAN_STRLEN
9478 #endif
9479 );
9480 #ifdef LAPACK_FORTRAN_STRLEN_END
9481     #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1)
9482 #else
9483     #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__)
9484 #endif
9485 
9486 #define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2)
9487 void LAPACK_zlacp2_base(
9488     char const* uplo,
9489     lapack_int const* m, lapack_int const* n,
9490     double const* A, lapack_int const* lda,
9491     lapack_complex_double* B, lapack_int const* ldb
9492 #ifdef LAPACK_FORTRAN_STRLEN_END
9493     , FORTRAN_STRLEN
9494 #endif
9495 );
9496 #ifdef LAPACK_FORTRAN_STRLEN_END
9497     #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1)
9498 #else
9499     #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__)
9500 #endif
9501 
9502 #define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY)
9503 void LAPACK_clacpy_base(
9504     char const* uplo,
9505     lapack_int const* m, lapack_int const* n,
9506     lapack_complex_float const* A, lapack_int const* lda,
9507     lapack_complex_float* B, lapack_int const* ldb
9508 #ifdef LAPACK_FORTRAN_STRLEN_END
9509     , FORTRAN_STRLEN
9510 #endif
9511 );
9512 #ifdef LAPACK_FORTRAN_STRLEN_END
9513     #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1)
9514 #else
9515     #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__)
9516 #endif
9517 
9518 #define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY)
9519 void LAPACK_dlacpy_base(
9520     char const* uplo,
9521     lapack_int const* m, lapack_int const* n,
9522     double const* A, lapack_int const* lda,
9523     double* B, lapack_int const* ldb
9524 #ifdef LAPACK_FORTRAN_STRLEN_END
9525     , FORTRAN_STRLEN
9526 #endif
9527 );
9528 #ifdef LAPACK_FORTRAN_STRLEN_END
9529     #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1)
9530 #else
9531     #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__)
9532 #endif
9533 
9534 #define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY)
9535 void LAPACK_slacpy_base(
9536     char const* uplo,
9537     lapack_int const* m, lapack_int const* n,
9538     float const* A, lapack_int const* lda,
9539     float* B, lapack_int const* ldb
9540 #ifdef LAPACK_FORTRAN_STRLEN_END
9541     , FORTRAN_STRLEN
9542 #endif
9543 );
9544 #ifdef LAPACK_FORTRAN_STRLEN_END
9545     #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1)
9546 #else
9547     #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__)
9548 #endif
9549 
9550 #define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY)
9551 void LAPACK_zlacpy_base(
9552     char const* uplo,
9553     lapack_int const* m, lapack_int const* n,
9554     lapack_complex_double const* A, lapack_int const* lda,
9555     lapack_complex_double* B, lapack_int const* ldb
9556 #ifdef LAPACK_FORTRAN_STRLEN_END
9557     , FORTRAN_STRLEN
9558 #endif
9559 );
9560 #ifdef LAPACK_FORTRAN_STRLEN_END
9561     #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1)
9562 #else
9563     #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__)
9564 #endif
9565 
9566 #define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM)
9567 void LAPACK_clacrm(
9568     lapack_int const* m, lapack_int const* n,
9569     lapack_complex_float const* A, lapack_int const* lda,
9570     float const* B, lapack_int const* ldb,
9571     lapack_complex_float* C, lapack_int const* ldc,
9572     float* rwork );
9573 
9574 #define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM)
9575 void LAPACK_zlacrm(
9576     lapack_int const* m, lapack_int const* n,
9577     lapack_complex_double const* A, lapack_int const* lda,
9578     double const* B, lapack_int const* ldb,
9579     lapack_complex_double* C, lapack_int const* ldc,
9580     double* rwork );
9581 
9582 #define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
9583 void LAPACK_zlag2c(
9584     lapack_int const* m, lapack_int const* n,
9585     lapack_complex_double const* A, lapack_int const* lda,
9586     lapack_complex_float* SA, lapack_int const* ldsa,
9587     lapack_int* info );
9588 
9589 #define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
9590 void LAPACK_slag2d(
9591     lapack_int const* m, lapack_int const* n,
9592     float const* SA, lapack_int const* ldsa,
9593     double* A, lapack_int const* lda,
9594     lapack_int* info );
9595 
9596 #define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
9597 void LAPACK_dlag2s(
9598     lapack_int const* m, lapack_int const* n,
9599     double const* A, lapack_int const* lda,
9600     float* SA, lapack_int const* ldsa,
9601     lapack_int* info );
9602 
9603 #define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
9604 void LAPACK_clag2z(
9605     lapack_int const* m, lapack_int const* n,
9606     lapack_complex_float const* SA, lapack_int const* ldsa,
9607     lapack_complex_double* A, lapack_int const* lda,
9608     lapack_int* info );
9609 
9610 #define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
9611 void LAPACK_clagge(
9612     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9613     float const* D,
9614     lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9615     lapack_complex_float* work,
9616     lapack_int* info );
9617 
9618 #define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
9619 void LAPACK_dlagge(
9620     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9621     double const* D,
9622     double* A, lapack_int const* lda, lapack_int* iseed,
9623     double* work,
9624     lapack_int* info );
9625 
9626 #define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
9627 void LAPACK_slagge(
9628     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9629     float const* D,
9630     float* A, lapack_int const* lda, lapack_int* iseed,
9631     float* work,
9632     lapack_int* info );
9633 
9634 #define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
9635 void LAPACK_zlagge(
9636     lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9637     double const* D,
9638     lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9639     lapack_complex_double* work,
9640     lapack_int* info );
9641 
9642 #define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE)
9643 void LAPACK_claghe(
9644     lapack_int const* n, lapack_int const* k,
9645     float const* D,
9646     lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9647     lapack_complex_float* work,
9648     lapack_int* info );
9649 
9650 #define LAPACK_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
9651 void LAPACK_zlaghe(
9652     lapack_int const* n, lapack_int const* k,
9653     double const* D,
9654     lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9655     lapack_complex_double* work,
9656     lapack_int* info );
9657 
9658 #define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
9659 void LAPACK_clagsy(
9660     lapack_int const* n, lapack_int const* k,
9661     float const* D,
9662     lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9663     lapack_complex_float* work,
9664     lapack_int* info );
9665 
9666 #define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
9667 void LAPACK_dlagsy(
9668     lapack_int const* n, lapack_int const* k,
9669     double const* D,
9670     double* A, lapack_int const* lda, lapack_int* iseed,
9671     double* work,
9672     lapack_int* info );
9673 
9674 #define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
9675 void LAPACK_slagsy(
9676     lapack_int const* n, lapack_int const* k,
9677     float const* D,
9678     float* A, lapack_int const* lda, lapack_int* iseed,
9679     float* work,
9680     lapack_int* info );
9681 
9682 #define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
9683 void LAPACK_zlagsy(
9684     lapack_int const* n, lapack_int const* k,
9685     double const* D,
9686     lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9687     lapack_complex_double* work,
9688     lapack_int* info );
9689 
9690 #define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH)
9691 double LAPACK_dlamch_base(
9692     char const* cmach
9693 #ifdef LAPACK_FORTRAN_STRLEN_END
9694     , FORTRAN_STRLEN
9695 #endif
9696 );
9697 #ifdef LAPACK_FORTRAN_STRLEN_END
9698     #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1)
9699 #else
9700     #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__)
9701 #endif
9702 
9703 #define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH)
9704 lapack_float_return LAPACK_slamch_base(
9705     char const* cmach
9706 #ifdef LAPACK_FORTRAN_STRLEN_END
9707     , FORTRAN_STRLEN
9708 #endif
9709 );
9710 #ifdef LAPACK_FORTRAN_STRLEN_END
9711     #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1)
9712 #else
9713     #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__)
9714 #endif
9715 
9716 #define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB)
9717 lapack_float_return LAPACK_clangb_base(
9718     char const* norm,
9719     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9720     lapack_complex_float const* AB, lapack_int const* ldab,
9721     float* work
9722 #ifdef LAPACK_FORTRAN_STRLEN_END
9723     , FORTRAN_STRLEN
9724 #endif
9725 );
9726 #ifdef LAPACK_FORTRAN_STRLEN_END
9727     #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1)
9728 #else
9729     #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__)
9730 #endif
9731 
9732 #define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB)
9733 double LAPACK_dlangb_base(
9734     char const* norm,
9735     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9736     double const* AB, lapack_int const* ldab,
9737     double* work
9738 #ifdef LAPACK_FORTRAN_STRLEN_END
9739     , FORTRAN_STRLEN
9740 #endif
9741 );
9742 #ifdef LAPACK_FORTRAN_STRLEN_END
9743     #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1)
9744 #else
9745     #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__)
9746 #endif
9747 
9748 #define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB)
9749 lapack_float_return LAPACK_slangb_base(
9750     char const* norm,
9751     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9752     float const* AB, lapack_int const* ldab,
9753     float* work
9754 #ifdef LAPACK_FORTRAN_STRLEN_END
9755     , FORTRAN_STRLEN
9756 #endif
9757 );
9758 #ifdef LAPACK_FORTRAN_STRLEN_END
9759     #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1)
9760 #else
9761     #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__)
9762 #endif
9763 
9764 #define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB)
9765 double LAPACK_zlangb_base(
9766     char const* norm,
9767     lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9768     lapack_complex_double const* AB, lapack_int const* ldab,
9769     double* work
9770 #ifdef LAPACK_FORTRAN_STRLEN_END
9771     , FORTRAN_STRLEN
9772 #endif
9773 );
9774 #ifdef LAPACK_FORTRAN_STRLEN_END
9775     #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1)
9776 #else
9777     #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__)
9778 #endif
9779 
9780 #define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE)
9781 lapack_float_return LAPACK_clange_base(
9782     char const* norm,
9783     lapack_int const* m, lapack_int const* n,
9784     lapack_complex_float const* A, lapack_int const* lda,
9785     float* work
9786 #ifdef LAPACK_FORTRAN_STRLEN_END
9787     , FORTRAN_STRLEN
9788 #endif
9789 );
9790 #ifdef LAPACK_FORTRAN_STRLEN_END
9791     #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1)
9792 #else
9793     #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__)
9794 #endif
9795 
9796 #define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE)
9797 double LAPACK_dlange_base(
9798     char const* norm,
9799     lapack_int const* m, lapack_int const* n,
9800     double const* A, lapack_int const* lda,
9801     double* work
9802 #ifdef LAPACK_FORTRAN_STRLEN_END
9803     , FORTRAN_STRLEN
9804 #endif
9805 );
9806 #ifdef LAPACK_FORTRAN_STRLEN_END
9807     #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1)
9808 #else
9809     #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__)
9810 #endif
9811 
9812 #define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE)
9813 lapack_float_return LAPACK_slange_base(
9814     char const* norm,
9815     lapack_int const* m, lapack_int const* n,
9816     float const* A, lapack_int const* lda,
9817     float* work
9818 #ifdef LAPACK_FORTRAN_STRLEN_END
9819     , FORTRAN_STRLEN
9820 #endif
9821 );
9822 #ifdef LAPACK_FORTRAN_STRLEN_END
9823     #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1)
9824 #else
9825     #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__)
9826 #endif
9827 
9828 #define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE)
9829 double LAPACK_zlange_base(
9830     char const* norm,
9831     lapack_int const* m, lapack_int const* n,
9832     lapack_complex_double const* A, lapack_int const* lda,
9833     double* work
9834 #ifdef LAPACK_FORTRAN_STRLEN_END
9835     , FORTRAN_STRLEN
9836 #endif
9837 );
9838 #ifdef LAPACK_FORTRAN_STRLEN_END
9839     #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1)
9840 #else
9841     #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__)
9842 #endif
9843 
9844 #define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT)
9845 lapack_float_return LAPACK_clangt_base(
9846     char const* norm,
9847     lapack_int const* n,
9848     lapack_complex_float const* DL,
9849     lapack_complex_float const* D,
9850     lapack_complex_float const* DU
9851 #ifdef LAPACK_FORTRAN_STRLEN_END
9852     , FORTRAN_STRLEN
9853 #endif
9854 );
9855 #ifdef LAPACK_FORTRAN_STRLEN_END
9856     #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1)
9857 #else
9858     #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__)
9859 #endif
9860 
9861 #define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT)
9862 double LAPACK_dlangt_base(
9863     char const* norm,
9864     lapack_int const* n,
9865     double const* DL,
9866     double const* D,
9867     double const* DU
9868 #ifdef LAPACK_FORTRAN_STRLEN_END
9869     , FORTRAN_STRLEN
9870 #endif
9871 );
9872 #ifdef LAPACK_FORTRAN_STRLEN_END
9873     #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1)
9874 #else
9875     #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__)
9876 #endif
9877 
9878 #define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT)
9879 lapack_float_return LAPACK_slangt_base(
9880     char const* norm,
9881     lapack_int const* n,
9882     float const* DL,
9883     float const* D,
9884     float const* DU
9885 #ifdef LAPACK_FORTRAN_STRLEN_END
9886     , FORTRAN_STRLEN
9887 #endif
9888 );
9889 #ifdef LAPACK_FORTRAN_STRLEN_END
9890     #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1)
9891 #else
9892     #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__)
9893 #endif
9894 
9895 #define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT)
9896 double LAPACK_zlangt_base(
9897     char const* norm,
9898     lapack_int const* n,
9899     lapack_complex_double const* DL,
9900     lapack_complex_double const* D,
9901     lapack_complex_double const* DU
9902 #ifdef LAPACK_FORTRAN_STRLEN_END
9903     , FORTRAN_STRLEN
9904 #endif
9905 );
9906 #ifdef LAPACK_FORTRAN_STRLEN_END
9907     #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1)
9908 #else
9909     #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__)
9910 #endif
9911 
9912 #define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB)
9913 lapack_float_return LAPACK_clanhb_base(
9914     char const* norm, char const* uplo,
9915     lapack_int const* n, lapack_int const* k,
9916     lapack_complex_float const* AB, lapack_int const* ldab,
9917     float* work
9918 #ifdef LAPACK_FORTRAN_STRLEN_END
9919     , FORTRAN_STRLEN, FORTRAN_STRLEN
9920 #endif
9921 );
9922 #ifdef LAPACK_FORTRAN_STRLEN_END
9923     #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1)
9924 #else
9925     #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__)
9926 #endif
9927 
9928 #define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB)
9929 double LAPACK_zlanhb_base(
9930     char const* norm, char const* uplo,
9931     lapack_int const* n, lapack_int const* k,
9932     lapack_complex_double const* AB, lapack_int const* ldab,
9933     double* work
9934 #ifdef LAPACK_FORTRAN_STRLEN_END
9935     , FORTRAN_STRLEN, FORTRAN_STRLEN
9936 #endif
9937 );
9938 #ifdef LAPACK_FORTRAN_STRLEN_END
9939     #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1)
9940 #else
9941     #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__)
9942 #endif
9943 
9944 #define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE)
9945 lapack_float_return LAPACK_clanhe_base(
9946     char const* norm, char const* uplo,
9947     lapack_int const* n,
9948     lapack_complex_float const* A, lapack_int const* lda,
9949     float* work
9950 #ifdef LAPACK_FORTRAN_STRLEN_END
9951     , FORTRAN_STRLEN, FORTRAN_STRLEN
9952 #endif
9953 );
9954 #ifdef LAPACK_FORTRAN_STRLEN_END
9955     #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1)
9956 #else
9957     #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__)
9958 #endif
9959 
9960 #define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE)
9961 double LAPACK_zlanhe_base(
9962     char const* norm, char const* uplo,
9963     lapack_int const* n,
9964     lapack_complex_double const* A, lapack_int const* lda,
9965     double* work
9966 #ifdef LAPACK_FORTRAN_STRLEN_END
9967     , FORTRAN_STRLEN, FORTRAN_STRLEN
9968 #endif
9969 );
9970 #ifdef LAPACK_FORTRAN_STRLEN_END
9971     #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1)
9972 #else
9973     #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__)
9974 #endif
9975 
9976 #define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP)
9977 lapack_float_return LAPACK_clanhp_base(
9978     char const* norm, char const* uplo,
9979     lapack_int const* n,
9980     lapack_complex_float const* AP,
9981     float* work
9982 #ifdef LAPACK_FORTRAN_STRLEN_END
9983     , FORTRAN_STRLEN, FORTRAN_STRLEN
9984 #endif
9985 );
9986 #ifdef LAPACK_FORTRAN_STRLEN_END
9987     #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1)
9988 #else
9989     #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__)
9990 #endif
9991 
9992 #define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP)
9993 double LAPACK_zlanhp_base(
9994     char const* norm, char const* uplo,
9995     lapack_int const* n,
9996     lapack_complex_double const* AP,
9997     double* work
9998 #ifdef LAPACK_FORTRAN_STRLEN_END
9999     , FORTRAN_STRLEN, FORTRAN_STRLEN
10000 #endif
10001 );
10002 #ifdef LAPACK_FORTRAN_STRLEN_END
10003     #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1)
10004 #else
10005     #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__)
10006 #endif
10007 
10008 #define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS)
10009 lapack_float_return LAPACK_clanhs_base(
10010     char const* norm,
10011     lapack_int const* n,
10012     lapack_complex_float const* A, lapack_int const* lda,
10013     float* work
10014 #ifdef LAPACK_FORTRAN_STRLEN_END
10015     , FORTRAN_STRLEN
10016 #endif
10017 );
10018 #ifdef LAPACK_FORTRAN_STRLEN_END
10019     #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1)
10020 #else
10021     #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__)
10022 #endif
10023 
10024 #define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS)
10025 double LAPACK_dlanhs_base(
10026     char const* norm,
10027     lapack_int const* n,
10028     double const* A, lapack_int const* lda,
10029     double* work
10030 #ifdef LAPACK_FORTRAN_STRLEN_END
10031     , FORTRAN_STRLEN
10032 #endif
10033 );
10034 #ifdef LAPACK_FORTRAN_STRLEN_END
10035     #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1)
10036 #else
10037     #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__)
10038 #endif
10039 
10040 #define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS)
10041 lapack_float_return LAPACK_slanhs_base(
10042     char const* norm,
10043     lapack_int const* n,
10044     float const* A, lapack_int const* lda,
10045     float* work
10046 #ifdef LAPACK_FORTRAN_STRLEN_END
10047     , FORTRAN_STRLEN
10048 #endif
10049 );
10050 #ifdef LAPACK_FORTRAN_STRLEN_END
10051     #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1)
10052 #else
10053     #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__)
10054 #endif
10055 
10056 #define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS)
10057 double LAPACK_zlanhs_base(
10058     char const* norm,
10059     lapack_int const* n,
10060     lapack_complex_double const* A, lapack_int const* lda,
10061     double* work
10062 #ifdef LAPACK_FORTRAN_STRLEN_END
10063     , FORTRAN_STRLEN
10064 #endif
10065 );
10066 #ifdef LAPACK_FORTRAN_STRLEN_END
10067     #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1)
10068 #else
10069     #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__)
10070 #endif
10071 
10072 #define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT)
10073 lapack_float_return LAPACK_clanht_base(
10074     char const* norm,
10075     lapack_int const* n,
10076     float const* D,
10077     lapack_complex_float const* E
10078 #ifdef LAPACK_FORTRAN_STRLEN_END
10079     , FORTRAN_STRLEN
10080 #endif
10081 );
10082 #ifdef LAPACK_FORTRAN_STRLEN_END
10083     #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1)
10084 #else
10085     #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__)
10086 #endif
10087 
10088 #define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT)
10089 double LAPACK_zlanht_base(
10090     char const* norm,
10091     lapack_int const* n,
10092     double const* D,
10093     lapack_complex_double const* E
10094 #ifdef LAPACK_FORTRAN_STRLEN_END
10095     , FORTRAN_STRLEN
10096 #endif
10097 );
10098 #ifdef LAPACK_FORTRAN_STRLEN_END
10099     #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1)
10100 #else
10101     #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__)
10102 #endif
10103 
10104 #define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB)
10105 lapack_float_return LAPACK_clansb_base(
10106     char const* norm, char const* uplo,
10107     lapack_int const* n, lapack_int const* k,
10108     lapack_complex_float const* AB, lapack_int const* ldab,
10109     float* work
10110 #ifdef LAPACK_FORTRAN_STRLEN_END
10111     , FORTRAN_STRLEN, FORTRAN_STRLEN
10112 #endif
10113 );
10114 #ifdef LAPACK_FORTRAN_STRLEN_END
10115     #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1)
10116 #else
10117     #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__)
10118 #endif
10119 
10120 #define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB)
10121 double LAPACK_dlansb_base(
10122     char const* norm, char const* uplo,
10123     lapack_int const* n, lapack_int const* k,
10124     double const* AB, lapack_int const* ldab,
10125     double* work
10126 #ifdef LAPACK_FORTRAN_STRLEN_END
10127     , FORTRAN_STRLEN, FORTRAN_STRLEN
10128 #endif
10129 );
10130 #ifdef LAPACK_FORTRAN_STRLEN_END
10131     #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1)
10132 #else
10133     #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__)
10134 #endif
10135 
10136 #define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB)
10137 lapack_float_return LAPACK_slansb_base(
10138     char const* norm, char const* uplo,
10139     lapack_int const* n, lapack_int const* k,
10140     float const* AB, lapack_int const* ldab,
10141     float* work
10142 #ifdef LAPACK_FORTRAN_STRLEN_END
10143     , FORTRAN_STRLEN, FORTRAN_STRLEN
10144 #endif
10145 );
10146 #ifdef LAPACK_FORTRAN_STRLEN_END
10147     #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1)
10148 #else
10149     #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__)
10150 #endif
10151 
10152 #define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB)
10153 double LAPACK_zlansb_base(
10154     char const* norm, char const* uplo,
10155     lapack_int const* n, lapack_int const* k,
10156     lapack_complex_double const* AB, lapack_int const* ldab,
10157     double* work
10158 #ifdef LAPACK_FORTRAN_STRLEN_END
10159     , FORTRAN_STRLEN, FORTRAN_STRLEN
10160 #endif
10161 );
10162 #ifdef LAPACK_FORTRAN_STRLEN_END
10163     #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1)
10164 #else
10165     #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__)
10166 #endif
10167 
10168 #define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP)
10169 lapack_float_return LAPACK_clansp_base(
10170     char const* norm, char const* uplo,
10171     lapack_int const* n,
10172     lapack_complex_float const* AP,
10173     float* work
10174 #ifdef LAPACK_FORTRAN_STRLEN_END
10175     , FORTRAN_STRLEN, FORTRAN_STRLEN
10176 #endif
10177 );
10178 #ifdef LAPACK_FORTRAN_STRLEN_END
10179     #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1)
10180 #else
10181     #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__)
10182 #endif
10183 
10184 #define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP)
10185 double LAPACK_dlansp_base(
10186     char const* norm, char const* uplo,
10187     lapack_int const* n,
10188     double const* AP,
10189     double* work
10190 #ifdef LAPACK_FORTRAN_STRLEN_END
10191     , FORTRAN_STRLEN, FORTRAN_STRLEN
10192 #endif
10193 );
10194 #ifdef LAPACK_FORTRAN_STRLEN_END
10195     #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1)
10196 #else
10197     #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__)
10198 #endif
10199 
10200 #define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP)
10201 lapack_float_return LAPACK_slansp_base(
10202     char const* norm, char const* uplo,
10203     lapack_int const* n,
10204     float const* AP,
10205     float* work
10206 #ifdef LAPACK_FORTRAN_STRLEN_END
10207     , FORTRAN_STRLEN, FORTRAN_STRLEN
10208 #endif
10209 );
10210 #ifdef LAPACK_FORTRAN_STRLEN_END
10211     #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1)
10212 #else
10213     #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__)
10214 #endif
10215 
10216 #define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP)
10217 double LAPACK_zlansp_base(
10218     char const* norm, char const* uplo,
10219     lapack_int const* n,
10220     lapack_complex_double const* AP,
10221     double* work
10222 #ifdef LAPACK_FORTRAN_STRLEN_END
10223     , FORTRAN_STRLEN, FORTRAN_STRLEN
10224 #endif
10225 );
10226 #ifdef LAPACK_FORTRAN_STRLEN_END
10227     #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1)
10228 #else
10229     #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__)
10230 #endif
10231 
10232 #define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST)
10233 double LAPACK_dlanst_base(
10234     char const* norm,
10235     lapack_int const* n,
10236     double const* D,
10237     double const* E
10238 #ifdef LAPACK_FORTRAN_STRLEN_END
10239     , FORTRAN_STRLEN
10240 #endif
10241 );
10242 #ifdef LAPACK_FORTRAN_STRLEN_END
10243     #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1)
10244 #else
10245     #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__)
10246 #endif
10247 
10248 #define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST)
10249 lapack_float_return LAPACK_slanst_base(
10250     char const* norm,
10251     lapack_int const* n,
10252     float const* D,
10253     float const* E
10254 #ifdef LAPACK_FORTRAN_STRLEN_END
10255     , FORTRAN_STRLEN
10256 #endif
10257 );
10258 #ifdef LAPACK_FORTRAN_STRLEN_END
10259     #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1)
10260 #else
10261     #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__)
10262 #endif
10263 
10264 #define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY)
10265 lapack_float_return LAPACK_clansy_base(
10266     char const* norm, char const* uplo,
10267     lapack_int const* n,
10268     lapack_complex_float const* A, lapack_int const* lda,
10269     float* work
10270 #ifdef LAPACK_FORTRAN_STRLEN_END
10271     , FORTRAN_STRLEN, FORTRAN_STRLEN
10272 #endif
10273 );
10274 #ifdef LAPACK_FORTRAN_STRLEN_END
10275     #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1)
10276 #else
10277     #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__)
10278 #endif
10279 
10280 #define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY)
10281 double LAPACK_dlansy_base(
10282     char const* norm, char const* uplo,
10283     lapack_int const* n,
10284     double const* A, lapack_int const* lda,
10285     double* work
10286 #ifdef LAPACK_FORTRAN_STRLEN_END
10287     , FORTRAN_STRLEN, FORTRAN_STRLEN
10288 #endif
10289 );
10290 #ifdef LAPACK_FORTRAN_STRLEN_END
10291     #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1)
10292 #else
10293     #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__)
10294 #endif
10295 
10296 #define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY)
10297 lapack_float_return LAPACK_slansy_base(
10298     char const* norm, char const* uplo,
10299     lapack_int const* n,
10300     float const* A, lapack_int const* lda,
10301     float* work
10302 #ifdef LAPACK_FORTRAN_STRLEN_END
10303     , FORTRAN_STRLEN, FORTRAN_STRLEN
10304 #endif
10305 );
10306 #ifdef LAPACK_FORTRAN_STRLEN_END
10307     #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1)
10308 #else
10309     #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__)
10310 #endif
10311 
10312 #define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY)
10313 double LAPACK_zlansy_base(
10314     char const* norm, char const* uplo,
10315     lapack_int const* n,
10316     lapack_complex_double const* A, lapack_int const* lda,
10317     double* work
10318 #ifdef LAPACK_FORTRAN_STRLEN_END
10319     , FORTRAN_STRLEN, FORTRAN_STRLEN
10320 #endif
10321 );
10322 #ifdef LAPACK_FORTRAN_STRLEN_END
10323     #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1)
10324 #else
10325     #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__)
10326 #endif
10327 
10328 #define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB)
10329 lapack_float_return LAPACK_clantb_base(
10330     char const* norm, char const* uplo, char const* diag,
10331     lapack_int const* n, lapack_int const* k,
10332     lapack_complex_float const* AB, lapack_int const* ldab,
10333     float* work
10334 #ifdef LAPACK_FORTRAN_STRLEN_END
10335     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10336 #endif
10337 );
10338 #ifdef LAPACK_FORTRAN_STRLEN_END
10339     #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1)
10340 #else
10341     #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__)
10342 #endif
10343 
10344 #define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB)
10345 double LAPACK_dlantb_base(
10346     char const* norm, char const* uplo, char const* diag,
10347     lapack_int const* n, lapack_int const* k,
10348     double const* AB, lapack_int const* ldab,
10349     double* work
10350 #ifdef LAPACK_FORTRAN_STRLEN_END
10351     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10352 #endif
10353 );
10354 #ifdef LAPACK_FORTRAN_STRLEN_END
10355     #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1)
10356 #else
10357     #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__)
10358 #endif
10359 
10360 #define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB)
10361 lapack_float_return LAPACK_slantb_base(
10362     char const* norm, char const* uplo, char const* diag,
10363     lapack_int const* n, lapack_int const* k,
10364     float const* AB, lapack_int const* ldab,
10365     float* work
10366 #ifdef LAPACK_FORTRAN_STRLEN_END
10367     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10368 #endif
10369 );
10370 #ifdef LAPACK_FORTRAN_STRLEN_END
10371     #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1)
10372 #else
10373     #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__)
10374 #endif
10375 
10376 #define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB)
10377 double LAPACK_zlantb_base(
10378     char const* norm, char const* uplo, char const* diag,
10379     lapack_int const* n, lapack_int const* k,
10380     lapack_complex_double const* AB, lapack_int const* ldab,
10381     double* work
10382 #ifdef LAPACK_FORTRAN_STRLEN_END
10383     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10384 #endif
10385 );
10386 #ifdef LAPACK_FORTRAN_STRLEN_END
10387     #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1)
10388 #else
10389     #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__)
10390 #endif
10391 
10392 #define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP)
10393 lapack_float_return LAPACK_clantp_base(
10394     char const* norm, char const* uplo, char const* diag,
10395     lapack_int const* n,
10396     lapack_complex_float const* AP,
10397     float* work
10398 #ifdef LAPACK_FORTRAN_STRLEN_END
10399     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10400 #endif
10401 );
10402 #ifdef LAPACK_FORTRAN_STRLEN_END
10403     #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1)
10404 #else
10405     #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__)
10406 #endif
10407 
10408 #define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP)
10409 double LAPACK_dlantp_base(
10410     char const* norm, char const* uplo, char const* diag,
10411     lapack_int const* n,
10412     double const* AP,
10413     double* work
10414 #ifdef LAPACK_FORTRAN_STRLEN_END
10415     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10416 #endif
10417 );
10418 #ifdef LAPACK_FORTRAN_STRLEN_END
10419     #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1)
10420 #else
10421     #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__)
10422 #endif
10423 
10424 #define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP)
10425 lapack_float_return LAPACK_slantp_base(
10426     char const* norm, char const* uplo, char const* diag,
10427     lapack_int const* n,
10428     float const* AP,
10429     float* work
10430 #ifdef LAPACK_FORTRAN_STRLEN_END
10431     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10432 #endif
10433 );
10434 #ifdef LAPACK_FORTRAN_STRLEN_END
10435     #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1)
10436 #else
10437     #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__)
10438 #endif
10439 
10440 #define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP)
10441 double LAPACK_zlantp_base(
10442     char const* norm, char const* uplo, char const* diag,
10443     lapack_int const* n,
10444     lapack_complex_double const* AP,
10445     double* work
10446 #ifdef LAPACK_FORTRAN_STRLEN_END
10447     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10448 #endif
10449 );
10450 #ifdef LAPACK_FORTRAN_STRLEN_END
10451     #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1)
10452 #else
10453     #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__)
10454 #endif
10455 
10456 #define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR)
10457 lapack_float_return LAPACK_clantr_base(
10458     char const* norm, char const* uplo, char const* diag,
10459     lapack_int const* m, lapack_int const* n,
10460     lapack_complex_float const* A, lapack_int const* lda,
10461     float* work
10462 #ifdef LAPACK_FORTRAN_STRLEN_END
10463     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10464 #endif
10465 );
10466 #ifdef LAPACK_FORTRAN_STRLEN_END
10467     #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1)
10468 #else
10469     #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__)
10470 #endif
10471 
10472 #define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR)
10473 double LAPACK_dlantr_base(
10474     char const* norm, char const* uplo, char const* diag,
10475     lapack_int const* m, lapack_int const* n,
10476     double const* A, lapack_int const* lda,
10477     double* work
10478 #ifdef LAPACK_FORTRAN_STRLEN_END
10479     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10480 #endif
10481 );
10482 #ifdef LAPACK_FORTRAN_STRLEN_END
10483     #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1)
10484 #else
10485     #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__)
10486 #endif
10487 
10488 #define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR)
10489 lapack_float_return LAPACK_slantr_base(
10490     char const* norm, char const* uplo, char const* diag,
10491     lapack_int const* m, lapack_int const* n,
10492     float const* A, lapack_int const* lda,
10493     float* work
10494 #ifdef LAPACK_FORTRAN_STRLEN_END
10495     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10496 #endif
10497 );
10498 #ifdef LAPACK_FORTRAN_STRLEN_END
10499     #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1)
10500 #else
10501     #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__)
10502 #endif
10503 
10504 #define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR)
10505 double LAPACK_zlantr_base(
10506     char const* norm, char const* uplo, char const* diag,
10507     lapack_int const* m, lapack_int const* n,
10508     lapack_complex_double const* A, lapack_int const* lda,
10509     double* work
10510 #ifdef LAPACK_FORTRAN_STRLEN_END
10511     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10512 #endif
10513 );
10514 #ifdef LAPACK_FORTRAN_STRLEN_END
10515     #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1)
10516 #else
10517     #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__)
10518 #endif
10519 
10520 #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
10521 void LAPACK_clapmr(
10522     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10523     lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10524 
10525 #define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
10526 void LAPACK_dlapmr(
10527     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10528     double* X, lapack_int const* ldx, lapack_int* K );
10529 
10530 #define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
10531 void LAPACK_slapmr(
10532     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10533     float* X, lapack_int const* ldx, lapack_int* K );
10534 
10535 #define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
10536 void LAPACK_zlapmr(
10537     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10538     lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10539 
10540 #define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT)
10541 void LAPACK_clapmt(
10542     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10543     lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10544 
10545 #define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT)
10546 void LAPACK_dlapmt(
10547     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10548     double* X, lapack_int const* ldx, lapack_int* K );
10549 
10550 #define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT)
10551 void LAPACK_slapmt(
10552     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10553     float* X, lapack_int const* ldx, lapack_int* K );
10554 
10555 #define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT)
10556 void LAPACK_zlapmt(
10557     lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10558     lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10559 
10560 #define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
10561 double LAPACK_dlapy2(
10562     double const* x,
10563     double const* y );
10564 
10565 #define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
10566 lapack_float_return LAPACK_slapy2(
10567     float const* x,
10568     float const* y );
10569 
10570 #define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
10571 double LAPACK_dlapy3(
10572     double const* x,
10573     double const* y,
10574     double const* z );
10575 
10576 #define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
10577 lapack_float_return LAPACK_slapy3(
10578     float const* x,
10579     float const* y,
10580     float const* z );
10581 
10582 #define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM)
10583 void LAPACK_clarcm(
10584     lapack_int const* m, lapack_int const* n,
10585     float const* A, lapack_int const* lda,
10586     lapack_complex_float const* B, lapack_int const* ldb,
10587     lapack_complex_float* C, lapack_int const* ldc,
10588     float* rwork );
10589 
10590 #define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM)
10591 void LAPACK_zlarcm(
10592     lapack_int const* m, lapack_int const* n,
10593     double const* A, lapack_int const* lda,
10594     lapack_complex_double const* B, lapack_int const* ldb,
10595     lapack_complex_double* C, lapack_int const* ldc,
10596     double* rwork );
10597 
10598 #define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF)
10599 void LAPACK_clarf_base(
10600     char const* side,
10601     lapack_int const* m, lapack_int const* n,
10602     lapack_complex_float const* V, lapack_int const* incv,
10603     lapack_complex_float const* tau,
10604     lapack_complex_float* C, lapack_int const* ldc,
10605     lapack_complex_float* work
10606 #ifdef LAPACK_FORTRAN_STRLEN_END
10607     , FORTRAN_STRLEN
10608 #endif
10609 );
10610 #ifdef LAPACK_FORTRAN_STRLEN_END
10611     #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1)
10612 #else
10613     #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__)
10614 #endif
10615 
10616 #define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF)
10617 void LAPACK_dlarf_base(
10618     char const* side,
10619     lapack_int const* m, lapack_int const* n,
10620     double const* V, lapack_int const* incv,
10621     double const* tau,
10622     double* C, lapack_int const* ldc,
10623     double* work
10624 #ifdef LAPACK_FORTRAN_STRLEN_END
10625     , FORTRAN_STRLEN
10626 #endif
10627 );
10628 #ifdef LAPACK_FORTRAN_STRLEN_END
10629     #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1)
10630 #else
10631     #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__)
10632 #endif
10633 
10634 #define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF)
10635 void LAPACK_slarf_base(
10636     char const* side,
10637     lapack_int const* m, lapack_int const* n,
10638     float const* V, lapack_int const* incv,
10639     float const* tau,
10640     float* C, lapack_int const* ldc,
10641     float* work
10642 #ifdef LAPACK_FORTRAN_STRLEN_END
10643     , FORTRAN_STRLEN
10644 #endif
10645 );
10646 #ifdef LAPACK_FORTRAN_STRLEN_END
10647     #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1)
10648 #else
10649     #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__)
10650 #endif
10651 
10652 #define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF)
10653 void LAPACK_zlarf_base(
10654     char const* side,
10655     lapack_int const* m, lapack_int const* n,
10656     lapack_complex_double const* V, lapack_int const* incv,
10657     lapack_complex_double const* tau,
10658     lapack_complex_double* C, lapack_int const* ldc,
10659     lapack_complex_double* work
10660 #ifdef LAPACK_FORTRAN_STRLEN_END
10661     , FORTRAN_STRLEN
10662 #endif
10663 );
10664 #ifdef LAPACK_FORTRAN_STRLEN_END
10665     #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1)
10666 #else
10667     #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__)
10668 #endif
10669 
10670 #define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB)
10671 void LAPACK_clarfb_base(
10672     char const* side, char const* trans, char const* direct, char const* storev,
10673     lapack_int const* m, lapack_int const* n, lapack_int const* k,
10674     lapack_complex_float const* V, lapack_int const* ldv,
10675     lapack_complex_float const* T, lapack_int const* ldt,
10676     lapack_complex_float* C, lapack_int const* ldc,
10677     lapack_complex_float* work, lapack_int const* ldwork
10678 #ifdef LAPACK_FORTRAN_STRLEN_END
10679     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10680 #endif
10681 );
10682 #ifdef LAPACK_FORTRAN_STRLEN_END
10683     #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10684 #else
10685     #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__)
10686 #endif
10687 
10688 #define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB)
10689 void LAPACK_dlarfb_base(
10690     char const* side, char const* trans, char const* direct, char const* storev,
10691     lapack_int const* m, lapack_int const* n, lapack_int const* k,
10692     double const* V, lapack_int const* ldv,
10693     double const* T, lapack_int const* ldt,
10694     double* C, lapack_int const* ldc,
10695     double* work, lapack_int const* ldwork
10696 #ifdef LAPACK_FORTRAN_STRLEN_END
10697     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10698 #endif
10699 );
10700 #ifdef LAPACK_FORTRAN_STRLEN_END
10701     #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10702 #else
10703     #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__)
10704 #endif
10705 
10706 #define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB)
10707 void LAPACK_slarfb_base(
10708     char const* side, char const* trans, char const* direct, char const* storev,
10709     lapack_int const* m, lapack_int const* n, lapack_int const* k,
10710     float const* V, lapack_int const* ldv,
10711     float const* T, lapack_int const* ldt,
10712     float* C, lapack_int const* ldc,
10713     float* work, lapack_int const* ldwork
10714 #ifdef LAPACK_FORTRAN_STRLEN_END
10715     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10716 #endif
10717 );
10718 #ifdef LAPACK_FORTRAN_STRLEN_END
10719     #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10720 #else
10721     #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__)
10722 #endif
10723 
10724 #define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB)
10725 void LAPACK_zlarfb_base(
10726     char const* side, char const* trans, char const* direct, char const* storev,
10727     lapack_int const* m, lapack_int const* n, lapack_int const* k,
10728     lapack_complex_double const* V, lapack_int const* ldv,
10729     lapack_complex_double const* T, lapack_int const* ldt,
10730     lapack_complex_double* C, lapack_int const* ldc,
10731     lapack_complex_double* work, lapack_int const* ldwork
10732 #ifdef LAPACK_FORTRAN_STRLEN_END
10733     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10734 #endif
10735 );
10736 #ifdef LAPACK_FORTRAN_STRLEN_END
10737     #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10738 #else
10739     #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__)
10740 #endif
10741 
10742 #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
10743 void LAPACK_clarfg(
10744     lapack_int const* n,
10745     lapack_complex_float* alpha,
10746     lapack_complex_float* X, lapack_int const* incx,
10747     lapack_complex_float* tau );
10748 
10749 #define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
10750 void LAPACK_dlarfg(
10751     lapack_int const* n,
10752     double* alpha,
10753     double* X, lapack_int const* incx,
10754     double* tau );
10755 
10756 #define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
10757 void LAPACK_slarfg(
10758     lapack_int const* n,
10759     float* alpha,
10760     float* X, lapack_int const* incx,
10761     float* tau );
10762 
10763 #define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
10764 void LAPACK_zlarfg(
10765     lapack_int const* n,
10766     lapack_complex_double* alpha,
10767     lapack_complex_double* X, lapack_int const* incx,
10768     lapack_complex_double* tau );
10769 
10770 #define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT)
10771 void LAPACK_clarft_base(
10772     char const* direct, char const* storev,
10773     lapack_int const* n, lapack_int const* k,
10774     lapack_complex_float const* V, lapack_int const* ldv,
10775     lapack_complex_float const* tau,
10776     lapack_complex_float* T, lapack_int const* ldt
10777 #ifdef LAPACK_FORTRAN_STRLEN_END
10778     , FORTRAN_STRLEN, FORTRAN_STRLEN
10779 #endif
10780 );
10781 #ifdef LAPACK_FORTRAN_STRLEN_END
10782     #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1)
10783 #else
10784     #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__)
10785 #endif
10786 
10787 #define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT)
10788 void LAPACK_dlarft_base(
10789     char const* direct, char const* storev,
10790     lapack_int const* n, lapack_int const* k,
10791     double const* V, lapack_int const* ldv,
10792     double const* tau,
10793     double* T, lapack_int const* ldt
10794 #ifdef LAPACK_FORTRAN_STRLEN_END
10795     , FORTRAN_STRLEN, FORTRAN_STRLEN
10796 #endif
10797 );
10798 #ifdef LAPACK_FORTRAN_STRLEN_END
10799     #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1)
10800 #else
10801     #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__)
10802 #endif
10803 
10804 #define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT)
10805 void LAPACK_slarft_base(
10806     char const* direct, char const* storev,
10807     lapack_int const* n, lapack_int const* k,
10808     float const* V, lapack_int const* ldv,
10809     float const* tau,
10810     float* T, lapack_int const* ldt
10811 #ifdef LAPACK_FORTRAN_STRLEN_END
10812     , FORTRAN_STRLEN, FORTRAN_STRLEN
10813 #endif
10814 );
10815 #ifdef LAPACK_FORTRAN_STRLEN_END
10816     #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1)
10817 #else
10818     #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__)
10819 #endif
10820 
10821 #define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT)
10822 void LAPACK_zlarft_base(
10823     char const* direct, char const* storev,
10824     lapack_int const* n, lapack_int const* k,
10825     lapack_complex_double const* V, lapack_int const* ldv,
10826     lapack_complex_double const* tau,
10827     lapack_complex_double* T, lapack_int const* ldt
10828 #ifdef LAPACK_FORTRAN_STRLEN_END
10829     , FORTRAN_STRLEN, FORTRAN_STRLEN
10830 #endif
10831 );
10832 #ifdef LAPACK_FORTRAN_STRLEN_END
10833     #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1)
10834 #else
10835     #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__)
10836 #endif
10837 
10838 #define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX)
10839 void LAPACK_clarfx_base(
10840     char const* side,
10841     lapack_int const* m, lapack_int const* n,
10842     lapack_complex_float const* V,
10843     lapack_complex_float const* tau,
10844     lapack_complex_float* C, lapack_int const* ldc,
10845     lapack_complex_float* work
10846 #ifdef LAPACK_FORTRAN_STRLEN_END
10847     , FORTRAN_STRLEN
10848 #endif
10849 );
10850 #ifdef LAPACK_FORTRAN_STRLEN_END
10851     #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1)
10852 #else
10853     #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__)
10854 #endif
10855 
10856 #define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX)
10857 void LAPACK_dlarfx_base(
10858     char const* side,
10859     lapack_int const* m, lapack_int const* n,
10860     double const* V,
10861     double const* tau,
10862     double* C, lapack_int const* ldc,
10863     double* work
10864 #ifdef LAPACK_FORTRAN_STRLEN_END
10865     , FORTRAN_STRLEN
10866 #endif
10867 );
10868 #ifdef LAPACK_FORTRAN_STRLEN_END
10869     #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1)
10870 #else
10871     #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__)
10872 #endif
10873 
10874 #define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX)
10875 void LAPACK_slarfx_base(
10876     char const* side,
10877     lapack_int const* m, lapack_int const* n,
10878     float const* V,
10879     float const* tau,
10880     float* C, lapack_int const* ldc,
10881     float* work
10882 #ifdef LAPACK_FORTRAN_STRLEN_END
10883     , FORTRAN_STRLEN
10884 #endif
10885 );
10886 #ifdef LAPACK_FORTRAN_STRLEN_END
10887     #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1)
10888 #else
10889     #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__)
10890 #endif
10891 
10892 #define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX)
10893 void LAPACK_zlarfx_base(
10894     char const* side,
10895     lapack_int const* m, lapack_int const* n,
10896     lapack_complex_double const* V,
10897     lapack_complex_double const* tau,
10898     lapack_complex_double* C, lapack_int const* ldc,
10899     lapack_complex_double* work
10900 #ifdef LAPACK_FORTRAN_STRLEN_END
10901     , FORTRAN_STRLEN
10902 #endif
10903 );
10904 #ifdef LAPACK_FORTRAN_STRLEN_END
10905     #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1)
10906 #else
10907     #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__)
10908 #endif
10909 
10910 #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
10911 void LAPACK_clarnv(
10912     lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10913     lapack_complex_float* X );
10914 
10915 #define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
10916 void LAPACK_dlarnv(
10917     lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10918     double* X );
10919 
10920 #define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
10921 void LAPACK_slarnv(
10922     lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10923     float* X );
10924 
10925 #define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
10926 void LAPACK_zlarnv(
10927     lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10928     lapack_complex_double* X );
10929 
10930 #define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
10931 void LAPACK_dlartgp(
10932     double const* f,
10933     double const* g,
10934     double* cs,
10935     double* sn,
10936     double* r );
10937 
10938 #define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
10939 void LAPACK_slartgp(
10940     float const* f,
10941     float const* g,
10942     float* cs,
10943     float* sn,
10944     float* r );
10945 
10946 #define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
10947 void LAPACK_dlartgs(
10948     double const* x,
10949     double const* y,
10950     double const* sigma,
10951     double* cs,
10952     double* sn );
10953 
10954 #define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
10955 void LAPACK_slartgs(
10956     float const* x,
10957     float const* y,
10958     float const* sigma,
10959     float* cs,
10960     float* sn );
10961 
10962 #define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL)
10963 void LAPACK_clascl_base(
10964     char const* type,
10965     lapack_int const* kl, lapack_int const* ku,
10966     float const* cfrom,
10967     float const* cto, lapack_int const* m, lapack_int const* n,
10968     lapack_complex_float* A, lapack_int const* lda,
10969     lapack_int* info
10970 #ifdef LAPACK_FORTRAN_STRLEN_END
10971     , FORTRAN_STRLEN
10972 #endif
10973 );
10974 #ifdef LAPACK_FORTRAN_STRLEN_END
10975     #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1)
10976 #else
10977     #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__)
10978 #endif
10979 
10980 #define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL)
10981 void LAPACK_dlascl_base(
10982     char const* type,
10983     lapack_int const* kl, lapack_int const* ku,
10984     double const* cfrom,
10985     double const* cto, lapack_int const* m, lapack_int const* n,
10986     double* A, lapack_int const* lda,
10987     lapack_int* info
10988 #ifdef LAPACK_FORTRAN_STRLEN_END
10989     , FORTRAN_STRLEN
10990 #endif
10991 );
10992 #ifdef LAPACK_FORTRAN_STRLEN_END
10993     #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1)
10994 #else
10995     #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__)
10996 #endif
10997 
10998 #define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL)
10999 void LAPACK_slascl_base(
11000     char const* type,
11001     lapack_int const* kl, lapack_int const* ku,
11002     float const* cfrom,
11003     float const* cto, lapack_int const* m, lapack_int const* n,
11004     float* A, lapack_int const* lda,
11005     lapack_int* info
11006 #ifdef LAPACK_FORTRAN_STRLEN_END
11007     , FORTRAN_STRLEN
11008 #endif
11009 );
11010 #ifdef LAPACK_FORTRAN_STRLEN_END
11011     #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1)
11012 #else
11013     #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__)
11014 #endif
11015 
11016 #define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL)
11017 void LAPACK_zlascl_base(
11018     char const* type,
11019     lapack_int const* kl, lapack_int const* ku,
11020     double const* cfrom,
11021     double const* cto, lapack_int const* m, lapack_int const* n,
11022     lapack_complex_double* A, lapack_int const* lda,
11023     lapack_int* info
11024 #ifdef LAPACK_FORTRAN_STRLEN_END
11025     , FORTRAN_STRLEN
11026 #endif
11027 );
11028 #ifdef LAPACK_FORTRAN_STRLEN_END
11029     #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1)
11030 #else
11031     #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__)
11032 #endif
11033 
11034 #define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET)
11035 void LAPACK_claset_base(
11036     char const* uplo,
11037     lapack_int const* m, lapack_int const* n,
11038     lapack_complex_float const* alpha,
11039     lapack_complex_float const* beta,
11040     lapack_complex_float* A, lapack_int const* lda
11041 #ifdef LAPACK_FORTRAN_STRLEN_END
11042     , FORTRAN_STRLEN
11043 #endif
11044 );
11045 #ifdef LAPACK_FORTRAN_STRLEN_END
11046     #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1)
11047 #else
11048     #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__)
11049 #endif
11050 
11051 #define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET)
11052 void LAPACK_dlaset_base(
11053     char const* uplo,
11054     lapack_int const* m, lapack_int const* n,
11055     double const* alpha,
11056     double const* beta,
11057     double* A, lapack_int const* lda
11058 #ifdef LAPACK_FORTRAN_STRLEN_END
11059     , FORTRAN_STRLEN
11060 #endif
11061 );
11062 #ifdef LAPACK_FORTRAN_STRLEN_END
11063     #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1)
11064 #else
11065     #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__)
11066 #endif
11067 
11068 #define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET)
11069 void LAPACK_slaset_base(
11070     char const* uplo,
11071     lapack_int const* m, lapack_int const* n,
11072     float const* alpha,
11073     float const* beta,
11074     float* A, lapack_int const* lda
11075 #ifdef LAPACK_FORTRAN_STRLEN_END
11076     , FORTRAN_STRLEN
11077 #endif
11078 );
11079 #ifdef LAPACK_FORTRAN_STRLEN_END
11080     #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1)
11081 #else
11082     #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__)
11083 #endif
11084 
11085 #define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET)
11086 void LAPACK_zlaset_base(
11087     char const* uplo,
11088     lapack_int const* m, lapack_int const* n,
11089     lapack_complex_double const* alpha,
11090     lapack_complex_double const* beta,
11091     lapack_complex_double* A, lapack_int const* lda
11092 #ifdef LAPACK_FORTRAN_STRLEN_END
11093     , FORTRAN_STRLEN
11094 #endif
11095 );
11096 #ifdef LAPACK_FORTRAN_STRLEN_END
11097     #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1)
11098 #else
11099     #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__)
11100 #endif
11101 
11102 #define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT)
11103 void LAPACK_dlasrt_base(
11104     char const* id,
11105     lapack_int const* n,
11106     double* D,
11107     lapack_int* info
11108 #ifdef LAPACK_FORTRAN_STRLEN_END
11109     , FORTRAN_STRLEN
11110 #endif
11111 );
11112 #ifdef LAPACK_FORTRAN_STRLEN_END
11113     #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1)
11114 #else
11115     #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__)
11116 #endif
11117 
11118 #define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT)
11119 void LAPACK_slasrt_base(
11120     char const* id,
11121     lapack_int const* n,
11122     float* D,
11123     lapack_int* info
11124 #ifdef LAPACK_FORTRAN_STRLEN_END
11125     , FORTRAN_STRLEN
11126 #endif
11127 );
11128 #ifdef LAPACK_FORTRAN_STRLEN_END
11129     #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1)
11130 #else
11131     #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__)
11132 #endif
11133 
11134 #define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ)
11135 void LAPACK_classq(
11136     lapack_int const* n,
11137     lapack_complex_float const* X, lapack_int const* incx,
11138     float* scale,
11139     float* sumsq );
11140 
11141 #define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ)
11142 void LAPACK_dlassq(
11143     lapack_int const* n,
11144     double const* X, lapack_int const* incx,
11145     double* scale,
11146     double* sumsq );
11147 
11148 #define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ)
11149 void LAPACK_slassq(
11150     lapack_int const* n,
11151     float const* X, lapack_int const* incx,
11152     float* scale,
11153     float* sumsq );
11154 
11155 #define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ)
11156 void LAPACK_zlassq(
11157     lapack_int const* n,
11158     lapack_complex_double const* X, lapack_int const* incx,
11159     double* scale,
11160     double* sumsq );
11161 
11162 #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
11163 lapack_int LAPACK_claswp(
11164     lapack_int const* n,
11165     lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
11166 
11167 #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
11168 lapack_int LAPACK_dlaswp(
11169     lapack_int const* n,
11170     double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
11171 
11172 #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
11173 lapack_int LAPACK_slaswp(
11174     lapack_int const* n,
11175     float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
11176 
11177 #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
11178 lapack_int LAPACK_zlaswp(
11179     lapack_int const* n,
11180     lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
11181 
11182 #define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS)
11183 void LAPACK_clatms_base(
11184     lapack_int const* m, lapack_int const* n, char const* dist,
11185     lapack_int* iseed, char const* sym,
11186     float* D,
11187     lapack_int const* mode,
11188     float const* cond,
11189     float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11190     lapack_complex_float* A,
11191     lapack_int const* lda,
11192     lapack_complex_float* work,
11193     lapack_int* info
11194 #ifdef LAPACK_FORTRAN_STRLEN_END
11195     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11196 #endif
11197 );
11198 #ifdef LAPACK_FORTRAN_STRLEN_END
11199     #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1)
11200 #else
11201     #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__)
11202 #endif
11203 
11204 #define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS)
11205 void LAPACK_dlatms_base(
11206     lapack_int const* m, lapack_int const* n, char const* dist,
11207     lapack_int* iseed, char const* sym,
11208     double* D,
11209     lapack_int const* mode,
11210     double const* cond,
11211     double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11212     double* A,
11213     lapack_int const* lda,
11214     double* work,
11215     lapack_int* info
11216 #ifdef LAPACK_FORTRAN_STRLEN_END
11217     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11218 #endif
11219 );
11220 #ifdef LAPACK_FORTRAN_STRLEN_END
11221     #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1)
11222 #else
11223     #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__)
11224 #endif
11225 
11226 #define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS)
11227 void LAPACK_slatms_base(
11228     lapack_int const* m, lapack_int const* n, char const* dist,
11229     lapack_int* iseed, char const* sym,
11230     float* D,
11231     lapack_int const* mode,
11232     float const* cond,
11233     float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11234     float* A,
11235     lapack_int const* lda,
11236     float* work,
11237     lapack_int* info
11238 #ifdef LAPACK_FORTRAN_STRLEN_END
11239     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11240 #endif
11241 );
11242 #ifdef LAPACK_FORTRAN_STRLEN_END
11243     #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1)
11244 #else
11245     #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__)
11246 #endif
11247 
11248 #define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS)
11249 void LAPACK_zlatms_base(
11250     lapack_int const* m, lapack_int const* n, char const* dist,
11251     lapack_int* iseed, char const* sym,
11252     double* D,
11253     lapack_int const* mode,
11254     double const* cond,
11255     double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11256     lapack_complex_double* A,
11257     lapack_int const* lda,
11258     lapack_complex_double* work,
11259     lapack_int* info
11260 #ifdef LAPACK_FORTRAN_STRLEN_END
11261     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11262 #endif
11263 );
11264 #ifdef LAPACK_FORTRAN_STRLEN_END
11265     #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1)
11266 #else
11267     #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__)
11268 #endif
11269 
11270 #define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
11271 lapack_int LAPACK_clauum_base(
11272     char const* uplo,
11273     lapack_int const* n,
11274     lapack_complex_float* A, lapack_int const* lda,
11275     lapack_int* info
11276 #ifdef LAPACK_FORTRAN_STRLEN_END
11277     , FORTRAN_STRLEN
11278 #endif
11279 );
11280 #ifdef LAPACK_FORTRAN_STRLEN_END
11281     #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1)
11282 #else
11283     #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__)
11284 #endif
11285 
11286 #define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
11287 lapack_int LAPACK_dlauum_base(
11288     char const* uplo,
11289     lapack_int const* n,
11290     double* A, lapack_int const* lda,
11291     lapack_int* info
11292 #ifdef LAPACK_FORTRAN_STRLEN_END
11293     , FORTRAN_STRLEN
11294 #endif
11295 );
11296 #ifdef LAPACK_FORTRAN_STRLEN_END
11297     #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1)
11298 #else
11299     #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__)
11300 #endif
11301 
11302 #define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
11303 lapack_int LAPACK_slauum_base(
11304     char const* uplo,
11305     lapack_int const* n,
11306     float* A, lapack_int const* lda,
11307     lapack_int* info
11308 #ifdef LAPACK_FORTRAN_STRLEN_END
11309     , FORTRAN_STRLEN
11310 #endif
11311 );
11312 #ifdef LAPACK_FORTRAN_STRLEN_END
11313     #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1)
11314 #else
11315     #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__)
11316 #endif
11317 
11318 #define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
11319 lapack_int LAPACK_zlauum_base(
11320     char const* uplo,
11321     lapack_int const* n,
11322     lapack_complex_double* A, lapack_int const* lda,
11323     lapack_int* info
11324 #ifdef LAPACK_FORTRAN_STRLEN_END
11325     , FORTRAN_STRLEN
11326 #endif
11327 );
11328 #ifdef LAPACK_FORTRAN_STRLEN_END
11329     #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1)
11330 #else
11331     #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__)
11332 #endif
11333 
11334 #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
11335 lapack_int LAPACK_ilaver(
11336     lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
11337 
11338 #define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
11339 void LAPACK_dopgtr_base(
11340     char const* uplo,
11341     lapack_int const* n,
11342     double const* AP,
11343     double const* tau,
11344     double* Q, lapack_int const* ldq,
11345     double* work,
11346     lapack_int* info
11347 #ifdef LAPACK_FORTRAN_STRLEN_END
11348     , FORTRAN_STRLEN
11349 #endif
11350 );
11351 #ifdef LAPACK_FORTRAN_STRLEN_END
11352     #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1)
11353 #else
11354     #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__)
11355 #endif
11356 
11357 #define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR)
11358 void LAPACK_sopgtr_base(
11359     char const* uplo,
11360     lapack_int const* n,
11361     float const* AP,
11362     float const* tau,
11363     float* Q, lapack_int const* ldq,
11364     float* work,
11365     lapack_int* info
11366 #ifdef LAPACK_FORTRAN_STRLEN_END
11367     , FORTRAN_STRLEN
11368 #endif
11369 );
11370 #ifdef LAPACK_FORTRAN_STRLEN_END
11371     #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1)
11372 #else
11373     #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__)
11374 #endif
11375 
11376 #define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR)
11377 void LAPACK_dopmtr_base(
11378     char const* side, char const* uplo, char const* trans,
11379     lapack_int const* m, lapack_int const* n,
11380     double const* AP,
11381     double const* tau,
11382     double* C, lapack_int const* ldc,
11383     double* work,
11384     lapack_int* info
11385 #ifdef LAPACK_FORTRAN_STRLEN_END
11386     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11387 #endif
11388 );
11389 #ifdef LAPACK_FORTRAN_STRLEN_END
11390     #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1)
11391 #else
11392     #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__)
11393 #endif
11394 
11395 #define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR)
11396 void LAPACK_sopmtr_base(
11397     char const* side, char const* uplo, char const* trans,
11398     lapack_int const* m, lapack_int const* n,
11399     float const* AP,
11400     float const* tau,
11401     float* C, lapack_int const* ldc,
11402     float* work,
11403     lapack_int* info
11404 #ifdef LAPACK_FORTRAN_STRLEN_END
11405     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11406 #endif
11407 );
11408 #ifdef LAPACK_FORTRAN_STRLEN_END
11409     #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1)
11410 #else
11411     #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__)
11412 #endif
11413 
11414 #define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB)
11415 void LAPACK_dorbdb_base(
11416     char const* trans, char const* signs,
11417     lapack_int const* m, lapack_int const* p, lapack_int const* q,
11418     double* X11, lapack_int const* ldx11,
11419     double* X12, lapack_int const* ldx12,
11420     double* X21, lapack_int const* ldx21,
11421     double* X22, lapack_int const* ldx22,
11422     double* theta,
11423     double* phi,
11424     double* TAUP1,
11425     double* TAUP2,
11426     double* TAUQ1,
11427     double* TAUQ2,
11428     double* work, lapack_int const* lwork,
11429     lapack_int* info
11430 #ifdef LAPACK_FORTRAN_STRLEN_END
11431     , FORTRAN_STRLEN, FORTRAN_STRLEN
11432 #endif
11433 );
11434 #ifdef LAPACK_FORTRAN_STRLEN_END
11435     #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1)
11436 #else
11437     #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__)
11438 #endif
11439 
11440 #define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB)
11441 void LAPACK_sorbdb_base(
11442     char const* trans, char const* signs,
11443     lapack_int const* m, lapack_int const* p, lapack_int const* q,
11444     float* X11, lapack_int const* ldx11,
11445     float* X12, lapack_int const* ldx12,
11446     float* X21, lapack_int const* ldx21,
11447     float* X22, lapack_int const* ldx22,
11448     float* theta,
11449     float* phi,
11450     float* TAUP1,
11451     float* TAUP2,
11452     float* TAUQ1,
11453     float* TAUQ2,
11454     float* work, lapack_int const* lwork,
11455     lapack_int* info
11456 #ifdef LAPACK_FORTRAN_STRLEN_END
11457     , FORTRAN_STRLEN, FORTRAN_STRLEN
11458 #endif
11459 );
11460 #ifdef LAPACK_FORTRAN_STRLEN_END
11461     #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1)
11462 #else
11463     #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__)
11464 #endif
11465 
11466 #define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD)
11467 void LAPACK_dorcsd_base(
11468     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
11469     lapack_int const* m, lapack_int const* p, lapack_int const* q,
11470     double* X11, lapack_int const* ldx11,
11471     double* X12, lapack_int const* ldx12,
11472     double* X21, lapack_int const* ldx21,
11473     double* X22, lapack_int const* ldx22,
11474     double* theta,
11475     double* U1, lapack_int const* ldu1,
11476     double* U2, lapack_int const* ldu2,
11477     double* V1T, lapack_int const* ldv1t,
11478     double* V2T, lapack_int const* ldv2t,
11479     double* work, lapack_int const* lwork,
11480     lapack_int* iwork,
11481     lapack_int* info
11482 #ifdef LAPACK_FORTRAN_STRLEN_END
11483     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11484 #endif
11485 );
11486 #ifdef LAPACK_FORTRAN_STRLEN_END
11487     #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11488 #else
11489     #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__)
11490 #endif
11491 
11492 #define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD)
11493 void LAPACK_sorcsd_base(
11494     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
11495     lapack_int const* m, lapack_int const* p, lapack_int const* q,
11496     float* X11, lapack_int const* ldx11,
11497     float* X12, lapack_int const* ldx12,
11498     float* X21, lapack_int const* ldx21,
11499     float* X22, lapack_int const* ldx22,
11500     float* theta,
11501     float* U1, lapack_int const* ldu1,
11502     float* U2, lapack_int const* ldu2,
11503     float* V1T, lapack_int const* ldv1t,
11504     float* V2T, lapack_int const* ldv2t,
11505     float* work, lapack_int const* lwork,
11506     lapack_int* iwork,
11507     lapack_int* info
11508 #ifdef LAPACK_FORTRAN_STRLEN_END
11509     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11510 #endif
11511 );
11512 #ifdef LAPACK_FORTRAN_STRLEN_END
11513     #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11514 #else
11515     #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__)
11516 #endif
11517 
11518 #define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1)
11519 void LAPACK_dorcsd2by1_base(
11520     char const* jobu1, char const* jobu2, char const* jobv1t,
11521     lapack_int const* m, lapack_int const* p, lapack_int const* q,
11522     double* X11, lapack_int const* ldx11,
11523     double* X21, lapack_int const* ldx21,
11524     double* theta,
11525     double* U1, lapack_int const* ldu1,
11526     double* U2, lapack_int const* ldu2,
11527     double* V1T, lapack_int const* ldv1t,
11528     double* work, lapack_int const* lwork,
11529     lapack_int* iwork,
11530     lapack_int* info
11531 #ifdef LAPACK_FORTRAN_STRLEN_END
11532     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11533 #endif
11534 );
11535 #ifdef LAPACK_FORTRAN_STRLEN_END
11536     #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11537 #else
11538     #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__)
11539 #endif
11540 
11541 #define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1)
11542 void LAPACK_sorcsd2by1_base(
11543     char const* jobu1, char const* jobu2, char const* jobv1t,
11544     lapack_int const* m, lapack_int const* p, lapack_int const* q,
11545     float* X11, lapack_int const* ldx11,
11546     float* X21, lapack_int const* ldx21,
11547     float* theta,
11548     float* U1, lapack_int const* ldu1,
11549     float* U2, lapack_int const* ldu2,
11550     float* V1T, lapack_int const* ldv1t,
11551     float* work, lapack_int const* lwork,
11552     lapack_int* iwork,
11553     lapack_int* info
11554 #ifdef LAPACK_FORTRAN_STRLEN_END
11555     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11556 #endif
11557 );
11558 #ifdef LAPACK_FORTRAN_STRLEN_END
11559     #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11560 #else
11561     #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__)
11562 #endif
11563 
11564 #define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR)
11565 void LAPACK_dorgbr_base(
11566     char const* vect,
11567     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11568     double* A, lapack_int const* lda,
11569     double const* tau,
11570     double* work, lapack_int const* lwork,
11571     lapack_int* info
11572 #ifdef LAPACK_FORTRAN_STRLEN_END
11573     , FORTRAN_STRLEN
11574 #endif
11575 );
11576 #ifdef LAPACK_FORTRAN_STRLEN_END
11577     #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1)
11578 #else
11579     #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__)
11580 #endif
11581 
11582 #define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR)
11583 void LAPACK_sorgbr_base(
11584     char const* vect,
11585     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11586     float* A, lapack_int const* lda,
11587     float const* tau,
11588     float* work, lapack_int const* lwork,
11589     lapack_int* info
11590 #ifdef LAPACK_FORTRAN_STRLEN_END
11591     , FORTRAN_STRLEN
11592 #endif
11593 );
11594 #ifdef LAPACK_FORTRAN_STRLEN_END
11595     #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1)
11596 #else
11597     #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__)
11598 #endif
11599 
11600 #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11601 void LAPACK_dorghr(
11602     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11603     double* A, lapack_int const* lda,
11604     double const* tau,
11605     double* work, lapack_int const* lwork,
11606     lapack_int* info );
11607 
11608 #define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11609 void LAPACK_sorghr(
11610     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11611     float* A, lapack_int const* lda,
11612     float const* tau,
11613     float* work, lapack_int const* lwork,
11614     lapack_int* info );
11615 
11616 #define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
11617 void LAPACK_dorglq(
11618     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11619     double* A, lapack_int const* lda,
11620     double const* tau,
11621     double* work, lapack_int const* lwork,
11622     lapack_int* info );
11623 
11624 #define LAPACK_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
11625 void LAPACK_sorglq(
11626     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11627     float* A, lapack_int const* lda,
11628     float const* tau,
11629     float* work, lapack_int const* lwork,
11630     lapack_int* info );
11631 
11632 #define LAPACK_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
11633 void LAPACK_dorgql(
11634     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11635     double* A, lapack_int const* lda,
11636     double const* tau,
11637     double* work, lapack_int const* lwork,
11638     lapack_int* info );
11639 
11640 #define LAPACK_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
11641 void LAPACK_sorgql(
11642     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11643     float* A, lapack_int const* lda,
11644     float const* tau,
11645     float* work, lapack_int const* lwork,
11646     lapack_int* info );
11647 
11648 #define LAPACK_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
11649 void LAPACK_dorgqr(
11650     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11651     double* A, lapack_int const* lda,
11652     double const* tau,
11653     double* work, lapack_int const* lwork,
11654     lapack_int* info );
11655 
11656 #define LAPACK_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
11657 void LAPACK_sorgqr(
11658     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11659     float* A, lapack_int const* lda,
11660     float const* tau,
11661     float* work, lapack_int const* lwork,
11662     lapack_int* info );
11663 
11664 #define LAPACK_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11665 void LAPACK_dorgrq(
11666     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11667     double* A, lapack_int const* lda,
11668     double const* tau,
11669     double* work, lapack_int const* lwork,
11670     lapack_int* info );
11671 
11672 #define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11673 void LAPACK_sorgrq(
11674     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11675     float* A, lapack_int const* lda,
11676     float const* tau,
11677     float* work, lapack_int const* lwork,
11678     lapack_int* info );
11679 
11680 #define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR)
11681 void LAPACK_dorgtr_base(
11682     char const* uplo,
11683     lapack_int const* n,
11684     double* A, lapack_int const* lda,
11685     double const* tau,
11686     double* work, lapack_int const* lwork,
11687     lapack_int* info
11688 #ifdef LAPACK_FORTRAN_STRLEN_END
11689     , FORTRAN_STRLEN
11690 #endif
11691 );
11692 #ifdef LAPACK_FORTRAN_STRLEN_END
11693     #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1)
11694 #else
11695     #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__)
11696 #endif
11697 
11698 #define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR)
11699 void LAPACK_sorgtr_base(
11700     char const* uplo,
11701     lapack_int const* n,
11702     float* A, lapack_int const* lda,
11703     float const* tau,
11704     float* work, lapack_int const* lwork,
11705     lapack_int* info
11706 #ifdef LAPACK_FORTRAN_STRLEN_END
11707     , FORTRAN_STRLEN
11708 #endif
11709 );
11710 #ifdef LAPACK_FORTRAN_STRLEN_END
11711     #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1)
11712 #else
11713     #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__)
11714 #endif
11715 
11716 #define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
11717 void LAPACK_dorgtsqr_row(
11718     lapack_int const* m, lapack_int const* n,
11719     lapack_int const* mb, lapack_int const* nb,
11720     double* A, lapack_int const* lda,
11721     double const* T, lapack_int const* ldt,
11722     double* work, lapack_int const* lwork,
11723     lapack_int* info );
11724 
11725 #define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW)
11726 void LAPACK_sorgtsqr_row(
11727     lapack_int const* m, lapack_int const* n,
11728     lapack_int const* mb, lapack_int const* nb,
11729     float* A, lapack_int const* lda,
11730     float const* T, lapack_int const* ldt,
11731     float* work, lapack_int const* lwork,
11732     lapack_int* info );
11733 
11734 #define LAPACK_dorhr_col LAPACK_GLOBAL(dorhr_col,DORHR_COL)
11735 void LAPACK_dorhr_col(
11736     lapack_int const* m, lapack_int const* n,
11737     lapack_int const* nb, double* A,
11738     lapack_int const* lda, double* T,
11739     lapack_int const* ldt, double* D,
11740     lapack_int* info );
11741 
11742 #define LAPACK_sorhr_col LAPACK_GLOBAL(sorhr_col,SORHR_COL)
11743 void LAPACK_sorhr_col(
11744     lapack_int const* m, lapack_int const* n,
11745     lapack_int const* nb, float* A,
11746     lapack_int const* lda, float* T,
11747     lapack_int const* ldt, float* D,
11748     lapack_int* info );
11749 
11750 #define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR)
11751 void LAPACK_dormbr_base(
11752     char const* vect, char const* side, char const* trans,
11753     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11754     double const* A, lapack_int const* lda,
11755     double const* tau,
11756     double* C, lapack_int const* ldc,
11757     double* work, lapack_int const* lwork,
11758     lapack_int* info
11759 #ifdef LAPACK_FORTRAN_STRLEN_END
11760     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11761 #endif
11762 );
11763 #ifdef LAPACK_FORTRAN_STRLEN_END
11764     #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1)
11765 #else
11766     #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__)
11767 #endif
11768 
11769 #define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR)
11770 void LAPACK_sormbr_base(
11771     char const* vect, char const* side, char const* trans,
11772     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11773     float const* A, lapack_int const* lda,
11774     float const* tau,
11775     float* C, lapack_int const* ldc,
11776     float* work, lapack_int const* lwork,
11777     lapack_int* info
11778 #ifdef LAPACK_FORTRAN_STRLEN_END
11779     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11780 #endif
11781 );
11782 #ifdef LAPACK_FORTRAN_STRLEN_END
11783     #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1)
11784 #else
11785     #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__)
11786 #endif
11787 
11788 #define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR)
11789 void LAPACK_dormhr_base(
11790     char const* side, char const* trans,
11791     lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11792     double const* A, lapack_int const* lda,
11793     double const* tau,
11794     double* C, lapack_int const* ldc,
11795     double* work, lapack_int const* lwork,
11796     lapack_int* info
11797 #ifdef LAPACK_FORTRAN_STRLEN_END
11798     , FORTRAN_STRLEN, FORTRAN_STRLEN
11799 #endif
11800 );
11801 #ifdef LAPACK_FORTRAN_STRLEN_END
11802     #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1)
11803 #else
11804     #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__)
11805 #endif
11806 
11807 #define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR)
11808 void LAPACK_sormhr_base(
11809     char const* side, char const* trans,
11810     lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11811     float const* A, lapack_int const* lda,
11812     float const* tau,
11813     float* C, lapack_int const* ldc,
11814     float* work, lapack_int const* lwork,
11815     lapack_int* info
11816 #ifdef LAPACK_FORTRAN_STRLEN_END
11817     , FORTRAN_STRLEN, FORTRAN_STRLEN
11818 #endif
11819 );
11820 #ifdef LAPACK_FORTRAN_STRLEN_END
11821     #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1)
11822 #else
11823     #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__)
11824 #endif
11825 
11826 #define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ)
11827 void LAPACK_dormlq_base(
11828     char const* side, char const* trans,
11829     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11830     double const* A, lapack_int const* lda,
11831     double const* tau,
11832     double* C, lapack_int const* ldc,
11833     double* work, lapack_int const* lwork,
11834     lapack_int* info
11835 #ifdef LAPACK_FORTRAN_STRLEN_END
11836     , FORTRAN_STRLEN, FORTRAN_STRLEN
11837 #endif
11838 );
11839 #ifdef LAPACK_FORTRAN_STRLEN_END
11840     #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1)
11841 #else
11842     #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__)
11843 #endif
11844 
11845 #define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ)
11846 void LAPACK_sormlq_base(
11847     char const* side, char const* trans,
11848     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11849     float const* A, lapack_int const* lda,
11850     float const* tau,
11851     float* C, lapack_int const* ldc,
11852     float* work, lapack_int const* lwork,
11853     lapack_int* info
11854 #ifdef LAPACK_FORTRAN_STRLEN_END
11855     , FORTRAN_STRLEN, FORTRAN_STRLEN
11856 #endif
11857 );
11858 #ifdef LAPACK_FORTRAN_STRLEN_END
11859     #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1)
11860 #else
11861     #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__)
11862 #endif
11863 
11864 #define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL)
11865 void LAPACK_dormql_base(
11866     char const* side, char const* trans,
11867     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11868     double const* A, lapack_int const* lda,
11869     double const* tau,
11870     double* C, lapack_int const* ldc,
11871     double* work, lapack_int const* lwork,
11872     lapack_int* info
11873 #ifdef LAPACK_FORTRAN_STRLEN_END
11874     , FORTRAN_STRLEN, FORTRAN_STRLEN
11875 #endif
11876 );
11877 #ifdef LAPACK_FORTRAN_STRLEN_END
11878     #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1)
11879 #else
11880     #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__)
11881 #endif
11882 
11883 #define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL)
11884 void LAPACK_sormql_base(
11885     char const* side, char const* trans,
11886     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11887     float const* A, lapack_int const* lda,
11888     float const* tau,
11889     float* C, lapack_int const* ldc,
11890     float* work, lapack_int const* lwork,
11891     lapack_int* info
11892 #ifdef LAPACK_FORTRAN_STRLEN_END
11893     , FORTRAN_STRLEN, FORTRAN_STRLEN
11894 #endif
11895 );
11896 #ifdef LAPACK_FORTRAN_STRLEN_END
11897     #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1)
11898 #else
11899     #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__)
11900 #endif
11901 
11902 #define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR)
11903 void LAPACK_dormqr_base(
11904     char const* side, char const* trans,
11905     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11906     double const* A, lapack_int const* lda,
11907     double const* tau,
11908     double* C, lapack_int const* ldc,
11909     double* work, lapack_int const* lwork,
11910     lapack_int* info
11911 #ifdef LAPACK_FORTRAN_STRLEN_END
11912     , FORTRAN_STRLEN, FORTRAN_STRLEN
11913 #endif
11914 );
11915 #ifdef LAPACK_FORTRAN_STRLEN_END
11916     #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1)
11917 #else
11918     #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__)
11919 #endif
11920 
11921 #define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR)
11922 void LAPACK_sormqr_base(
11923     char const* side, char const* trans,
11924     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11925     float const* A, lapack_int const* lda,
11926     float const* tau,
11927     float* C, lapack_int const* ldc,
11928     float* work, lapack_int const* lwork,
11929     lapack_int* info
11930 #ifdef LAPACK_FORTRAN_STRLEN_END
11931     , FORTRAN_STRLEN, FORTRAN_STRLEN
11932 #endif
11933 );
11934 #ifdef LAPACK_FORTRAN_STRLEN_END
11935     #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1)
11936 #else
11937     #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__)
11938 #endif
11939 
11940 #define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ)
11941 void LAPACK_dormrq_base(
11942     char const* side, char const* trans,
11943     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11944     double const* A, lapack_int const* lda,
11945     double const* tau,
11946     double* C, lapack_int const* ldc,
11947     double* work, lapack_int const* lwork,
11948     lapack_int* info
11949 #ifdef LAPACK_FORTRAN_STRLEN_END
11950     , FORTRAN_STRLEN, FORTRAN_STRLEN
11951 #endif
11952 );
11953 #ifdef LAPACK_FORTRAN_STRLEN_END
11954     #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1)
11955 #else
11956     #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__)
11957 #endif
11958 
11959 #define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ)
11960 void LAPACK_sormrq_base(
11961     char const* side, char const* trans,
11962     lapack_int const* m, lapack_int const* n, lapack_int const* k,
11963     float const* A, lapack_int const* lda,
11964     float const* tau,
11965     float* C, lapack_int const* ldc,
11966     float* work, lapack_int const* lwork,
11967     lapack_int* info
11968 #ifdef LAPACK_FORTRAN_STRLEN_END
11969     , FORTRAN_STRLEN, FORTRAN_STRLEN
11970 #endif
11971 );
11972 #ifdef LAPACK_FORTRAN_STRLEN_END
11973     #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1)
11974 #else
11975     #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__)
11976 #endif
11977 
11978 #define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ)
11979 void LAPACK_dormrz_base(
11980     char const* side, char const* trans,
11981     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
11982     double const* A, lapack_int const* lda,
11983     double const* tau,
11984     double* C, lapack_int const* ldc,
11985     double* work, lapack_int const* lwork,
11986     lapack_int* info
11987 #ifdef LAPACK_FORTRAN_STRLEN_END
11988     , FORTRAN_STRLEN, FORTRAN_STRLEN
11989 #endif
11990 );
11991 #ifdef LAPACK_FORTRAN_STRLEN_END
11992     #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1)
11993 #else
11994     #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__)
11995 #endif
11996 
11997 #define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ)
11998 void LAPACK_sormrz_base(
11999     char const* side, char const* trans,
12000     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
12001     float const* A, lapack_int const* lda,
12002     float const* tau,
12003     float* C, lapack_int const* ldc,
12004     float* work, lapack_int const* lwork,
12005     lapack_int* info
12006 #ifdef LAPACK_FORTRAN_STRLEN_END
12007     , FORTRAN_STRLEN, FORTRAN_STRLEN
12008 #endif
12009 );
12010 #ifdef LAPACK_FORTRAN_STRLEN_END
12011     #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1)
12012 #else
12013     #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__)
12014 #endif
12015 
12016 #define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR)
12017 void LAPACK_dormtr_base(
12018     char const* side, char const* uplo, char const* trans,
12019     lapack_int const* m, lapack_int const* n,
12020     double const* A, lapack_int const* lda,
12021     double const* tau,
12022     double* C, lapack_int const* ldc,
12023     double* work, lapack_int const* lwork,
12024     lapack_int* info
12025 #ifdef LAPACK_FORTRAN_STRLEN_END
12026     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
12027 #endif
12028 );
12029 #ifdef LAPACK_FORTRAN_STRLEN_END
12030     #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1)
12031 #else
12032     #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__)
12033 #endif
12034 
12035 #define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR)
12036 void LAPACK_sormtr_base(
12037     char const* side, char const* uplo, char const* trans,
12038     lapack_int const* m, lapack_int const* n,
12039     float const* A, lapack_int const* lda,
12040     float const* tau,
12041     float* C, lapack_int const* ldc,
12042     float* work, lapack_int const* lwork,
12043     lapack_int* info
12044 #ifdef LAPACK_FORTRAN_STRLEN_END
12045     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
12046 #endif
12047 );
12048 #ifdef LAPACK_FORTRAN_STRLEN_END
12049     #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1)
12050 #else
12051     #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__)
12052 #endif
12053 
12054 #define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON)
12055 void LAPACK_cpbcon_base(
12056     char const* uplo,
12057     lapack_int const* n, lapack_int const* kd,
12058     lapack_complex_float const* AB, lapack_int const* ldab,
12059     float const* anorm,
12060     float* rcond,
12061     lapack_complex_float* work,
12062     float* rwork,
12063     lapack_int* info
12064 #ifdef LAPACK_FORTRAN_STRLEN_END
12065     , FORTRAN_STRLEN
12066 #endif
12067 );
12068 #ifdef LAPACK_FORTRAN_STRLEN_END
12069     #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1)
12070 #else
12071     #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__)
12072 #endif
12073 
12074 #define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON)
12075 void LAPACK_dpbcon_base(
12076     char const* uplo,
12077     lapack_int const* n, lapack_int const* kd,
12078     double const* AB, lapack_int const* ldab,
12079     double const* anorm,
12080     double* rcond,
12081     double* work,
12082     lapack_int* iwork,
12083     lapack_int* info
12084 #ifdef LAPACK_FORTRAN_STRLEN_END
12085     , FORTRAN_STRLEN
12086 #endif
12087 );
12088 #ifdef LAPACK_FORTRAN_STRLEN_END
12089     #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1)
12090 #else
12091     #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__)
12092 #endif
12093 
12094 #define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON)
12095 void LAPACK_spbcon_base(
12096     char const* uplo,
12097     lapack_int const* n, lapack_int const* kd,
12098     float const* AB, lapack_int const* ldab,
12099     float const* anorm,
12100     float* rcond,
12101     float* work,
12102     lapack_int* iwork,
12103     lapack_int* info
12104 #ifdef LAPACK_FORTRAN_STRLEN_END
12105     , FORTRAN_STRLEN
12106 #endif
12107 );
12108 #ifdef LAPACK_FORTRAN_STRLEN_END
12109     #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1)
12110 #else
12111     #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__)
12112 #endif
12113 
12114 #define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON)
12115 void LAPACK_zpbcon_base(
12116     char const* uplo,
12117     lapack_int const* n, lapack_int const* kd,
12118     lapack_complex_double const* AB, lapack_int const* ldab,
12119     double const* anorm,
12120     double* rcond,
12121     lapack_complex_double* work,
12122     double* rwork,
12123     lapack_int* info
12124 #ifdef LAPACK_FORTRAN_STRLEN_END
12125     , FORTRAN_STRLEN
12126 #endif
12127 );
12128 #ifdef LAPACK_FORTRAN_STRLEN_END
12129     #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1)
12130 #else
12131     #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__)
12132 #endif
12133 
12134 #define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU)
12135 void LAPACK_cpbequ_base(
12136     char const* uplo,
12137     lapack_int const* n, lapack_int const* kd,
12138     lapack_complex_float const* AB, lapack_int const* ldab,
12139     float* S,
12140     float* scond,
12141     float* amax,
12142     lapack_int* info
12143 #ifdef LAPACK_FORTRAN_STRLEN_END
12144     , FORTRAN_STRLEN
12145 #endif
12146 );
12147 #ifdef LAPACK_FORTRAN_STRLEN_END
12148     #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1)
12149 #else
12150     #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__)
12151 #endif
12152 
12153 #define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU)
12154 void LAPACK_dpbequ_base(
12155     char const* uplo,
12156     lapack_int const* n, lapack_int const* kd,
12157     double const* AB, lapack_int const* ldab,
12158     double* S,
12159     double* scond,
12160     double* amax,
12161     lapack_int* info
12162 #ifdef LAPACK_FORTRAN_STRLEN_END
12163     , FORTRAN_STRLEN
12164 #endif
12165 );
12166 #ifdef LAPACK_FORTRAN_STRLEN_END
12167     #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1)
12168 #else
12169     #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__)
12170 #endif
12171 
12172 #define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU)
12173 void LAPACK_spbequ_base(
12174     char const* uplo,
12175     lapack_int const* n, lapack_int const* kd,
12176     float const* AB, lapack_int const* ldab,
12177     float* S,
12178     float* scond,
12179     float* amax,
12180     lapack_int* info
12181 #ifdef LAPACK_FORTRAN_STRLEN_END
12182     , FORTRAN_STRLEN
12183 #endif
12184 );
12185 #ifdef LAPACK_FORTRAN_STRLEN_END
12186     #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1)
12187 #else
12188     #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__)
12189 #endif
12190 
12191 #define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU)
12192 void LAPACK_zpbequ_base(
12193     char const* uplo,
12194     lapack_int const* n, lapack_int const* kd,
12195     lapack_complex_double const* AB, lapack_int const* ldab,
12196     double* S,
12197     double* scond,
12198     double* amax,
12199     lapack_int* info
12200 #ifdef LAPACK_FORTRAN_STRLEN_END
12201     , FORTRAN_STRLEN
12202 #endif
12203 );
12204 #ifdef LAPACK_FORTRAN_STRLEN_END
12205     #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1)
12206 #else
12207     #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__)
12208 #endif
12209 
12210 #define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS)
12211 void LAPACK_cpbrfs_base(
12212     char const* uplo,
12213     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12214     lapack_complex_float const* AB, lapack_int const* ldab,
12215     lapack_complex_float const* AFB, lapack_int const* ldafb,
12216     lapack_complex_float const* B, lapack_int const* ldb,
12217     lapack_complex_float* X, lapack_int const* ldx,
12218     float* ferr,
12219     float* berr,
12220     lapack_complex_float* work,
12221     float* rwork,
12222     lapack_int* info
12223 #ifdef LAPACK_FORTRAN_STRLEN_END
12224     , FORTRAN_STRLEN
12225 #endif
12226 );
12227 #ifdef LAPACK_FORTRAN_STRLEN_END
12228     #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1)
12229 #else
12230     #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__)
12231 #endif
12232 
12233 #define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS)
12234 void LAPACK_dpbrfs_base(
12235     char const* uplo,
12236     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12237     double const* AB, lapack_int const* ldab,
12238     double const* AFB, lapack_int const* ldafb,
12239     double const* B, lapack_int const* ldb,
12240     double* X, lapack_int const* ldx,
12241     double* ferr,
12242     double* berr,
12243     double* work,
12244     lapack_int* iwork,
12245     lapack_int* info
12246 #ifdef LAPACK_FORTRAN_STRLEN_END
12247     , FORTRAN_STRLEN
12248 #endif
12249 );
12250 #ifdef LAPACK_FORTRAN_STRLEN_END
12251     #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1)
12252 #else
12253     #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__)
12254 #endif
12255 
12256 #define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS)
12257 void LAPACK_spbrfs_base(
12258     char const* uplo,
12259     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12260     float const* AB, lapack_int const* ldab,
12261     float const* AFB, lapack_int const* ldafb,
12262     float const* B, lapack_int const* ldb,
12263     float* X, lapack_int const* ldx,
12264     float* ferr,
12265     float* berr,
12266     float* work,
12267     lapack_int* iwork,
12268     lapack_int* info
12269 #ifdef LAPACK_FORTRAN_STRLEN_END
12270     , FORTRAN_STRLEN
12271 #endif
12272 );
12273 #ifdef LAPACK_FORTRAN_STRLEN_END
12274     #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1)
12275 #else
12276     #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__)
12277 #endif
12278 
12279 #define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS)
12280 void LAPACK_zpbrfs_base(
12281     char const* uplo,
12282     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12283     lapack_complex_double const* AB, lapack_int const* ldab,
12284     lapack_complex_double const* AFB, lapack_int const* ldafb,
12285     lapack_complex_double const* B, lapack_int const* ldb,
12286     lapack_complex_double* X, lapack_int const* ldx,
12287     double* ferr,
12288     double* berr,
12289     lapack_complex_double* work,
12290     double* rwork,
12291     lapack_int* info
12292 #ifdef LAPACK_FORTRAN_STRLEN_END
12293     , FORTRAN_STRLEN
12294 #endif
12295 );
12296 #ifdef LAPACK_FORTRAN_STRLEN_END
12297     #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1)
12298 #else
12299     #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__)
12300 #endif
12301 
12302 #define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF)
12303 void LAPACK_cpbstf_base(
12304     char const* uplo,
12305     lapack_int const* n, lapack_int const* kd,
12306     lapack_complex_float* AB, lapack_int const* ldab,
12307     lapack_int* info
12308 #ifdef LAPACK_FORTRAN_STRLEN_END
12309     , FORTRAN_STRLEN
12310 #endif
12311 );
12312 #ifdef LAPACK_FORTRAN_STRLEN_END
12313     #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1)
12314 #else
12315     #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__)
12316 #endif
12317 
12318 #define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF)
12319 void LAPACK_dpbstf_base(
12320     char const* uplo,
12321     lapack_int const* n, lapack_int const* kd,
12322     double* AB, lapack_int const* ldab,
12323     lapack_int* info
12324 #ifdef LAPACK_FORTRAN_STRLEN_END
12325     , FORTRAN_STRLEN
12326 #endif
12327 );
12328 #ifdef LAPACK_FORTRAN_STRLEN_END
12329     #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1)
12330 #else
12331     #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__)
12332 #endif
12333 
12334 #define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF)
12335 void LAPACK_spbstf_base(
12336     char const* uplo,
12337     lapack_int const* n, lapack_int const* kd,
12338     float* AB, lapack_int const* ldab,
12339     lapack_int* info
12340 #ifdef LAPACK_FORTRAN_STRLEN_END
12341     , FORTRAN_STRLEN
12342 #endif
12343 );
12344 #ifdef LAPACK_FORTRAN_STRLEN_END
12345     #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1)
12346 #else
12347     #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__)
12348 #endif
12349 
12350 #define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF)
12351 void LAPACK_zpbstf_base(
12352     char const* uplo,
12353     lapack_int const* n, lapack_int const* kd,
12354     lapack_complex_double* AB, lapack_int const* ldab,
12355     lapack_int* info
12356 #ifdef LAPACK_FORTRAN_STRLEN_END
12357     , FORTRAN_STRLEN
12358 #endif
12359 );
12360 #ifdef LAPACK_FORTRAN_STRLEN_END
12361     #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1)
12362 #else
12363     #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__)
12364 #endif
12365 
12366 #define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV)
12367 void LAPACK_cpbsv_base(
12368     char const* uplo,
12369     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12370     lapack_complex_float* AB, lapack_int const* ldab,
12371     lapack_complex_float* B, lapack_int const* ldb,
12372     lapack_int* info
12373 #ifdef LAPACK_FORTRAN_STRLEN_END
12374     , FORTRAN_STRLEN
12375 #endif
12376 );
12377 #ifdef LAPACK_FORTRAN_STRLEN_END
12378     #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1)
12379 #else
12380     #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__)
12381 #endif
12382 
12383 #define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV)
12384 void LAPACK_dpbsv_base(
12385     char const* uplo,
12386     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12387     double* AB, lapack_int const* ldab,
12388     double* B, lapack_int const* ldb,
12389     lapack_int* info
12390 #ifdef LAPACK_FORTRAN_STRLEN_END
12391     , FORTRAN_STRLEN
12392 #endif
12393 );
12394 #ifdef LAPACK_FORTRAN_STRLEN_END
12395     #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1)
12396 #else
12397     #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__)
12398 #endif
12399 
12400 #define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV)
12401 void LAPACK_spbsv_base(
12402     char const* uplo,
12403     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12404     float* AB, lapack_int const* ldab,
12405     float* B, lapack_int const* ldb,
12406     lapack_int* info
12407 #ifdef LAPACK_FORTRAN_STRLEN_END
12408     , FORTRAN_STRLEN
12409 #endif
12410 );
12411 #ifdef LAPACK_FORTRAN_STRLEN_END
12412     #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1)
12413 #else
12414     #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__)
12415 #endif
12416 
12417 #define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV)
12418 void LAPACK_zpbsv_base(
12419     char const* uplo,
12420     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12421     lapack_complex_double* AB, lapack_int const* ldab,
12422     lapack_complex_double* B, lapack_int const* ldb,
12423     lapack_int* info
12424 #ifdef LAPACK_FORTRAN_STRLEN_END
12425     , FORTRAN_STRLEN
12426 #endif
12427 );
12428 #ifdef LAPACK_FORTRAN_STRLEN_END
12429     #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1)
12430 #else
12431     #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__)
12432 #endif
12433 
12434 #define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX)
12435 void LAPACK_cpbsvx_base(
12436     char const* fact, char const* uplo,
12437     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12438     lapack_complex_float* AB, lapack_int const* ldab,
12439     lapack_complex_float* AFB, lapack_int const* ldafb, char* equed,
12440     float* S,
12441     lapack_complex_float* B,
12442     lapack_int const* ldb,
12443     lapack_complex_float* X, lapack_int const* ldx,
12444     float* rcond,
12445     float* ferr,
12446     float* berr,
12447     lapack_complex_float* work,
12448     float* rwork,
12449     lapack_int* info
12450 #ifdef LAPACK_FORTRAN_STRLEN_END
12451     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
12452 #endif
12453 );
12454 #ifdef LAPACK_FORTRAN_STRLEN_END
12455     #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1)
12456 #else
12457     #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__)
12458 #endif
12459 
12460 #define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX)
12461 void LAPACK_dpbsvx_base(
12462     char const* fact, char const* uplo,
12463     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12464     double* AB, lapack_int const* ldab,
12465     double* AFB, lapack_int const* ldafb, char* equed,
12466     double* S,
12467     double* B,
12468     lapack_int const* ldb,
12469     double* X, lapack_int const* ldx,
12470     double* rcond,
12471     double* ferr,
12472     double* berr,
12473     double* work,
12474     lapack_int* iwork,
12475     lapack_int* info
12476 #ifdef LAPACK_FORTRAN_STRLEN_END
12477     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
12478 #endif
12479 );
12480 #ifdef LAPACK_FORTRAN_STRLEN_END
12481     #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1)
12482 #else
12483     #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__)
12484 #endif
12485 
12486 #define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX)
12487 void LAPACK_spbsvx_base(
12488     char const* fact, char const* uplo,
12489     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12490     float* AB, lapack_int const* ldab,
12491     float* AFB, lapack_int const* ldafb, char* equed,
12492     float* S,
12493     float* B,
12494     lapack_int const* ldb,
12495     float* X, lapack_int const* ldx,
12496     float* rcond,
12497     float* ferr,
12498     float* berr,
12499     float* work,
12500     lapack_int* iwork,
12501     lapack_int* info
12502 #ifdef LAPACK_FORTRAN_STRLEN_END
12503     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
12504 #endif
12505 );
12506 #ifdef LAPACK_FORTRAN_STRLEN_END
12507     #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1)
12508 #else
12509     #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__)
12510 #endif
12511 
12512 #define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX)
12513 void LAPACK_zpbsvx_base(
12514     char const* fact, char const* uplo,
12515     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12516     lapack_complex_double* AB, lapack_int const* ldab,
12517     lapack_complex_double* AFB, lapack_int const* ldafb, char* equed,
12518     double* S,
12519     lapack_complex_double* B,
12520     lapack_int const* ldb,
12521     lapack_complex_double* X, lapack_int const* ldx,
12522     double* rcond,
12523     double* ferr,
12524     double* berr,
12525     lapack_complex_double* work,
12526     double* rwork,
12527     lapack_int* info
12528 #ifdef LAPACK_FORTRAN_STRLEN_END
12529     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
12530 #endif
12531 );
12532 #ifdef LAPACK_FORTRAN_STRLEN_END
12533     #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1)
12534 #else
12535     #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__)
12536 #endif
12537 
12538 #define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF)
12539 void LAPACK_cpbtrf_base(
12540     char const* uplo,
12541     lapack_int const* n, lapack_int const* kd,
12542     lapack_complex_float* AB, lapack_int const* ldab,
12543     lapack_int* info
12544 #ifdef LAPACK_FORTRAN_STRLEN_END
12545     , FORTRAN_STRLEN
12546 #endif
12547 );
12548 #ifdef LAPACK_FORTRAN_STRLEN_END
12549     #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1)
12550 #else
12551     #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__)
12552 #endif
12553 
12554 #define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF)
12555 void LAPACK_dpbtrf_base(
12556     char const* uplo,
12557     lapack_int const* n, lapack_int const* kd,
12558     double* AB, lapack_int const* ldab,
12559     lapack_int* info
12560 #ifdef LAPACK_FORTRAN_STRLEN_END
12561     , FORTRAN_STRLEN
12562 #endif
12563 );
12564 #ifdef LAPACK_FORTRAN_STRLEN_END
12565     #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1)
12566 #else
12567     #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__)
12568 #endif
12569 
12570 #define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF)
12571 void LAPACK_spbtrf_base(
12572     char const* uplo,
12573     lapack_int const* n, lapack_int const* kd,
12574     float* AB, lapack_int const* ldab,
12575     lapack_int* info
12576 #ifdef LAPACK_FORTRAN_STRLEN_END
12577     , FORTRAN_STRLEN
12578 #endif
12579 );
12580 #ifdef LAPACK_FORTRAN_STRLEN_END
12581     #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1)
12582 #else
12583     #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__)
12584 #endif
12585 
12586 #define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF)
12587 void LAPACK_zpbtrf_base(
12588     char const* uplo,
12589     lapack_int const* n, lapack_int const* kd,
12590     lapack_complex_double* AB, lapack_int const* ldab,
12591     lapack_int* info
12592 #ifdef LAPACK_FORTRAN_STRLEN_END
12593     , FORTRAN_STRLEN
12594 #endif
12595 );
12596 #ifdef LAPACK_FORTRAN_STRLEN_END
12597     #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1)
12598 #else
12599     #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__)
12600 #endif
12601 
12602 #define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS)
12603 void LAPACK_cpbtrs_base(
12604     char const* uplo,
12605     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12606     lapack_complex_float const* AB, lapack_int const* ldab,
12607     lapack_complex_float* B, lapack_int const* ldb,
12608     lapack_int* info
12609 #ifdef LAPACK_FORTRAN_STRLEN_END
12610     , FORTRAN_STRLEN
12611 #endif
12612 );
12613 #ifdef LAPACK_FORTRAN_STRLEN_END
12614     #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1)
12615 #else
12616     #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__)
12617 #endif
12618 
12619 #define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS)
12620 void LAPACK_dpbtrs_base(
12621     char const* uplo,
12622     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12623     double const* AB, lapack_int const* ldab,
12624     double* B, lapack_int const* ldb,
12625     lapack_int* info
12626 #ifdef LAPACK_FORTRAN_STRLEN_END
12627     , FORTRAN_STRLEN
12628 #endif
12629 );
12630 #ifdef LAPACK_FORTRAN_STRLEN_END
12631     #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1)
12632 #else
12633     #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__)
12634 #endif
12635 
12636 #define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS)
12637 void LAPACK_spbtrs_base(
12638     char const* uplo,
12639     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12640     float const* AB, lapack_int const* ldab,
12641     float* B, lapack_int const* ldb,
12642     lapack_int* info
12643 #ifdef LAPACK_FORTRAN_STRLEN_END
12644     , FORTRAN_STRLEN
12645 #endif
12646 );
12647 #ifdef LAPACK_FORTRAN_STRLEN_END
12648     #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1)
12649 #else
12650     #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__)
12651 #endif
12652 
12653 #define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS)
12654 void LAPACK_zpbtrs_base(
12655     char const* uplo,
12656     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12657     lapack_complex_double const* AB, lapack_int const* ldab,
12658     lapack_complex_double* B, lapack_int const* ldb,
12659     lapack_int* info
12660 #ifdef LAPACK_FORTRAN_STRLEN_END
12661     , FORTRAN_STRLEN
12662 #endif
12663 );
12664 #ifdef LAPACK_FORTRAN_STRLEN_END
12665     #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1)
12666 #else
12667     #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__)
12668 #endif
12669 
12670 #define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF)
12671 void LAPACK_cpftrf_base(
12672     char const* transr, char const* uplo,
12673     lapack_int const* n,
12674     lapack_complex_float* A,
12675     lapack_int* info
12676 #ifdef LAPACK_FORTRAN_STRLEN_END
12677     , FORTRAN_STRLEN, FORTRAN_STRLEN
12678 #endif
12679 );
12680 #ifdef LAPACK_FORTRAN_STRLEN_END
12681     #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1)
12682 #else
12683     #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__)
12684 #endif
12685 
12686 #define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF)
12687 void LAPACK_dpftrf_base(
12688     char const* transr, char const* uplo,
12689     lapack_int const* n,
12690     double* A,
12691     lapack_int* info
12692 #ifdef LAPACK_FORTRAN_STRLEN_END
12693     , FORTRAN_STRLEN, FORTRAN_STRLEN
12694 #endif
12695 );
12696 #ifdef LAPACK_FORTRAN_STRLEN_END
12697     #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1)
12698 #else
12699     #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__)
12700 #endif
12701 
12702 #define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF)
12703 void LAPACK_spftrf_base(
12704     char const* transr, char const* uplo,
12705     lapack_int const* n,
12706     float* A,
12707     lapack_int* info
12708 #ifdef LAPACK_FORTRAN_STRLEN_END
12709     , FORTRAN_STRLEN, FORTRAN_STRLEN
12710 #endif
12711 );
12712 #ifdef LAPACK_FORTRAN_STRLEN_END
12713     #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1)
12714 #else
12715     #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__)
12716 #endif
12717 
12718 #define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF)
12719 void LAPACK_zpftrf_base(
12720     char const* transr, char const* uplo,
12721     lapack_int const* n,
12722     lapack_complex_double* A,
12723     lapack_int* info
12724 #ifdef LAPACK_FORTRAN_STRLEN_END
12725     , FORTRAN_STRLEN, FORTRAN_STRLEN
12726 #endif
12727 );
12728 #ifdef LAPACK_FORTRAN_STRLEN_END
12729     #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1)
12730 #else
12731     #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__)
12732 #endif
12733 
12734 #define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI)
12735 void LAPACK_cpftri_base(
12736     char const* transr, char const* uplo,
12737     lapack_int const* n,
12738     lapack_complex_float* A,
12739     lapack_int* info
12740 #ifdef LAPACK_FORTRAN_STRLEN_END
12741     , FORTRAN_STRLEN, FORTRAN_STRLEN
12742 #endif
12743 );
12744 #ifdef LAPACK_FORTRAN_STRLEN_END
12745     #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1)
12746 #else
12747     #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__)
12748 #endif
12749 
12750 #define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI)
12751 void LAPACK_dpftri_base(
12752     char const* transr, char const* uplo,
12753     lapack_int const* n,
12754     double* A,
12755     lapack_int* info
12756 #ifdef LAPACK_FORTRAN_STRLEN_END
12757     , FORTRAN_STRLEN, FORTRAN_STRLEN
12758 #endif
12759 );
12760 #ifdef LAPACK_FORTRAN_STRLEN_END
12761     #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1)
12762 #else
12763     #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__)
12764 #endif
12765 
12766 #define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI)
12767 void LAPACK_spftri_base(
12768     char const* transr, char const* uplo,
12769     lapack_int const* n,
12770     float* A,
12771     lapack_int* info
12772 #ifdef LAPACK_FORTRAN_STRLEN_END
12773     , FORTRAN_STRLEN, FORTRAN_STRLEN
12774 #endif
12775 );
12776 #ifdef LAPACK_FORTRAN_STRLEN_END
12777     #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1)
12778 #else
12779     #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__)
12780 #endif
12781 
12782 #define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI)
12783 void LAPACK_zpftri_base(
12784     char const* transr, char const* uplo,
12785     lapack_int const* n,
12786     lapack_complex_double* A,
12787     lapack_int* info
12788 #ifdef LAPACK_FORTRAN_STRLEN_END
12789     , FORTRAN_STRLEN, FORTRAN_STRLEN
12790 #endif
12791 );
12792 #ifdef LAPACK_FORTRAN_STRLEN_END
12793     #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1)
12794 #else
12795     #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__)
12796 #endif
12797 
12798 #define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS)
12799 void LAPACK_cpftrs_base(
12800     char const* transr, char const* uplo,
12801     lapack_int const* n, lapack_int const* nrhs,
12802     lapack_complex_float const* A,
12803     lapack_complex_float* B, lapack_int const* ldb,
12804     lapack_int* info
12805 #ifdef LAPACK_FORTRAN_STRLEN_END
12806     , FORTRAN_STRLEN, FORTRAN_STRLEN
12807 #endif
12808 );
12809 #ifdef LAPACK_FORTRAN_STRLEN_END
12810     #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1)
12811 #else
12812     #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__)
12813 #endif
12814 
12815 #define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS)
12816 void LAPACK_dpftrs_base(
12817     char const* transr, char const* uplo,
12818     lapack_int const* n, lapack_int const* nrhs,
12819     double const* A,
12820     double* B, lapack_int const* ldb,
12821     lapack_int* info
12822 #ifdef LAPACK_FORTRAN_STRLEN_END
12823     , FORTRAN_STRLEN, FORTRAN_STRLEN
12824 #endif
12825 );
12826 #ifdef LAPACK_FORTRAN_STRLEN_END
12827     #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1)
12828 #else
12829     #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__)
12830 #endif
12831 
12832 #define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS)
12833 void LAPACK_spftrs_base(
12834     char const* transr, char const* uplo,
12835     lapack_int const* n, lapack_int const* nrhs,
12836     float const* A,
12837     float* B, lapack_int const* ldb,
12838     lapack_int* info
12839 #ifdef LAPACK_FORTRAN_STRLEN_END
12840     , FORTRAN_STRLEN, FORTRAN_STRLEN
12841 #endif
12842 );
12843 #ifdef LAPACK_FORTRAN_STRLEN_END
12844     #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1)
12845 #else
12846     #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__)
12847 #endif
12848 
12849 #define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS)
12850 void LAPACK_zpftrs_base(
12851     char const* transr, char const* uplo,
12852     lapack_int const* n, lapack_int const* nrhs,
12853     lapack_complex_double const* A,
12854     lapack_complex_double* B, lapack_int const* ldb,
12855     lapack_int* info
12856 #ifdef LAPACK_FORTRAN_STRLEN_END
12857     , FORTRAN_STRLEN, FORTRAN_STRLEN
12858 #endif
12859 );
12860 #ifdef LAPACK_FORTRAN_STRLEN_END
12861     #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1)
12862 #else
12863     #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__)
12864 #endif
12865 
12866 #define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON)
12867 void LAPACK_cpocon_base(
12868     char const* uplo,
12869     lapack_int const* n,
12870     lapack_complex_float const* A, lapack_int const* lda,
12871     float const* anorm,
12872     float* rcond,
12873     lapack_complex_float* work,
12874     float* rwork,
12875     lapack_int* info
12876 #ifdef LAPACK_FORTRAN_STRLEN_END
12877     , FORTRAN_STRLEN
12878 #endif
12879 );
12880 #ifdef LAPACK_FORTRAN_STRLEN_END
12881     #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1)
12882 #else
12883     #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__)
12884 #endif
12885 
12886 #define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON)
12887 void LAPACK_dpocon_base(
12888     char const* uplo,
12889     lapack_int const* n,
12890     double const* A, lapack_int const* lda,
12891     double const* anorm,
12892     double* rcond,
12893     double* work,
12894     lapack_int* iwork,
12895     lapack_int* info
12896 #ifdef LAPACK_FORTRAN_STRLEN_END
12897     , FORTRAN_STRLEN
12898 #endif
12899 );
12900 #ifdef LAPACK_FORTRAN_STRLEN_END
12901     #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1)
12902 #else
12903     #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__)
12904 #endif
12905 
12906 #define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON)
12907 void LAPACK_spocon_base(
12908     char const* uplo,
12909     lapack_int const* n,
12910     float const* A, lapack_int const* lda,
12911     float const* anorm,
12912     float* rcond,
12913     float* work,
12914     lapack_int* iwork,
12915     lapack_int* info
12916 #ifdef LAPACK_FORTRAN_STRLEN_END
12917     , FORTRAN_STRLEN
12918 #endif
12919 );
12920 #ifdef LAPACK_FORTRAN_STRLEN_END
12921     #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1)
12922 #else
12923     #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__)
12924 #endif
12925 
12926 #define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON)
12927 void LAPACK_zpocon_base(
12928     char const* uplo,
12929     lapack_int const* n,
12930     lapack_complex_double const* A, lapack_int const* lda,
12931     double const* anorm,
12932     double* rcond,
12933     lapack_complex_double* work,
12934     double* rwork,
12935     lapack_int* info
12936 #ifdef LAPACK_FORTRAN_STRLEN_END
12937     , FORTRAN_STRLEN
12938 #endif
12939 );
12940 #ifdef LAPACK_FORTRAN_STRLEN_END
12941     #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1)
12942 #else
12943     #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__)
12944 #endif
12945 
12946 #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
12947 void LAPACK_cpoequ(
12948     lapack_int const* n,
12949     lapack_complex_float const* A, lapack_int const* lda,
12950     float* S,
12951     float* scond,
12952     float* amax,
12953     lapack_int* info );
12954 
12955 #define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
12956 void LAPACK_dpoequ(
12957     lapack_int const* n,
12958     double const* A, lapack_int const* lda,
12959     double* S,
12960     double* scond,
12961     double* amax,
12962     lapack_int* info );
12963 
12964 #define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
12965 void LAPACK_spoequ(
12966     lapack_int const* n,
12967     float const* A, lapack_int const* lda,
12968     float* S,
12969     float* scond,
12970     float* amax,
12971     lapack_int* info );
12972 
12973 #define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
12974 void LAPACK_zpoequ(
12975     lapack_int const* n,
12976     lapack_complex_double const* A, lapack_int const* lda,
12977     double* S,
12978     double* scond,
12979     double* amax,
12980     lapack_int* info );
12981 
12982 #define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
12983 void LAPACK_cpoequb(
12984     lapack_int const* n,
12985     lapack_complex_float const* A, lapack_int const* lda,
12986     float* S,
12987     float* scond,
12988     float* amax,
12989     lapack_int* info );
12990 
12991 #define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
12992 void LAPACK_dpoequb(
12993     lapack_int const* n,
12994     double const* A, lapack_int const* lda,
12995     double* S,
12996     double* scond,
12997     double* amax,
12998     lapack_int* info );
12999 
13000 #define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
13001 void LAPACK_spoequb(
13002     lapack_int const* n,
13003     float const* A, lapack_int const* lda,
13004     float* S,
13005     float* scond,
13006     float* amax,
13007     lapack_int* info );
13008 
13009 #define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
13010 void LAPACK_zpoequb(
13011     lapack_int const* n,
13012     lapack_complex_double const* A, lapack_int const* lda,
13013     double* S,
13014     double* scond,
13015     double* amax,
13016     lapack_int* info );
13017 
13018 #define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS)
13019 void LAPACK_cporfs_base(
13020     char const* uplo,
13021     lapack_int const* n, lapack_int const* nrhs,
13022     lapack_complex_float const* A, lapack_int const* lda,
13023     lapack_complex_float const* AF, lapack_int const* ldaf,
13024     lapack_complex_float const* B, lapack_int const* ldb,
13025     lapack_complex_float* X, lapack_int const* ldx,
13026     float* ferr,
13027     float* berr,
13028     lapack_complex_float* work,
13029     float* rwork,
13030     lapack_int* info
13031 #ifdef LAPACK_FORTRAN_STRLEN_END
13032     , FORTRAN_STRLEN
13033 #endif
13034 );
13035 #ifdef LAPACK_FORTRAN_STRLEN_END
13036     #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1)
13037 #else
13038     #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__)
13039 #endif
13040 
13041 #define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS)
13042 void LAPACK_dporfs_base(
13043     char const* uplo,
13044     lapack_int const* n, lapack_int const* nrhs,
13045     double const* A, lapack_int const* lda,
13046     double const* AF, lapack_int const* ldaf,
13047     double const* B, lapack_int const* ldb,
13048     double* X, lapack_int const* ldx,
13049     double* ferr,
13050     double* berr,
13051     double* work,
13052     lapack_int* iwork,
13053     lapack_int* info
13054 #ifdef LAPACK_FORTRAN_STRLEN_END
13055     , FORTRAN_STRLEN
13056 #endif
13057 );
13058 #ifdef LAPACK_FORTRAN_STRLEN_END
13059     #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1)
13060 #else
13061     #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__)
13062 #endif
13063 
13064 #define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS)
13065 void LAPACK_sporfs_base(
13066     char const* uplo,
13067     lapack_int const* n, lapack_int const* nrhs,
13068     float const* A, lapack_int const* lda,
13069     float const* AF, lapack_int const* ldaf,
13070     float const* B, lapack_int const* ldb,
13071     float* X, lapack_int const* ldx,
13072     float* ferr,
13073     float* berr,
13074     float* work,
13075     lapack_int* iwork,
13076     lapack_int* info
13077 #ifdef LAPACK_FORTRAN_STRLEN_END
13078     , FORTRAN_STRLEN
13079 #endif
13080 );
13081 #ifdef LAPACK_FORTRAN_STRLEN_END
13082     #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1)
13083 #else
13084     #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__)
13085 #endif
13086 
13087 #define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS)
13088 void LAPACK_zporfs_base(
13089     char const* uplo,
13090     lapack_int const* n, lapack_int const* nrhs,
13091     lapack_complex_double const* A, lapack_int const* lda,
13092     lapack_complex_double const* AF, lapack_int const* ldaf,
13093     lapack_complex_double const* B, lapack_int const* ldb,
13094     lapack_complex_double* X, lapack_int const* ldx,
13095     double* ferr,
13096     double* berr,
13097     lapack_complex_double* work,
13098     double* rwork,
13099     lapack_int* info
13100 #ifdef LAPACK_FORTRAN_STRLEN_END
13101     , FORTRAN_STRLEN
13102 #endif
13103 );
13104 #ifdef LAPACK_FORTRAN_STRLEN_END
13105     #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1)
13106 #else
13107     #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__)
13108 #endif
13109 
13110 #define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX)
13111 void LAPACK_cporfsx_base(
13112     char const* uplo, char const* equed,
13113     lapack_int const* n, lapack_int const* nrhs,
13114     lapack_complex_float const* A, lapack_int const* lda,
13115     lapack_complex_float const* AF, lapack_int const* ldaf,
13116     const float* S,
13117     lapack_complex_float const* B, lapack_int const* ldb,
13118     lapack_complex_float* X, lapack_int const* ldx,
13119     float* rcond,
13120     float* berr, lapack_int const* n_err_bnds,
13121     float* err_bnds_norm,
13122     float* err_bnds_comp, lapack_int const* nparams,
13123     float* params,
13124     lapack_complex_float* work,
13125     float* rwork,
13126     lapack_int* info
13127 #ifdef LAPACK_FORTRAN_STRLEN_END
13128     , FORTRAN_STRLEN, FORTRAN_STRLEN
13129 #endif
13130 );
13131 #ifdef LAPACK_FORTRAN_STRLEN_END
13132     #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1)
13133 #else
13134     #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__)
13135 #endif
13136 
13137 #define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX)
13138 void LAPACK_dporfsx_base(
13139     char const* uplo, char const* equed,
13140     lapack_int const* n, lapack_int const* nrhs,
13141     double const* A, lapack_int const* lda,
13142     double const* AF, lapack_int const* ldaf,
13143     const double* S,
13144     double const* B, lapack_int const* ldb,
13145     double* X, lapack_int const* ldx,
13146     double* rcond,
13147     double* berr, lapack_int const* n_err_bnds,
13148     double* err_bnds_norm,
13149     double* err_bnds_comp, lapack_int const* nparams,
13150     double* params,
13151     double* work,
13152     lapack_int* iwork,
13153     lapack_int* info
13154 #ifdef LAPACK_FORTRAN_STRLEN_END
13155     , FORTRAN_STRLEN, FORTRAN_STRLEN
13156 #endif
13157 );
13158 #ifdef LAPACK_FORTRAN_STRLEN_END
13159     #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1)
13160 #else
13161     #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__)
13162 #endif
13163 
13164 #define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX)
13165 void LAPACK_sporfsx_base(
13166     char const* uplo, char const* equed,
13167     lapack_int const* n, lapack_int const* nrhs,
13168     float const* A, lapack_int const* lda,
13169     float const* AF, lapack_int const* ldaf,
13170     const float* S,
13171     float const* B, lapack_int const* ldb,
13172     float* X, lapack_int const* ldx,
13173     float* rcond,
13174     float* berr, lapack_int const* n_err_bnds,
13175     float* err_bnds_norm,
13176     float* err_bnds_comp, lapack_int const* nparams,
13177     float* params,
13178     float* work,
13179     lapack_int* iwork,
13180     lapack_int* info
13181 #ifdef LAPACK_FORTRAN_STRLEN_END
13182     , FORTRAN_STRLEN, FORTRAN_STRLEN
13183 #endif
13184 );
13185 #ifdef LAPACK_FORTRAN_STRLEN_END
13186     #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1)
13187 #else
13188     #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__)
13189 #endif
13190 
13191 #define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX)
13192 void LAPACK_zporfsx_base(
13193     char const* uplo, char const* equed,
13194     lapack_int const* n, lapack_int const* nrhs,
13195     lapack_complex_double const* A, lapack_int const* lda,
13196     lapack_complex_double const* AF, lapack_int const* ldaf,
13197     const double* S,
13198     lapack_complex_double const* B, lapack_int const* ldb,
13199     lapack_complex_double* X, lapack_int const* ldx,
13200     double* rcond,
13201     double* berr, lapack_int const* n_err_bnds,
13202     double* err_bnds_norm,
13203     double* err_bnds_comp, lapack_int const* nparams,
13204     double* params,
13205     lapack_complex_double* work,
13206     double* rwork,
13207     lapack_int* info
13208 #ifdef LAPACK_FORTRAN_STRLEN_END
13209     , FORTRAN_STRLEN, FORTRAN_STRLEN
13210 #endif
13211 );
13212 #ifdef LAPACK_FORTRAN_STRLEN_END
13213     #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1)
13214 #else
13215     #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__)
13216 #endif
13217 
13218 #define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV)
13219 void LAPACK_cposv_base(
13220     char const* uplo,
13221     lapack_int const* n, lapack_int const* nrhs,
13222     lapack_complex_float* A, lapack_int const* lda,
13223     lapack_complex_float* B, lapack_int const* ldb,
13224     lapack_int* info
13225 #ifdef LAPACK_FORTRAN_STRLEN_END
13226     , FORTRAN_STRLEN
13227 #endif
13228 );
13229 #ifdef LAPACK_FORTRAN_STRLEN_END
13230     #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1)
13231 #else
13232     #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__)
13233 #endif
13234 
13235 #define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV)
13236 void LAPACK_dposv_base(
13237     char const* uplo,
13238     lapack_int const* n, lapack_int const* nrhs,
13239     double* A, lapack_int const* lda,
13240     double* B, lapack_int const* ldb,
13241     lapack_int* info
13242 #ifdef LAPACK_FORTRAN_STRLEN_END
13243     , FORTRAN_STRLEN
13244 #endif
13245 );
13246 #ifdef LAPACK_FORTRAN_STRLEN_END
13247     #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1)
13248 #else
13249     #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__)
13250 #endif
13251 
13252 #define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV)
13253 void LAPACK_sposv_base(
13254     char const* uplo,
13255     lapack_int const* n, lapack_int const* nrhs,
13256     float* A, lapack_int const* lda,
13257     float* B, lapack_int const* ldb,
13258     lapack_int* info
13259 #ifdef LAPACK_FORTRAN_STRLEN_END
13260     , FORTRAN_STRLEN
13261 #endif
13262 );
13263 #ifdef LAPACK_FORTRAN_STRLEN_END
13264     #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1)
13265 #else
13266     #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__)
13267 #endif
13268 
13269 #define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV)
13270 void LAPACK_zposv_base(
13271     char const* uplo,
13272     lapack_int const* n, lapack_int const* nrhs,
13273     lapack_complex_double* A, lapack_int const* lda,
13274     lapack_complex_double* B, lapack_int const* ldb,
13275     lapack_int* info
13276 #ifdef LAPACK_FORTRAN_STRLEN_END
13277     , FORTRAN_STRLEN
13278 #endif
13279 );
13280 #ifdef LAPACK_FORTRAN_STRLEN_END
13281     #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1)
13282 #else
13283     #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__)
13284 #endif
13285 
13286 #define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV)
13287 void LAPACK_dsposv_base(
13288     char const* uplo,
13289     lapack_int const* n, lapack_int const* nrhs,
13290     double* A, lapack_int const* lda,
13291     double const* B, lapack_int const* ldb,
13292     double* X, lapack_int const* ldx,
13293     double* work,
13294     float* swork, lapack_int* iter,
13295     lapack_int* info
13296 #ifdef LAPACK_FORTRAN_STRLEN_END
13297     , FORTRAN_STRLEN
13298 #endif
13299 );
13300 #ifdef LAPACK_FORTRAN_STRLEN_END
13301     #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1)
13302 #else
13303     #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__)
13304 #endif
13305 
13306 #define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV)
13307 void LAPACK_zcposv_base(
13308     char const* uplo,
13309     lapack_int const* n, lapack_int const* nrhs,
13310     lapack_complex_double* A, lapack_int const* lda,
13311     lapack_complex_double const* B, lapack_int const* ldb,
13312     lapack_complex_double* X, lapack_int const* ldx,
13313     lapack_complex_double* work,
13314     lapack_complex_float* swork,
13315     double* rwork, lapack_int* iter,
13316     lapack_int* info
13317 #ifdef LAPACK_FORTRAN_STRLEN_END
13318     , FORTRAN_STRLEN
13319 #endif
13320 );
13321 #ifdef LAPACK_FORTRAN_STRLEN_END
13322     #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1)
13323 #else
13324     #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__)
13325 #endif
13326 
13327 #define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX)
13328 void LAPACK_cposvx_base(
13329     char const* fact, char const* uplo,
13330     lapack_int const* n, lapack_int const* nrhs,
13331     lapack_complex_float* A, lapack_int const* lda,
13332     lapack_complex_float* AF, lapack_int const* ldaf, char* equed,
13333     float* S,
13334     lapack_complex_float* B,
13335     lapack_int const* ldb,
13336     lapack_complex_float* X, lapack_int const* ldx,
13337     float* rcond,
13338     float* ferr,
13339     float* berr,
13340     lapack_complex_float* work,
13341     float* rwork,
13342     lapack_int* info
13343 #ifdef LAPACK_FORTRAN_STRLEN_END
13344     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13345 #endif
13346 );
13347 #ifdef LAPACK_FORTRAN_STRLEN_END
13348     #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1)
13349 #else
13350     #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__)
13351 #endif
13352 
13353 #define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX)
13354 void LAPACK_dposvx_base(
13355     char const* fact, char const* uplo,
13356     lapack_int const* n, lapack_int const* nrhs,
13357     double* A, lapack_int const* lda,
13358     double* AF, lapack_int const* ldaf, char* equed,
13359     double* S,
13360     double* B,
13361     lapack_int const* ldb,
13362     double* X, lapack_int const* ldx,
13363     double* rcond,
13364     double* ferr,
13365     double* berr,
13366     double* work,
13367     lapack_int* iwork,
13368     lapack_int* info
13369 #ifdef LAPACK_FORTRAN_STRLEN_END
13370     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13371 #endif
13372 );
13373 #ifdef LAPACK_FORTRAN_STRLEN_END
13374     #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1)
13375 #else
13376     #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__)
13377 #endif
13378 
13379 #define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX)
13380 void LAPACK_sposvx_base(
13381     char const* fact, char const* uplo,
13382     lapack_int const* n, lapack_int const* nrhs,
13383     float* A, lapack_int const* lda,
13384     float* AF, lapack_int const* ldaf, char* equed,
13385     float* S,
13386     float* B,
13387     lapack_int const* ldb,
13388     float* X, lapack_int const* ldx,
13389     float* rcond,
13390     float* ferr,
13391     float* berr,
13392     float* work,
13393     lapack_int* iwork,
13394     lapack_int* info
13395 #ifdef LAPACK_FORTRAN_STRLEN_END
13396     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13397 #endif
13398 );
13399 #ifdef LAPACK_FORTRAN_STRLEN_END
13400     #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1)
13401 #else
13402     #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__)
13403 #endif
13404 
13405 #define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX)
13406 void LAPACK_zposvx_base(
13407     char const* fact, char const* uplo,
13408     lapack_int const* n, lapack_int const* nrhs,
13409     lapack_complex_double* A, lapack_int const* lda,
13410     lapack_complex_double* AF, lapack_int const* ldaf, char* equed,
13411     double* S,
13412     lapack_complex_double* B,
13413     lapack_int const* ldb,
13414     lapack_complex_double* X, lapack_int const* ldx,
13415     double* rcond,
13416     double* ferr,
13417     double* berr,
13418     lapack_complex_double* work,
13419     double* rwork,
13420     lapack_int* info
13421 #ifdef LAPACK_FORTRAN_STRLEN_END
13422     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13423 #endif
13424 );
13425 #ifdef LAPACK_FORTRAN_STRLEN_END
13426     #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1)
13427 #else
13428     #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__)
13429 #endif
13430 
13431 #define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX)
13432 void LAPACK_cposvxx_base(
13433     char const* fact, char const* uplo,
13434     lapack_int const* n, lapack_int const* nrhs,
13435     lapack_complex_float* A, lapack_int const* lda,
13436     lapack_complex_float* AF, lapack_int const* ldaf, char* equed,
13437     float* S,
13438     lapack_complex_float* B,
13439     lapack_int const* ldb,
13440     lapack_complex_float* X, lapack_int const* ldx,
13441     float* rcond,
13442     float* rpvgrw,
13443     float* berr, lapack_int const* n_err_bnds,
13444     float* err_bnds_norm,
13445     float* err_bnds_comp, lapack_int const* nparams,
13446     float* params,
13447     lapack_complex_float* work,
13448     float* rwork,
13449     lapack_int* info
13450 #ifdef LAPACK_FORTRAN_STRLEN_END
13451     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13452 #endif
13453 );
13454 #ifdef LAPACK_FORTRAN_STRLEN_END
13455     #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1)
13456 #else
13457     #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__)
13458 #endif
13459 
13460 #define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX)
13461 void LAPACK_dposvxx_base(
13462     char const* fact, char const* uplo,
13463     lapack_int const* n, lapack_int const* nrhs,
13464     double* A, lapack_int const* lda,
13465     double* AF, lapack_int const* ldaf, char* equed,
13466     double* S,
13467     double* B,
13468     lapack_int const* ldb,
13469     double* X, lapack_int const* ldx,
13470     double* rcond,
13471     double* rpvgrw,
13472     double* berr, lapack_int const* n_err_bnds,
13473     double* err_bnds_norm,
13474     double* err_bnds_comp, lapack_int const* nparams,
13475     double* params,
13476     double* work,
13477     lapack_int* iwork,
13478     lapack_int* info
13479 #ifdef LAPACK_FORTRAN_STRLEN_END
13480     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13481 #endif
13482 );
13483 #ifdef LAPACK_FORTRAN_STRLEN_END
13484     #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1)
13485 #else
13486     #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__)
13487 #endif
13488 
13489 #define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX)
13490 void LAPACK_sposvxx_base(
13491     char const* fact, char const* uplo,
13492     lapack_int const* n, lapack_int const* nrhs,
13493     float* A, lapack_int const* lda,
13494     float* AF, lapack_int const* ldaf, char* equed,
13495     float* S,
13496     float* B,
13497     lapack_int const* ldb,
13498     float* X, lapack_int const* ldx,
13499     float* rcond,
13500     float* rpvgrw,
13501     float* berr, lapack_int const* n_err_bnds,
13502     float* err_bnds_norm,
13503     float* err_bnds_comp, lapack_int const* nparams,
13504     float* params,
13505     float* work,
13506     lapack_int* iwork,
13507     lapack_int* info
13508 #ifdef LAPACK_FORTRAN_STRLEN_END
13509     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13510 #endif
13511 );
13512 #ifdef LAPACK_FORTRAN_STRLEN_END
13513     #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1)
13514 #else
13515     #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__)
13516 #endif
13517 
13518 #define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX)
13519 void LAPACK_zposvxx_base(
13520     char const* fact, char const* uplo,
13521     lapack_int const* n, lapack_int const* nrhs,
13522     lapack_complex_double* A, lapack_int const* lda,
13523     lapack_complex_double* AF, lapack_int const* ldaf, char* equed,
13524     double* S,
13525     lapack_complex_double* B,
13526     lapack_int const* ldb,
13527     lapack_complex_double* X, lapack_int const* ldx,
13528     double* rcond,
13529     double* rpvgrw,
13530     double* berr, lapack_int const* n_err_bnds,
13531     double* err_bnds_norm,
13532     double* err_bnds_comp, lapack_int const* nparams,
13533     double* params,
13534     lapack_complex_double* work,
13535     double* rwork,
13536     lapack_int* info
13537 #ifdef LAPACK_FORTRAN_STRLEN_END
13538     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
13539 #endif
13540 );
13541 #ifdef LAPACK_FORTRAN_STRLEN_END
13542     #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1)
13543 #else
13544     #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__)
13545 #endif
13546 
13547 #define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2)
13548 void LAPACK_cpotf2_base(
13549     char const* uplo,
13550     lapack_int const* n,
13551     lapack_complex_float* A, lapack_int const* lda,
13552     lapack_int* info
13553 #ifdef LAPACK_FORTRAN_STRLEN_END
13554     , FORTRAN_STRLEN
13555 #endif
13556 );
13557 #ifdef LAPACK_FORTRAN_STRLEN_END
13558     #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1)
13559 #else
13560     #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__)
13561 #endif
13562 
13563 #define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2)
13564 void LAPACK_dpotf2_base(
13565     char const* uplo,
13566     lapack_int const* n,
13567     double* A, lapack_int const* lda,
13568     lapack_int* info
13569 #ifdef LAPACK_FORTRAN_STRLEN_END
13570     , FORTRAN_STRLEN
13571 #endif
13572 );
13573 #ifdef LAPACK_FORTRAN_STRLEN_END
13574     #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1)
13575 #else
13576     #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__)
13577 #endif
13578 
13579 #define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2)
13580 void LAPACK_spotf2_base(
13581     char const* uplo,
13582     lapack_int const* n,
13583     float* A, lapack_int const* lda,
13584     lapack_int* info
13585 #ifdef LAPACK_FORTRAN_STRLEN_END
13586     , FORTRAN_STRLEN
13587 #endif
13588 );
13589 #ifdef LAPACK_FORTRAN_STRLEN_END
13590     #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1)
13591 #else
13592     #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__)
13593 #endif
13594 
13595 #define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2)
13596 void LAPACK_zpotf2_base(
13597     char const* uplo,
13598     lapack_int const* n,
13599     lapack_complex_double* A, lapack_int const* lda,
13600     lapack_int* info
13601 #ifdef LAPACK_FORTRAN_STRLEN_END
13602     , FORTRAN_STRLEN
13603 #endif
13604 );
13605 #ifdef LAPACK_FORTRAN_STRLEN_END
13606     #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1)
13607 #else
13608     #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__)
13609 #endif
13610 
13611 #define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
13612 lapack_int LAPACK_cpotrf_base(
13613     char const* uplo,
13614     lapack_int const* n,
13615     lapack_complex_float* A, lapack_int const* lda,
13616     lapack_int* info
13617 #ifdef LAPACK_FORTRAN_STRLEN_END
13618     , FORTRAN_STRLEN
13619 #endif
13620 );
13621 #ifdef LAPACK_FORTRAN_STRLEN_END
13622     #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1)
13623 #else
13624     #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__)
13625 #endif
13626 
13627 #define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
13628 lapack_int LAPACK_dpotrf_base(
13629     char const* uplo,
13630     lapack_int const* n,
13631     double* A, lapack_int const* lda,
13632     lapack_int* info
13633 #ifdef LAPACK_FORTRAN_STRLEN_END
13634     , FORTRAN_STRLEN
13635 #endif
13636 );
13637 #ifdef LAPACK_FORTRAN_STRLEN_END
13638     #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1)
13639 #else
13640     #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__)
13641 #endif
13642 
13643 #define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
13644 lapack_int LAPACK_spotrf_base(
13645     char const* uplo,
13646     lapack_int const* n,
13647     float* A, lapack_int const* lda,
13648     lapack_int* info
13649 #ifdef LAPACK_FORTRAN_STRLEN_END
13650     , FORTRAN_STRLEN
13651 #endif
13652 );
13653 #ifdef LAPACK_FORTRAN_STRLEN_END
13654     #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1)
13655 #else
13656     #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__)
13657 #endif
13658 
13659 #define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
13660 lapack_int LAPACK_zpotrf_base(
13661     char const* uplo,
13662     lapack_int const* n,
13663     lapack_complex_double* A, lapack_int const* lda,
13664     lapack_int* info
13665 #ifdef LAPACK_FORTRAN_STRLEN_END
13666     , FORTRAN_STRLEN
13667 #endif
13668 );
13669 #ifdef LAPACK_FORTRAN_STRLEN_END
13670     #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1)
13671 #else
13672     #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__)
13673 #endif
13674 
13675 #define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2)
13676 void LAPACK_cpotrf2_base(
13677     char const* uplo,
13678     lapack_int const* n,
13679     lapack_complex_float* A, lapack_int const* lda,
13680     lapack_int* info
13681 #ifdef LAPACK_FORTRAN_STRLEN_END
13682     , FORTRAN_STRLEN
13683 #endif
13684 );
13685 #ifdef LAPACK_FORTRAN_STRLEN_END
13686     #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1)
13687 #else
13688     #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__)
13689 #endif
13690 
13691 #define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2)
13692 void LAPACK_dpotrf2_base(
13693     char const* uplo,
13694     lapack_int const* n,
13695     double* A, lapack_int const* lda,
13696     lapack_int* info
13697 #ifdef LAPACK_FORTRAN_STRLEN_END
13698     , FORTRAN_STRLEN
13699 #endif
13700 );
13701 #ifdef LAPACK_FORTRAN_STRLEN_END
13702     #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1)
13703 #else
13704     #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__)
13705 #endif
13706 
13707 #define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2)
13708 void LAPACK_spotrf2_base(
13709     char const* uplo,
13710     lapack_int const* n,
13711     float* A, lapack_int const* lda,
13712     lapack_int* info
13713 #ifdef LAPACK_FORTRAN_STRLEN_END
13714     , FORTRAN_STRLEN
13715 #endif
13716 );
13717 #ifdef LAPACK_FORTRAN_STRLEN_END
13718     #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1)
13719 #else
13720     #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__)
13721 #endif
13722 
13723 #define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2)
13724 void LAPACK_zpotrf2_base(
13725     char const* uplo,
13726     lapack_int const* n,
13727     lapack_complex_double* A, lapack_int const* lda,
13728     lapack_int* info
13729 #ifdef LAPACK_FORTRAN_STRLEN_END
13730     , FORTRAN_STRLEN
13731 #endif
13732 );
13733 #ifdef LAPACK_FORTRAN_STRLEN_END
13734     #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1)
13735 #else
13736     #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__)
13737 #endif
13738 
13739 #define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI)
13740 void LAPACK_cpotri_base(
13741     char const* uplo,
13742     lapack_int const* n,
13743     lapack_complex_float* A, lapack_int const* lda,
13744     lapack_int* info
13745 #ifdef LAPACK_FORTRAN_STRLEN_END
13746     , FORTRAN_STRLEN
13747 #endif
13748 );
13749 #ifdef LAPACK_FORTRAN_STRLEN_END
13750     #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1)
13751 #else
13752     #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__)
13753 #endif
13754 
13755 #define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI)
13756 void LAPACK_dpotri_base(
13757     char const* uplo,
13758     lapack_int const* n,
13759     double* A, lapack_int const* lda,
13760     lapack_int* info
13761 #ifdef LAPACK_FORTRAN_STRLEN_END
13762     , FORTRAN_STRLEN
13763 #endif
13764 );
13765 #ifdef LAPACK_FORTRAN_STRLEN_END
13766     #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1)
13767 #else
13768     #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__)
13769 #endif
13770 
13771 #define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI)
13772 void LAPACK_spotri_base(
13773     char const* uplo,
13774     lapack_int const* n,
13775     float* A, lapack_int const* lda,
13776     lapack_int* info
13777 #ifdef LAPACK_FORTRAN_STRLEN_END
13778     , FORTRAN_STRLEN
13779 #endif
13780 );
13781 #ifdef LAPACK_FORTRAN_STRLEN_END
13782     #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1)
13783 #else
13784     #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__)
13785 #endif
13786 
13787 #define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI)
13788 void LAPACK_zpotri_base(
13789     char const* uplo,
13790     lapack_int const* n,
13791     lapack_complex_double* A, lapack_int const* lda,
13792     lapack_int* info
13793 #ifdef LAPACK_FORTRAN_STRLEN_END
13794     , FORTRAN_STRLEN
13795 #endif
13796 );
13797 #ifdef LAPACK_FORTRAN_STRLEN_END
13798     #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1)
13799 #else
13800     #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__)
13801 #endif
13802 
13803 #define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS)
13804 void LAPACK_cpotrs_base(
13805     char const* uplo,
13806     lapack_int const* n, lapack_int const* nrhs,
13807     lapack_complex_float const* A, lapack_int const* lda,
13808     lapack_complex_float* B, lapack_int const* ldb,
13809     lapack_int* info
13810 #ifdef LAPACK_FORTRAN_STRLEN_END
13811     , FORTRAN_STRLEN
13812 #endif
13813 );
13814 #ifdef LAPACK_FORTRAN_STRLEN_END
13815     #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1)
13816 #else
13817     #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__)
13818 #endif
13819 
13820 #define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS)
13821 void LAPACK_dpotrs_base(
13822     char const* uplo,
13823     lapack_int const* n, lapack_int const* nrhs,
13824     double const* A, lapack_int const* lda,
13825     double* B, lapack_int const* ldb,
13826     lapack_int* info
13827 #ifdef LAPACK_FORTRAN_STRLEN_END
13828     , FORTRAN_STRLEN
13829 #endif
13830 );
13831 #ifdef LAPACK_FORTRAN_STRLEN_END
13832     #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1)
13833 #else
13834     #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__)
13835 #endif
13836 
13837 #define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS)
13838 void LAPACK_spotrs_base(
13839     char const* uplo,
13840     lapack_int const* n, lapack_int const* nrhs,
13841     float const* A, lapack_int const* lda,
13842     float* B, lapack_int const* ldb,
13843     lapack_int* info
13844 #ifdef LAPACK_FORTRAN_STRLEN_END
13845     , FORTRAN_STRLEN
13846 #endif
13847 );
13848 #ifdef LAPACK_FORTRAN_STRLEN_END
13849     #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1)
13850 #else
13851     #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__)
13852 #endif
13853 
13854 #define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS)
13855 void LAPACK_zpotrs_base(
13856     char const* uplo,
13857     lapack_int const* n, lapack_int const* nrhs,
13858     lapack_complex_double const* A, lapack_int const* lda,
13859     lapack_complex_double* B, lapack_int const* ldb,
13860     lapack_int* info
13861 #ifdef LAPACK_FORTRAN_STRLEN_END
13862     , FORTRAN_STRLEN
13863 #endif
13864 );
13865 #ifdef LAPACK_FORTRAN_STRLEN_END
13866     #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1)
13867 #else
13868     #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__)
13869 #endif
13870 
13871 #define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON)
13872 void LAPACK_cppcon_base(
13873     char const* uplo,
13874     lapack_int const* n,
13875     lapack_complex_float const* AP,
13876     float const* anorm,
13877     float* rcond,
13878     lapack_complex_float* work,
13879     float* rwork,
13880     lapack_int* info
13881 #ifdef LAPACK_FORTRAN_STRLEN_END
13882     , FORTRAN_STRLEN
13883 #endif
13884 );
13885 #ifdef LAPACK_FORTRAN_STRLEN_END
13886     #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1)
13887 #else
13888     #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__)
13889 #endif
13890 
13891 #define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON)
13892 void LAPACK_dppcon_base(
13893     char const* uplo,
13894     lapack_int const* n,
13895     double const* AP,
13896     double const* anorm,
13897     double* rcond,
13898     double* work,
13899     lapack_int* iwork,
13900     lapack_int* info
13901 #ifdef LAPACK_FORTRAN_STRLEN_END
13902     , FORTRAN_STRLEN
13903 #endif
13904 );
13905 #ifdef LAPACK_FORTRAN_STRLEN_END
13906     #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1)
13907 #else
13908     #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__)
13909 #endif
13910 
13911 #define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON)
13912 void LAPACK_sppcon_base(
13913     char const* uplo,
13914     lapack_int const* n,
13915     float const* AP,
13916     float const* anorm,
13917     float* rcond,
13918     float* work,
13919     lapack_int* iwork,
13920     lapack_int* info
13921 #ifdef LAPACK_FORTRAN_STRLEN_END
13922     , FORTRAN_STRLEN
13923 #endif
13924 );
13925 #ifdef LAPACK_FORTRAN_STRLEN_END
13926     #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1)
13927 #else
13928     #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__)
13929 #endif
13930 
13931 #define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON)
13932 void LAPACK_zppcon_base(
13933     char const* uplo,
13934     lapack_int const* n,
13935     lapack_complex_double const* AP,
13936     double const* anorm,
13937     double* rcond,
13938     lapack_complex_double* work,
13939     double* rwork,
13940     lapack_int* info
13941 #ifdef LAPACK_FORTRAN_STRLEN_END
13942     , FORTRAN_STRLEN
13943 #endif
13944 );
13945 #ifdef LAPACK_FORTRAN_STRLEN_END
13946     #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1)
13947 #else
13948     #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__)
13949 #endif
13950 
13951 #define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU)
13952 void LAPACK_cppequ_base(
13953     char const* uplo,
13954     lapack_int const* n,
13955     lapack_complex_float const* AP,
13956     float* S,
13957     float* scond,
13958     float* amax,
13959     lapack_int* info
13960 #ifdef LAPACK_FORTRAN_STRLEN_END
13961     , FORTRAN_STRLEN
13962 #endif
13963 );
13964 #ifdef LAPACK_FORTRAN_STRLEN_END
13965     #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1)
13966 #else
13967     #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__)
13968 #endif
13969 
13970 #define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU)
13971 void LAPACK_dppequ_base(
13972     char const* uplo,
13973     lapack_int const* n,
13974     double const* AP,
13975     double* S,
13976     double* scond,
13977     double* amax,
13978     lapack_int* info
13979 #ifdef LAPACK_FORTRAN_STRLEN_END
13980     , FORTRAN_STRLEN
13981 #endif
13982 );
13983 #ifdef LAPACK_FORTRAN_STRLEN_END
13984     #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1)
13985 #else
13986     #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__)
13987 #endif
13988 
13989 #define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU)
13990 void LAPACK_sppequ_base(
13991     char const* uplo,
13992     lapack_int const* n,
13993     float const* AP,
13994     float* S,
13995     float* scond,
13996     float* amax,
13997     lapack_int* info
13998 #ifdef LAPACK_FORTRAN_STRLEN_END
13999     , FORTRAN_STRLEN
14000 #endif
14001 );
14002 #ifdef LAPACK_FORTRAN_STRLEN_END
14003     #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1)
14004 #else
14005     #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__)
14006 #endif
14007 
14008 #define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU)
14009 void LAPACK_zppequ_base(
14010     char const* uplo,
14011     lapack_int const* n,
14012     lapack_complex_double const* AP,
14013     double* S,
14014     double* scond,
14015     double* amax,
14016     lapack_int* info
14017 #ifdef LAPACK_FORTRAN_STRLEN_END
14018     , FORTRAN_STRLEN
14019 #endif
14020 );
14021 #ifdef LAPACK_FORTRAN_STRLEN_END
14022     #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1)
14023 #else
14024     #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__)
14025 #endif
14026 
14027 #define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS)
14028 void LAPACK_cpprfs_base(
14029     char const* uplo,
14030     lapack_int const* n, lapack_int const* nrhs,
14031     lapack_complex_float const* AP,
14032     lapack_complex_float const* AFP,
14033     lapack_complex_float const* B, lapack_int const* ldb,
14034     lapack_complex_float* X, lapack_int const* ldx,
14035     float* ferr,
14036     float* berr,
14037     lapack_complex_float* work,
14038     float* rwork,
14039     lapack_int* info
14040 #ifdef LAPACK_FORTRAN_STRLEN_END
14041     , FORTRAN_STRLEN
14042 #endif
14043 );
14044 #ifdef LAPACK_FORTRAN_STRLEN_END
14045     #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1)
14046 #else
14047     #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__)
14048 #endif
14049 
14050 #define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS)
14051 void LAPACK_dpprfs_base(
14052     char const* uplo,
14053     lapack_int const* n, lapack_int const* nrhs,
14054     double const* AP,
14055     double const* AFP,
14056     double const* B, lapack_int const* ldb,
14057     double* X, lapack_int const* ldx,
14058     double* ferr,
14059     double* berr,
14060     double* work,
14061     lapack_int* iwork,
14062     lapack_int* info
14063 #ifdef LAPACK_FORTRAN_STRLEN_END
14064     , FORTRAN_STRLEN
14065 #endif
14066 );
14067 #ifdef LAPACK_FORTRAN_STRLEN_END
14068     #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1)
14069 #else
14070     #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__)
14071 #endif
14072 
14073 #define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS)
14074 void LAPACK_spprfs_base(
14075     char const* uplo,
14076     lapack_int const* n, lapack_int const* nrhs,
14077     float const* AP,
14078     float const* AFP,
14079     float const* B, lapack_int const* ldb,
14080     float* X, lapack_int const* ldx,
14081     float* ferr,
14082     float* berr,
14083     float* work,
14084     lapack_int* iwork,
14085     lapack_int* info
14086 #ifdef LAPACK_FORTRAN_STRLEN_END
14087     , FORTRAN_STRLEN
14088 #endif
14089 );
14090 #ifdef LAPACK_FORTRAN_STRLEN_END
14091     #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1)
14092 #else
14093     #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__)
14094 #endif
14095 
14096 #define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS)
14097 void LAPACK_zpprfs_base(
14098     char const* uplo,
14099     lapack_int const* n, lapack_int const* nrhs,
14100     lapack_complex_double const* AP,
14101     lapack_complex_double const* AFP,
14102     lapack_complex_double const* B, lapack_int const* ldb,
14103     lapack_complex_double* X, lapack_int const* ldx,
14104     double* ferr,
14105     double* berr,
14106     lapack_complex_double* work,
14107     double* rwork,
14108     lapack_int* info
14109 #ifdef LAPACK_FORTRAN_STRLEN_END
14110     , FORTRAN_STRLEN
14111 #endif
14112 );
14113 #ifdef LAPACK_FORTRAN_STRLEN_END
14114     #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1)
14115 #else
14116     #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__)
14117 #endif
14118 
14119 #define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV)
14120 void LAPACK_cppsv_base(
14121     char const* uplo,
14122     lapack_int const* n, lapack_int const* nrhs,
14123     lapack_complex_float* AP,
14124     lapack_complex_float* B, lapack_int const* ldb,
14125     lapack_int* info
14126 #ifdef LAPACK_FORTRAN_STRLEN_END
14127     , FORTRAN_STRLEN
14128 #endif
14129 );
14130 #ifdef LAPACK_FORTRAN_STRLEN_END
14131     #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1)
14132 #else
14133     #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__)
14134 #endif
14135 
14136 #define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV)
14137 void LAPACK_dppsv_base(
14138     char const* uplo,
14139     lapack_int const* n, lapack_int const* nrhs,
14140     double* AP,
14141     double* B, lapack_int const* ldb,
14142     lapack_int* info
14143 #ifdef LAPACK_FORTRAN_STRLEN_END
14144     , FORTRAN_STRLEN
14145 #endif
14146 );
14147 #ifdef LAPACK_FORTRAN_STRLEN_END
14148     #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1)
14149 #else
14150     #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__)
14151 #endif
14152 
14153 #define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV)
14154 void LAPACK_sppsv_base(
14155     char const* uplo,
14156     lapack_int const* n, lapack_int const* nrhs,
14157     float* AP,
14158     float* B, lapack_int const* ldb,
14159     lapack_int* info
14160 #ifdef LAPACK_FORTRAN_STRLEN_END
14161     , FORTRAN_STRLEN
14162 #endif
14163 );
14164 #ifdef LAPACK_FORTRAN_STRLEN_END
14165     #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1)
14166 #else
14167     #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__)
14168 #endif
14169 
14170 #define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV)
14171 void LAPACK_zppsv_base(
14172     char const* uplo,
14173     lapack_int const* n, lapack_int const* nrhs,
14174     lapack_complex_double* AP,
14175     lapack_complex_double* B, lapack_int const* ldb,
14176     lapack_int* info
14177 #ifdef LAPACK_FORTRAN_STRLEN_END
14178     , FORTRAN_STRLEN
14179 #endif
14180 );
14181 #ifdef LAPACK_FORTRAN_STRLEN_END
14182     #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1)
14183 #else
14184     #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__)
14185 #endif
14186 
14187 #define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX)
14188 void LAPACK_cppsvx_base(
14189     char const* fact, char const* uplo,
14190     lapack_int const* n, lapack_int const* nrhs,
14191     lapack_complex_float* AP,
14192     lapack_complex_float* AFP, char* equed,
14193     float* S,
14194     lapack_complex_float* B,
14195     lapack_int const* ldb,
14196     lapack_complex_float* X, lapack_int const* ldx,
14197     float* rcond,
14198     float* ferr,
14199     float* berr,
14200     lapack_complex_float* work,
14201     float* rwork,
14202     lapack_int* info
14203 #ifdef LAPACK_FORTRAN_STRLEN_END
14204     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
14205 #endif
14206 );
14207 #ifdef LAPACK_FORTRAN_STRLEN_END
14208     #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1)
14209 #else
14210     #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__)
14211 #endif
14212 
14213 #define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX)
14214 void LAPACK_dppsvx_base(
14215     char const* fact, char const* uplo,
14216     lapack_int const* n, lapack_int const* nrhs,
14217     double* AP,
14218     double* AFP, char* equed,
14219     double* S,
14220     double* B,
14221     lapack_int const* ldb,
14222     double* X, lapack_int const* ldx,
14223     double* rcond,
14224     double* ferr,
14225     double* berr,
14226     double* work,
14227     lapack_int* iwork,
14228     lapack_int* info
14229 #ifdef LAPACK_FORTRAN_STRLEN_END
14230     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
14231 #endif
14232 );
14233 #ifdef LAPACK_FORTRAN_STRLEN_END
14234     #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1)
14235 #else
14236     #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__)
14237 #endif
14238 
14239 #define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX)
14240 void LAPACK_sppsvx_base(
14241     char const* fact, char const* uplo,
14242     lapack_int const* n, lapack_int const* nrhs,
14243     float* AP,
14244     float* AFP, char* equed,
14245     float* S,
14246     float* B,
14247     lapack_int const* ldb,
14248     float* X, lapack_int const* ldx,
14249     float* rcond,
14250     float* ferr,
14251     float* berr,
14252     float* work,
14253     lapack_int* iwork,
14254     lapack_int* info
14255 #ifdef LAPACK_FORTRAN_STRLEN_END
14256     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
14257 #endif
14258 );
14259 #ifdef LAPACK_FORTRAN_STRLEN_END
14260     #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1)
14261 #else
14262     #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__)
14263 #endif
14264 
14265 #define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX)
14266 void LAPACK_zppsvx_base(
14267     char const* fact, char const* uplo,
14268     lapack_int const* n, lapack_int const* nrhs,
14269     lapack_complex_double* AP,
14270     lapack_complex_double* AFP, char* equed,
14271     double* S,
14272     lapack_complex_double* B,
14273     lapack_int const* ldb,
14274     lapack_complex_double* X, lapack_int const* ldx,
14275     double* rcond,
14276     double* ferr,
14277     double* berr,
14278     lapack_complex_double* work,
14279     double* rwork,
14280     lapack_int* info
14281 #ifdef LAPACK_FORTRAN_STRLEN_END
14282     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
14283 #endif
14284 );
14285 #ifdef LAPACK_FORTRAN_STRLEN_END
14286     #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1)
14287 #else
14288     #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__)
14289 #endif
14290 
14291 #define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF)
14292 void LAPACK_cpptrf_base(
14293     char const* uplo,
14294     lapack_int const* n,
14295     lapack_complex_float* AP,
14296     lapack_int* info
14297 #ifdef LAPACK_FORTRAN_STRLEN_END
14298     , FORTRAN_STRLEN
14299 #endif
14300 );
14301 #ifdef LAPACK_FORTRAN_STRLEN_END
14302     #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1)
14303 #else
14304     #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__)
14305 #endif
14306 
14307 #define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF)
14308 void LAPACK_dpptrf_base(
14309     char const* uplo,
14310     lapack_int const* n,
14311     double* AP,
14312     lapack_int* info
14313 #ifdef LAPACK_FORTRAN_STRLEN_END
14314     , FORTRAN_STRLEN
14315 #endif
14316 );
14317 #ifdef LAPACK_FORTRAN_STRLEN_END
14318     #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1)
14319 #else
14320     #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__)
14321 #endif
14322 
14323 #define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF)
14324 void LAPACK_spptrf_base(
14325     char const* uplo,
14326     lapack_int const* n,
14327     float* AP,
14328     lapack_int* info
14329 #ifdef LAPACK_FORTRAN_STRLEN_END
14330     , FORTRAN_STRLEN
14331 #endif
14332 );
14333 #ifdef LAPACK_FORTRAN_STRLEN_END
14334     #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1)
14335 #else
14336     #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__)
14337 #endif
14338 
14339 #define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF)
14340 void LAPACK_zpptrf_base(
14341     char const* uplo,
14342     lapack_int const* n,
14343     lapack_complex_double* AP,
14344     lapack_int* info
14345 #ifdef LAPACK_FORTRAN_STRLEN_END
14346     , FORTRAN_STRLEN
14347 #endif
14348 );
14349 #ifdef LAPACK_FORTRAN_STRLEN_END
14350     #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1)
14351 #else
14352     #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__)
14353 #endif
14354 
14355 #define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI)
14356 void LAPACK_cpptri_base(
14357     char const* uplo,
14358     lapack_int const* n,
14359     lapack_complex_float* AP,
14360     lapack_int* info
14361 #ifdef LAPACK_FORTRAN_STRLEN_END
14362     , FORTRAN_STRLEN
14363 #endif
14364 );
14365 #ifdef LAPACK_FORTRAN_STRLEN_END
14366     #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1)
14367 #else
14368     #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__)
14369 #endif
14370 
14371 #define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI)
14372 void LAPACK_dpptri_base(
14373     char const* uplo,
14374     lapack_int const* n,
14375     double* AP,
14376     lapack_int* info
14377 #ifdef LAPACK_FORTRAN_STRLEN_END
14378     , FORTRAN_STRLEN
14379 #endif
14380 );
14381 #ifdef LAPACK_FORTRAN_STRLEN_END
14382     #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1)
14383 #else
14384     #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__)
14385 #endif
14386 
14387 #define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI)
14388 void LAPACK_spptri_base(
14389     char const* uplo,
14390     lapack_int const* n,
14391     float* AP,
14392     lapack_int* info
14393 #ifdef LAPACK_FORTRAN_STRLEN_END
14394     , FORTRAN_STRLEN
14395 #endif
14396 );
14397 #ifdef LAPACK_FORTRAN_STRLEN_END
14398     #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1)
14399 #else
14400     #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__)
14401 #endif
14402 
14403 #define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI)
14404 void LAPACK_zpptri_base(
14405     char const* uplo,
14406     lapack_int const* n,
14407     lapack_complex_double* AP,
14408     lapack_int* info
14409 #ifdef LAPACK_FORTRAN_STRLEN_END
14410     , FORTRAN_STRLEN
14411 #endif
14412 );
14413 #ifdef LAPACK_FORTRAN_STRLEN_END
14414     #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1)
14415 #else
14416     #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__)
14417 #endif
14418 
14419 #define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS)
14420 void LAPACK_cpptrs_base(
14421     char const* uplo,
14422     lapack_int const* n, lapack_int const* nrhs,
14423     lapack_complex_float const* AP,
14424     lapack_complex_float* B, lapack_int const* ldb,
14425     lapack_int* info
14426 #ifdef LAPACK_FORTRAN_STRLEN_END
14427     , FORTRAN_STRLEN
14428 #endif
14429 );
14430 #ifdef LAPACK_FORTRAN_STRLEN_END
14431     #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1)
14432 #else
14433     #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__)
14434 #endif
14435 
14436 #define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS)
14437 void LAPACK_dpptrs_base(
14438     char const* uplo,
14439     lapack_int const* n, lapack_int const* nrhs,
14440     double const* AP,
14441     double* B, lapack_int const* ldb,
14442     lapack_int* info
14443 #ifdef LAPACK_FORTRAN_STRLEN_END
14444     , FORTRAN_STRLEN
14445 #endif
14446 );
14447 #ifdef LAPACK_FORTRAN_STRLEN_END
14448     #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1)
14449 #else
14450     #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__)
14451 #endif
14452 
14453 #define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS)
14454 void LAPACK_spptrs_base(
14455     char const* uplo,
14456     lapack_int const* n, lapack_int const* nrhs,
14457     float const* AP,
14458     float* B, lapack_int const* ldb,
14459     lapack_int* info
14460 #ifdef LAPACK_FORTRAN_STRLEN_END
14461     , FORTRAN_STRLEN
14462 #endif
14463 );
14464 #ifdef LAPACK_FORTRAN_STRLEN_END
14465     #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1)
14466 #else
14467     #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__)
14468 #endif
14469 
14470 #define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS)
14471 void LAPACK_zpptrs_base(
14472     char const* uplo,
14473     lapack_int const* n, lapack_int const* nrhs,
14474     lapack_complex_double const* AP,
14475     lapack_complex_double* B, lapack_int const* ldb,
14476     lapack_int* info
14477 #ifdef LAPACK_FORTRAN_STRLEN_END
14478     , FORTRAN_STRLEN
14479 #endif
14480 );
14481 #ifdef LAPACK_FORTRAN_STRLEN_END
14482     #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1)
14483 #else
14484     #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__)
14485 #endif
14486 
14487 #define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF)
14488 void LAPACK_cpstrf_base(
14489     char const* uplo,
14490     lapack_int const* n,
14491     lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14492     float const* tol,
14493     float* work,
14494     lapack_int* info
14495 #ifdef LAPACK_FORTRAN_STRLEN_END
14496     , FORTRAN_STRLEN
14497 #endif
14498 );
14499 #ifdef LAPACK_FORTRAN_STRLEN_END
14500     #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1)
14501 #else
14502     #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__)
14503 #endif
14504 
14505 #define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF)
14506 void LAPACK_dpstrf_base(
14507     char const* uplo,
14508     lapack_int const* n,
14509     double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14510     double const* tol,
14511     double* work,
14512     lapack_int* info
14513 #ifdef LAPACK_FORTRAN_STRLEN_END
14514     , FORTRAN_STRLEN
14515 #endif
14516 );
14517 #ifdef LAPACK_FORTRAN_STRLEN_END
14518     #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1)
14519 #else
14520     #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__)
14521 #endif
14522 
14523 #define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF)
14524 void LAPACK_spstrf_base(
14525     char const* uplo,
14526     lapack_int const* n,
14527     float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14528     float const* tol,
14529     float* work,
14530     lapack_int* info
14531 #ifdef LAPACK_FORTRAN_STRLEN_END
14532     , FORTRAN_STRLEN
14533 #endif
14534 );
14535 #ifdef LAPACK_FORTRAN_STRLEN_END
14536     #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1)
14537 #else
14538     #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__)
14539 #endif
14540 
14541 #define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF)
14542 void LAPACK_zpstrf_base(
14543     char const* uplo,
14544     lapack_int const* n,
14545     lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14546     double const* tol,
14547     double* work,
14548     lapack_int* info
14549 #ifdef LAPACK_FORTRAN_STRLEN_END
14550     , FORTRAN_STRLEN
14551 #endif
14552 );
14553 #ifdef LAPACK_FORTRAN_STRLEN_END
14554     #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1)
14555 #else
14556     #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__)
14557 #endif
14558 
14559 #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
14560 void LAPACK_cptcon(
14561     lapack_int const* n,
14562     float const* D,
14563     lapack_complex_float const* E,
14564     float const* anorm,
14565     float* rcond,
14566     float* rwork,
14567     lapack_int* info );
14568 
14569 #define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
14570 void LAPACK_dptcon(
14571     lapack_int const* n,
14572     double const* D,
14573     double const* E,
14574     double const* anorm,
14575     double* rcond,
14576     double* work,
14577     lapack_int* info );
14578 
14579 #define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
14580 void LAPACK_sptcon(
14581     lapack_int const* n,
14582     float const* D,
14583     float const* E,
14584     float const* anorm,
14585     float* rcond,
14586     float* work,
14587     lapack_int* info );
14588 
14589 #define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
14590 void LAPACK_zptcon(
14591     lapack_int const* n,
14592     double const* D,
14593     lapack_complex_double const* E,
14594     double const* anorm,
14595     double* rcond,
14596     double* rwork,
14597     lapack_int* info );
14598 
14599 #define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR)
14600 void LAPACK_cpteqr_base(
14601     char const* compz,
14602     lapack_int const* n,
14603     float* D,
14604     float* E,
14605     lapack_complex_float* Z, lapack_int const* ldz,
14606     float* work,
14607     lapack_int* info
14608 #ifdef LAPACK_FORTRAN_STRLEN_END
14609     , FORTRAN_STRLEN
14610 #endif
14611 );
14612 #ifdef LAPACK_FORTRAN_STRLEN_END
14613     #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1)
14614 #else
14615     #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__)
14616 #endif
14617 
14618 #define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR)
14619 void LAPACK_dpteqr_base(
14620     char const* compz,
14621     lapack_int const* n,
14622     double* D,
14623     double* E,
14624     double* Z, lapack_int const* ldz,
14625     double* work,
14626     lapack_int* info
14627 #ifdef LAPACK_FORTRAN_STRLEN_END
14628     , FORTRAN_STRLEN
14629 #endif
14630 );
14631 #ifdef LAPACK_FORTRAN_STRLEN_END
14632     #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1)
14633 #else
14634     #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__)
14635 #endif
14636 
14637 #define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR)
14638 void LAPACK_spteqr_base(
14639     char const* compz,
14640     lapack_int const* n,
14641     float* D,
14642     float* E,
14643     float* Z, lapack_int const* ldz,
14644     float* work,
14645     lapack_int* info
14646 #ifdef LAPACK_FORTRAN_STRLEN_END
14647     , FORTRAN_STRLEN
14648 #endif
14649 );
14650 #ifdef LAPACK_FORTRAN_STRLEN_END
14651     #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1)
14652 #else
14653     #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__)
14654 #endif
14655 
14656 #define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR)
14657 void LAPACK_zpteqr_base(
14658     char const* compz,
14659     lapack_int const* n,
14660     double* D,
14661     double* E,
14662     lapack_complex_double* Z, lapack_int const* ldz,
14663     double* work,
14664     lapack_int* info
14665 #ifdef LAPACK_FORTRAN_STRLEN_END
14666     , FORTRAN_STRLEN
14667 #endif
14668 );
14669 #ifdef LAPACK_FORTRAN_STRLEN_END
14670     #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1)
14671 #else
14672     #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__)
14673 #endif
14674 
14675 #define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS)
14676 void LAPACK_cptrfs_base(
14677     char const* uplo,
14678     lapack_int const* n, lapack_int const* nrhs,
14679     float const* D,
14680     lapack_complex_float const* E,
14681     float const* DF,
14682     lapack_complex_float const* EF,
14683     lapack_complex_float const* B, lapack_int const* ldb,
14684     lapack_complex_float* X, lapack_int const* ldx,
14685     float* ferr,
14686     float* berr,
14687     lapack_complex_float* work,
14688     float* rwork,
14689     lapack_int* info
14690 #ifdef LAPACK_FORTRAN_STRLEN_END
14691     , FORTRAN_STRLEN
14692 #endif
14693 );
14694 #ifdef LAPACK_FORTRAN_STRLEN_END
14695     #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1)
14696 #else
14697     #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__)
14698 #endif
14699 
14700 #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
14701 void LAPACK_dptrfs(
14702     lapack_int const* n, lapack_int const* nrhs,
14703     double const* D,
14704     double const* E,
14705     double const* DF,
14706     double const* EF,
14707     double const* B, lapack_int const* ldb,
14708     double* X, lapack_int const* ldx,
14709     double* ferr,
14710     double* berr,
14711     double* work,
14712     lapack_int* info );
14713 
14714 #define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
14715 void LAPACK_sptrfs(
14716     lapack_int const* n, lapack_int const* nrhs,
14717     float const* D,
14718     float const* E,
14719     float const* DF,
14720     float const* EF,
14721     float const* B, lapack_int const* ldb,
14722     float* X, lapack_int const* ldx,
14723     float* ferr,
14724     float* berr,
14725     float* work,
14726     lapack_int* info );
14727 
14728 #define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS)
14729 void LAPACK_zptrfs_base(
14730     char const* uplo,
14731     lapack_int const* n, lapack_int const* nrhs,
14732     double const* D,
14733     lapack_complex_double const* E,
14734     double const* DF,
14735     lapack_complex_double const* EF,
14736     lapack_complex_double const* B, lapack_int const* ldb,
14737     lapack_complex_double* X, lapack_int const* ldx,
14738     double* ferr,
14739     double* berr,
14740     lapack_complex_double* work,
14741     double* rwork,
14742     lapack_int* info
14743 #ifdef LAPACK_FORTRAN_STRLEN_END
14744     , FORTRAN_STRLEN
14745 #endif
14746 );
14747 #ifdef LAPACK_FORTRAN_STRLEN_END
14748     #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1)
14749 #else
14750     #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__)
14751 #endif
14752 
14753 #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
14754 void LAPACK_cptsv(
14755     lapack_int const* n, lapack_int const* nrhs,
14756     float* D,
14757     lapack_complex_float* E,
14758     lapack_complex_float* B, lapack_int const* ldb,
14759     lapack_int* info );
14760 
14761 #define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
14762 void LAPACK_dptsv(
14763     lapack_int const* n, lapack_int const* nrhs,
14764     double* D,
14765     double* E,
14766     double* B, lapack_int const* ldb,
14767     lapack_int* info );
14768 
14769 #define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
14770 void LAPACK_sptsv(
14771     lapack_int const* n, lapack_int const* nrhs,
14772     float* D,
14773     float* E,
14774     float* B, lapack_int const* ldb,
14775     lapack_int* info );
14776 
14777 #define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
14778 void LAPACK_zptsv(
14779     lapack_int const* n, lapack_int const* nrhs,
14780     double* D,
14781     lapack_complex_double* E,
14782     lapack_complex_double* B, lapack_int const* ldb,
14783     lapack_int* info );
14784 
14785 #define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX)
14786 void LAPACK_cptsvx_base(
14787     char const* fact,
14788     lapack_int const* n, lapack_int const* nrhs,
14789     float const* D,
14790     lapack_complex_float const* E,
14791     float* DF,
14792     lapack_complex_float* EF,
14793     lapack_complex_float const* B, lapack_int const* ldb,
14794     lapack_complex_float* X, lapack_int const* ldx,
14795     float* rcond,
14796     float* ferr,
14797     float* berr,
14798     lapack_complex_float* work,
14799     float* rwork,
14800     lapack_int* info
14801 #ifdef LAPACK_FORTRAN_STRLEN_END
14802     , FORTRAN_STRLEN
14803 #endif
14804 );
14805 #ifdef LAPACK_FORTRAN_STRLEN_END
14806     #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1)
14807 #else
14808     #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__)
14809 #endif
14810 
14811 #define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX)
14812 void LAPACK_dptsvx_base(
14813     char const* fact,
14814     lapack_int const* n, lapack_int const* nrhs,
14815     double const* D,
14816     double const* E,
14817     double* DF,
14818     double* EF,
14819     double const* B, lapack_int const* ldb,
14820     double* X, lapack_int const* ldx,
14821     double* rcond,
14822     double* ferr,
14823     double* berr,
14824     double* work,
14825     lapack_int* info
14826 #ifdef LAPACK_FORTRAN_STRLEN_END
14827     , FORTRAN_STRLEN
14828 #endif
14829 );
14830 #ifdef LAPACK_FORTRAN_STRLEN_END
14831     #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1)
14832 #else
14833     #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__)
14834 #endif
14835 
14836 #define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX)
14837 void LAPACK_sptsvx_base(
14838     char const* fact,
14839     lapack_int const* n, lapack_int const* nrhs,
14840     float const* D,
14841     float const* E,
14842     float* DF,
14843     float* EF,
14844     float const* B, lapack_int const* ldb,
14845     float* X, lapack_int const* ldx,
14846     float* rcond,
14847     float* ferr,
14848     float* berr,
14849     float* work,
14850     lapack_int* info
14851 #ifdef LAPACK_FORTRAN_STRLEN_END
14852     , FORTRAN_STRLEN
14853 #endif
14854 );
14855 #ifdef LAPACK_FORTRAN_STRLEN_END
14856     #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1)
14857 #else
14858     #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__)
14859 #endif
14860 
14861 #define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX)
14862 void LAPACK_zptsvx_base(
14863     char const* fact,
14864     lapack_int const* n, lapack_int const* nrhs,
14865     double const* D,
14866     lapack_complex_double const* E,
14867     double* DF,
14868     lapack_complex_double* EF,
14869     lapack_complex_double const* B, lapack_int const* ldb,
14870     lapack_complex_double* X, lapack_int const* ldx,
14871     double* rcond,
14872     double* ferr,
14873     double* berr,
14874     lapack_complex_double* work,
14875     double* rwork,
14876     lapack_int* info
14877 #ifdef LAPACK_FORTRAN_STRLEN_END
14878     , FORTRAN_STRLEN
14879 #endif
14880 );
14881 #ifdef LAPACK_FORTRAN_STRLEN_END
14882     #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1)
14883 #else
14884     #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__)
14885 #endif
14886 
14887 #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
14888 void LAPACK_cpttrf(
14889     lapack_int const* n,
14890     float* D,
14891     lapack_complex_float* E,
14892     lapack_int* info );
14893 
14894 #define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
14895 void LAPACK_dpttrf(
14896     lapack_int const* n,
14897     double* D,
14898     double* E,
14899     lapack_int* info );
14900 
14901 #define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
14902 void LAPACK_spttrf(
14903     lapack_int const* n,
14904     float* D,
14905     float* E,
14906     lapack_int* info );
14907 
14908 #define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
14909 void LAPACK_zpttrf(
14910     lapack_int const* n,
14911     double* D,
14912     lapack_complex_double* E,
14913     lapack_int* info );
14914 
14915 #define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS)
14916 void LAPACK_cpttrs_base(
14917     char const* uplo,
14918     lapack_int const* n, lapack_int const* nrhs,
14919     float const* D,
14920     lapack_complex_float const* E,
14921     lapack_complex_float* B, lapack_int const* ldb,
14922     lapack_int* info
14923 #ifdef LAPACK_FORTRAN_STRLEN_END
14924     , FORTRAN_STRLEN
14925 #endif
14926 );
14927 #ifdef LAPACK_FORTRAN_STRLEN_END
14928     #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1)
14929 #else
14930     #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__)
14931 #endif
14932 
14933 #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
14934 void LAPACK_dpttrs(
14935     lapack_int const* n, lapack_int const* nrhs,
14936     double const* D,
14937     double const* E,
14938     double* B, lapack_int const* ldb,
14939     lapack_int* info );
14940 
14941 #define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
14942 void LAPACK_spttrs(
14943     lapack_int const* n, lapack_int const* nrhs,
14944     float const* D,
14945     float const* E,
14946     float* B, lapack_int const* ldb,
14947     lapack_int* info );
14948 
14949 #define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS)
14950 void LAPACK_zpttrs_base(
14951     char const* uplo,
14952     lapack_int const* n, lapack_int const* nrhs,
14953     double const* D,
14954     lapack_complex_double const* E,
14955     lapack_complex_double* B, lapack_int const* ldb,
14956     lapack_int* info
14957 #ifdef LAPACK_FORTRAN_STRLEN_END
14958     , FORTRAN_STRLEN
14959 #endif
14960 );
14961 #ifdef LAPACK_FORTRAN_STRLEN_END
14962     #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1)
14963 #else
14964     #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__)
14965 #endif
14966 
14967 #define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV)
14968 void LAPACK_dsbev_base(
14969     char const* jobz, char const* uplo,
14970     lapack_int const* n, lapack_int const* kd,
14971     double* AB, lapack_int const* ldab,
14972     double* W,
14973     double* Z, lapack_int const* ldz,
14974     double* work,
14975     lapack_int* info
14976 #ifdef LAPACK_FORTRAN_STRLEN_END
14977     , FORTRAN_STRLEN, FORTRAN_STRLEN
14978 #endif
14979 );
14980 #ifdef LAPACK_FORTRAN_STRLEN_END
14981     #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1)
14982 #else
14983     #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__)
14984 #endif
14985 
14986 #define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV)
14987 void LAPACK_ssbev_base(
14988     char const* jobz, char const* uplo,
14989     lapack_int const* n, lapack_int const* kd,
14990     float* AB, lapack_int const* ldab,
14991     float* W,
14992     float* Z, lapack_int const* ldz,
14993     float* work,
14994     lapack_int* info
14995 #ifdef LAPACK_FORTRAN_STRLEN_END
14996     , FORTRAN_STRLEN, FORTRAN_STRLEN
14997 #endif
14998 );
14999 #ifdef LAPACK_FORTRAN_STRLEN_END
15000     #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1)
15001 #else
15002     #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__)
15003 #endif
15004 
15005 #define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE)
15006 void LAPACK_dsbev_2stage_base(
15007     char const* jobz, char const* uplo,
15008     lapack_int const* n, lapack_int const* kd,
15009     double* AB, lapack_int const* ldab,
15010     double* W,
15011     double* Z, lapack_int const* ldz,
15012     double* work, lapack_int const* lwork,
15013     lapack_int* info
15014 #ifdef LAPACK_FORTRAN_STRLEN_END
15015     , FORTRAN_STRLEN, FORTRAN_STRLEN
15016 #endif
15017 );
15018 #ifdef LAPACK_FORTRAN_STRLEN_END
15019     #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1)
15020 #else
15021     #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__)
15022 #endif
15023 
15024 #define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE)
15025 void LAPACK_ssbev_2stage_base(
15026     char const* jobz, char const* uplo,
15027     lapack_int const* n, lapack_int const* kd,
15028     float* AB, lapack_int const* ldab,
15029     float* W,
15030     float* Z, lapack_int const* ldz,
15031     float* work, lapack_int const* lwork,
15032     lapack_int* info
15033 #ifdef LAPACK_FORTRAN_STRLEN_END
15034     , FORTRAN_STRLEN, FORTRAN_STRLEN
15035 #endif
15036 );
15037 #ifdef LAPACK_FORTRAN_STRLEN_END
15038     #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1)
15039 #else
15040     #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__)
15041 #endif
15042 
15043 #define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD)
15044 void LAPACK_dsbevd_base(
15045     char const* jobz, char const* uplo,
15046     lapack_int const* n, lapack_int const* kd,
15047     double* AB, lapack_int const* ldab,
15048     double* W,
15049     double* Z, lapack_int const* ldz,
15050     double* work, lapack_int const* lwork,
15051     lapack_int* iwork, lapack_int const* liwork,
15052     lapack_int* info
15053 #ifdef LAPACK_FORTRAN_STRLEN_END
15054     , FORTRAN_STRLEN, FORTRAN_STRLEN
15055 #endif
15056 );
15057 #ifdef LAPACK_FORTRAN_STRLEN_END
15058     #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1)
15059 #else
15060     #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__)
15061 #endif
15062 
15063 #define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD)
15064 void LAPACK_ssbevd_base(
15065     char const* jobz, char const* uplo,
15066     lapack_int const* n, lapack_int const* kd,
15067     float* AB, lapack_int const* ldab,
15068     float* W,
15069     float* Z, lapack_int const* ldz,
15070     float* work, lapack_int const* lwork,
15071     lapack_int* iwork, lapack_int const* liwork,
15072     lapack_int* info
15073 #ifdef LAPACK_FORTRAN_STRLEN_END
15074     , FORTRAN_STRLEN, FORTRAN_STRLEN
15075 #endif
15076 );
15077 #ifdef LAPACK_FORTRAN_STRLEN_END
15078     #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1)
15079 #else
15080     #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__)
15081 #endif
15082 
15083 #define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE)
15084 void LAPACK_dsbevd_2stage_base(
15085     char const* jobz, char const* uplo,
15086     lapack_int const* n, lapack_int const* kd,
15087     double* AB, lapack_int const* ldab,
15088     double* W,
15089     double* Z, lapack_int const* ldz,
15090     double* work, lapack_int const* lwork,
15091     lapack_int* iwork, lapack_int const* liwork,
15092     lapack_int* info
15093 #ifdef LAPACK_FORTRAN_STRLEN_END
15094     , FORTRAN_STRLEN, FORTRAN_STRLEN
15095 #endif
15096 );
15097 #ifdef LAPACK_FORTRAN_STRLEN_END
15098     #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1)
15099 #else
15100     #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__)
15101 #endif
15102 
15103 #define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE)
15104 void LAPACK_ssbevd_2stage_base(
15105     char const* jobz, char const* uplo,
15106     lapack_int const* n, lapack_int const* kd,
15107     float* AB, lapack_int const* ldab,
15108     float* W,
15109     float* Z, lapack_int const* ldz,
15110     float* work, lapack_int const* lwork,
15111     lapack_int* iwork, lapack_int const* liwork,
15112     lapack_int* info
15113 #ifdef LAPACK_FORTRAN_STRLEN_END
15114     , FORTRAN_STRLEN, FORTRAN_STRLEN
15115 #endif
15116 );
15117 #ifdef LAPACK_FORTRAN_STRLEN_END
15118     #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1)
15119 #else
15120     #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__)
15121 #endif
15122 
15123 #define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX)
15124 void LAPACK_dsbevx_base(
15125     char const* jobz, char const* range, char const* uplo,
15126     lapack_int const* n, lapack_int const* kd,
15127     double* AB, lapack_int const* ldab,
15128     double* Q, lapack_int const* ldq,
15129     double const* vl,
15130     double const* vu, lapack_int const* il, lapack_int const* iu,
15131     double const* abstol, lapack_int* m,
15132     double* W,
15133     double* Z, lapack_int const* ldz,
15134     double* work,
15135     lapack_int* iwork, lapack_int* IFAIL,
15136     lapack_int* info
15137 #ifdef LAPACK_FORTRAN_STRLEN_END
15138     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15139 #endif
15140 );
15141 #ifdef LAPACK_FORTRAN_STRLEN_END
15142     #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1)
15143 #else
15144     #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__)
15145 #endif
15146 
15147 #define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX)
15148 void LAPACK_ssbevx_base(
15149     char const* jobz, char const* range, char const* uplo,
15150     lapack_int const* n, lapack_int const* kd,
15151     float* AB, lapack_int const* ldab,
15152     float* Q, lapack_int const* ldq,
15153     float const* vl,
15154     float const* vu, lapack_int const* il, lapack_int const* iu,
15155     float const* abstol, lapack_int* m,
15156     float* W,
15157     float* Z, lapack_int const* ldz,
15158     float* work,
15159     lapack_int* iwork, lapack_int* IFAIL,
15160     lapack_int* info
15161 #ifdef LAPACK_FORTRAN_STRLEN_END
15162     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15163 #endif
15164 );
15165 #ifdef LAPACK_FORTRAN_STRLEN_END
15166     #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1)
15167 #else
15168     #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__)
15169 #endif
15170 
15171 #define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE)
15172 void LAPACK_dsbevx_2stage_base(
15173     char const* jobz, char const* range, char const* uplo,
15174     lapack_int const* n, lapack_int const* kd,
15175     double* AB, lapack_int const* ldab,
15176     double* Q, lapack_int const* ldq,
15177     double const* vl,
15178     double const* vu, lapack_int const* il, lapack_int const* iu,
15179     double const* abstol, lapack_int* m,
15180     double* W,
15181     double* Z, lapack_int const* ldz,
15182     double* work, lapack_int const* lwork,
15183     lapack_int* iwork, lapack_int* IFAIL,
15184     lapack_int* info
15185 #ifdef LAPACK_FORTRAN_STRLEN_END
15186     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15187 #endif
15188 );
15189 #ifdef LAPACK_FORTRAN_STRLEN_END
15190     #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
15191 #else
15192     #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__)
15193 #endif
15194 
15195 #define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE)
15196 void LAPACK_ssbevx_2stage_base(
15197     char const* jobz, char const* range, char const* uplo,
15198     lapack_int const* n, lapack_int const* kd,
15199     float* AB, lapack_int const* ldab,
15200     float* Q, lapack_int const* ldq,
15201     float const* vl,
15202     float const* vu, lapack_int const* il, lapack_int const* iu,
15203     float const* abstol, lapack_int* m,
15204     float* W,
15205     float* Z, lapack_int const* ldz,
15206     float* work, lapack_int const* lwork,
15207     lapack_int* iwork, lapack_int* IFAIL,
15208     lapack_int* info
15209 #ifdef LAPACK_FORTRAN_STRLEN_END
15210     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15211 #endif
15212 );
15213 #ifdef LAPACK_FORTRAN_STRLEN_END
15214     #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
15215 #else
15216     #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__)
15217 #endif
15218 
15219 #define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST)
15220 void LAPACK_dsbgst_base(
15221     char const* vect, char const* uplo,
15222     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15223     double* AB, lapack_int const* ldab,
15224     double const* BB, lapack_int const* ldbb,
15225     double* X, lapack_int const* ldx,
15226     double* work,
15227     lapack_int* info
15228 #ifdef LAPACK_FORTRAN_STRLEN_END
15229     , FORTRAN_STRLEN, FORTRAN_STRLEN
15230 #endif
15231 );
15232 #ifdef LAPACK_FORTRAN_STRLEN_END
15233     #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1)
15234 #else
15235     #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__)
15236 #endif
15237 
15238 #define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST)
15239 void LAPACK_ssbgst_base(
15240     char const* vect, char const* uplo,
15241     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15242     float* AB, lapack_int const* ldab,
15243     float const* BB, lapack_int const* ldbb,
15244     float* X, lapack_int const* ldx,
15245     float* work,
15246     lapack_int* info
15247 #ifdef LAPACK_FORTRAN_STRLEN_END
15248     , FORTRAN_STRLEN, FORTRAN_STRLEN
15249 #endif
15250 );
15251 #ifdef LAPACK_FORTRAN_STRLEN_END
15252     #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1)
15253 #else
15254     #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__)
15255 #endif
15256 
15257 #define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV)
15258 void LAPACK_dsbgv_base(
15259     char const* jobz, char const* uplo,
15260     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15261     double* AB, lapack_int const* ldab,
15262     double* BB, lapack_int const* ldbb,
15263     double* W,
15264     double* Z, lapack_int const* ldz,
15265     double* work,
15266     lapack_int* info
15267 #ifdef LAPACK_FORTRAN_STRLEN_END
15268     , FORTRAN_STRLEN, FORTRAN_STRLEN
15269 #endif
15270 );
15271 #ifdef LAPACK_FORTRAN_STRLEN_END
15272     #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1)
15273 #else
15274     #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__)
15275 #endif
15276 
15277 #define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV)
15278 void LAPACK_ssbgv_base(
15279     char const* jobz, char const* uplo,
15280     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15281     float* AB, lapack_int const* ldab,
15282     float* BB, lapack_int const* ldbb,
15283     float* W,
15284     float* Z, lapack_int const* ldz,
15285     float* work,
15286     lapack_int* info
15287 #ifdef LAPACK_FORTRAN_STRLEN_END
15288     , FORTRAN_STRLEN, FORTRAN_STRLEN
15289 #endif
15290 );
15291 #ifdef LAPACK_FORTRAN_STRLEN_END
15292     #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1)
15293 #else
15294     #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__)
15295 #endif
15296 
15297 #define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD)
15298 void LAPACK_dsbgvd_base(
15299     char const* jobz, char const* uplo,
15300     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15301     double* AB, lapack_int const* ldab,
15302     double* BB, lapack_int const* ldbb,
15303     double* W,
15304     double* Z, lapack_int const* ldz,
15305     double* work, lapack_int const* lwork,
15306     lapack_int* iwork, lapack_int const* liwork,
15307     lapack_int* info
15308 #ifdef LAPACK_FORTRAN_STRLEN_END
15309     , FORTRAN_STRLEN, FORTRAN_STRLEN
15310 #endif
15311 );
15312 #ifdef LAPACK_FORTRAN_STRLEN_END
15313     #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1)
15314 #else
15315     #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__)
15316 #endif
15317 
15318 #define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD)
15319 void LAPACK_ssbgvd_base(
15320     char const* jobz, char const* uplo,
15321     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15322     float* AB, lapack_int const* ldab,
15323     float* BB, lapack_int const* ldbb,
15324     float* W,
15325     float* Z, lapack_int const* ldz,
15326     float* work, lapack_int const* lwork,
15327     lapack_int* iwork, lapack_int const* liwork,
15328     lapack_int* info
15329 #ifdef LAPACK_FORTRAN_STRLEN_END
15330     , FORTRAN_STRLEN, FORTRAN_STRLEN
15331 #endif
15332 );
15333 #ifdef LAPACK_FORTRAN_STRLEN_END
15334     #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1)
15335 #else
15336     #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__)
15337 #endif
15338 
15339 #define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX)
15340 void LAPACK_dsbgvx_base(
15341     char const* jobz, char const* range, char const* uplo,
15342     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15343     double* AB, lapack_int const* ldab,
15344     double* BB, lapack_int const* ldbb,
15345     double* Q, lapack_int const* ldq,
15346     double const* vl,
15347     double const* vu, lapack_int const* il, lapack_int const* iu,
15348     double const* abstol, lapack_int* m,
15349     double* W,
15350     double* Z, lapack_int const* ldz,
15351     double* work,
15352     lapack_int* iwork, lapack_int* IFAIL,
15353     lapack_int* info
15354 #ifdef LAPACK_FORTRAN_STRLEN_END
15355     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15356 #endif
15357 );
15358 #ifdef LAPACK_FORTRAN_STRLEN_END
15359     #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1)
15360 #else
15361     #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__)
15362 #endif
15363 
15364 #define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX)
15365 void LAPACK_ssbgvx_base(
15366     char const* jobz, char const* range, char const* uplo,
15367     lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15368     float* AB, lapack_int const* ldab,
15369     float* BB, lapack_int const* ldbb,
15370     float* Q, lapack_int const* ldq,
15371     float const* vl,
15372     float const* vu, lapack_int const* il, lapack_int const* iu,
15373     float const* abstol, lapack_int* m,
15374     float* W,
15375     float* Z, lapack_int const* ldz,
15376     float* work,
15377     lapack_int* iwork, lapack_int* IFAIL,
15378     lapack_int* info
15379 #ifdef LAPACK_FORTRAN_STRLEN_END
15380     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15381 #endif
15382 );
15383 #ifdef LAPACK_FORTRAN_STRLEN_END
15384     #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1)
15385 #else
15386     #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__)
15387 #endif
15388 
15389 #define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD)
15390 void LAPACK_dsbtrd_base(
15391     char const* vect, char const* uplo,
15392     lapack_int const* n, lapack_int const* kd,
15393     double* AB, lapack_int const* ldab,
15394     double* D,
15395     double* E,
15396     double* Q, lapack_int const* ldq,
15397     double* work,
15398     lapack_int* info
15399 #ifdef LAPACK_FORTRAN_STRLEN_END
15400     , FORTRAN_STRLEN, FORTRAN_STRLEN
15401 #endif
15402 );
15403 #ifdef LAPACK_FORTRAN_STRLEN_END
15404     #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1)
15405 #else
15406     #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__)
15407 #endif
15408 
15409 #define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD)
15410 void LAPACK_ssbtrd_base(
15411     char const* vect, char const* uplo,
15412     lapack_int const* n, lapack_int const* kd,
15413     float* AB, lapack_int const* ldab,
15414     float* D,
15415     float* E,
15416     float* Q, lapack_int const* ldq,
15417     float* work,
15418     lapack_int* info
15419 #ifdef LAPACK_FORTRAN_STRLEN_END
15420     , FORTRAN_STRLEN, FORTRAN_STRLEN
15421 #endif
15422 );
15423 #ifdef LAPACK_FORTRAN_STRLEN_END
15424     #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1)
15425 #else
15426     #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__)
15427 #endif
15428 
15429 #define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK)
15430 void LAPACK_dsfrk_base(
15431     char const* transr, char const* uplo, char const* trans,
15432     lapack_int const* n, lapack_int const* k,
15433     double const* alpha,
15434     double const* A, lapack_int const* lda,
15435     double const* beta,
15436     double* C
15437 #ifdef LAPACK_FORTRAN_STRLEN_END
15438     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15439 #endif
15440 );
15441 #ifdef LAPACK_FORTRAN_STRLEN_END
15442     #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1)
15443 #else
15444     #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__)
15445 #endif
15446 
15447 #define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK)
15448 void LAPACK_ssfrk_base(
15449     char const* transr, char const* uplo, char const* trans,
15450     lapack_int const* n, lapack_int const* k,
15451     float const* alpha,
15452     float const* A, lapack_int const* lda,
15453     float const* beta,
15454     float* C
15455 #ifdef LAPACK_FORTRAN_STRLEN_END
15456     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15457 #endif
15458 );
15459 #ifdef LAPACK_FORTRAN_STRLEN_END
15460     #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1)
15461 #else
15462     #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__)
15463 #endif
15464 
15465 #define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON)
15466 void LAPACK_cspcon_base(
15467     char const* uplo,
15468     lapack_int const* n,
15469     lapack_complex_float const* AP, lapack_int const* ipiv,
15470     float const* anorm,
15471     float* rcond,
15472     lapack_complex_float* work,
15473     lapack_int* info
15474 #ifdef LAPACK_FORTRAN_STRLEN_END
15475     , FORTRAN_STRLEN
15476 #endif
15477 );
15478 #ifdef LAPACK_FORTRAN_STRLEN_END
15479     #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1)
15480 #else
15481     #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__)
15482 #endif
15483 
15484 #define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON)
15485 void LAPACK_dspcon_base(
15486     char const* uplo,
15487     lapack_int const* n,
15488     double const* AP, lapack_int const* ipiv,
15489     double const* anorm,
15490     double* rcond,
15491     double* work,
15492     lapack_int* iwork,
15493     lapack_int* info
15494 #ifdef LAPACK_FORTRAN_STRLEN_END
15495     , FORTRAN_STRLEN
15496 #endif
15497 );
15498 #ifdef LAPACK_FORTRAN_STRLEN_END
15499     #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1)
15500 #else
15501     #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__)
15502 #endif
15503 
15504 #define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON)
15505 void LAPACK_sspcon_base(
15506     char const* uplo,
15507     lapack_int const* n,
15508     float const* AP, lapack_int const* ipiv,
15509     float const* anorm,
15510     float* rcond,
15511     float* work,
15512     lapack_int* iwork,
15513     lapack_int* info
15514 #ifdef LAPACK_FORTRAN_STRLEN_END
15515     , FORTRAN_STRLEN
15516 #endif
15517 );
15518 #ifdef LAPACK_FORTRAN_STRLEN_END
15519     #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1)
15520 #else
15521     #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__)
15522 #endif
15523 
15524 #define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON)
15525 void LAPACK_zspcon_base(
15526     char const* uplo,
15527     lapack_int const* n,
15528     lapack_complex_double const* AP, lapack_int const* ipiv,
15529     double const* anorm,
15530     double* rcond,
15531     lapack_complex_double* work,
15532     lapack_int* info
15533 #ifdef LAPACK_FORTRAN_STRLEN_END
15534     , FORTRAN_STRLEN
15535 #endif
15536 );
15537 #ifdef LAPACK_FORTRAN_STRLEN_END
15538     #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1)
15539 #else
15540     #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__)
15541 #endif
15542 
15543 #define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV)
15544 void LAPACK_dspev_base(
15545     char const* jobz, char const* uplo,
15546     lapack_int const* n,
15547     double* AP,
15548     double* W,
15549     double* Z, lapack_int const* ldz,
15550     double* work,
15551     lapack_int* info
15552 #ifdef LAPACK_FORTRAN_STRLEN_END
15553     , FORTRAN_STRLEN, FORTRAN_STRLEN
15554 #endif
15555 );
15556 #ifdef LAPACK_FORTRAN_STRLEN_END
15557     #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1)
15558 #else
15559     #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__)
15560 #endif
15561 
15562 #define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV)
15563 void LAPACK_sspev_base(
15564     char const* jobz, char const* uplo,
15565     lapack_int const* n,
15566     float* AP,
15567     float* W,
15568     float* Z, lapack_int const* ldz,
15569     float* work,
15570     lapack_int* info
15571 #ifdef LAPACK_FORTRAN_STRLEN_END
15572     , FORTRAN_STRLEN, FORTRAN_STRLEN
15573 #endif
15574 );
15575 #ifdef LAPACK_FORTRAN_STRLEN_END
15576     #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1)
15577 #else
15578     #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__)
15579 #endif
15580 
15581 #define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD)
15582 void LAPACK_dspevd_base(
15583     char const* jobz, char const* uplo,
15584     lapack_int const* n,
15585     double* AP,
15586     double* W,
15587     double* Z, lapack_int const* ldz,
15588     double* work, lapack_int const* lwork,
15589     lapack_int* iwork, lapack_int const* liwork,
15590     lapack_int* info
15591 #ifdef LAPACK_FORTRAN_STRLEN_END
15592     , FORTRAN_STRLEN, FORTRAN_STRLEN
15593 #endif
15594 );
15595 #ifdef LAPACK_FORTRAN_STRLEN_END
15596     #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1)
15597 #else
15598     #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__)
15599 #endif
15600 
15601 #define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD)
15602 void LAPACK_sspevd_base(
15603     char const* jobz, char const* uplo,
15604     lapack_int const* n,
15605     float* AP,
15606     float* W,
15607     float* Z, lapack_int const* ldz,
15608     float* work, lapack_int const* lwork,
15609     lapack_int* iwork, lapack_int const* liwork,
15610     lapack_int* info
15611 #ifdef LAPACK_FORTRAN_STRLEN_END
15612     , FORTRAN_STRLEN, FORTRAN_STRLEN
15613 #endif
15614 );
15615 #ifdef LAPACK_FORTRAN_STRLEN_END
15616     #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1)
15617 #else
15618     #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__)
15619 #endif
15620 
15621 #define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX)
15622 void LAPACK_dspevx_base(
15623     char const* jobz, char const* range, char const* uplo,
15624     lapack_int const* n,
15625     double* AP,
15626     double const* vl,
15627     double const* vu, lapack_int const* il, lapack_int const* iu,
15628     double const* abstol, lapack_int* m,
15629     double* W,
15630     double* Z, lapack_int const* ldz,
15631     double* work,
15632     lapack_int* iwork, lapack_int* IFAIL,
15633     lapack_int* info
15634 #ifdef LAPACK_FORTRAN_STRLEN_END
15635     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15636 #endif
15637 );
15638 #ifdef LAPACK_FORTRAN_STRLEN_END
15639     #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1)
15640 #else
15641     #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__)
15642 #endif
15643 
15644 #define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX)
15645 void LAPACK_sspevx_base(
15646     char const* jobz, char const* range, char const* uplo,
15647     lapack_int const* n,
15648     float* AP,
15649     float const* vl,
15650     float const* vu, lapack_int const* il, lapack_int const* iu,
15651     float const* abstol, lapack_int* m,
15652     float* W,
15653     float* Z, lapack_int const* ldz,
15654     float* work,
15655     lapack_int* iwork, lapack_int* IFAIL,
15656     lapack_int* info
15657 #ifdef LAPACK_FORTRAN_STRLEN_END
15658     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15659 #endif
15660 );
15661 #ifdef LAPACK_FORTRAN_STRLEN_END
15662     #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1)
15663 #else
15664     #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__)
15665 #endif
15666 
15667 #define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST)
15668 void LAPACK_dspgst_base(
15669     lapack_int const* itype, char const* uplo,
15670     lapack_int const* n,
15671     double* AP,
15672     double const* BP,
15673     lapack_int* info
15674 #ifdef LAPACK_FORTRAN_STRLEN_END
15675     , FORTRAN_STRLEN
15676 #endif
15677 );
15678 #ifdef LAPACK_FORTRAN_STRLEN_END
15679     #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1)
15680 #else
15681     #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__)
15682 #endif
15683 
15684 #define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST)
15685 void LAPACK_sspgst_base(
15686     lapack_int const* itype, char const* uplo,
15687     lapack_int const* n,
15688     float* AP,
15689     float const* BP,
15690     lapack_int* info
15691 #ifdef LAPACK_FORTRAN_STRLEN_END
15692     , FORTRAN_STRLEN
15693 #endif
15694 );
15695 #ifdef LAPACK_FORTRAN_STRLEN_END
15696     #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1)
15697 #else
15698     #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__)
15699 #endif
15700 
15701 #define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV)
15702 void LAPACK_dspgv_base(
15703     lapack_int const* itype, char const* jobz, char const* uplo,
15704     lapack_int const* n,
15705     double* AP,
15706     double* BP,
15707     double* W,
15708     double* Z, lapack_int const* ldz,
15709     double* work,
15710     lapack_int* info
15711 #ifdef LAPACK_FORTRAN_STRLEN_END
15712     , FORTRAN_STRLEN, FORTRAN_STRLEN
15713 #endif
15714 );
15715 #ifdef LAPACK_FORTRAN_STRLEN_END
15716     #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1)
15717 #else
15718     #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__)
15719 #endif
15720 
15721 #define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV)
15722 void LAPACK_sspgv_base(
15723     lapack_int const* itype, char const* jobz, char const* uplo,
15724     lapack_int const* n,
15725     float* AP,
15726     float* BP,
15727     float* W,
15728     float* Z, lapack_int const* ldz,
15729     float* work,
15730     lapack_int* info
15731 #ifdef LAPACK_FORTRAN_STRLEN_END
15732     , FORTRAN_STRLEN, FORTRAN_STRLEN
15733 #endif
15734 );
15735 #ifdef LAPACK_FORTRAN_STRLEN_END
15736     #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1)
15737 #else
15738     #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__)
15739 #endif
15740 
15741 #define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD)
15742 void LAPACK_dspgvd_base(
15743     lapack_int const* itype, char const* jobz, char const* uplo,
15744     lapack_int const* n,
15745     double* AP,
15746     double* BP,
15747     double* W,
15748     double* Z, lapack_int const* ldz,
15749     double* work, lapack_int const* lwork,
15750     lapack_int* iwork, lapack_int const* liwork,
15751     lapack_int* info
15752 #ifdef LAPACK_FORTRAN_STRLEN_END
15753     , FORTRAN_STRLEN, FORTRAN_STRLEN
15754 #endif
15755 );
15756 #ifdef LAPACK_FORTRAN_STRLEN_END
15757     #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1)
15758 #else
15759     #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__)
15760 #endif
15761 
15762 #define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD)
15763 void LAPACK_sspgvd_base(
15764     lapack_int const* itype, char const* jobz, char const* uplo,
15765     lapack_int const* n,
15766     float* AP,
15767     float* BP,
15768     float* W,
15769     float* Z, lapack_int const* ldz,
15770     float* work, lapack_int const* lwork,
15771     lapack_int* iwork, lapack_int const* liwork,
15772     lapack_int* info
15773 #ifdef LAPACK_FORTRAN_STRLEN_END
15774     , FORTRAN_STRLEN, FORTRAN_STRLEN
15775 #endif
15776 );
15777 #ifdef LAPACK_FORTRAN_STRLEN_END
15778     #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1)
15779 #else
15780     #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__)
15781 #endif
15782 
15783 #define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX)
15784 void LAPACK_dspgvx_base(
15785     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15786     lapack_int const* n,
15787     double* AP,
15788     double* BP,
15789     double const* vl,
15790     double const* vu, lapack_int const* il, lapack_int const* iu,
15791     double const* abstol, lapack_int* m,
15792     double* W,
15793     double* Z, lapack_int const* ldz,
15794     double* work,
15795     lapack_int* iwork, lapack_int* IFAIL,
15796     lapack_int* info
15797 #ifdef LAPACK_FORTRAN_STRLEN_END
15798     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15799 #endif
15800 );
15801 #ifdef LAPACK_FORTRAN_STRLEN_END
15802     #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1)
15803 #else
15804     #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__)
15805 #endif
15806 
15807 #define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX)
15808 void LAPACK_sspgvx_base(
15809     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15810     lapack_int const* n,
15811     float* AP,
15812     float* BP,
15813     float const* vl,
15814     float const* vu, lapack_int const* il, lapack_int const* iu,
15815     float const* abstol, lapack_int* m,
15816     float* W,
15817     float* Z, lapack_int const* ldz,
15818     float* work,
15819     lapack_int* iwork, lapack_int* IFAIL,
15820     lapack_int* info
15821 #ifdef LAPACK_FORTRAN_STRLEN_END
15822     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
15823 #endif
15824 );
15825 #ifdef LAPACK_FORTRAN_STRLEN_END
15826     #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1)
15827 #else
15828     #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__)
15829 #endif
15830 
15831 #define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS)
15832 void LAPACK_csprfs_base(
15833     char const* uplo,
15834     lapack_int const* n, lapack_int const* nrhs,
15835     lapack_complex_float const* AP,
15836     lapack_complex_float const* AFP, lapack_int const* ipiv,
15837     lapack_complex_float const* B, lapack_int const* ldb,
15838     lapack_complex_float* X, lapack_int const* ldx,
15839     float* ferr,
15840     float* berr,
15841     lapack_complex_float* work,
15842     float* rwork,
15843     lapack_int* info
15844 #ifdef LAPACK_FORTRAN_STRLEN_END
15845     , FORTRAN_STRLEN
15846 #endif
15847 );
15848 #ifdef LAPACK_FORTRAN_STRLEN_END
15849     #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1)
15850 #else
15851     #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__)
15852 #endif
15853 
15854 #define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS)
15855 void LAPACK_dsprfs_base(
15856     char const* uplo,
15857     lapack_int const* n, lapack_int const* nrhs,
15858     double const* AP,
15859     double const* AFP, lapack_int const* ipiv,
15860     double const* B, lapack_int const* ldb,
15861     double* X, lapack_int const* ldx,
15862     double* ferr,
15863     double* berr,
15864     double* work,
15865     lapack_int* iwork,
15866     lapack_int* info
15867 #ifdef LAPACK_FORTRAN_STRLEN_END
15868     , FORTRAN_STRLEN
15869 #endif
15870 );
15871 #ifdef LAPACK_FORTRAN_STRLEN_END
15872     #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1)
15873 #else
15874     #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__)
15875 #endif
15876 
15877 #define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS)
15878 void LAPACK_ssprfs_base(
15879     char const* uplo,
15880     lapack_int const* n, lapack_int const* nrhs,
15881     float const* AP,
15882     float const* AFP, lapack_int const* ipiv,
15883     float const* B, lapack_int const* ldb,
15884     float* X, lapack_int const* ldx,
15885     float* ferr,
15886     float* berr,
15887     float* work,
15888     lapack_int* iwork,
15889     lapack_int* info
15890 #ifdef LAPACK_FORTRAN_STRLEN_END
15891     , FORTRAN_STRLEN
15892 #endif
15893 );
15894 #ifdef LAPACK_FORTRAN_STRLEN_END
15895     #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1)
15896 #else
15897     #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__)
15898 #endif
15899 
15900 #define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS)
15901 void LAPACK_zsprfs_base(
15902     char const* uplo,
15903     lapack_int const* n, lapack_int const* nrhs,
15904     lapack_complex_double const* AP,
15905     lapack_complex_double const* AFP, lapack_int const* ipiv,
15906     lapack_complex_double const* B, lapack_int const* ldb,
15907     lapack_complex_double* X, lapack_int const* ldx,
15908     double* ferr,
15909     double* berr,
15910     lapack_complex_double* work,
15911     double* rwork,
15912     lapack_int* info
15913 #ifdef LAPACK_FORTRAN_STRLEN_END
15914     , FORTRAN_STRLEN
15915 #endif
15916 );
15917 #ifdef LAPACK_FORTRAN_STRLEN_END
15918     #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1)
15919 #else
15920     #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__)
15921 #endif
15922 
15923 #define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV)
15924 void LAPACK_cspsv_base(
15925     char const* uplo,
15926     lapack_int const* n, lapack_int const* nrhs,
15927     lapack_complex_float* AP, lapack_int* ipiv,
15928     lapack_complex_float* B, lapack_int const* ldb,
15929     lapack_int* info
15930 #ifdef LAPACK_FORTRAN_STRLEN_END
15931     , FORTRAN_STRLEN
15932 #endif
15933 );
15934 #ifdef LAPACK_FORTRAN_STRLEN_END
15935     #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1)
15936 #else
15937     #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__)
15938 #endif
15939 
15940 #define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV)
15941 void LAPACK_dspsv_base(
15942     char const* uplo,
15943     lapack_int const* n, lapack_int const* nrhs,
15944     double* AP, lapack_int* ipiv,
15945     double* B, lapack_int const* ldb,
15946     lapack_int* info
15947 #ifdef LAPACK_FORTRAN_STRLEN_END
15948     , FORTRAN_STRLEN
15949 #endif
15950 );
15951 #ifdef LAPACK_FORTRAN_STRLEN_END
15952     #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1)
15953 #else
15954     #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__)
15955 #endif
15956 
15957 #define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV)
15958 void LAPACK_sspsv_base(
15959     char const* uplo,
15960     lapack_int const* n, lapack_int const* nrhs,
15961     float* AP, lapack_int* ipiv,
15962     float* B, lapack_int const* ldb,
15963     lapack_int* info
15964 #ifdef LAPACK_FORTRAN_STRLEN_END
15965     , FORTRAN_STRLEN
15966 #endif
15967 );
15968 #ifdef LAPACK_FORTRAN_STRLEN_END
15969     #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1)
15970 #else
15971     #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__)
15972 #endif
15973 
15974 #define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV)
15975 void LAPACK_zspsv_base(
15976     char const* uplo,
15977     lapack_int const* n, lapack_int const* nrhs,
15978     lapack_complex_double* AP, lapack_int* ipiv,
15979     lapack_complex_double* B, lapack_int const* ldb,
15980     lapack_int* info
15981 #ifdef LAPACK_FORTRAN_STRLEN_END
15982     , FORTRAN_STRLEN
15983 #endif
15984 );
15985 #ifdef LAPACK_FORTRAN_STRLEN_END
15986     #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1)
15987 #else
15988     #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__)
15989 #endif
15990 
15991 #define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX)
15992 void LAPACK_cspsvx_base(
15993     char const* fact, char const* uplo,
15994     lapack_int const* n, lapack_int const* nrhs,
15995     lapack_complex_float const* AP,
15996     lapack_complex_float* AFP, lapack_int* ipiv,
15997     lapack_complex_float const* B, lapack_int const* ldb,
15998     lapack_complex_float* X, lapack_int const* ldx,
15999     float* rcond,
16000     float* ferr,
16001     float* berr,
16002     lapack_complex_float* work,
16003     float* rwork,
16004     lapack_int* info
16005 #ifdef LAPACK_FORTRAN_STRLEN_END
16006     , FORTRAN_STRLEN, FORTRAN_STRLEN
16007 #endif
16008 );
16009 #ifdef LAPACK_FORTRAN_STRLEN_END
16010     #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1)
16011 #else
16012     #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__)
16013 #endif
16014 
16015 #define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX)
16016 void LAPACK_dspsvx_base(
16017     char const* fact, char const* uplo,
16018     lapack_int const* n, lapack_int const* nrhs,
16019     double const* AP,
16020     double* AFP, lapack_int* ipiv,
16021     double const* B, lapack_int const* ldb,
16022     double* X, lapack_int const* ldx,
16023     double* rcond,
16024     double* ferr,
16025     double* berr,
16026     double* work,
16027     lapack_int* iwork,
16028     lapack_int* info
16029 #ifdef LAPACK_FORTRAN_STRLEN_END
16030     , FORTRAN_STRLEN, FORTRAN_STRLEN
16031 #endif
16032 );
16033 #ifdef LAPACK_FORTRAN_STRLEN_END
16034     #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1)
16035 #else
16036     #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__)
16037 #endif
16038 
16039 #define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX)
16040 void LAPACK_sspsvx_base(
16041     char const* fact, char const* uplo,
16042     lapack_int const* n, lapack_int const* nrhs,
16043     float const* AP,
16044     float* AFP, lapack_int* ipiv,
16045     float const* B, lapack_int const* ldb,
16046     float* X, lapack_int const* ldx,
16047     float* rcond,
16048     float* ferr,
16049     float* berr,
16050     float* work,
16051     lapack_int* iwork,
16052     lapack_int* info
16053 #ifdef LAPACK_FORTRAN_STRLEN_END
16054     , FORTRAN_STRLEN, FORTRAN_STRLEN
16055 #endif
16056 );
16057 #ifdef LAPACK_FORTRAN_STRLEN_END
16058     #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1)
16059 #else
16060     #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__)
16061 #endif
16062 
16063 #define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX)
16064 void LAPACK_zspsvx_base(
16065     char const* fact, char const* uplo,
16066     lapack_int const* n, lapack_int const* nrhs,
16067     lapack_complex_double const* AP,
16068     lapack_complex_double* AFP, lapack_int* ipiv,
16069     lapack_complex_double const* B, lapack_int const* ldb,
16070     lapack_complex_double* X, lapack_int const* ldx,
16071     double* rcond,
16072     double* ferr,
16073     double* berr,
16074     lapack_complex_double* work,
16075     double* rwork,
16076     lapack_int* info
16077 #ifdef LAPACK_FORTRAN_STRLEN_END
16078     , FORTRAN_STRLEN, FORTRAN_STRLEN
16079 #endif
16080 );
16081 #ifdef LAPACK_FORTRAN_STRLEN_END
16082     #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1)
16083 #else
16084     #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__)
16085 #endif
16086 
16087 #define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD)
16088 void LAPACK_dsptrd_base(
16089     char const* uplo,
16090     lapack_int const* n,
16091     double* AP,
16092     double* D,
16093     double* E,
16094     double* tau,
16095     lapack_int* info
16096 #ifdef LAPACK_FORTRAN_STRLEN_END
16097     , FORTRAN_STRLEN
16098 #endif
16099 );
16100 #ifdef LAPACK_FORTRAN_STRLEN_END
16101     #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1)
16102 #else
16103     #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__)
16104 #endif
16105 
16106 #define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD)
16107 void LAPACK_ssptrd_base(
16108     char const* uplo,
16109     lapack_int const* n,
16110     float* AP,
16111     float* D,
16112     float* E,
16113     float* tau,
16114     lapack_int* info
16115 #ifdef LAPACK_FORTRAN_STRLEN_END
16116     , FORTRAN_STRLEN
16117 #endif
16118 );
16119 #ifdef LAPACK_FORTRAN_STRLEN_END
16120     #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1)
16121 #else
16122     #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__)
16123 #endif
16124 
16125 #define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF)
16126 void LAPACK_csptrf_base(
16127     char const* uplo,
16128     lapack_int const* n,
16129     lapack_complex_float* AP, lapack_int* ipiv,
16130     lapack_int* info
16131 #ifdef LAPACK_FORTRAN_STRLEN_END
16132     , FORTRAN_STRLEN
16133 #endif
16134 );
16135 #ifdef LAPACK_FORTRAN_STRLEN_END
16136     #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1)
16137 #else
16138     #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__)
16139 #endif
16140 
16141 #define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF)
16142 void LAPACK_dsptrf_base(
16143     char const* uplo,
16144     lapack_int const* n,
16145     double* AP, lapack_int* ipiv,
16146     lapack_int* info
16147 #ifdef LAPACK_FORTRAN_STRLEN_END
16148     , FORTRAN_STRLEN
16149 #endif
16150 );
16151 #ifdef LAPACK_FORTRAN_STRLEN_END
16152     #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1)
16153 #else
16154     #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__)
16155 #endif
16156 
16157 #define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF)
16158 void LAPACK_ssptrf_base(
16159     char const* uplo,
16160     lapack_int const* n,
16161     float* AP, lapack_int* ipiv,
16162     lapack_int* info
16163 #ifdef LAPACK_FORTRAN_STRLEN_END
16164     , FORTRAN_STRLEN
16165 #endif
16166 );
16167 #ifdef LAPACK_FORTRAN_STRLEN_END
16168     #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1)
16169 #else
16170     #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__)
16171 #endif
16172 
16173 #define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF)
16174 void LAPACK_zsptrf_base(
16175     char const* uplo,
16176     lapack_int const* n,
16177     lapack_complex_double* AP, lapack_int* ipiv,
16178     lapack_int* info
16179 #ifdef LAPACK_FORTRAN_STRLEN_END
16180     , FORTRAN_STRLEN
16181 #endif
16182 );
16183 #ifdef LAPACK_FORTRAN_STRLEN_END
16184     #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1)
16185 #else
16186     #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__)
16187 #endif
16188 
16189 #define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI)
16190 void LAPACK_csptri_base(
16191     char const* uplo,
16192     lapack_int const* n,
16193     lapack_complex_float* AP, lapack_int const* ipiv,
16194     lapack_complex_float* work,
16195     lapack_int* info
16196 #ifdef LAPACK_FORTRAN_STRLEN_END
16197     , FORTRAN_STRLEN
16198 #endif
16199 );
16200 #ifdef LAPACK_FORTRAN_STRLEN_END
16201     #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1)
16202 #else
16203     #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__)
16204 #endif
16205 
16206 #define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI)
16207 void LAPACK_dsptri_base(
16208     char const* uplo,
16209     lapack_int const* n,
16210     double* AP, lapack_int const* ipiv,
16211     double* work,
16212     lapack_int* info
16213 #ifdef LAPACK_FORTRAN_STRLEN_END
16214     , FORTRAN_STRLEN
16215 #endif
16216 );
16217 #ifdef LAPACK_FORTRAN_STRLEN_END
16218     #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1)
16219 #else
16220     #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__)
16221 #endif
16222 
16223 #define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI)
16224 void LAPACK_ssptri_base(
16225     char const* uplo,
16226     lapack_int const* n,
16227     float* AP, lapack_int const* ipiv,
16228     float* work,
16229     lapack_int* info
16230 #ifdef LAPACK_FORTRAN_STRLEN_END
16231     , FORTRAN_STRLEN
16232 #endif
16233 );
16234 #ifdef LAPACK_FORTRAN_STRLEN_END
16235     #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1)
16236 #else
16237     #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__)
16238 #endif
16239 
16240 #define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI)
16241 void LAPACK_zsptri_base(
16242     char const* uplo,
16243     lapack_int const* n,
16244     lapack_complex_double* AP, lapack_int const* ipiv,
16245     lapack_complex_double* work,
16246     lapack_int* info
16247 #ifdef LAPACK_FORTRAN_STRLEN_END
16248     , FORTRAN_STRLEN
16249 #endif
16250 );
16251 #ifdef LAPACK_FORTRAN_STRLEN_END
16252     #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1)
16253 #else
16254     #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__)
16255 #endif
16256 
16257 #define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS)
16258 void LAPACK_csptrs_base(
16259     char const* uplo,
16260     lapack_int const* n, lapack_int const* nrhs,
16261     lapack_complex_float const* AP, lapack_int const* ipiv,
16262     lapack_complex_float* B, lapack_int const* ldb,
16263     lapack_int* info
16264 #ifdef LAPACK_FORTRAN_STRLEN_END
16265     , FORTRAN_STRLEN
16266 #endif
16267 );
16268 #ifdef LAPACK_FORTRAN_STRLEN_END
16269     #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1)
16270 #else
16271     #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__)
16272 #endif
16273 
16274 #define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS)
16275 void LAPACK_dsptrs_base(
16276     char const* uplo,
16277     lapack_int const* n, lapack_int const* nrhs,
16278     double const* AP, lapack_int const* ipiv,
16279     double* B, lapack_int const* ldb,
16280     lapack_int* info
16281 #ifdef LAPACK_FORTRAN_STRLEN_END
16282     , FORTRAN_STRLEN
16283 #endif
16284 );
16285 #ifdef LAPACK_FORTRAN_STRLEN_END
16286     #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1)
16287 #else
16288     #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__)
16289 #endif
16290 
16291 #define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS)
16292 void LAPACK_ssptrs_base(
16293     char const* uplo,
16294     lapack_int const* n, lapack_int const* nrhs,
16295     float const* AP, lapack_int const* ipiv,
16296     float* B, lapack_int const* ldb,
16297     lapack_int* info
16298 #ifdef LAPACK_FORTRAN_STRLEN_END
16299     , FORTRAN_STRLEN
16300 #endif
16301 );
16302 #ifdef LAPACK_FORTRAN_STRLEN_END
16303     #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1)
16304 #else
16305     #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__)
16306 #endif
16307 
16308 #define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS)
16309 void LAPACK_zsptrs_base(
16310     char const* uplo,
16311     lapack_int const* n, lapack_int const* nrhs,
16312     lapack_complex_double const* AP, lapack_int const* ipiv,
16313     lapack_complex_double* B, lapack_int const* ldb,
16314     lapack_int* info
16315 #ifdef LAPACK_FORTRAN_STRLEN_END
16316     , FORTRAN_STRLEN
16317 #endif
16318 );
16319 #ifdef LAPACK_FORTRAN_STRLEN_END
16320     #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1)
16321 #else
16322     #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__)
16323 #endif
16324 
16325 #define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ)
16326 void LAPACK_dstebz_base(
16327     char const* range, char const* order,
16328     lapack_int const* n,
16329     double const* vl,
16330     double const* vu, lapack_int const* il, lapack_int const* iu,
16331     double const* abstol,
16332     double const* D,
16333     double const* E, lapack_int* m, lapack_int* nsplit,
16334     double* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16335     double* work,
16336     lapack_int* iwork,
16337     lapack_int* info
16338 #ifdef LAPACK_FORTRAN_STRLEN_END
16339     , FORTRAN_STRLEN, FORTRAN_STRLEN
16340 #endif
16341 );
16342 #ifdef LAPACK_FORTRAN_STRLEN_END
16343     #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1)
16344 #else
16345     #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__)
16346 #endif
16347 
16348 #define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ)
16349 void LAPACK_sstebz_base(
16350     char const* range, char const* order,
16351     lapack_int const* n,
16352     float const* vl,
16353     float const* vu, lapack_int const* il, lapack_int const* iu,
16354     float const* abstol,
16355     float const* D,
16356     float const* E, lapack_int* m, lapack_int* nsplit,
16357     float* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16358     float* work,
16359     lapack_int* iwork,
16360     lapack_int* info
16361 #ifdef LAPACK_FORTRAN_STRLEN_END
16362     , FORTRAN_STRLEN, FORTRAN_STRLEN
16363 #endif
16364 );
16365 #ifdef LAPACK_FORTRAN_STRLEN_END
16366     #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1)
16367 #else
16368     #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__)
16369 #endif
16370 
16371 #define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC)
16372 void LAPACK_cstedc_base(
16373     char const* compz,
16374     lapack_int const* n,
16375     float* D,
16376     float* E,
16377     lapack_complex_float* Z, lapack_int const* ldz,
16378     lapack_complex_float* work, lapack_int const* lwork,
16379     float* rwork, lapack_int const* lrwork,
16380     lapack_int* iwork, lapack_int const* liwork,
16381     lapack_int* info
16382 #ifdef LAPACK_FORTRAN_STRLEN_END
16383     , FORTRAN_STRLEN
16384 #endif
16385 );
16386 #ifdef LAPACK_FORTRAN_STRLEN_END
16387     #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1)
16388 #else
16389     #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__)
16390 #endif
16391 
16392 #define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC)
16393 void LAPACK_dstedc_base(
16394     char const* compz,
16395     lapack_int const* n,
16396     double* D,
16397     double* E,
16398     double* Z, lapack_int const* ldz,
16399     double* work, lapack_int const* lwork,
16400     lapack_int* iwork, lapack_int const* liwork,
16401     lapack_int* info
16402 #ifdef LAPACK_FORTRAN_STRLEN_END
16403     , FORTRAN_STRLEN
16404 #endif
16405 );
16406 #ifdef LAPACK_FORTRAN_STRLEN_END
16407     #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1)
16408 #else
16409     #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__)
16410 #endif
16411 
16412 #define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC)
16413 void LAPACK_sstedc_base(
16414     char const* compz,
16415     lapack_int const* n,
16416     float* D,
16417     float* E,
16418     float* Z, lapack_int const* ldz,
16419     float* work, lapack_int const* lwork,
16420     lapack_int* iwork, lapack_int const* liwork,
16421     lapack_int* info
16422 #ifdef LAPACK_FORTRAN_STRLEN_END
16423     , FORTRAN_STRLEN
16424 #endif
16425 );
16426 #ifdef LAPACK_FORTRAN_STRLEN_END
16427     #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1)
16428 #else
16429     #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__)
16430 #endif
16431 
16432 #define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC)
16433 void LAPACK_zstedc_base(
16434     char const* compz,
16435     lapack_int const* n,
16436     double* D,
16437     double* E,
16438     lapack_complex_double* Z, lapack_int const* ldz,
16439     lapack_complex_double* work, lapack_int const* lwork,
16440     double* rwork, lapack_int const* lrwork,
16441     lapack_int* iwork, lapack_int const* liwork,
16442     lapack_int* info
16443 #ifdef LAPACK_FORTRAN_STRLEN_END
16444     , FORTRAN_STRLEN
16445 #endif
16446 );
16447 #ifdef LAPACK_FORTRAN_STRLEN_END
16448     #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1)
16449 #else
16450     #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__)
16451 #endif
16452 
16453 #define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR)
16454 void LAPACK_cstegr_base(
16455     char const* jobz, char const* range,
16456     lapack_int const* n,
16457     float* D,
16458     float* E,
16459     float const* vl,
16460     float const* vu, lapack_int const* il, lapack_int const* iu,
16461     float const* abstol, lapack_int* m,
16462     float* W,
16463     lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16464     float* work, lapack_int const* lwork,
16465     lapack_int* iwork, lapack_int const* liwork,
16466     lapack_int* info
16467 #ifdef LAPACK_FORTRAN_STRLEN_END
16468     , FORTRAN_STRLEN, FORTRAN_STRLEN
16469 #endif
16470 );
16471 #ifdef LAPACK_FORTRAN_STRLEN_END
16472     #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1)
16473 #else
16474     #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__)
16475 #endif
16476 
16477 #define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR)
16478 void LAPACK_dstegr_base(
16479     char const* jobz, char const* range,
16480     lapack_int const* n,
16481     double* D,
16482     double* E,
16483     double const* vl,
16484     double const* vu, lapack_int const* il, lapack_int const* iu,
16485     double const* abstol, lapack_int* m,
16486     double* W,
16487     double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16488     double* work, lapack_int const* lwork,
16489     lapack_int* iwork, lapack_int const* liwork,
16490     lapack_int* info
16491 #ifdef LAPACK_FORTRAN_STRLEN_END
16492     , FORTRAN_STRLEN, FORTRAN_STRLEN
16493 #endif
16494 );
16495 #ifdef LAPACK_FORTRAN_STRLEN_END
16496     #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1)
16497 #else
16498     #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__)
16499 #endif
16500 
16501 #define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR)
16502 void LAPACK_sstegr_base(
16503     char const* jobz, char const* range,
16504     lapack_int const* n,
16505     float* D,
16506     float* E,
16507     float const* vl,
16508     float const* vu, lapack_int const* il, lapack_int const* iu,
16509     float const* abstol, lapack_int* m,
16510     float* W,
16511     float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16512     float* work, lapack_int const* lwork,
16513     lapack_int* iwork, lapack_int const* liwork,
16514     lapack_int* info
16515 #ifdef LAPACK_FORTRAN_STRLEN_END
16516     , FORTRAN_STRLEN, FORTRAN_STRLEN
16517 #endif
16518 );
16519 #ifdef LAPACK_FORTRAN_STRLEN_END
16520     #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1)
16521 #else
16522     #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__)
16523 #endif
16524 
16525 #define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR)
16526 void LAPACK_zstegr_base(
16527     char const* jobz, char const* range,
16528     lapack_int const* n,
16529     double* D,
16530     double* E,
16531     double const* vl,
16532     double const* vu, lapack_int const* il, lapack_int const* iu,
16533     double const* abstol, lapack_int* m,
16534     double* W,
16535     lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16536     double* work, lapack_int const* lwork,
16537     lapack_int* iwork, lapack_int const* liwork,
16538     lapack_int* info
16539 #ifdef LAPACK_FORTRAN_STRLEN_END
16540     , FORTRAN_STRLEN, FORTRAN_STRLEN
16541 #endif
16542 );
16543 #ifdef LAPACK_FORTRAN_STRLEN_END
16544     #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1)
16545 #else
16546     #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__)
16547 #endif
16548 
16549 #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
16550 void LAPACK_cstein(
16551     lapack_int const* n,
16552     float const* D,
16553     float const* E, lapack_int const* m,
16554     float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16555     lapack_complex_float* Z, lapack_int const* ldz,
16556     float* work,
16557     lapack_int* iwork, lapack_int* IFAIL,
16558     lapack_int* info );
16559 
16560 #define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
16561 void LAPACK_dstein(
16562     lapack_int const* n,
16563     double const* D,
16564     double const* E, lapack_int const* m,
16565     double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16566     double* Z, lapack_int const* ldz,
16567     double* work,
16568     lapack_int* iwork, lapack_int* IFAIL,
16569     lapack_int* info );
16570 
16571 #define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
16572 void LAPACK_sstein(
16573     lapack_int const* n,
16574     float const* D,
16575     float const* E, lapack_int const* m,
16576     float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16577     float* Z, lapack_int const* ldz,
16578     float* work,
16579     lapack_int* iwork, lapack_int* IFAIL,
16580     lapack_int* info );
16581 
16582 #define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
16583 void LAPACK_zstein(
16584     lapack_int const* n,
16585     double const* D,
16586     double const* E, lapack_int const* m,
16587     double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16588     lapack_complex_double* Z, lapack_int const* ldz,
16589     double* work,
16590     lapack_int* iwork, lapack_int* IFAIL,
16591     lapack_int* info );
16592 
16593 #define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR)
16594 void LAPACK_cstemr_base(
16595     char const* jobz, char const* range,
16596     lapack_int const* n,
16597     float* D,
16598     float* E,
16599     float const* vl,
16600     float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16601     float* W,
16602     lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16603     float* work, lapack_int const* lwork,
16604     lapack_int* iwork, lapack_int const* liwork,
16605     lapack_int* info
16606 #ifdef LAPACK_FORTRAN_STRLEN_END
16607     , FORTRAN_STRLEN, FORTRAN_STRLEN
16608 #endif
16609 );
16610 #ifdef LAPACK_FORTRAN_STRLEN_END
16611     #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1)
16612 #else
16613     #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__)
16614 #endif
16615 
16616 #define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR)
16617 void LAPACK_dstemr_base(
16618     char const* jobz, char const* range,
16619     lapack_int const* n,
16620     double* D,
16621     double* E,
16622     double const* vl,
16623     double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16624     double* W,
16625     double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16626     double* work, lapack_int const* lwork,
16627     lapack_int* iwork, lapack_int const* liwork,
16628     lapack_int* info
16629 #ifdef LAPACK_FORTRAN_STRLEN_END
16630     , FORTRAN_STRLEN, FORTRAN_STRLEN
16631 #endif
16632 );
16633 #ifdef LAPACK_FORTRAN_STRLEN_END
16634     #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1)
16635 #else
16636     #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__)
16637 #endif
16638 
16639 #define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR)
16640 void LAPACK_sstemr_base(
16641     char const* jobz, char const* range,
16642     lapack_int const* n,
16643     float* D,
16644     float* E,
16645     float const* vl,
16646     float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16647     float* W,
16648     float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16649     float* work, lapack_int const* lwork,
16650     lapack_int* iwork, lapack_int const* liwork,
16651     lapack_int* info
16652 #ifdef LAPACK_FORTRAN_STRLEN_END
16653     , FORTRAN_STRLEN, FORTRAN_STRLEN
16654 #endif
16655 );
16656 #ifdef LAPACK_FORTRAN_STRLEN_END
16657     #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1)
16658 #else
16659     #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__)
16660 #endif
16661 
16662 #define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR)
16663 void LAPACK_zstemr_base(
16664     char const* jobz, char const* range,
16665     lapack_int const* n,
16666     double* D,
16667     double* E,
16668     double const* vl,
16669     double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16670     double* W,
16671     lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16672     double* work, lapack_int const* lwork,
16673     lapack_int* iwork, lapack_int const* liwork,
16674     lapack_int* info
16675 #ifdef LAPACK_FORTRAN_STRLEN_END
16676     , FORTRAN_STRLEN, FORTRAN_STRLEN
16677 #endif
16678 );
16679 #ifdef LAPACK_FORTRAN_STRLEN_END
16680     #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1)
16681 #else
16682     #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__)
16683 #endif
16684 
16685 #define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR)
16686 void LAPACK_csteqr_base(
16687     char const* compz,
16688     lapack_int const* n,
16689     float* D,
16690     float* E,
16691     lapack_complex_float* Z, lapack_int const* ldz,
16692     float* work,
16693     lapack_int* info
16694 #ifdef LAPACK_FORTRAN_STRLEN_END
16695     , FORTRAN_STRLEN
16696 #endif
16697 );
16698 #ifdef LAPACK_FORTRAN_STRLEN_END
16699     #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1)
16700 #else
16701     #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__)
16702 #endif
16703 
16704 #define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR)
16705 void LAPACK_dsteqr_base(
16706     char const* compz,
16707     lapack_int const* n,
16708     double* D,
16709     double* E,
16710     double* Z, lapack_int const* ldz,
16711     double* work,
16712     lapack_int* info
16713 #ifdef LAPACK_FORTRAN_STRLEN_END
16714     , FORTRAN_STRLEN
16715 #endif
16716 );
16717 #ifdef LAPACK_FORTRAN_STRLEN_END
16718     #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1)
16719 #else
16720     #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__)
16721 #endif
16722 
16723 #define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR)
16724 void LAPACK_ssteqr_base(
16725     char const* compz,
16726     lapack_int const* n,
16727     float* D,
16728     float* E,
16729     float* Z, lapack_int const* ldz,
16730     float* work,
16731     lapack_int* info
16732 #ifdef LAPACK_FORTRAN_STRLEN_END
16733     , FORTRAN_STRLEN
16734 #endif
16735 );
16736 #ifdef LAPACK_FORTRAN_STRLEN_END
16737     #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1)
16738 #else
16739     #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__)
16740 #endif
16741 
16742 #define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR)
16743 void LAPACK_zsteqr_base(
16744     char const* compz,
16745     lapack_int const* n,
16746     double* D,
16747     double* E,
16748     lapack_complex_double* Z, lapack_int const* ldz,
16749     double* work,
16750     lapack_int* info
16751 #ifdef LAPACK_FORTRAN_STRLEN_END
16752     , FORTRAN_STRLEN
16753 #endif
16754 );
16755 #ifdef LAPACK_FORTRAN_STRLEN_END
16756     #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1)
16757 #else
16758     #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__)
16759 #endif
16760 
16761 #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
16762 void LAPACK_dsterf(
16763     lapack_int const* n,
16764     double* D,
16765     double* E,
16766     lapack_int* info );
16767 
16768 #define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
16769 void LAPACK_ssterf(
16770     lapack_int const* n,
16771     float* D,
16772     float* E,
16773     lapack_int* info );
16774 
16775 #define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV)
16776 void LAPACK_dstev_base(
16777     char const* jobz,
16778     lapack_int const* n,
16779     double* D,
16780     double* E,
16781     double* Z, lapack_int const* ldz,
16782     double* work,
16783     lapack_int* info
16784 #ifdef LAPACK_FORTRAN_STRLEN_END
16785     , FORTRAN_STRLEN
16786 #endif
16787 );
16788 #ifdef LAPACK_FORTRAN_STRLEN_END
16789     #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1)
16790 #else
16791     #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__)
16792 #endif
16793 
16794 #define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV)
16795 void LAPACK_sstev_base(
16796     char const* jobz,
16797     lapack_int const* n,
16798     float* D,
16799     float* E,
16800     float* Z, lapack_int const* ldz,
16801     float* work,
16802     lapack_int* info
16803 #ifdef LAPACK_FORTRAN_STRLEN_END
16804     , FORTRAN_STRLEN
16805 #endif
16806 );
16807 #ifdef LAPACK_FORTRAN_STRLEN_END
16808     #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1)
16809 #else
16810     #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__)
16811 #endif
16812 
16813 #define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD)
16814 void LAPACK_dstevd_base(
16815     char const* jobz,
16816     lapack_int const* n,
16817     double* D,
16818     double* E,
16819     double* Z, lapack_int const* ldz,
16820     double* work, lapack_int const* lwork,
16821     lapack_int* iwork, lapack_int const* liwork,
16822     lapack_int* info
16823 #ifdef LAPACK_FORTRAN_STRLEN_END
16824     , FORTRAN_STRLEN
16825 #endif
16826 );
16827 #ifdef LAPACK_FORTRAN_STRLEN_END
16828     #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1)
16829 #else
16830     #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__)
16831 #endif
16832 
16833 #define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD)
16834 void LAPACK_sstevd_base(
16835     char const* jobz,
16836     lapack_int const* n,
16837     float* D,
16838     float* E,
16839     float* Z, lapack_int const* ldz,
16840     float* work, lapack_int const* lwork,
16841     lapack_int* iwork, lapack_int const* liwork,
16842     lapack_int* info
16843 #ifdef LAPACK_FORTRAN_STRLEN_END
16844     , FORTRAN_STRLEN
16845 #endif
16846 );
16847 #ifdef LAPACK_FORTRAN_STRLEN_END
16848     #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1)
16849 #else
16850     #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__)
16851 #endif
16852 
16853 #define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR)
16854 void LAPACK_dstevr_base(
16855     char const* jobz, char const* range,
16856     lapack_int const* n,
16857     double* D,
16858     double* E,
16859     double const* vl,
16860     double const* vu, lapack_int const* il, lapack_int const* iu,
16861     double const* abstol, lapack_int* m,
16862     double* W,
16863     double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16864     double* work, lapack_int const* lwork,
16865     lapack_int* iwork, lapack_int const* liwork,
16866     lapack_int* info
16867 #ifdef LAPACK_FORTRAN_STRLEN_END
16868     , FORTRAN_STRLEN, FORTRAN_STRLEN
16869 #endif
16870 );
16871 #ifdef LAPACK_FORTRAN_STRLEN_END
16872     #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1)
16873 #else
16874     #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__)
16875 #endif
16876 
16877 #define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR)
16878 void LAPACK_sstevr_base(
16879     char const* jobz, char const* range,
16880     lapack_int const* n,
16881     float* D,
16882     float* E,
16883     float const* vl,
16884     float const* vu, lapack_int const* il, lapack_int const* iu,
16885     float const* abstol, lapack_int* m,
16886     float* W,
16887     float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16888     float* work, lapack_int const* lwork,
16889     lapack_int* iwork, lapack_int const* liwork,
16890     lapack_int* info
16891 #ifdef LAPACK_FORTRAN_STRLEN_END
16892     , FORTRAN_STRLEN, FORTRAN_STRLEN
16893 #endif
16894 );
16895 #ifdef LAPACK_FORTRAN_STRLEN_END
16896     #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1)
16897 #else
16898     #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__)
16899 #endif
16900 
16901 #define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX)
16902 void LAPACK_dstevx_base(
16903     char const* jobz, char const* range,
16904     lapack_int const* n,
16905     double* D,
16906     double* E,
16907     double const* vl,
16908     double const* vu, lapack_int const* il, lapack_int const* iu,
16909     double const* abstol, lapack_int* m,
16910     double* W,
16911     double* Z, lapack_int const* ldz,
16912     double* work,
16913     lapack_int* iwork, lapack_int* IFAIL,
16914     lapack_int* info
16915 #ifdef LAPACK_FORTRAN_STRLEN_END
16916     , FORTRAN_STRLEN, FORTRAN_STRLEN
16917 #endif
16918 );
16919 #ifdef LAPACK_FORTRAN_STRLEN_END
16920     #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1)
16921 #else
16922     #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__)
16923 #endif
16924 
16925 #define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX)
16926 void LAPACK_sstevx_base(
16927     char const* jobz, char const* range,
16928     lapack_int const* n,
16929     float* D,
16930     float* E,
16931     float const* vl,
16932     float const* vu, lapack_int const* il, lapack_int const* iu,
16933     float const* abstol, lapack_int* m,
16934     float* W,
16935     float* Z, lapack_int const* ldz,
16936     float* work,
16937     lapack_int* iwork, lapack_int* IFAIL,
16938     lapack_int* info
16939 #ifdef LAPACK_FORTRAN_STRLEN_END
16940     , FORTRAN_STRLEN, FORTRAN_STRLEN
16941 #endif
16942 );
16943 #ifdef LAPACK_FORTRAN_STRLEN_END
16944     #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1)
16945 #else
16946     #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__)
16947 #endif
16948 
16949 #define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON)
16950 void LAPACK_csycon_base(
16951     char const* uplo,
16952     lapack_int const* n,
16953     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
16954     float const* anorm,
16955     float* rcond,
16956     lapack_complex_float* work,
16957     lapack_int* info
16958 #ifdef LAPACK_FORTRAN_STRLEN_END
16959     , FORTRAN_STRLEN
16960 #endif
16961 );
16962 #ifdef LAPACK_FORTRAN_STRLEN_END
16963     #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1)
16964 #else
16965     #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__)
16966 #endif
16967 
16968 #define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON)
16969 void LAPACK_dsycon_base(
16970     char const* uplo,
16971     lapack_int const* n,
16972     double const* A, lapack_int const* lda, lapack_int const* ipiv,
16973     double const* anorm,
16974     double* rcond,
16975     double* work,
16976     lapack_int* iwork,
16977     lapack_int* info
16978 #ifdef LAPACK_FORTRAN_STRLEN_END
16979     , FORTRAN_STRLEN
16980 #endif
16981 );
16982 #ifdef LAPACK_FORTRAN_STRLEN_END
16983     #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1)
16984 #else
16985     #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__)
16986 #endif
16987 
16988 #define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON)
16989 void LAPACK_ssycon_base(
16990     char const* uplo,
16991     lapack_int const* n,
16992     float const* A, lapack_int const* lda, lapack_int const* ipiv,
16993     float const* anorm,
16994     float* rcond,
16995     float* work,
16996     lapack_int* iwork,
16997     lapack_int* info
16998 #ifdef LAPACK_FORTRAN_STRLEN_END
16999     , FORTRAN_STRLEN
17000 #endif
17001 );
17002 #ifdef LAPACK_FORTRAN_STRLEN_END
17003     #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1)
17004 #else
17005     #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__)
17006 #endif
17007 
17008 #define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON)
17009 void LAPACK_zsycon_base(
17010     char const* uplo,
17011     lapack_int const* n,
17012     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
17013     double const* anorm,
17014     double* rcond,
17015     lapack_complex_double* work,
17016     lapack_int* info
17017 #ifdef LAPACK_FORTRAN_STRLEN_END
17018     , FORTRAN_STRLEN
17019 #endif
17020 );
17021 #ifdef LAPACK_FORTRAN_STRLEN_END
17022     #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1)
17023 #else
17024     #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__)
17025 #endif
17026 
17027 #define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3)
17028 void LAPACK_csycon_3_base(
17029     char const* uplo,
17030     lapack_int const* n,
17031     lapack_complex_float const* A, lapack_int const* lda,
17032     lapack_complex_float const* E, lapack_int const* ipiv,
17033     float const* anorm,
17034     float* rcond,
17035     lapack_complex_float* work,
17036     lapack_int* info
17037 #ifdef LAPACK_FORTRAN_STRLEN_END
17038     , FORTRAN_STRLEN
17039 #endif
17040 );
17041 #ifdef LAPACK_FORTRAN_STRLEN_END
17042     #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1)
17043 #else
17044     #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__)
17045 #endif
17046 
17047 #define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3)
17048 void LAPACK_dsycon_3_base(
17049     char const* uplo,
17050     lapack_int const* n,
17051     double const* A, lapack_int const* lda,
17052     double const* E, lapack_int const* ipiv,
17053     double const* anorm,
17054     double* rcond,
17055     double* work,
17056     lapack_int* iwork,
17057     lapack_int* info
17058 #ifdef LAPACK_FORTRAN_STRLEN_END
17059     , FORTRAN_STRLEN
17060 #endif
17061 );
17062 #ifdef LAPACK_FORTRAN_STRLEN_END
17063     #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1)
17064 #else
17065     #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__)
17066 #endif
17067 
17068 #define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3)
17069 void LAPACK_ssycon_3_base(
17070     char const* uplo,
17071     lapack_int const* n,
17072     float const* A, lapack_int const* lda,
17073     float const* E, lapack_int const* ipiv,
17074     float const* anorm,
17075     float* rcond,
17076     float* work,
17077     lapack_int* iwork,
17078     lapack_int* info
17079 #ifdef LAPACK_FORTRAN_STRLEN_END
17080     , FORTRAN_STRLEN
17081 #endif
17082 );
17083 #ifdef LAPACK_FORTRAN_STRLEN_END
17084     #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1)
17085 #else
17086     #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__)
17087 #endif
17088 
17089 #define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3)
17090 void LAPACK_zsycon_3_base(
17091     char const* uplo,
17092     lapack_int const* n,
17093     lapack_complex_double const* A, lapack_int const* lda,
17094     lapack_complex_double const* E, lapack_int const* ipiv,
17095     double const* anorm,
17096     double* rcond,
17097     lapack_complex_double* work,
17098     lapack_int* info
17099 #ifdef LAPACK_FORTRAN_STRLEN_END
17100     , FORTRAN_STRLEN
17101 #endif
17102 );
17103 #ifdef LAPACK_FORTRAN_STRLEN_END
17104     #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1)
17105 #else
17106     #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__)
17107 #endif
17108 
17109 #define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV)
17110 void LAPACK_csyconv_base(
17111     char const* uplo, char const* way,
17112     lapack_int const* n,
17113     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
17114     lapack_complex_float* E,
17115     lapack_int* info
17116 #ifdef LAPACK_FORTRAN_STRLEN_END
17117     , FORTRAN_STRLEN, FORTRAN_STRLEN
17118 #endif
17119 );
17120 #ifdef LAPACK_FORTRAN_STRLEN_END
17121     #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1)
17122 #else
17123     #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__)
17124 #endif
17125 
17126 #define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV)
17127 void LAPACK_dsyconv_base(
17128     char const* uplo, char const* way,
17129     lapack_int const* n,
17130     double* A, lapack_int const* lda, lapack_int const* ipiv,
17131     double* E,
17132     lapack_int* info
17133 #ifdef LAPACK_FORTRAN_STRLEN_END
17134     , FORTRAN_STRLEN, FORTRAN_STRLEN
17135 #endif
17136 );
17137 #ifdef LAPACK_FORTRAN_STRLEN_END
17138     #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1)
17139 #else
17140     #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__)
17141 #endif
17142 
17143 #define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV)
17144 void LAPACK_ssyconv_base(
17145     char const* uplo, char const* way,
17146     lapack_int const* n,
17147     float* A, lapack_int const* lda, lapack_int const* ipiv,
17148     float* E,
17149     lapack_int* info
17150 #ifdef LAPACK_FORTRAN_STRLEN_END
17151     , FORTRAN_STRLEN, FORTRAN_STRLEN
17152 #endif
17153 );
17154 #ifdef LAPACK_FORTRAN_STRLEN_END
17155     #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1)
17156 #else
17157     #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__)
17158 #endif
17159 
17160 #define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV)
17161 void LAPACK_zsyconv_base(
17162     char const* uplo, char const* way,
17163     lapack_int const* n,
17164     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
17165     lapack_complex_double* E,
17166     lapack_int* info
17167 #ifdef LAPACK_FORTRAN_STRLEN_END
17168     , FORTRAN_STRLEN, FORTRAN_STRLEN
17169 #endif
17170 );
17171 #ifdef LAPACK_FORTRAN_STRLEN_END
17172     #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1)
17173 #else
17174     #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__)
17175 #endif
17176 
17177 #define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB)
17178 void LAPACK_csyequb_base(
17179     char const* uplo,
17180     lapack_int const* n,
17181     lapack_complex_float const* A, lapack_int const* lda,
17182     float* S,
17183     float* scond,
17184     float* amax,
17185     lapack_complex_float* work,
17186     lapack_int* info
17187 #ifdef LAPACK_FORTRAN_STRLEN_END
17188     , FORTRAN_STRLEN
17189 #endif
17190 );
17191 #ifdef LAPACK_FORTRAN_STRLEN_END
17192     #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1)
17193 #else
17194     #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__)
17195 #endif
17196 
17197 #define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB)
17198 void LAPACK_dsyequb_base(
17199     char const* uplo,
17200     lapack_int const* n,
17201     double const* A, lapack_int const* lda,
17202     double* S,
17203     double* scond,
17204     double* amax,
17205     double* work,
17206     lapack_int* info
17207 #ifdef LAPACK_FORTRAN_STRLEN_END
17208     , FORTRAN_STRLEN
17209 #endif
17210 );
17211 #ifdef LAPACK_FORTRAN_STRLEN_END
17212     #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1)
17213 #else
17214     #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__)
17215 #endif
17216 
17217 #define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB)
17218 void LAPACK_ssyequb_base(
17219     char const* uplo,
17220     lapack_int const* n,
17221     float const* A, lapack_int const* lda,
17222     float* S,
17223     float* scond,
17224     float* amax,
17225     float* work,
17226     lapack_int* info
17227 #ifdef LAPACK_FORTRAN_STRLEN_END
17228     , FORTRAN_STRLEN
17229 #endif
17230 );
17231 #ifdef LAPACK_FORTRAN_STRLEN_END
17232     #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1)
17233 #else
17234     #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__)
17235 #endif
17236 
17237 #define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB)
17238 void LAPACK_zsyequb_base(
17239     char const* uplo,
17240     lapack_int const* n,
17241     lapack_complex_double const* A, lapack_int const* lda,
17242     double* S,
17243     double* scond,
17244     double* amax,
17245     lapack_complex_double* work,
17246     lapack_int* info
17247 #ifdef LAPACK_FORTRAN_STRLEN_END
17248     , FORTRAN_STRLEN
17249 #endif
17250 );
17251 #ifdef LAPACK_FORTRAN_STRLEN_END
17252     #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1)
17253 #else
17254     #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__)
17255 #endif
17256 
17257 #define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV)
17258 void LAPACK_dsyev_base(
17259     char const* jobz, char const* uplo,
17260     lapack_int const* n,
17261     double* A, lapack_int const* lda,
17262     double* W,
17263     double* work, lapack_int const* lwork,
17264     lapack_int* info
17265 #ifdef LAPACK_FORTRAN_STRLEN_END
17266     , FORTRAN_STRLEN, FORTRAN_STRLEN
17267 #endif
17268 );
17269 #ifdef LAPACK_FORTRAN_STRLEN_END
17270     #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1)
17271 #else
17272     #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__)
17273 #endif
17274 
17275 #define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV)
17276 void LAPACK_ssyev_base(
17277     char const* jobz, char const* uplo,
17278     lapack_int const* n,
17279     float* A, lapack_int const* lda,
17280     float* W,
17281     float* work, lapack_int const* lwork,
17282     lapack_int* info
17283 #ifdef LAPACK_FORTRAN_STRLEN_END
17284     , FORTRAN_STRLEN, FORTRAN_STRLEN
17285 #endif
17286 );
17287 #ifdef LAPACK_FORTRAN_STRLEN_END
17288     #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1)
17289 #else
17290     #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__)
17291 #endif
17292 
17293 #define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE)
17294 void LAPACK_dsyev_2stage_base(
17295     char const* jobz, char const* uplo,
17296     lapack_int const* n,
17297     double* A, lapack_int const* lda,
17298     double* W,
17299     double* work, lapack_int const* lwork,
17300     lapack_int* info
17301 #ifdef LAPACK_FORTRAN_STRLEN_END
17302     , FORTRAN_STRLEN, FORTRAN_STRLEN
17303 #endif
17304 );
17305 #ifdef LAPACK_FORTRAN_STRLEN_END
17306     #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1)
17307 #else
17308     #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__)
17309 #endif
17310 
17311 #define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE)
17312 void LAPACK_ssyev_2stage_base(
17313     char const* jobz, char const* uplo,
17314     lapack_int const* n,
17315     float* A, lapack_int const* lda,
17316     float* W,
17317     float* work, lapack_int const* lwork,
17318     lapack_int* info
17319 #ifdef LAPACK_FORTRAN_STRLEN_END
17320     , FORTRAN_STRLEN, FORTRAN_STRLEN
17321 #endif
17322 );
17323 #ifdef LAPACK_FORTRAN_STRLEN_END
17324     #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1)
17325 #else
17326     #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__)
17327 #endif
17328 
17329 #define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD)
17330 void LAPACK_dsyevd_base(
17331     char const* jobz, char const* uplo,
17332     lapack_int const* n,
17333     double* A, lapack_int const* lda,
17334     double* W,
17335     double* work, lapack_int const* lwork,
17336     lapack_int* iwork, lapack_int const* liwork,
17337     lapack_int* info
17338 #ifdef LAPACK_FORTRAN_STRLEN_END
17339     , FORTRAN_STRLEN, FORTRAN_STRLEN
17340 #endif
17341 );
17342 #ifdef LAPACK_FORTRAN_STRLEN_END
17343     #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1)
17344 #else
17345     #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__)
17346 #endif
17347 
17348 #define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD)
17349 void LAPACK_ssyevd_base(
17350     char const* jobz, char const* uplo,
17351     lapack_int const* n,
17352     float* A, lapack_int const* lda,
17353     float* W,
17354     float* work, lapack_int const* lwork,
17355     lapack_int* iwork, lapack_int const* liwork,
17356     lapack_int* info
17357 #ifdef LAPACK_FORTRAN_STRLEN_END
17358     , FORTRAN_STRLEN, FORTRAN_STRLEN
17359 #endif
17360 );
17361 #ifdef LAPACK_FORTRAN_STRLEN_END
17362     #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1)
17363 #else
17364     #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__)
17365 #endif
17366 
17367 #define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE)
17368 void LAPACK_dsyevd_2stage_base(
17369     char const* jobz, char const* uplo,
17370     lapack_int const* n,
17371     double* A, lapack_int const* lda,
17372     double* W,
17373     double* work, lapack_int const* lwork,
17374     lapack_int* iwork, lapack_int const* liwork,
17375     lapack_int* info
17376 #ifdef LAPACK_FORTRAN_STRLEN_END
17377     , FORTRAN_STRLEN, FORTRAN_STRLEN
17378 #endif
17379 );
17380 #ifdef LAPACK_FORTRAN_STRLEN_END
17381     #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1)
17382 #else
17383     #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__)
17384 #endif
17385 
17386 #define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE)
17387 void LAPACK_ssyevd_2stage_base(
17388     char const* jobz, char const* uplo,
17389     lapack_int const* n,
17390     float* A, lapack_int const* lda,
17391     float* W,
17392     float* work, lapack_int const* lwork,
17393     lapack_int* iwork, lapack_int const* liwork,
17394     lapack_int* info
17395 #ifdef LAPACK_FORTRAN_STRLEN_END
17396     , FORTRAN_STRLEN, FORTRAN_STRLEN
17397 #endif
17398 );
17399 #ifdef LAPACK_FORTRAN_STRLEN_END
17400     #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1)
17401 #else
17402     #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__)
17403 #endif
17404 
17405 #define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR)
17406 void LAPACK_dsyevr_base(
17407     char const* jobz, char const* range, char const* uplo,
17408     lapack_int const* n,
17409     double* A, lapack_int const* lda,
17410     double const* vl,
17411     double const* vu, lapack_int const* il, lapack_int const* iu,
17412     double const* abstol, lapack_int* m,
17413     double* W,
17414     double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17415     double* work, lapack_int const* lwork,
17416     lapack_int* iwork, lapack_int const* liwork,
17417     lapack_int* info
17418 #ifdef LAPACK_FORTRAN_STRLEN_END
17419     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17420 #endif
17421 );
17422 #ifdef LAPACK_FORTRAN_STRLEN_END
17423     #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1)
17424 #else
17425     #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__)
17426 #endif
17427 
17428 #define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR)
17429 void LAPACK_ssyevr_base(
17430     char const* jobz, char const* range, char const* uplo,
17431     lapack_int const* n,
17432     float* A, lapack_int const* lda,
17433     float const* vl,
17434     float const* vu, lapack_int const* il, lapack_int const* iu,
17435     float const* abstol, lapack_int* m,
17436     float* W,
17437     float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17438     float* work, lapack_int const* lwork,
17439     lapack_int* iwork, lapack_int const* liwork,
17440     lapack_int* info
17441 #ifdef LAPACK_FORTRAN_STRLEN_END
17442     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17443 #endif
17444 );
17445 #ifdef LAPACK_FORTRAN_STRLEN_END
17446     #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1)
17447 #else
17448     #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__)
17449 #endif
17450 
17451 #define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE)
17452 void LAPACK_dsyevr_2stage_base(
17453     char const* jobz, char const* range, char const* uplo,
17454     lapack_int const* n,
17455     double* A, lapack_int const* lda,
17456     double const* vl,
17457     double const* vu, lapack_int const* il, lapack_int const* iu,
17458     double const* abstol, lapack_int* m,
17459     double* W,
17460     double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17461     double* work, lapack_int const* lwork,
17462     lapack_int* iwork, lapack_int const* liwork,
17463     lapack_int* info
17464 #ifdef LAPACK_FORTRAN_STRLEN_END
17465     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17466 #endif
17467 );
17468 #ifdef LAPACK_FORTRAN_STRLEN_END
17469     #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17470 #else
17471     #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__)
17472 #endif
17473 
17474 #define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE)
17475 void LAPACK_ssyevr_2stage_base(
17476     char const* jobz, char const* range, char const* uplo,
17477     lapack_int const* n,
17478     float* A, lapack_int const* lda,
17479     float const* vl,
17480     float const* vu, lapack_int const* il, lapack_int const* iu,
17481     float const* abstol, lapack_int* m,
17482     float* W,
17483     float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17484     float* work, lapack_int const* lwork,
17485     lapack_int* iwork, lapack_int const* liwork,
17486     lapack_int* info
17487 #ifdef LAPACK_FORTRAN_STRLEN_END
17488     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17489 #endif
17490 );
17491 #ifdef LAPACK_FORTRAN_STRLEN_END
17492     #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17493 #else
17494     #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__)
17495 #endif
17496 
17497 #define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX)
17498 void LAPACK_dsyevx_base(
17499     char const* jobz, char const* range, char const* uplo,
17500     lapack_int const* n,
17501     double* A, lapack_int const* lda,
17502     double const* vl,
17503     double const* vu, lapack_int const* il, lapack_int const* iu,
17504     double const* abstol, lapack_int* m,
17505     double* W,
17506     double* Z, lapack_int const* ldz,
17507     double* work, lapack_int const* lwork,
17508     lapack_int* iwork, lapack_int* IFAIL,
17509     lapack_int* info
17510 #ifdef LAPACK_FORTRAN_STRLEN_END
17511     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17512 #endif
17513 );
17514 #ifdef LAPACK_FORTRAN_STRLEN_END
17515     #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1)
17516 #else
17517     #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__)
17518 #endif
17519 
17520 #define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX)
17521 void LAPACK_ssyevx_base(
17522     char const* jobz, char const* range, char const* uplo,
17523     lapack_int const* n,
17524     float* A, lapack_int const* lda,
17525     float const* vl,
17526     float const* vu, lapack_int const* il, lapack_int const* iu,
17527     float const* abstol, lapack_int* m,
17528     float* W,
17529     float* Z, lapack_int const* ldz,
17530     float* work, lapack_int const* lwork,
17531     lapack_int* iwork, lapack_int* IFAIL,
17532     lapack_int* info
17533 #ifdef LAPACK_FORTRAN_STRLEN_END
17534     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17535 #endif
17536 );
17537 #ifdef LAPACK_FORTRAN_STRLEN_END
17538     #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1)
17539 #else
17540     #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__)
17541 #endif
17542 
17543 #define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE)
17544 void LAPACK_dsyevx_2stage_base(
17545     char const* jobz, char const* range, char const* uplo,
17546     lapack_int const* n,
17547     double* A, lapack_int const* lda,
17548     double const* vl,
17549     double const* vu, lapack_int const* il, lapack_int const* iu,
17550     double const* abstol, lapack_int* m,
17551     double* W,
17552     double* Z, lapack_int const* ldz,
17553     double* work, lapack_int const* lwork,
17554     lapack_int* iwork, lapack_int* IFAIL,
17555     lapack_int* info
17556 #ifdef LAPACK_FORTRAN_STRLEN_END
17557     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17558 #endif
17559 );
17560 #ifdef LAPACK_FORTRAN_STRLEN_END
17561     #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17562 #else
17563     #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__)
17564 #endif
17565 
17566 #define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE)
17567 void LAPACK_ssyevx_2stage_base(
17568     char const* jobz, char const* range, char const* uplo,
17569     lapack_int const* n,
17570     float* A, lapack_int const* lda,
17571     float const* vl,
17572     float const* vu, lapack_int const* il, lapack_int const* iu,
17573     float const* abstol, lapack_int* m,
17574     float* W,
17575     float* Z, lapack_int const* ldz,
17576     float* work, lapack_int const* lwork,
17577     lapack_int* iwork, lapack_int* IFAIL,
17578     lapack_int* info
17579 #ifdef LAPACK_FORTRAN_STRLEN_END
17580     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17581 #endif
17582 );
17583 #ifdef LAPACK_FORTRAN_STRLEN_END
17584     #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17585 #else
17586     #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__)
17587 #endif
17588 
17589 #define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST)
17590 void LAPACK_dsygst_base(
17591     lapack_int const* itype, char const* uplo,
17592     lapack_int const* n,
17593     double* A, lapack_int const* lda,
17594     double const* B, lapack_int const* ldb,
17595     lapack_int* info
17596 #ifdef LAPACK_FORTRAN_STRLEN_END
17597     , FORTRAN_STRLEN
17598 #endif
17599 );
17600 #ifdef LAPACK_FORTRAN_STRLEN_END
17601     #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1)
17602 #else
17603     #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__)
17604 #endif
17605 
17606 #define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST)
17607 void LAPACK_ssygst_base(
17608     lapack_int const* itype, char const* uplo,
17609     lapack_int const* n,
17610     float* A, lapack_int const* lda,
17611     float const* B, lapack_int const* ldb,
17612     lapack_int* info
17613 #ifdef LAPACK_FORTRAN_STRLEN_END
17614     , FORTRAN_STRLEN
17615 #endif
17616 );
17617 #ifdef LAPACK_FORTRAN_STRLEN_END
17618     #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1)
17619 #else
17620     #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__)
17621 #endif
17622 
17623 #define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV)
17624 void LAPACK_dsygv_base(
17625     lapack_int const* itype, char const* jobz, char const* uplo,
17626     lapack_int const* n,
17627     double* A, lapack_int const* lda,
17628     double* B, lapack_int const* ldb,
17629     double* W,
17630     double* work, lapack_int const* lwork,
17631     lapack_int* info
17632 #ifdef LAPACK_FORTRAN_STRLEN_END
17633     , FORTRAN_STRLEN, FORTRAN_STRLEN
17634 #endif
17635 );
17636 #ifdef LAPACK_FORTRAN_STRLEN_END
17637     #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1)
17638 #else
17639     #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__)
17640 #endif
17641 
17642 #define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV)
17643 void LAPACK_ssygv_base(
17644     lapack_int const* itype, char const* jobz, char const* uplo,
17645     lapack_int const* n,
17646     float* A, lapack_int const* lda,
17647     float* B, lapack_int const* ldb,
17648     float* W,
17649     float* work, lapack_int const* lwork,
17650     lapack_int* info
17651 #ifdef LAPACK_FORTRAN_STRLEN_END
17652     , FORTRAN_STRLEN, FORTRAN_STRLEN
17653 #endif
17654 );
17655 #ifdef LAPACK_FORTRAN_STRLEN_END
17656     #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1)
17657 #else
17658     #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__)
17659 #endif
17660 
17661 #define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE)
17662 void LAPACK_dsygv_2stage_base(
17663     lapack_int const* itype, char const* jobz, char const* uplo,
17664     lapack_int const* n,
17665     double* A, lapack_int const* lda,
17666     double* B, lapack_int const* ldb,
17667     double* W,
17668     double* work, lapack_int const* lwork,
17669     lapack_int* info
17670 #ifdef LAPACK_FORTRAN_STRLEN_END
17671     , FORTRAN_STRLEN, FORTRAN_STRLEN
17672 #endif
17673 );
17674 #ifdef LAPACK_FORTRAN_STRLEN_END
17675     #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1)
17676 #else
17677     #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__)
17678 #endif
17679 
17680 #define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE)
17681 void LAPACK_ssygv_2stage_base(
17682     lapack_int const* itype, char const* jobz, char const* uplo,
17683     lapack_int const* n,
17684     float* A, lapack_int const* lda,
17685     float* B, lapack_int const* ldb,
17686     float* W,
17687     float* work, lapack_int const* lwork,
17688     lapack_int* info
17689 #ifdef LAPACK_FORTRAN_STRLEN_END
17690     , FORTRAN_STRLEN, FORTRAN_STRLEN
17691 #endif
17692 );
17693 #ifdef LAPACK_FORTRAN_STRLEN_END
17694     #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1)
17695 #else
17696     #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__)
17697 #endif
17698 
17699 #define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD)
17700 void LAPACK_dsygvd_base(
17701     lapack_int const* itype, char const* jobz, char const* uplo,
17702     lapack_int const* n,
17703     double* A, lapack_int const* lda,
17704     double* B, lapack_int const* ldb,
17705     double* W,
17706     double* work, lapack_int const* lwork,
17707     lapack_int* iwork, lapack_int const* liwork,
17708     lapack_int* info
17709 #ifdef LAPACK_FORTRAN_STRLEN_END
17710     , FORTRAN_STRLEN, FORTRAN_STRLEN
17711 #endif
17712 );
17713 #ifdef LAPACK_FORTRAN_STRLEN_END
17714     #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1)
17715 #else
17716     #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__)
17717 #endif
17718 
17719 #define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD)
17720 void LAPACK_ssygvd_base(
17721     lapack_int const* itype, char const* jobz, char const* uplo,
17722     lapack_int const* n,
17723     float* A, lapack_int const* lda,
17724     float* B, lapack_int const* ldb,
17725     float* W,
17726     float* work, lapack_int const* lwork,
17727     lapack_int* iwork, lapack_int const* liwork,
17728     lapack_int* info
17729 #ifdef LAPACK_FORTRAN_STRLEN_END
17730     , FORTRAN_STRLEN, FORTRAN_STRLEN
17731 #endif
17732 );
17733 #ifdef LAPACK_FORTRAN_STRLEN_END
17734     #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1)
17735 #else
17736     #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__)
17737 #endif
17738 
17739 #define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX)
17740 void LAPACK_dsygvx_base(
17741     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
17742     lapack_int const* n,
17743     double* A, lapack_int const* lda,
17744     double* B, lapack_int const* ldb,
17745     double const* vl,
17746     double const* vu, lapack_int const* il, lapack_int const* iu,
17747     double const* abstol, lapack_int* m,
17748     double* W,
17749     double* Z, lapack_int const* ldz,
17750     double* work, lapack_int const* lwork,
17751     lapack_int* iwork, lapack_int* IFAIL,
17752     lapack_int* info
17753 #ifdef LAPACK_FORTRAN_STRLEN_END
17754     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17755 #endif
17756 );
17757 #ifdef LAPACK_FORTRAN_STRLEN_END
17758     #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1)
17759 #else
17760     #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__)
17761 #endif
17762 
17763 #define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX)
17764 void LAPACK_ssygvx_base(
17765     lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
17766     lapack_int const* n,
17767     float* A, lapack_int const* lda,
17768     float* B, lapack_int const* ldb,
17769     float const* vl,
17770     float const* vu, lapack_int const* il, lapack_int const* iu,
17771     float const* abstol, lapack_int* m,
17772     float* W,
17773     float* Z, lapack_int const* ldz,
17774     float* work, lapack_int const* lwork,
17775     lapack_int* iwork, lapack_int* IFAIL,
17776     lapack_int* info
17777 #ifdef LAPACK_FORTRAN_STRLEN_END
17778     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
17779 #endif
17780 );
17781 #ifdef LAPACK_FORTRAN_STRLEN_END
17782     #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1)
17783 #else
17784     #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__)
17785 #endif
17786 
17787 #define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR)
17788 void LAPACK_csyr_base(
17789     char const* uplo,
17790     lapack_int const* n,
17791     lapack_complex_float const* alpha,
17792     lapack_complex_float const* X, lapack_int const* incx,
17793     lapack_complex_float* A, lapack_int const* lda
17794 #ifdef LAPACK_FORTRAN_STRLEN_END
17795     , FORTRAN_STRLEN
17796 #endif
17797 );
17798 #ifdef LAPACK_FORTRAN_STRLEN_END
17799     #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1)
17800 #else
17801     #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__)
17802 #endif
17803 
17804 #define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR)
17805 void LAPACK_zsyr_base(
17806     char const* uplo,
17807     lapack_int const* n,
17808     lapack_complex_double const* alpha,
17809     lapack_complex_double const* X, lapack_int const* incx,
17810     lapack_complex_double* A, lapack_int const* lda
17811 #ifdef LAPACK_FORTRAN_STRLEN_END
17812     , FORTRAN_STRLEN
17813 #endif
17814 );
17815 #ifdef LAPACK_FORTRAN_STRLEN_END
17816     #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1)
17817 #else
17818     #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__)
17819 #endif
17820 
17821 #define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS)
17822 void LAPACK_csyrfs_base(
17823     char const* uplo,
17824     lapack_int const* n, lapack_int const* nrhs,
17825     lapack_complex_float const* A, lapack_int const* lda,
17826     lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17827     lapack_complex_float const* B, lapack_int const* ldb,
17828     lapack_complex_float* X, lapack_int const* ldx,
17829     float* ferr,
17830     float* berr,
17831     lapack_complex_float* work,
17832     float* rwork,
17833     lapack_int* info
17834 #ifdef LAPACK_FORTRAN_STRLEN_END
17835     , FORTRAN_STRLEN
17836 #endif
17837 );
17838 #ifdef LAPACK_FORTRAN_STRLEN_END
17839     #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1)
17840 #else
17841     #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__)
17842 #endif
17843 
17844 #define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS)
17845 void LAPACK_dsyrfs_base(
17846     char const* uplo,
17847     lapack_int const* n, lapack_int const* nrhs,
17848     double const* A, lapack_int const* lda,
17849     double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17850     double const* B, lapack_int const* ldb,
17851     double* X, lapack_int const* ldx,
17852     double* ferr,
17853     double* berr,
17854     double* work,
17855     lapack_int* iwork,
17856     lapack_int* info
17857 #ifdef LAPACK_FORTRAN_STRLEN_END
17858     , FORTRAN_STRLEN
17859 #endif
17860 );
17861 #ifdef LAPACK_FORTRAN_STRLEN_END
17862     #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1)
17863 #else
17864     #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__)
17865 #endif
17866 
17867 #define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS)
17868 void LAPACK_ssyrfs_base(
17869     char const* uplo,
17870     lapack_int const* n, lapack_int const* nrhs,
17871     float const* A, lapack_int const* lda,
17872     float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17873     float const* B, lapack_int const* ldb,
17874     float* X, lapack_int const* ldx,
17875     float* ferr,
17876     float* berr,
17877     float* work,
17878     lapack_int* iwork,
17879     lapack_int* info
17880 #ifdef LAPACK_FORTRAN_STRLEN_END
17881     , FORTRAN_STRLEN
17882 #endif
17883 );
17884 #ifdef LAPACK_FORTRAN_STRLEN_END
17885     #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1)
17886 #else
17887     #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__)
17888 #endif
17889 
17890 #define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS)
17891 void LAPACK_zsyrfs_base(
17892     char const* uplo,
17893     lapack_int const* n, lapack_int const* nrhs,
17894     lapack_complex_double const* A, lapack_int const* lda,
17895     lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17896     lapack_complex_double const* B, lapack_int const* ldb,
17897     lapack_complex_double* X, lapack_int const* ldx,
17898     double* ferr,
17899     double* berr,
17900     lapack_complex_double* work,
17901     double* rwork,
17902     lapack_int* info
17903 #ifdef LAPACK_FORTRAN_STRLEN_END
17904     , FORTRAN_STRLEN
17905 #endif
17906 );
17907 #ifdef LAPACK_FORTRAN_STRLEN_END
17908     #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1)
17909 #else
17910     #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__)
17911 #endif
17912 
17913 #define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX)
17914 void LAPACK_csyrfsx_base(
17915     char const* uplo, char const* equed,
17916     lapack_int const* n, lapack_int const* nrhs,
17917     lapack_complex_float const* A, lapack_int const* lda,
17918     lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17919     const float* S,
17920     lapack_complex_float const* B, lapack_int const* ldb,
17921     lapack_complex_float* X, lapack_int const* ldx,
17922     float* rcond,
17923     float* berr, lapack_int const* n_err_bnds,
17924     float* err_bnds_norm,
17925     float* err_bnds_comp, lapack_int const* nparams,
17926     float* params,
17927     lapack_complex_float* work,
17928     float* rwork,
17929     lapack_int* info
17930 #ifdef LAPACK_FORTRAN_STRLEN_END
17931     , FORTRAN_STRLEN, FORTRAN_STRLEN
17932 #endif
17933 );
17934 #ifdef LAPACK_FORTRAN_STRLEN_END
17935     #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1)
17936 #else
17937     #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__)
17938 #endif
17939 
17940 #define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
17941 void LAPACK_dsyrfsx_base(
17942     char const* uplo, char const* equed,
17943     lapack_int const* n, lapack_int const* nrhs,
17944     double const* A, lapack_int const* lda,
17945     double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17946     const double* S,
17947     double const* B, lapack_int const* ldb,
17948     double* X, lapack_int const* ldx,
17949     double* rcond,
17950     double* berr, lapack_int const* n_err_bnds,
17951     double* err_bnds_norm,
17952     double* err_bnds_comp, lapack_int const* nparams,
17953     double* params,
17954     double* work,
17955     lapack_int* iwork,
17956     lapack_int* info
17957 #ifdef LAPACK_FORTRAN_STRLEN_END
17958     , FORTRAN_STRLEN, FORTRAN_STRLEN
17959 #endif
17960 );
17961 #ifdef LAPACK_FORTRAN_STRLEN_END
17962     #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1)
17963 #else
17964     #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__)
17965 #endif
17966 
17967 #define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
17968 void LAPACK_ssyrfsx_base(
17969     char const* uplo, char const* equed,
17970     lapack_int const* n, lapack_int const* nrhs,
17971     float const* A, lapack_int const* lda,
17972     float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17973     const float* S,
17974     float const* B, lapack_int const* ldb,
17975     float* X, lapack_int const* ldx,
17976     float* rcond,
17977     float* berr, lapack_int const* n_err_bnds,
17978     float* err_bnds_norm,
17979     float* err_bnds_comp, lapack_int const* nparams,
17980     float* params,
17981     float* work,
17982     lapack_int* iwork,
17983     lapack_int* info
17984 #ifdef LAPACK_FORTRAN_STRLEN_END
17985     , FORTRAN_STRLEN, FORTRAN_STRLEN
17986 #endif
17987 );
17988 #ifdef LAPACK_FORTRAN_STRLEN_END
17989     #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1)
17990 #else
17991     #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__)
17992 #endif
17993 
17994 #define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
17995 void LAPACK_zsyrfsx_base(
17996     char const* uplo, char const* equed,
17997     lapack_int const* n, lapack_int const* nrhs,
17998     lapack_complex_double const* A, lapack_int const* lda,
17999     lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
18000     const double* S,
18001     lapack_complex_double const* B, lapack_int const* ldb,
18002     lapack_complex_double* X, lapack_int const* ldx,
18003     double* rcond,
18004     double* berr, lapack_int const* n_err_bnds,
18005     double* err_bnds_norm,
18006     double* err_bnds_comp, lapack_int const* nparams,
18007     double* params,
18008     lapack_complex_double* work,
18009     double* rwork,
18010     lapack_int* info
18011 #ifdef LAPACK_FORTRAN_STRLEN_END
18012     , FORTRAN_STRLEN, FORTRAN_STRLEN
18013 #endif
18014 );
18015 #ifdef LAPACK_FORTRAN_STRLEN_END
18016     #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1)
18017 #else
18018     #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__)
18019 #endif
18020 
18021 #define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV)
18022 void LAPACK_csysv_base(
18023     char const* uplo,
18024     lapack_int const* n, lapack_int const* nrhs,
18025     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18026     lapack_complex_float* B, lapack_int const* ldb,
18027     lapack_complex_float* work, lapack_int const* lwork,
18028     lapack_int* info
18029 #ifdef LAPACK_FORTRAN_STRLEN_END
18030     , FORTRAN_STRLEN
18031 #endif
18032 );
18033 #ifdef LAPACK_FORTRAN_STRLEN_END
18034     #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1)
18035 #else
18036     #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__)
18037 #endif
18038 
18039 #define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV)
18040 void LAPACK_dsysv_base(
18041     char const* uplo,
18042     lapack_int const* n, lapack_int const* nrhs,
18043     double* A, lapack_int const* lda, lapack_int* ipiv,
18044     double* B, lapack_int const* ldb,
18045     double* work, lapack_int const* lwork,
18046     lapack_int* info
18047 #ifdef LAPACK_FORTRAN_STRLEN_END
18048     , FORTRAN_STRLEN
18049 #endif
18050 );
18051 #ifdef LAPACK_FORTRAN_STRLEN_END
18052     #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1)
18053 #else
18054     #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__)
18055 #endif
18056 
18057 #define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV)
18058 void LAPACK_ssysv_base(
18059     char const* uplo,
18060     lapack_int const* n, lapack_int const* nrhs,
18061     float* A, lapack_int const* lda, lapack_int* ipiv,
18062     float* B, lapack_int const* ldb,
18063     float* work, lapack_int const* lwork,
18064     lapack_int* info
18065 #ifdef LAPACK_FORTRAN_STRLEN_END
18066     , FORTRAN_STRLEN
18067 #endif
18068 );
18069 #ifdef LAPACK_FORTRAN_STRLEN_END
18070     #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1)
18071 #else
18072     #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__)
18073 #endif
18074 
18075 #define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV)
18076 void LAPACK_zsysv_base(
18077     char const* uplo,
18078     lapack_int const* n, lapack_int const* nrhs,
18079     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18080     lapack_complex_double* B, lapack_int const* ldb,
18081     lapack_complex_double* work, lapack_int const* lwork,
18082     lapack_int* info
18083 #ifdef LAPACK_FORTRAN_STRLEN_END
18084     , FORTRAN_STRLEN
18085 #endif
18086 );
18087 #ifdef LAPACK_FORTRAN_STRLEN_END
18088     #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1)
18089 #else
18090     #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__)
18091 #endif
18092 
18093 #define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA)
18094 void LAPACK_csysv_aa_base(
18095     char const* uplo,
18096     lapack_int const* n, lapack_int const* nrhs,
18097     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18098     lapack_complex_float* B, lapack_int const* ldb,
18099     lapack_complex_float* work, lapack_int const* lwork,
18100     lapack_int* info
18101 #ifdef LAPACK_FORTRAN_STRLEN_END
18102     , FORTRAN_STRLEN
18103 #endif
18104 );
18105 #ifdef LAPACK_FORTRAN_STRLEN_END
18106     #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1)
18107 #else
18108     #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__)
18109 #endif
18110 
18111 #define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA)
18112 void LAPACK_dsysv_aa_base(
18113     char const* uplo,
18114     lapack_int const* n, lapack_int const* nrhs,
18115     double* A, lapack_int const* lda, lapack_int* ipiv,
18116     double* B, lapack_int const* ldb,
18117     double* work, lapack_int const* lwork,
18118     lapack_int* info
18119 #ifdef LAPACK_FORTRAN_STRLEN_END
18120     , FORTRAN_STRLEN
18121 #endif
18122 );
18123 #ifdef LAPACK_FORTRAN_STRLEN_END
18124     #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1)
18125 #else
18126     #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__)
18127 #endif
18128 
18129 #define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA)
18130 void LAPACK_ssysv_aa_base(
18131     char const* uplo,
18132     lapack_int const* n, lapack_int const* nrhs,
18133     float* A, lapack_int const* lda, lapack_int* ipiv,
18134     float* B, lapack_int const* ldb,
18135     float* work, lapack_int const* lwork,
18136     lapack_int* info
18137 #ifdef LAPACK_FORTRAN_STRLEN_END
18138     , FORTRAN_STRLEN
18139 #endif
18140 );
18141 #ifdef LAPACK_FORTRAN_STRLEN_END
18142     #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1)
18143 #else
18144     #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__)
18145 #endif
18146 
18147 #define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA)
18148 void LAPACK_zsysv_aa_base(
18149     char const* uplo,
18150     lapack_int const* n, lapack_int const* nrhs,
18151     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18152     lapack_complex_double* B, lapack_int const* ldb,
18153     lapack_complex_double* work, lapack_int const* lwork,
18154     lapack_int* info
18155 #ifdef LAPACK_FORTRAN_STRLEN_END
18156     , FORTRAN_STRLEN
18157 #endif
18158 );
18159 #ifdef LAPACK_FORTRAN_STRLEN_END
18160     #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1)
18161 #else
18162     #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__)
18163 #endif
18164 
18165 #define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE)
18166 void LAPACK_csysv_aa_2stage_base(
18167     char const* uplo,
18168     lapack_int const* n, lapack_int const* nrhs,
18169     lapack_complex_float* A, lapack_int const* lda,
18170     lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18171     lapack_complex_float* B, lapack_int const* ldb,
18172     lapack_complex_float* work, lapack_int const* lwork,
18173     lapack_int* info
18174 #ifdef LAPACK_FORTRAN_STRLEN_END
18175     , FORTRAN_STRLEN
18176 #endif
18177 );
18178 #ifdef LAPACK_FORTRAN_STRLEN_END
18179     #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1)
18180 #else
18181     #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__)
18182 #endif
18183 
18184 #define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE)
18185 void LAPACK_dsysv_aa_2stage_base(
18186     char const* uplo,
18187     lapack_int const* n, lapack_int const* nrhs,
18188     double* A, lapack_int const* lda,
18189     double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18190     double* B, lapack_int const* ldb,
18191     double* work, lapack_int const* lwork,
18192     lapack_int* info
18193 #ifdef LAPACK_FORTRAN_STRLEN_END
18194     , FORTRAN_STRLEN
18195 #endif
18196 );
18197 #ifdef LAPACK_FORTRAN_STRLEN_END
18198     #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1)
18199 #else
18200     #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__)
18201 #endif
18202 
18203 #define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE)
18204 void LAPACK_ssysv_aa_2stage_base(
18205     char const* uplo,
18206     lapack_int const* n, lapack_int const* nrhs,
18207     float* A, lapack_int const* lda,
18208     float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18209     float* B, lapack_int const* ldb,
18210     float* work, lapack_int const* lwork,
18211     lapack_int* info
18212 #ifdef LAPACK_FORTRAN_STRLEN_END
18213     , FORTRAN_STRLEN
18214 #endif
18215 );
18216 #ifdef LAPACK_FORTRAN_STRLEN_END
18217     #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1)
18218 #else
18219     #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__)
18220 #endif
18221 
18222 #define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE)
18223 void LAPACK_zsysv_aa_2stage_base(
18224     char const* uplo,
18225     lapack_int const* n, lapack_int const* nrhs,
18226     lapack_complex_double* A, lapack_int const* lda,
18227     lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18228     lapack_complex_double* B, lapack_int const* ldb,
18229     lapack_complex_double* work, lapack_int const* lwork,
18230     lapack_int* info
18231 #ifdef LAPACK_FORTRAN_STRLEN_END
18232     , FORTRAN_STRLEN
18233 #endif
18234 );
18235 #ifdef LAPACK_FORTRAN_STRLEN_END
18236     #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1)
18237 #else
18238     #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__)
18239 #endif
18240 
18241 #define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK)
18242 void LAPACK_csysv_rk_base(
18243     char const* uplo,
18244     lapack_int const* n, lapack_int const* nrhs,
18245     lapack_complex_float* A, lapack_int const* lda,
18246     lapack_complex_float* E, lapack_int* ipiv,
18247     lapack_complex_float* B, lapack_int const* ldb,
18248     lapack_complex_float* work, lapack_int const* lwork,
18249     lapack_int* info
18250 #ifdef LAPACK_FORTRAN_STRLEN_END
18251     , FORTRAN_STRLEN
18252 #endif
18253 );
18254 #ifdef LAPACK_FORTRAN_STRLEN_END
18255     #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1)
18256 #else
18257     #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__)
18258 #endif
18259 
18260 #define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK)
18261 void LAPACK_dsysv_rk_base(
18262     char const* uplo,
18263     lapack_int const* n, lapack_int const* nrhs,
18264     double* A, lapack_int const* lda,
18265     double* E, lapack_int* ipiv,
18266     double* B, lapack_int const* ldb,
18267     double* work, lapack_int const* lwork,
18268     lapack_int* info
18269 #ifdef LAPACK_FORTRAN_STRLEN_END
18270     , FORTRAN_STRLEN
18271 #endif
18272 );
18273 #ifdef LAPACK_FORTRAN_STRLEN_END
18274     #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1)
18275 #else
18276     #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__)
18277 #endif
18278 
18279 #define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK)
18280 void LAPACK_ssysv_rk_base(
18281     char const* uplo,
18282     lapack_int const* n, lapack_int const* nrhs,
18283     float* A, lapack_int const* lda,
18284     float* E, lapack_int* ipiv,
18285     float* B, lapack_int const* ldb,
18286     float* work, lapack_int const* lwork,
18287     lapack_int* info
18288 #ifdef LAPACK_FORTRAN_STRLEN_END
18289     , FORTRAN_STRLEN
18290 #endif
18291 );
18292 #ifdef LAPACK_FORTRAN_STRLEN_END
18293     #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1)
18294 #else
18295     #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__)
18296 #endif
18297 
18298 #define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK)
18299 void LAPACK_zsysv_rk_base(
18300     char const* uplo,
18301     lapack_int const* n, lapack_int const* nrhs,
18302     lapack_complex_double* A, lapack_int const* lda,
18303     lapack_complex_double* E, lapack_int* ipiv,
18304     lapack_complex_double* B, lapack_int const* ldb,
18305     lapack_complex_double* work, lapack_int const* lwork,
18306     lapack_int* info
18307 #ifdef LAPACK_FORTRAN_STRLEN_END
18308     , FORTRAN_STRLEN
18309 #endif
18310 );
18311 #ifdef LAPACK_FORTRAN_STRLEN_END
18312     #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1)
18313 #else
18314     #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__)
18315 #endif
18316 
18317 #define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK)
18318 void LAPACK_csysv_rook_base(
18319     char const* uplo,
18320     lapack_int const* n, lapack_int const* nrhs,
18321     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18322     lapack_complex_float* B, lapack_int const* ldb,
18323     lapack_complex_float* work, lapack_int const* lwork,
18324     lapack_int* info
18325 #ifdef LAPACK_FORTRAN_STRLEN_END
18326     , FORTRAN_STRLEN
18327 #endif
18328 );
18329 #ifdef LAPACK_FORTRAN_STRLEN_END
18330     #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1)
18331 #else
18332     #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__)
18333 #endif
18334 
18335 #define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK)
18336 void LAPACK_dsysv_rook_base(
18337     char const* uplo,
18338     lapack_int const* n, lapack_int const* nrhs,
18339     double* A, lapack_int const* lda, lapack_int* ipiv,
18340     double* B, lapack_int const* ldb,
18341     double* work, lapack_int const* lwork,
18342     lapack_int* info
18343 #ifdef LAPACK_FORTRAN_STRLEN_END
18344     , FORTRAN_STRLEN
18345 #endif
18346 );
18347 #ifdef LAPACK_FORTRAN_STRLEN_END
18348     #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1)
18349 #else
18350     #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__)
18351 #endif
18352 
18353 #define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK)
18354 void LAPACK_ssysv_rook_base(
18355     char const* uplo,
18356     lapack_int const* n, lapack_int const* nrhs,
18357     float* A, lapack_int const* lda, lapack_int* ipiv,
18358     float* B, lapack_int const* ldb,
18359     float* work, lapack_int const* lwork,
18360     lapack_int* info
18361 #ifdef LAPACK_FORTRAN_STRLEN_END
18362     , FORTRAN_STRLEN
18363 #endif
18364 );
18365 #ifdef LAPACK_FORTRAN_STRLEN_END
18366     #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1)
18367 #else
18368     #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__)
18369 #endif
18370 
18371 #define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK)
18372 void LAPACK_zsysv_rook_base(
18373     char const* uplo,
18374     lapack_int const* n, lapack_int const* nrhs,
18375     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18376     lapack_complex_double* B, lapack_int const* ldb,
18377     lapack_complex_double* work, lapack_int const* lwork,
18378     lapack_int* info
18379 #ifdef LAPACK_FORTRAN_STRLEN_END
18380     , FORTRAN_STRLEN
18381 #endif
18382 );
18383 #ifdef LAPACK_FORTRAN_STRLEN_END
18384     #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1)
18385 #else
18386     #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__)
18387 #endif
18388 
18389 #define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX)
18390 void LAPACK_csysvx_base(
18391     char const* fact, char const* uplo,
18392     lapack_int const* n, lapack_int const* nrhs,
18393     lapack_complex_float const* A, lapack_int const* lda,
18394     lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv,
18395     lapack_complex_float const* B, lapack_int const* ldb,
18396     lapack_complex_float* X, lapack_int const* ldx,
18397     float* rcond,
18398     float* ferr,
18399     float* berr,
18400     lapack_complex_float* work, lapack_int const* lwork,
18401     float* rwork,
18402     lapack_int* info
18403 #ifdef LAPACK_FORTRAN_STRLEN_END
18404     , FORTRAN_STRLEN, FORTRAN_STRLEN
18405 #endif
18406 );
18407 #ifdef LAPACK_FORTRAN_STRLEN_END
18408     #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1)
18409 #else
18410     #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__)
18411 #endif
18412 
18413 #define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX)
18414 void LAPACK_dsysvx_base(
18415     char const* fact, char const* uplo,
18416     lapack_int const* n, lapack_int const* nrhs,
18417     double const* A, lapack_int const* lda,
18418     double* AF, lapack_int const* ldaf, lapack_int* ipiv,
18419     double const* B, lapack_int const* ldb,
18420     double* X, lapack_int const* ldx,
18421     double* rcond,
18422     double* ferr,
18423     double* berr,
18424     double* work, lapack_int const* lwork,
18425     lapack_int* iwork,
18426     lapack_int* info
18427 #ifdef LAPACK_FORTRAN_STRLEN_END
18428     , FORTRAN_STRLEN, FORTRAN_STRLEN
18429 #endif
18430 );
18431 #ifdef LAPACK_FORTRAN_STRLEN_END
18432     #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1)
18433 #else
18434     #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__)
18435 #endif
18436 
18437 #define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX)
18438 void LAPACK_ssysvx_base(
18439     char const* fact, char const* uplo,
18440     lapack_int const* n, lapack_int const* nrhs,
18441     float const* A, lapack_int const* lda,
18442     float* AF, lapack_int const* ldaf, lapack_int* ipiv,
18443     float const* B, lapack_int const* ldb,
18444     float* X, lapack_int const* ldx,
18445     float* rcond,
18446     float* ferr,
18447     float* berr,
18448     float* work, lapack_int const* lwork,
18449     lapack_int* iwork,
18450     lapack_int* info
18451 #ifdef LAPACK_FORTRAN_STRLEN_END
18452     , FORTRAN_STRLEN, FORTRAN_STRLEN
18453 #endif
18454 );
18455 #ifdef LAPACK_FORTRAN_STRLEN_END
18456     #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1)
18457 #else
18458     #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__)
18459 #endif
18460 
18461 #define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX)
18462 void LAPACK_zsysvx_base(
18463     char const* fact, char const* uplo,
18464     lapack_int const* n, lapack_int const* nrhs,
18465     lapack_complex_double const* A, lapack_int const* lda,
18466     lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv,
18467     lapack_complex_double const* B, lapack_int const* ldb,
18468     lapack_complex_double* X, lapack_int const* ldx,
18469     double* rcond,
18470     double* ferr,
18471     double* berr,
18472     lapack_complex_double* work, lapack_int const* lwork,
18473     double* rwork,
18474     lapack_int* info
18475 #ifdef LAPACK_FORTRAN_STRLEN_END
18476     , FORTRAN_STRLEN, FORTRAN_STRLEN
18477 #endif
18478 );
18479 #ifdef LAPACK_FORTRAN_STRLEN_END
18480     #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1)
18481 #else
18482     #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__)
18483 #endif
18484 
18485 #define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX)
18486 void LAPACK_csysvxx_base(
18487     char const* fact, char const* uplo,
18488     lapack_int const* n, lapack_int const* nrhs,
18489     lapack_complex_float* A, lapack_int const* lda,
18490     lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18491     float* S,
18492     lapack_complex_float* B,
18493     lapack_int const* ldb,
18494     lapack_complex_float* X, lapack_int const* ldx,
18495     float* rcond,
18496     float* rpvgrw,
18497     float* berr, lapack_int const* n_err_bnds,
18498     float* err_bnds_norm,
18499     float* err_bnds_comp, lapack_int const* nparams,
18500     float* params,
18501     lapack_complex_float* work,
18502     float* rwork,
18503     lapack_int* info
18504 #ifdef LAPACK_FORTRAN_STRLEN_END
18505     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
18506 #endif
18507 );
18508 #ifdef LAPACK_FORTRAN_STRLEN_END
18509     #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1)
18510 #else
18511     #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__)
18512 #endif
18513 
18514 #define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX)
18515 void LAPACK_dsysvxx_base(
18516     char const* fact, char const* uplo,
18517     lapack_int const* n, lapack_int const* nrhs,
18518     double* A, lapack_int const* lda,
18519     double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18520     double* S,
18521     double* B,
18522     lapack_int const* ldb,
18523     double* X, lapack_int const* ldx,
18524     double* rcond,
18525     double* rpvgrw,
18526     double* berr, lapack_int const* n_err_bnds,
18527     double* err_bnds_norm,
18528     double* err_bnds_comp, lapack_int const* nparams,
18529     double* params,
18530     double* work,
18531     lapack_int* iwork,
18532     lapack_int* info
18533 #ifdef LAPACK_FORTRAN_STRLEN_END
18534     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
18535 #endif
18536 );
18537 #ifdef LAPACK_FORTRAN_STRLEN_END
18538     #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1)
18539 #else
18540     #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__)
18541 #endif
18542 
18543 #define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX)
18544 void LAPACK_ssysvxx_base(
18545     char const* fact, char const* uplo,
18546     lapack_int const* n, lapack_int const* nrhs,
18547     float* A, lapack_int const* lda,
18548     float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18549     float* S,
18550     float* B,
18551     lapack_int const* ldb,
18552     float* X, lapack_int const* ldx,
18553     float* rcond,
18554     float* rpvgrw,
18555     float* berr, lapack_int const* n_err_bnds,
18556     float* err_bnds_norm,
18557     float* err_bnds_comp, lapack_int const* nparams,
18558     float* params,
18559     float* work,
18560     lapack_int* iwork,
18561     lapack_int* info
18562 #ifdef LAPACK_FORTRAN_STRLEN_END
18563     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
18564 #endif
18565 );
18566 #ifdef LAPACK_FORTRAN_STRLEN_END
18567     #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1)
18568 #else
18569     #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__)
18570 #endif
18571 
18572 #define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
18573 void LAPACK_zsysvxx_base(
18574     char const* fact, char const* uplo,
18575     lapack_int const* n, lapack_int const* nrhs,
18576     lapack_complex_double* A, lapack_int const* lda,
18577     lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18578     double* S,
18579     lapack_complex_double* B,
18580     lapack_int const* ldb,
18581     lapack_complex_double* X, lapack_int const* ldx,
18582     double* rcond,
18583     double* rpvgrw,
18584     double* berr, lapack_int const* n_err_bnds,
18585     double* err_bnds_norm,
18586     double* err_bnds_comp, lapack_int const* nparams,
18587     double* params,
18588     lapack_complex_double* work,
18589     double* rwork,
18590     lapack_int* info
18591 #ifdef LAPACK_FORTRAN_STRLEN_END
18592     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
18593 #endif
18594 );
18595 #ifdef LAPACK_FORTRAN_STRLEN_END
18596     #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1)
18597 #else
18598     #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__)
18599 #endif
18600 
18601 #define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR)
18602 void LAPACK_csyswapr_base(
18603     char const* uplo,
18604     lapack_int const* n,
18605     lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18606 #ifdef LAPACK_FORTRAN_STRLEN_END
18607     , FORTRAN_STRLEN
18608 #endif
18609 );
18610 #ifdef LAPACK_FORTRAN_STRLEN_END
18611     #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1)
18612 #else
18613     #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__)
18614 #endif
18615 
18616 #define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
18617 void LAPACK_dsyswapr_base(
18618     char const* uplo,
18619     lapack_int const* n,
18620     double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18621 #ifdef LAPACK_FORTRAN_STRLEN_END
18622     , FORTRAN_STRLEN
18623 #endif
18624 );
18625 #ifdef LAPACK_FORTRAN_STRLEN_END
18626     #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1)
18627 #else
18628     #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__)
18629 #endif
18630 
18631 #define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
18632 void LAPACK_ssyswapr_base(
18633     char const* uplo,
18634     lapack_int const* n,
18635     float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18636 #ifdef LAPACK_FORTRAN_STRLEN_END
18637     , FORTRAN_STRLEN
18638 #endif
18639 );
18640 #ifdef LAPACK_FORTRAN_STRLEN_END
18641     #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1)
18642 #else
18643     #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__)
18644 #endif
18645 
18646 #define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
18647 void LAPACK_zsyswapr_base(
18648     char const* uplo,
18649     lapack_int const* n,
18650     lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18651 #ifdef LAPACK_FORTRAN_STRLEN_END
18652     , FORTRAN_STRLEN
18653 #endif
18654 );
18655 #ifdef LAPACK_FORTRAN_STRLEN_END
18656     #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1)
18657 #else
18658     #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__)
18659 #endif
18660 
18661 #define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD)
18662 void LAPACK_dsytrd_base(
18663     char const* uplo,
18664     lapack_int const* n,
18665     double* A, lapack_int const* lda,
18666     double* D,
18667     double* E,
18668     double* tau,
18669     double* work, lapack_int const* lwork,
18670     lapack_int* info
18671 #ifdef LAPACK_FORTRAN_STRLEN_END
18672     , FORTRAN_STRLEN
18673 #endif
18674 );
18675 #ifdef LAPACK_FORTRAN_STRLEN_END
18676     #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1)
18677 #else
18678     #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__)
18679 #endif
18680 
18681 #define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD)
18682 void LAPACK_ssytrd_base(
18683     char const* uplo,
18684     lapack_int const* n,
18685     float* A, lapack_int const* lda,
18686     float* D,
18687     float* E,
18688     float* tau,
18689     float* work, lapack_int const* lwork,
18690     lapack_int* info
18691 #ifdef LAPACK_FORTRAN_STRLEN_END
18692     , FORTRAN_STRLEN
18693 #endif
18694 );
18695 #ifdef LAPACK_FORTRAN_STRLEN_END
18696     #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1)
18697 #else
18698     #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__)
18699 #endif
18700 
18701 #define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE)
18702 void LAPACK_dsytrd_2stage_base(
18703     char const* vect, char const* uplo,
18704     lapack_int const* n,
18705     double* A, lapack_int const* lda,
18706     double* D,
18707     double* E,
18708     double* tau,
18709     double* HOUS2, lapack_int const* lhous2,
18710     double* work, lapack_int const* lwork,
18711     lapack_int* info
18712 #ifdef LAPACK_FORTRAN_STRLEN_END
18713     , FORTRAN_STRLEN, FORTRAN_STRLEN
18714 #endif
18715 );
18716 #ifdef LAPACK_FORTRAN_STRLEN_END
18717     #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1)
18718 #else
18719     #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__)
18720 #endif
18721 
18722 #define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE)
18723 void LAPACK_ssytrd_2stage_base(
18724     char const* vect, char const* uplo,
18725     lapack_int const* n,
18726     float* A, lapack_int const* lda,
18727     float* D,
18728     float* E,
18729     float* tau,
18730     float* HOUS2, lapack_int const* lhous2,
18731     float* work, lapack_int const* lwork,
18732     lapack_int* info
18733 #ifdef LAPACK_FORTRAN_STRLEN_END
18734     , FORTRAN_STRLEN, FORTRAN_STRLEN
18735 #endif
18736 );
18737 #ifdef LAPACK_FORTRAN_STRLEN_END
18738     #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1)
18739 #else
18740     #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__)
18741 #endif
18742 
18743 #define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF)
18744 void LAPACK_csytrf_base(
18745     char const* uplo,
18746     lapack_int const* n,
18747     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18748     lapack_complex_float* work, lapack_int const* lwork,
18749     lapack_int* info
18750 #ifdef LAPACK_FORTRAN_STRLEN_END
18751     , FORTRAN_STRLEN
18752 #endif
18753 );
18754 #ifdef LAPACK_FORTRAN_STRLEN_END
18755     #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1)
18756 #else
18757     #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__)
18758 #endif
18759 
18760 #define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF)
18761 void LAPACK_dsytrf_base(
18762     char const* uplo,
18763     lapack_int const* n,
18764     double* A, lapack_int const* lda, lapack_int* ipiv,
18765     double* work, lapack_int const* lwork,
18766     lapack_int* info
18767 #ifdef LAPACK_FORTRAN_STRLEN_END
18768     , FORTRAN_STRLEN
18769 #endif
18770 );
18771 #ifdef LAPACK_FORTRAN_STRLEN_END
18772     #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1)
18773 #else
18774     #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__)
18775 #endif
18776 
18777 #define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF)
18778 void LAPACK_ssytrf_base(
18779     char const* uplo,
18780     lapack_int const* n,
18781     float* A, lapack_int const* lda, lapack_int* ipiv,
18782     float* work, lapack_int const* lwork,
18783     lapack_int* info
18784 #ifdef LAPACK_FORTRAN_STRLEN_END
18785     , FORTRAN_STRLEN
18786 #endif
18787 );
18788 #ifdef LAPACK_FORTRAN_STRLEN_END
18789     #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1)
18790 #else
18791     #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__)
18792 #endif
18793 
18794 #define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF)
18795 void LAPACK_zsytrf_base(
18796     char const* uplo,
18797     lapack_int const* n,
18798     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18799     lapack_complex_double* work, lapack_int const* lwork,
18800     lapack_int* info
18801 #ifdef LAPACK_FORTRAN_STRLEN_END
18802     , FORTRAN_STRLEN
18803 #endif
18804 );
18805 #ifdef LAPACK_FORTRAN_STRLEN_END
18806     #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1)
18807 #else
18808     #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__)
18809 #endif
18810 
18811 #define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA)
18812 void LAPACK_csytrf_aa_base(
18813     char const* uplo,
18814     lapack_int const* n,
18815     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18816     lapack_complex_float* work, lapack_int const* lwork,
18817     lapack_int* info
18818 #ifdef LAPACK_FORTRAN_STRLEN_END
18819     , FORTRAN_STRLEN
18820 #endif
18821 );
18822 #ifdef LAPACK_FORTRAN_STRLEN_END
18823     #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1)
18824 #else
18825     #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__)
18826 #endif
18827 
18828 #define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA)
18829 void LAPACK_dsytrf_aa_base(
18830     char const* uplo,
18831     lapack_int const* n,
18832     double* A, lapack_int const* lda, lapack_int* ipiv,
18833     double* work, lapack_int const* lwork,
18834     lapack_int* info
18835 #ifdef LAPACK_FORTRAN_STRLEN_END
18836     , FORTRAN_STRLEN
18837 #endif
18838 );
18839 #ifdef LAPACK_FORTRAN_STRLEN_END
18840     #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1)
18841 #else
18842     #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__)
18843 #endif
18844 
18845 #define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA)
18846 void LAPACK_ssytrf_aa_base(
18847     char const* uplo,
18848     lapack_int const* n,
18849     float* A, lapack_int const* lda, lapack_int* ipiv,
18850     float* work, lapack_int const* lwork,
18851     lapack_int* info
18852 #ifdef LAPACK_FORTRAN_STRLEN_END
18853     , FORTRAN_STRLEN
18854 #endif
18855 );
18856 #ifdef LAPACK_FORTRAN_STRLEN_END
18857     #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1)
18858 #else
18859     #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__)
18860 #endif
18861 
18862 #define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA)
18863 void LAPACK_zsytrf_aa_base(
18864     char const* uplo,
18865     lapack_int const* n,
18866     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18867     lapack_complex_double* work, lapack_int const* lwork,
18868     lapack_int* info
18869 #ifdef LAPACK_FORTRAN_STRLEN_END
18870     , FORTRAN_STRLEN
18871 #endif
18872 );
18873 #ifdef LAPACK_FORTRAN_STRLEN_END
18874     #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1)
18875 #else
18876     #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__)
18877 #endif
18878 
18879 #define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE)
18880 void LAPACK_csytrf_aa_2stage_base(
18881     char const* uplo,
18882     lapack_int const* n,
18883     lapack_complex_float* A, lapack_int const* lda,
18884     lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18885     lapack_complex_float* work, lapack_int const* lwork,
18886     lapack_int* info
18887 #ifdef LAPACK_FORTRAN_STRLEN_END
18888     , FORTRAN_STRLEN
18889 #endif
18890 );
18891 #ifdef LAPACK_FORTRAN_STRLEN_END
18892     #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1)
18893 #else
18894     #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__)
18895 #endif
18896 
18897 #define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE)
18898 void LAPACK_dsytrf_aa_2stage_base(
18899     char const* uplo,
18900     lapack_int const* n,
18901     double* A, lapack_int const* lda,
18902     double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18903     double* work, lapack_int const* lwork,
18904     lapack_int* info
18905 #ifdef LAPACK_FORTRAN_STRLEN_END
18906     , FORTRAN_STRLEN
18907 #endif
18908 );
18909 #ifdef LAPACK_FORTRAN_STRLEN_END
18910     #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1)
18911 #else
18912     #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__)
18913 #endif
18914 
18915 #define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE)
18916 void LAPACK_ssytrf_aa_2stage_base(
18917     char const* uplo,
18918     lapack_int const* n,
18919     float* A, lapack_int const* lda,
18920     float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18921     float* work, lapack_int const* lwork,
18922     lapack_int* info
18923 #ifdef LAPACK_FORTRAN_STRLEN_END
18924     , FORTRAN_STRLEN
18925 #endif
18926 );
18927 #ifdef LAPACK_FORTRAN_STRLEN_END
18928     #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1)
18929 #else
18930     #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__)
18931 #endif
18932 
18933 #define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE)
18934 void LAPACK_zsytrf_aa_2stage_base(
18935     char const* uplo,
18936     lapack_int const* n,
18937     lapack_complex_double* A, lapack_int const* lda,
18938     lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18939     lapack_complex_double* work, lapack_int const* lwork,
18940     lapack_int* info
18941 #ifdef LAPACK_FORTRAN_STRLEN_END
18942     , FORTRAN_STRLEN
18943 #endif
18944 );
18945 #ifdef LAPACK_FORTRAN_STRLEN_END
18946     #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1)
18947 #else
18948     #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__)
18949 #endif
18950 
18951 #define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK)
18952 void LAPACK_csytrf_rk_base(
18953     char const* uplo,
18954     lapack_int const* n,
18955     lapack_complex_float* A, lapack_int const* lda,
18956     lapack_complex_float* E, lapack_int* ipiv,
18957     lapack_complex_float* work, lapack_int const* lwork,
18958     lapack_int* info
18959 #ifdef LAPACK_FORTRAN_STRLEN_END
18960     , FORTRAN_STRLEN
18961 #endif
18962 );
18963 #ifdef LAPACK_FORTRAN_STRLEN_END
18964     #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1)
18965 #else
18966     #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__)
18967 #endif
18968 
18969 #define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK)
18970 void LAPACK_dsytrf_rk_base(
18971     char const* uplo,
18972     lapack_int const* n,
18973     double* A, lapack_int const* lda,
18974     double* E, lapack_int* ipiv,
18975     double* work, lapack_int const* lwork,
18976     lapack_int* info
18977 #ifdef LAPACK_FORTRAN_STRLEN_END
18978     , FORTRAN_STRLEN
18979 #endif
18980 );
18981 #ifdef LAPACK_FORTRAN_STRLEN_END
18982     #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1)
18983 #else
18984     #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__)
18985 #endif
18986 
18987 #define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK)
18988 void LAPACK_ssytrf_rk_base(
18989     char const* uplo,
18990     lapack_int const* n,
18991     float* A, lapack_int const* lda,
18992     float* E, lapack_int* ipiv,
18993     float* work, lapack_int const* lwork,
18994     lapack_int* info
18995 #ifdef LAPACK_FORTRAN_STRLEN_END
18996     , FORTRAN_STRLEN
18997 #endif
18998 );
18999 #ifdef LAPACK_FORTRAN_STRLEN_END
19000     #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1)
19001 #else
19002     #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__)
19003 #endif
19004 
19005 #define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK)
19006 void LAPACK_zsytrf_rk_base(
19007     char const* uplo,
19008     lapack_int const* n,
19009     lapack_complex_double* A, lapack_int const* lda,
19010     lapack_complex_double* E, lapack_int* ipiv,
19011     lapack_complex_double* work, lapack_int const* lwork,
19012     lapack_int* info
19013 #ifdef LAPACK_FORTRAN_STRLEN_END
19014     , FORTRAN_STRLEN
19015 #endif
19016 );
19017 #ifdef LAPACK_FORTRAN_STRLEN_END
19018     #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1)
19019 #else
19020     #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__)
19021 #endif
19022 
19023 #define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK)
19024 void LAPACK_csytrf_rook_base(
19025     char const* uplo,
19026     lapack_int const* n,
19027     lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
19028     lapack_complex_float* work, lapack_int const* lwork,
19029     lapack_int* info
19030 #ifdef LAPACK_FORTRAN_STRLEN_END
19031     , FORTRAN_STRLEN
19032 #endif
19033 );
19034 #ifdef LAPACK_FORTRAN_STRLEN_END
19035     #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1)
19036 #else
19037     #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__)
19038 #endif
19039 
19040 #define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK)
19041 void LAPACK_dsytrf_rook_base(
19042     char const* uplo,
19043     lapack_int const* n,
19044     double* A, lapack_int const* lda, lapack_int* ipiv,
19045     double* work, lapack_int const* lwork,
19046     lapack_int* info
19047 #ifdef LAPACK_FORTRAN_STRLEN_END
19048     , FORTRAN_STRLEN
19049 #endif
19050 );
19051 #ifdef LAPACK_FORTRAN_STRLEN_END
19052     #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1)
19053 #else
19054     #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__)
19055 #endif
19056 
19057 #define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK)
19058 void LAPACK_ssytrf_rook_base(
19059     char const* uplo,
19060     lapack_int const* n,
19061     float* A, lapack_int const* lda, lapack_int* ipiv,
19062     float* work, lapack_int const* lwork,
19063     lapack_int* info
19064 #ifdef LAPACK_FORTRAN_STRLEN_END
19065     , FORTRAN_STRLEN
19066 #endif
19067 );
19068 #ifdef LAPACK_FORTRAN_STRLEN_END
19069     #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1)
19070 #else
19071     #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__)
19072 #endif
19073 
19074 #define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK)
19075 void LAPACK_zsytrf_rook_base(
19076     char const* uplo,
19077     lapack_int const* n,
19078     lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
19079     lapack_complex_double* work, lapack_int const* lwork,
19080     lapack_int* info
19081 #ifdef LAPACK_FORTRAN_STRLEN_END
19082     , FORTRAN_STRLEN
19083 #endif
19084 );
19085 #ifdef LAPACK_FORTRAN_STRLEN_END
19086     #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1)
19087 #else
19088     #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__)
19089 #endif
19090 
19091 #define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI)
19092 void LAPACK_csytri_base(
19093     char const* uplo,
19094     lapack_int const* n,
19095     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19096     lapack_complex_float* work,
19097     lapack_int* info
19098 #ifdef LAPACK_FORTRAN_STRLEN_END
19099     , FORTRAN_STRLEN
19100 #endif
19101 );
19102 #ifdef LAPACK_FORTRAN_STRLEN_END
19103     #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1)
19104 #else
19105     #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__)
19106 #endif
19107 
19108 #define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI)
19109 void LAPACK_dsytri_base(
19110     char const* uplo,
19111     lapack_int const* n,
19112     double* A, lapack_int const* lda, lapack_int const* ipiv,
19113     double* work,
19114     lapack_int* info
19115 #ifdef LAPACK_FORTRAN_STRLEN_END
19116     , FORTRAN_STRLEN
19117 #endif
19118 );
19119 #ifdef LAPACK_FORTRAN_STRLEN_END
19120     #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1)
19121 #else
19122     #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__)
19123 #endif
19124 
19125 #define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI)
19126 void LAPACK_ssytri_base(
19127     char const* uplo,
19128     lapack_int const* n,
19129     float* A, lapack_int const* lda, lapack_int const* ipiv,
19130     float* work,
19131     lapack_int* info
19132 #ifdef LAPACK_FORTRAN_STRLEN_END
19133     , FORTRAN_STRLEN
19134 #endif
19135 );
19136 #ifdef LAPACK_FORTRAN_STRLEN_END
19137     #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1)
19138 #else
19139     #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__)
19140 #endif
19141 
19142 #define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI)
19143 void LAPACK_zsytri_base(
19144     char const* uplo,
19145     lapack_int const* n,
19146     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19147     lapack_complex_double* work,
19148     lapack_int* info
19149 #ifdef LAPACK_FORTRAN_STRLEN_END
19150     , FORTRAN_STRLEN
19151 #endif
19152 );
19153 #ifdef LAPACK_FORTRAN_STRLEN_END
19154     #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1)
19155 #else
19156     #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__)
19157 #endif
19158 
19159 #define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2)
19160 void LAPACK_csytri2_base(
19161     char const* uplo,
19162     lapack_int const* n,
19163     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19164     lapack_complex_float* work, lapack_int const* lwork,
19165     lapack_int* info
19166 #ifdef LAPACK_FORTRAN_STRLEN_END
19167     , FORTRAN_STRLEN
19168 #endif
19169 );
19170 #ifdef LAPACK_FORTRAN_STRLEN_END
19171     #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1)
19172 #else
19173     #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__)
19174 #endif
19175 
19176 #define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2)
19177 void LAPACK_dsytri2_base(
19178     char const* uplo,
19179     lapack_int const* n,
19180     double* A, lapack_int const* lda, lapack_int const* ipiv,
19181     double* work, lapack_int const* lwork,
19182     lapack_int* info
19183 #ifdef LAPACK_FORTRAN_STRLEN_END
19184     , FORTRAN_STRLEN
19185 #endif
19186 );
19187 #ifdef LAPACK_FORTRAN_STRLEN_END
19188     #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1)
19189 #else
19190     #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__)
19191 #endif
19192 
19193 #define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2)
19194 void LAPACK_ssytri2_base(
19195     char const* uplo,
19196     lapack_int const* n,
19197     float* A, lapack_int const* lda, lapack_int const* ipiv,
19198     float* work, lapack_int const* lwork,
19199     lapack_int* info
19200 #ifdef LAPACK_FORTRAN_STRLEN_END
19201     , FORTRAN_STRLEN
19202 #endif
19203 );
19204 #ifdef LAPACK_FORTRAN_STRLEN_END
19205     #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1)
19206 #else
19207     #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__)
19208 #endif
19209 
19210 #define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2)
19211 void LAPACK_zsytri2_base(
19212     char const* uplo,
19213     lapack_int const* n,
19214     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19215     lapack_complex_double* work, lapack_int const* lwork,
19216     lapack_int* info
19217 #ifdef LAPACK_FORTRAN_STRLEN_END
19218     , FORTRAN_STRLEN
19219 #endif
19220 );
19221 #ifdef LAPACK_FORTRAN_STRLEN_END
19222     #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1)
19223 #else
19224     #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__)
19225 #endif
19226 
19227 #define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X)
19228 void LAPACK_csytri2x_base(
19229     char const* uplo,
19230     lapack_int const* n,
19231     lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19232     lapack_complex_float* work, lapack_int const* nb,
19233     lapack_int* info
19234 #ifdef LAPACK_FORTRAN_STRLEN_END
19235     , FORTRAN_STRLEN
19236 #endif
19237 );
19238 #ifdef LAPACK_FORTRAN_STRLEN_END
19239     #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1)
19240 #else
19241     #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__)
19242 #endif
19243 
19244 #define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
19245 void LAPACK_dsytri2x_base(
19246     char const* uplo,
19247     lapack_int const* n,
19248     double* A, lapack_int const* lda, lapack_int const* ipiv,
19249     double* work, lapack_int const* nb,
19250     lapack_int* info
19251 #ifdef LAPACK_FORTRAN_STRLEN_END
19252     , FORTRAN_STRLEN
19253 #endif
19254 );
19255 #ifdef LAPACK_FORTRAN_STRLEN_END
19256     #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1)
19257 #else
19258     #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__)
19259 #endif
19260 
19261 #define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
19262 void LAPACK_ssytri2x_base(
19263     char const* uplo,
19264     lapack_int const* n,
19265     float* A, lapack_int const* lda, lapack_int const* ipiv,
19266     float* work, lapack_int const* nb,
19267     lapack_int* info
19268 #ifdef LAPACK_FORTRAN_STRLEN_END
19269     , FORTRAN_STRLEN
19270 #endif
19271 );
19272 #ifdef LAPACK_FORTRAN_STRLEN_END
19273     #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1)
19274 #else
19275     #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__)
19276 #endif
19277 
19278 #define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
19279 void LAPACK_zsytri2x_base(
19280     char const* uplo,
19281     lapack_int const* n,
19282     lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19283     lapack_complex_double* work, lapack_int const* nb,
19284     lapack_int* info
19285 #ifdef LAPACK_FORTRAN_STRLEN_END
19286     , FORTRAN_STRLEN
19287 #endif
19288 );
19289 #ifdef LAPACK_FORTRAN_STRLEN_END
19290     #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1)
19291 #else
19292     #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__)
19293 #endif
19294 
19295 #define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3)
19296 void LAPACK_csytri_3_base(
19297     char const* uplo,
19298     lapack_int const* n,
19299     lapack_complex_float* A, lapack_int const* lda,
19300     lapack_complex_float const* E, lapack_int const* ipiv,
19301     lapack_complex_float* work, lapack_int const* lwork,
19302     lapack_int* info
19303 #ifdef LAPACK_FORTRAN_STRLEN_END
19304     , FORTRAN_STRLEN
19305 #endif
19306 );
19307 #ifdef LAPACK_FORTRAN_STRLEN_END
19308     #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1)
19309 #else
19310     #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__)
19311 #endif
19312 
19313 #define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3)
19314 void LAPACK_dsytri_3_base(
19315     char const* uplo,
19316     lapack_int const* n,
19317     double* A, lapack_int const* lda,
19318     double const* E, lapack_int const* ipiv,
19319     double* work, lapack_int const* lwork,
19320     lapack_int* info
19321 #ifdef LAPACK_FORTRAN_STRLEN_END
19322     , FORTRAN_STRLEN
19323 #endif
19324 );
19325 #ifdef LAPACK_FORTRAN_STRLEN_END
19326     #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1)
19327 #else
19328     #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__)
19329 #endif
19330 
19331 #define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3)
19332 void LAPACK_ssytri_3_base(
19333     char const* uplo,
19334     lapack_int const* n,
19335     float* A, lapack_int const* lda,
19336     float const* E, lapack_int const* ipiv,
19337     float* work, lapack_int const* lwork,
19338     lapack_int* info
19339 #ifdef LAPACK_FORTRAN_STRLEN_END
19340     , FORTRAN_STRLEN
19341 #endif
19342 );
19343 #ifdef LAPACK_FORTRAN_STRLEN_END
19344     #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1)
19345 #else
19346     #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__)
19347 #endif
19348 
19349 #define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3)
19350 void LAPACK_zsytri_3_base(
19351     char const* uplo,
19352     lapack_int const* n,
19353     lapack_complex_double* A, lapack_int const* lda,
19354     lapack_complex_double const* E, lapack_int const* ipiv,
19355     lapack_complex_double* work, lapack_int const* lwork,
19356     lapack_int* info
19357 #ifdef LAPACK_FORTRAN_STRLEN_END
19358     , FORTRAN_STRLEN
19359 #endif
19360 );
19361 #ifdef LAPACK_FORTRAN_STRLEN_END
19362     #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1)
19363 #else
19364     #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__)
19365 #endif
19366 
19367 #define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS)
19368 void LAPACK_csytrs_base(
19369     char const* uplo,
19370     lapack_int const* n, lapack_int const* nrhs,
19371     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19372     lapack_complex_float* B, lapack_int const* ldb,
19373     lapack_int* info
19374 #ifdef LAPACK_FORTRAN_STRLEN_END
19375     , FORTRAN_STRLEN
19376 #endif
19377 );
19378 #ifdef LAPACK_FORTRAN_STRLEN_END
19379     #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1)
19380 #else
19381     #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__)
19382 #endif
19383 
19384 #define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS)
19385 void LAPACK_dsytrs_base(
19386     char const* uplo,
19387     lapack_int const* n, lapack_int const* nrhs,
19388     double const* A, lapack_int const* lda, lapack_int const* ipiv,
19389     double* B, lapack_int const* ldb,
19390     lapack_int* info
19391 #ifdef LAPACK_FORTRAN_STRLEN_END
19392     , FORTRAN_STRLEN
19393 #endif
19394 );
19395 #ifdef LAPACK_FORTRAN_STRLEN_END
19396     #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1)
19397 #else
19398     #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__)
19399 #endif
19400 
19401 #define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS)
19402 void LAPACK_ssytrs_base(
19403     char const* uplo,
19404     lapack_int const* n, lapack_int const* nrhs,
19405     float const* A, lapack_int const* lda, lapack_int const* ipiv,
19406     float* B, lapack_int const* ldb,
19407     lapack_int* info
19408 #ifdef LAPACK_FORTRAN_STRLEN_END
19409     , FORTRAN_STRLEN
19410 #endif
19411 );
19412 #ifdef LAPACK_FORTRAN_STRLEN_END
19413     #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1)
19414 #else
19415     #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__)
19416 #endif
19417 
19418 #define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS)
19419 void LAPACK_zsytrs_base(
19420     char const* uplo,
19421     lapack_int const* n, lapack_int const* nrhs,
19422     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19423     lapack_complex_double* B, lapack_int const* ldb,
19424     lapack_int* info
19425 #ifdef LAPACK_FORTRAN_STRLEN_END
19426     , FORTRAN_STRLEN
19427 #endif
19428 );
19429 #ifdef LAPACK_FORTRAN_STRLEN_END
19430     #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1)
19431 #else
19432     #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__)
19433 #endif
19434 
19435 #define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2)
19436 void LAPACK_csytrs2_base(
19437     char const* uplo,
19438     lapack_int const* n, lapack_int const* nrhs,
19439     const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19440     lapack_complex_float* B, lapack_int const* ldb,
19441     lapack_complex_float* work,
19442     lapack_int* info
19443 #ifdef LAPACK_FORTRAN_STRLEN_END
19444     , FORTRAN_STRLEN
19445 #endif
19446 );
19447 #ifdef LAPACK_FORTRAN_STRLEN_END
19448     #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1)
19449 #else
19450     #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__)
19451 #endif
19452 
19453 #define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2)
19454 void LAPACK_dsytrs2_base(
19455     char const* uplo,
19456     lapack_int const* n, lapack_int const* nrhs,
19457     const double* A, lapack_int const* lda, lapack_int const* ipiv,
19458     double* B, lapack_int const* ldb,
19459     double* work,
19460     lapack_int* info
19461 #ifdef LAPACK_FORTRAN_STRLEN_END
19462     , FORTRAN_STRLEN
19463 #endif
19464 );
19465 #ifdef LAPACK_FORTRAN_STRLEN_END
19466     #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1)
19467 #else
19468     #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__)
19469 #endif
19470 
19471 #define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2)
19472 void LAPACK_ssytrs2_base(
19473     char const* uplo,
19474     lapack_int const* n, lapack_int const* nrhs,
19475     const float* A, lapack_int const* lda, lapack_int const* ipiv,
19476     float* B, lapack_int const* ldb,
19477     float* work,
19478     lapack_int* info
19479 #ifdef LAPACK_FORTRAN_STRLEN_END
19480     , FORTRAN_STRLEN
19481 #endif
19482 );
19483 #ifdef LAPACK_FORTRAN_STRLEN_END
19484     #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1)
19485 #else
19486     #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__)
19487 #endif
19488 
19489 #define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
19490 void LAPACK_zsytrs2_base(
19491     char const* uplo,
19492     lapack_int const* n, lapack_int const* nrhs,
19493     const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19494     lapack_complex_double* B, lapack_int const* ldb,
19495     lapack_complex_double* work,
19496     lapack_int* info
19497 #ifdef LAPACK_FORTRAN_STRLEN_END
19498     , FORTRAN_STRLEN
19499 #endif
19500 );
19501 #ifdef LAPACK_FORTRAN_STRLEN_END
19502     #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1)
19503 #else
19504     #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__)
19505 #endif
19506 
19507 #define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3)
19508 void LAPACK_csytrs_3_base(
19509     char const* uplo,
19510     lapack_int const* n, lapack_int const* nrhs,
19511     lapack_complex_float const* A, lapack_int const* lda,
19512     lapack_complex_float const* E, lapack_int const* ipiv,
19513     lapack_complex_float* B, lapack_int const* ldb,
19514     lapack_int* info
19515 #ifdef LAPACK_FORTRAN_STRLEN_END
19516     , FORTRAN_STRLEN
19517 #endif
19518 );
19519 #ifdef LAPACK_FORTRAN_STRLEN_END
19520     #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1)
19521 #else
19522     #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__)
19523 #endif
19524 
19525 #define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3)
19526 void LAPACK_dsytrs_3_base(
19527     char const* uplo,
19528     lapack_int const* n, lapack_int const* nrhs,
19529     double const* A, lapack_int const* lda,
19530     double const* E, lapack_int const* ipiv,
19531     double* B, lapack_int const* ldb,
19532     lapack_int* info
19533 #ifdef LAPACK_FORTRAN_STRLEN_END
19534     , FORTRAN_STRLEN
19535 #endif
19536 );
19537 #ifdef LAPACK_FORTRAN_STRLEN_END
19538     #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1)
19539 #else
19540     #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__)
19541 #endif
19542 
19543 #define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3)
19544 void LAPACK_ssytrs_3_base(
19545     char const* uplo,
19546     lapack_int const* n, lapack_int const* nrhs,
19547     float const* A, lapack_int const* lda,
19548     float const* E, lapack_int const* ipiv,
19549     float* B, lapack_int const* ldb,
19550     lapack_int* info
19551 #ifdef LAPACK_FORTRAN_STRLEN_END
19552     , FORTRAN_STRLEN
19553 #endif
19554 );
19555 #ifdef LAPACK_FORTRAN_STRLEN_END
19556     #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1)
19557 #else
19558     #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__)
19559 #endif
19560 
19561 #define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3)
19562 void LAPACK_zsytrs_3_base(
19563     char const* uplo,
19564     lapack_int const* n, lapack_int const* nrhs,
19565     lapack_complex_double const* A, lapack_int const* lda,
19566     lapack_complex_double const* E, lapack_int const* ipiv,
19567     lapack_complex_double* B, lapack_int const* ldb,
19568     lapack_int* info
19569 #ifdef LAPACK_FORTRAN_STRLEN_END
19570     , FORTRAN_STRLEN
19571 #endif
19572 );
19573 #ifdef LAPACK_FORTRAN_STRLEN_END
19574     #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1)
19575 #else
19576     #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__)
19577 #endif
19578 
19579 #define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA)
19580 void LAPACK_csytrs_aa_base(
19581     char const* uplo,
19582     lapack_int const* n, lapack_int const* nrhs,
19583     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19584     lapack_complex_float* B, lapack_int const* ldb,
19585     lapack_complex_float* work, lapack_int const* lwork,
19586     lapack_int* info
19587 #ifdef LAPACK_FORTRAN_STRLEN_END
19588     , FORTRAN_STRLEN
19589 #endif
19590 );
19591 #ifdef LAPACK_FORTRAN_STRLEN_END
19592     #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1)
19593 #else
19594     #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__)
19595 #endif
19596 
19597 #define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA)
19598 void LAPACK_dsytrs_aa_base(
19599     char const* uplo,
19600     lapack_int const* n, lapack_int const* nrhs,
19601     double const* A, lapack_int const* lda, lapack_int const* ipiv,
19602     double* B, lapack_int const* ldb,
19603     double* work, lapack_int const* lwork,
19604     lapack_int* info
19605 #ifdef LAPACK_FORTRAN_STRLEN_END
19606     , FORTRAN_STRLEN
19607 #endif
19608 );
19609 #ifdef LAPACK_FORTRAN_STRLEN_END
19610     #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1)
19611 #else
19612     #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__)
19613 #endif
19614 
19615 #define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA)
19616 void LAPACK_ssytrs_aa_base(
19617     char const* uplo,
19618     lapack_int const* n, lapack_int const* nrhs,
19619     float const* A, lapack_int const* lda, lapack_int const* ipiv,
19620     float* B, lapack_int const* ldb,
19621     float* work, lapack_int const* lwork,
19622     lapack_int* info
19623 #ifdef LAPACK_FORTRAN_STRLEN_END
19624     , FORTRAN_STRLEN
19625 #endif
19626 );
19627 #ifdef LAPACK_FORTRAN_STRLEN_END
19628     #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1)
19629 #else
19630     #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__)
19631 #endif
19632 
19633 #define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA)
19634 void LAPACK_zsytrs_aa_base(
19635     char const* uplo,
19636     lapack_int const* n, lapack_int const* nrhs,
19637     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19638     lapack_complex_double* B, lapack_int const* ldb,
19639     lapack_complex_double* work, lapack_int const* lwork,
19640     lapack_int* info
19641 #ifdef LAPACK_FORTRAN_STRLEN_END
19642     , FORTRAN_STRLEN
19643 #endif
19644 );
19645 #ifdef LAPACK_FORTRAN_STRLEN_END
19646     #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1)
19647 #else
19648     #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__)
19649 #endif
19650 
19651 #define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE)
19652 void LAPACK_csytrs_aa_2stage_base(
19653     char const* uplo,
19654     lapack_int const* n, lapack_int const* nrhs,
19655     lapack_complex_float const* A, lapack_int const* lda,
19656     lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19657     lapack_complex_float* B, lapack_int const* ldb,
19658     lapack_int* info
19659 #ifdef LAPACK_FORTRAN_STRLEN_END
19660     , FORTRAN_STRLEN
19661 #endif
19662 );
19663 #ifdef LAPACK_FORTRAN_STRLEN_END
19664     #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1)
19665 #else
19666     #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__)
19667 #endif
19668 
19669 #define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE)
19670 void LAPACK_dsytrs_aa_2stage_base(
19671     char const* uplo,
19672     lapack_int const* n, lapack_int const* nrhs,
19673     double const* A, lapack_int const* lda,
19674     double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19675     double* B, lapack_int const* ldb,
19676     lapack_int* info
19677 #ifdef LAPACK_FORTRAN_STRLEN_END
19678     , FORTRAN_STRLEN
19679 #endif
19680 );
19681 #ifdef LAPACK_FORTRAN_STRLEN_END
19682     #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1)
19683 #else
19684     #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__)
19685 #endif
19686 
19687 #define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE)
19688 void LAPACK_ssytrs_aa_2stage_base(
19689     char const* uplo,
19690     lapack_int const* n, lapack_int const* nrhs,
19691     float const* A, lapack_int const* lda,
19692     float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19693     float* B, lapack_int const* ldb,
19694     lapack_int* info
19695 #ifdef LAPACK_FORTRAN_STRLEN_END
19696     , FORTRAN_STRLEN
19697 #endif
19698 );
19699 #ifdef LAPACK_FORTRAN_STRLEN_END
19700     #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1)
19701 #else
19702     #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__)
19703 #endif
19704 
19705 #define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE)
19706 void LAPACK_zsytrs_aa_2stage_base(
19707     char const* uplo,
19708     lapack_int const* n, lapack_int const* nrhs,
19709     lapack_complex_double const* A, lapack_int const* lda,
19710     lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19711     lapack_complex_double* B, lapack_int const* ldb,
19712     lapack_int* info
19713 #ifdef LAPACK_FORTRAN_STRLEN_END
19714     , FORTRAN_STRLEN
19715 #endif
19716 );
19717 #ifdef LAPACK_FORTRAN_STRLEN_END
19718     #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1)
19719 #else
19720     #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__)
19721 #endif
19722 
19723 #define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK)
19724 void LAPACK_csytrs_rook_base(
19725     char const* uplo,
19726     lapack_int const* n, lapack_int const* nrhs,
19727     lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19728     lapack_complex_float* B, lapack_int const* ldb,
19729     lapack_int* info
19730 #ifdef LAPACK_FORTRAN_STRLEN_END
19731     , FORTRAN_STRLEN
19732 #endif
19733 );
19734 #ifdef LAPACK_FORTRAN_STRLEN_END
19735     #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1)
19736 #else
19737     #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__)
19738 #endif
19739 
19740 #define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK)
19741 void LAPACK_dsytrs_rook_base(
19742     char const* uplo,
19743     lapack_int const* n, lapack_int const* nrhs,
19744     double const* A, lapack_int const* lda, lapack_int const* ipiv,
19745     double* B, lapack_int const* ldb,
19746     lapack_int* info
19747 #ifdef LAPACK_FORTRAN_STRLEN_END
19748     , FORTRAN_STRLEN
19749 #endif
19750 );
19751 #ifdef LAPACK_FORTRAN_STRLEN_END
19752     #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1)
19753 #else
19754     #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__)
19755 #endif
19756 
19757 #define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK)
19758 void LAPACK_ssytrs_rook_base(
19759     char const* uplo,
19760     lapack_int const* n, lapack_int const* nrhs,
19761     float const* A, lapack_int const* lda, lapack_int const* ipiv,
19762     float* B, lapack_int const* ldb,
19763     lapack_int* info
19764 #ifdef LAPACK_FORTRAN_STRLEN_END
19765     , FORTRAN_STRLEN
19766 #endif
19767 );
19768 #ifdef LAPACK_FORTRAN_STRLEN_END
19769     #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1)
19770 #else
19771     #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__)
19772 #endif
19773 
19774 #define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK)
19775 void LAPACK_zsytrs_rook_base(
19776     char const* uplo,
19777     lapack_int const* n, lapack_int const* nrhs,
19778     lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19779     lapack_complex_double* B, lapack_int const* ldb,
19780     lapack_int* info
19781 #ifdef LAPACK_FORTRAN_STRLEN_END
19782     , FORTRAN_STRLEN
19783 #endif
19784 );
19785 #ifdef LAPACK_FORTRAN_STRLEN_END
19786     #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1)
19787 #else
19788     #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__)
19789 #endif
19790 
19791 #define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON)
19792 void LAPACK_ctbcon_base(
19793     char const* norm, char const* uplo, char const* diag,
19794     lapack_int const* n, lapack_int const* kd,
19795     lapack_complex_float const* AB, lapack_int const* ldab,
19796     float* rcond,
19797     lapack_complex_float* work,
19798     float* rwork,
19799     lapack_int* info
19800 #ifdef LAPACK_FORTRAN_STRLEN_END
19801     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19802 #endif
19803 );
19804 #ifdef LAPACK_FORTRAN_STRLEN_END
19805     #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1)
19806 #else
19807     #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__)
19808 #endif
19809 
19810 #define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON)
19811 void LAPACK_dtbcon_base(
19812     char const* norm, char const* uplo, char const* diag,
19813     lapack_int const* n, lapack_int const* kd,
19814     double const* AB, lapack_int const* ldab,
19815     double* rcond,
19816     double* work,
19817     lapack_int* iwork,
19818     lapack_int* info
19819 #ifdef LAPACK_FORTRAN_STRLEN_END
19820     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19821 #endif
19822 );
19823 #ifdef LAPACK_FORTRAN_STRLEN_END
19824     #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1)
19825 #else
19826     #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__)
19827 #endif
19828 
19829 #define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON)
19830 void LAPACK_stbcon_base(
19831     char const* norm, char const* uplo, char const* diag,
19832     lapack_int const* n, lapack_int const* kd,
19833     float const* AB, lapack_int const* ldab,
19834     float* rcond,
19835     float* work,
19836     lapack_int* iwork,
19837     lapack_int* info
19838 #ifdef LAPACK_FORTRAN_STRLEN_END
19839     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19840 #endif
19841 );
19842 #ifdef LAPACK_FORTRAN_STRLEN_END
19843     #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1)
19844 #else
19845     #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__)
19846 #endif
19847 
19848 #define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON)
19849 void LAPACK_ztbcon_base(
19850     char const* norm, char const* uplo, char const* diag,
19851     lapack_int const* n, lapack_int const* kd,
19852     lapack_complex_double const* AB, lapack_int const* ldab,
19853     double* rcond,
19854     lapack_complex_double* work,
19855     double* rwork,
19856     lapack_int* info
19857 #ifdef LAPACK_FORTRAN_STRLEN_END
19858     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19859 #endif
19860 );
19861 #ifdef LAPACK_FORTRAN_STRLEN_END
19862     #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1)
19863 #else
19864     #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__)
19865 #endif
19866 
19867 #define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS)
19868 void LAPACK_ctbrfs_base(
19869     char const* uplo, char const* trans, char const* diag,
19870     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19871     lapack_complex_float const* AB, lapack_int const* ldab,
19872     lapack_complex_float const* B, lapack_int const* ldb,
19873     lapack_complex_float const* X, lapack_int const* ldx,
19874     float* ferr,
19875     float* berr,
19876     lapack_complex_float* work,
19877     float* rwork,
19878     lapack_int* info
19879 #ifdef LAPACK_FORTRAN_STRLEN_END
19880     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19881 #endif
19882 );
19883 #ifdef LAPACK_FORTRAN_STRLEN_END
19884     #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1)
19885 #else
19886     #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__)
19887 #endif
19888 
19889 #define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS)
19890 void LAPACK_dtbrfs_base(
19891     char const* uplo, char const* trans, char const* diag,
19892     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19893     double const* AB, lapack_int const* ldab,
19894     double const* B, lapack_int const* ldb,
19895     double const* X, lapack_int const* ldx,
19896     double* ferr,
19897     double* berr,
19898     double* work,
19899     lapack_int* iwork,
19900     lapack_int* info
19901 #ifdef LAPACK_FORTRAN_STRLEN_END
19902     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19903 #endif
19904 );
19905 #ifdef LAPACK_FORTRAN_STRLEN_END
19906     #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1)
19907 #else
19908     #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__)
19909 #endif
19910 
19911 #define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS)
19912 void LAPACK_stbrfs_base(
19913     char const* uplo, char const* trans, char const* diag,
19914     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19915     float const* AB, lapack_int const* ldab,
19916     float const* B, lapack_int const* ldb,
19917     float const* X, lapack_int const* ldx,
19918     float* ferr,
19919     float* berr,
19920     float* work,
19921     lapack_int* iwork,
19922     lapack_int* info
19923 #ifdef LAPACK_FORTRAN_STRLEN_END
19924     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19925 #endif
19926 );
19927 #ifdef LAPACK_FORTRAN_STRLEN_END
19928     #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1)
19929 #else
19930     #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__)
19931 #endif
19932 
19933 #define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS)
19934 void LAPACK_ztbrfs_base(
19935     char const* uplo, char const* trans, char const* diag,
19936     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19937     lapack_complex_double const* AB, lapack_int const* ldab,
19938     lapack_complex_double const* B, lapack_int const* ldb,
19939     lapack_complex_double const* X, lapack_int const* ldx,
19940     double* ferr,
19941     double* berr,
19942     lapack_complex_double* work,
19943     double* rwork,
19944     lapack_int* info
19945 #ifdef LAPACK_FORTRAN_STRLEN_END
19946     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19947 #endif
19948 );
19949 #ifdef LAPACK_FORTRAN_STRLEN_END
19950     #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1)
19951 #else
19952     #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__)
19953 #endif
19954 
19955 #define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS)
19956 void LAPACK_ctbtrs_base(
19957     char const* uplo, char const* trans, char const* diag,
19958     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19959     lapack_complex_float const* AB, lapack_int const* ldab,
19960     lapack_complex_float* B, lapack_int const* ldb,
19961     lapack_int* info
19962 #ifdef LAPACK_FORTRAN_STRLEN_END
19963     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19964 #endif
19965 );
19966 #ifdef LAPACK_FORTRAN_STRLEN_END
19967     #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1)
19968 #else
19969     #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__)
19970 #endif
19971 
19972 #define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS)
19973 void LAPACK_dtbtrs_base(
19974     char const* uplo, char const* trans, char const* diag,
19975     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19976     double const* AB, lapack_int const* ldab,
19977     double* B, lapack_int const* ldb,
19978     lapack_int* info
19979 #ifdef LAPACK_FORTRAN_STRLEN_END
19980     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19981 #endif
19982 );
19983 #ifdef LAPACK_FORTRAN_STRLEN_END
19984     #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1)
19985 #else
19986     #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__)
19987 #endif
19988 
19989 #define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS)
19990 void LAPACK_stbtrs_base(
19991     char const* uplo, char const* trans, char const* diag,
19992     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19993     float const* AB, lapack_int const* ldab,
19994     float* B, lapack_int const* ldb,
19995     lapack_int* info
19996 #ifdef LAPACK_FORTRAN_STRLEN_END
19997     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
19998 #endif
19999 );
20000 #ifdef LAPACK_FORTRAN_STRLEN_END
20001     #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1)
20002 #else
20003     #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__)
20004 #endif
20005 
20006 #define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS)
20007 void LAPACK_ztbtrs_base(
20008     char const* uplo, char const* trans, char const* diag,
20009     lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
20010     lapack_complex_double const* AB, lapack_int const* ldab,
20011     lapack_complex_double* B, lapack_int const* ldb,
20012     lapack_int* info
20013 #ifdef LAPACK_FORTRAN_STRLEN_END
20014     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20015 #endif
20016 );
20017 #ifdef LAPACK_FORTRAN_STRLEN_END
20018     #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1)
20019 #else
20020     #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__)
20021 #endif
20022 
20023 #define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM)
20024 void LAPACK_ctfsm_base(
20025     char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
20026     lapack_int const* m, lapack_int const* n,
20027     lapack_complex_float const* alpha,
20028     lapack_complex_float const* A,
20029     lapack_complex_float* B, lapack_int const* ldb
20030 #ifdef LAPACK_FORTRAN_STRLEN_END
20031     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20032 #endif
20033 );
20034 #ifdef LAPACK_FORTRAN_STRLEN_END
20035     #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
20036 #else
20037     #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__)
20038 #endif
20039 
20040 #define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM)
20041 void LAPACK_dtfsm_base(
20042     char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
20043     lapack_int const* m, lapack_int const* n,
20044     double const* alpha,
20045     double const* A,
20046     double* B, lapack_int const* ldb
20047 #ifdef LAPACK_FORTRAN_STRLEN_END
20048     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20049 #endif
20050 );
20051 #ifdef LAPACK_FORTRAN_STRLEN_END
20052     #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
20053 #else
20054     #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__)
20055 #endif
20056 
20057 #define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM)
20058 void LAPACK_stfsm_base(
20059     char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
20060     lapack_int const* m, lapack_int const* n,
20061     float const* alpha,
20062     float const* A,
20063     float* B, lapack_int const* ldb
20064 #ifdef LAPACK_FORTRAN_STRLEN_END
20065     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20066 #endif
20067 );
20068 #ifdef LAPACK_FORTRAN_STRLEN_END
20069     #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
20070 #else
20071     #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__)
20072 #endif
20073 
20074 #define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM)
20075 void LAPACK_ztfsm_base(
20076     char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
20077     lapack_int const* m, lapack_int const* n,
20078     lapack_complex_double const* alpha,
20079     lapack_complex_double const* A,
20080     lapack_complex_double* B, lapack_int const* ldb
20081 #ifdef LAPACK_FORTRAN_STRLEN_END
20082     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20083 #endif
20084 );
20085 #ifdef LAPACK_FORTRAN_STRLEN_END
20086     #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
20087 #else
20088     #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__)
20089 #endif
20090 
20091 #define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI)
20092 void LAPACK_ctftri_base(
20093     char const* transr, char const* uplo, char const* diag,
20094     lapack_int const* n,
20095     lapack_complex_float* A,
20096     lapack_int* info
20097 #ifdef LAPACK_FORTRAN_STRLEN_END
20098     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20099 #endif
20100 );
20101 #ifdef LAPACK_FORTRAN_STRLEN_END
20102     #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1)
20103 #else
20104     #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__)
20105 #endif
20106 
20107 #define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI)
20108 void LAPACK_dtftri_base(
20109     char const* transr, char const* uplo, char const* diag,
20110     lapack_int const* n,
20111     double* A,
20112     lapack_int* info
20113 #ifdef LAPACK_FORTRAN_STRLEN_END
20114     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20115 #endif
20116 );
20117 #ifdef LAPACK_FORTRAN_STRLEN_END
20118     #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1)
20119 #else
20120     #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__)
20121 #endif
20122 
20123 #define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI)
20124 void LAPACK_stftri_base(
20125     char const* transr, char const* uplo, char const* diag,
20126     lapack_int const* n,
20127     float* A,
20128     lapack_int* info
20129 #ifdef LAPACK_FORTRAN_STRLEN_END
20130     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20131 #endif
20132 );
20133 #ifdef LAPACK_FORTRAN_STRLEN_END
20134     #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1)
20135 #else
20136     #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__)
20137 #endif
20138 
20139 #define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI)
20140 void LAPACK_ztftri_base(
20141     char const* transr, char const* uplo, char const* diag,
20142     lapack_int const* n,
20143     lapack_complex_double* A,
20144     lapack_int* info
20145 #ifdef LAPACK_FORTRAN_STRLEN_END
20146     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20147 #endif
20148 );
20149 #ifdef LAPACK_FORTRAN_STRLEN_END
20150     #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1)
20151 #else
20152     #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__)
20153 #endif
20154 
20155 #define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP)
20156 void LAPACK_ctfttp_base(
20157     char const* transr, char const* uplo,
20158     lapack_int const* n,
20159     lapack_complex_float const* ARF,
20160     lapack_complex_float* AP,
20161     lapack_int* info
20162 #ifdef LAPACK_FORTRAN_STRLEN_END
20163     , FORTRAN_STRLEN, FORTRAN_STRLEN
20164 #endif
20165 );
20166 #ifdef LAPACK_FORTRAN_STRLEN_END
20167     #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1)
20168 #else
20169     #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__)
20170 #endif
20171 
20172 #define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP)
20173 void LAPACK_dtfttp_base(
20174     char const* transr, char const* uplo,
20175     lapack_int const* n,
20176     double const* ARF,
20177     double* AP,
20178     lapack_int* info
20179 #ifdef LAPACK_FORTRAN_STRLEN_END
20180     , FORTRAN_STRLEN, FORTRAN_STRLEN
20181 #endif
20182 );
20183 #ifdef LAPACK_FORTRAN_STRLEN_END
20184     #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1)
20185 #else
20186     #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__)
20187 #endif
20188 
20189 #define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP)
20190 void LAPACK_stfttp_base(
20191     char const* transr, char const* uplo,
20192     lapack_int const* n,
20193     float const* ARF,
20194     float* AP,
20195     lapack_int* info
20196 #ifdef LAPACK_FORTRAN_STRLEN_END
20197     , FORTRAN_STRLEN, FORTRAN_STRLEN
20198 #endif
20199 );
20200 #ifdef LAPACK_FORTRAN_STRLEN_END
20201     #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1)
20202 #else
20203     #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__)
20204 #endif
20205 
20206 #define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP)
20207 void LAPACK_ztfttp_base(
20208     char const* transr, char const* uplo,
20209     lapack_int const* n,
20210     lapack_complex_double const* ARF,
20211     lapack_complex_double* AP,
20212     lapack_int* info
20213 #ifdef LAPACK_FORTRAN_STRLEN_END
20214     , FORTRAN_STRLEN, FORTRAN_STRLEN
20215 #endif
20216 );
20217 #ifdef LAPACK_FORTRAN_STRLEN_END
20218     #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1)
20219 #else
20220     #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__)
20221 #endif
20222 
20223 #define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR)
20224 void LAPACK_ctfttr_base(
20225     char const* transr, char const* uplo,
20226     lapack_int const* n,
20227     lapack_complex_float const* ARF,
20228     lapack_complex_float* A, lapack_int const* lda,
20229     lapack_int* info
20230 #ifdef LAPACK_FORTRAN_STRLEN_END
20231     , FORTRAN_STRLEN, FORTRAN_STRLEN
20232 #endif
20233 );
20234 #ifdef LAPACK_FORTRAN_STRLEN_END
20235     #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1)
20236 #else
20237     #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__)
20238 #endif
20239 
20240 #define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR)
20241 void LAPACK_dtfttr_base(
20242     char const* transr, char const* uplo,
20243     lapack_int const* n,
20244     double const* ARF,
20245     double* A, lapack_int const* lda,
20246     lapack_int* info
20247 #ifdef LAPACK_FORTRAN_STRLEN_END
20248     , FORTRAN_STRLEN, FORTRAN_STRLEN
20249 #endif
20250 );
20251 #ifdef LAPACK_FORTRAN_STRLEN_END
20252     #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1)
20253 #else
20254     #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__)
20255 #endif
20256 
20257 #define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR)
20258 void LAPACK_stfttr_base(
20259     char const* transr, char const* uplo,
20260     lapack_int const* n,
20261     float const* ARF,
20262     float* A, lapack_int const* lda,
20263     lapack_int* info
20264 #ifdef LAPACK_FORTRAN_STRLEN_END
20265     , FORTRAN_STRLEN, FORTRAN_STRLEN
20266 #endif
20267 );
20268 #ifdef LAPACK_FORTRAN_STRLEN_END
20269     #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1)
20270 #else
20271     #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__)
20272 #endif
20273 
20274 #define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR)
20275 void LAPACK_ztfttr_base(
20276     char const* transr, char const* uplo,
20277     lapack_int const* n,
20278     lapack_complex_double const* ARF,
20279     lapack_complex_double* A, lapack_int const* lda,
20280     lapack_int* info
20281 #ifdef LAPACK_FORTRAN_STRLEN_END
20282     , FORTRAN_STRLEN, FORTRAN_STRLEN
20283 #endif
20284 );
20285 #ifdef LAPACK_FORTRAN_STRLEN_END
20286     #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1)
20287 #else
20288     #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__)
20289 #endif
20290 
20291 #define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC)
20292 void LAPACK_ctgevc_base(
20293     char const* side, char const* howmny,
20294     lapack_logical const* select,
20295     lapack_int const* n,
20296     lapack_complex_float const* S, lapack_int const* lds,
20297     lapack_complex_float const* P, lapack_int const* ldp,
20298     lapack_complex_float* VL, lapack_int const* ldvl,
20299     lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20300     lapack_complex_float* work,
20301     float* rwork,
20302     lapack_int* info
20303 #ifdef LAPACK_FORTRAN_STRLEN_END
20304     , FORTRAN_STRLEN, FORTRAN_STRLEN
20305 #endif
20306 );
20307 #ifdef LAPACK_FORTRAN_STRLEN_END
20308     #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1)
20309 #else
20310     #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__)
20311 #endif
20312 
20313 #define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC)
20314 void LAPACK_dtgevc_base(
20315     char const* side, char const* howmny,
20316     lapack_logical const* select,
20317     lapack_int const* n,
20318     double const* S, lapack_int const* lds,
20319     double const* P, lapack_int const* ldp,
20320     double* VL, lapack_int const* ldvl,
20321     double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20322     double* work,
20323     lapack_int* info
20324 #ifdef LAPACK_FORTRAN_STRLEN_END
20325     , FORTRAN_STRLEN, FORTRAN_STRLEN
20326 #endif
20327 );
20328 #ifdef LAPACK_FORTRAN_STRLEN_END
20329     #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1)
20330 #else
20331     #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__)
20332 #endif
20333 
20334 #define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC)
20335 void LAPACK_stgevc_base(
20336     char const* side, char const* howmny,
20337     lapack_logical const* select,
20338     lapack_int const* n,
20339     float const* S, lapack_int const* lds,
20340     float const* P, lapack_int const* ldp,
20341     float* VL, lapack_int const* ldvl,
20342     float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20343     float* work,
20344     lapack_int* info
20345 #ifdef LAPACK_FORTRAN_STRLEN_END
20346     , FORTRAN_STRLEN, FORTRAN_STRLEN
20347 #endif
20348 );
20349 #ifdef LAPACK_FORTRAN_STRLEN_END
20350     #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1)
20351 #else
20352     #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__)
20353 #endif
20354 
20355 #define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC)
20356 void LAPACK_ztgevc_base(
20357     char const* side, char const* howmny,
20358     lapack_logical const* select,
20359     lapack_int const* n,
20360     lapack_complex_double const* S, lapack_int const* lds,
20361     lapack_complex_double const* P, lapack_int const* ldp,
20362     lapack_complex_double* VL, lapack_int const* ldvl,
20363     lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20364     lapack_complex_double* work,
20365     double* rwork,
20366     lapack_int* info
20367 #ifdef LAPACK_FORTRAN_STRLEN_END
20368     , FORTRAN_STRLEN, FORTRAN_STRLEN
20369 #endif
20370 );
20371 #ifdef LAPACK_FORTRAN_STRLEN_END
20372     #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1)
20373 #else
20374     #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__)
20375 #endif
20376 
20377 #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
20378 void LAPACK_ctgexc(
20379     lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20380     lapack_complex_float* A, lapack_int const* lda,
20381     lapack_complex_float* B, lapack_int const* ldb,
20382     lapack_complex_float* Q, lapack_int const* ldq,
20383     lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20384     lapack_int* info );
20385 
20386 #define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
20387 void LAPACK_dtgexc(
20388     lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20389     double* A, lapack_int const* lda,
20390     double* B, lapack_int const* ldb,
20391     double* Q, lapack_int const* ldq,
20392     double* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20393     double* work, lapack_int const* lwork,
20394     lapack_int* info );
20395 
20396 #define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
20397 void LAPACK_stgexc(
20398     lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20399     float* A, lapack_int const* lda,
20400     float* B, lapack_int const* ldb,
20401     float* Q, lapack_int const* ldq,
20402     float* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20403     float* work, lapack_int const* lwork,
20404     lapack_int* info );
20405 
20406 #define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
20407 void LAPACK_ztgexc(
20408     lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20409     lapack_complex_double* A, lapack_int const* lda,
20410     lapack_complex_double* B, lapack_int const* ldb,
20411     lapack_complex_double* Q, lapack_int const* ldq,
20412     lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20413     lapack_int* info );
20414 
20415 #define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
20416 void LAPACK_ctgsen(
20417     lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20418     lapack_complex_float* A, lapack_int const* lda,
20419     lapack_complex_float* B, lapack_int const* ldb,
20420     lapack_complex_float* alpha,
20421     lapack_complex_float* beta,
20422     lapack_complex_float* Q, lapack_int const* ldq,
20423     lapack_complex_float* Z, lapack_int const* ldz, lapack_int* m,
20424     float* pl,
20425     float* pr,
20426     float* DIF,
20427     lapack_complex_float* work, lapack_int const* lwork,
20428     lapack_int* iwork, lapack_int const* liwork,
20429     lapack_int* info );
20430 
20431 #define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
20432 void LAPACK_dtgsen(
20433     lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20434     double* A, lapack_int const* lda,
20435     double* B, lapack_int const* ldb,
20436     double* alphar,
20437     double* alphai,
20438     double* beta,
20439     double* Q, lapack_int const* ldq,
20440     double* Z, lapack_int const* ldz, lapack_int* m,
20441     double* pl,
20442     double* pr,
20443     double* DIF,
20444     double* work, lapack_int const* lwork,
20445     lapack_int* iwork, lapack_int const* liwork,
20446     lapack_int* info );
20447 
20448 #define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
20449 void LAPACK_stgsen(
20450     lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20451     float* A, lapack_int const* lda,
20452     float* B, lapack_int const* ldb,
20453     float* alphar,
20454     float* alphai,
20455     float* beta,
20456     float* Q, lapack_int const* ldq,
20457     float* Z, lapack_int const* ldz, lapack_int* m,
20458     float* pl,
20459     float* pr,
20460     float* DIF,
20461     float* work, lapack_int const* lwork,
20462     lapack_int* iwork, lapack_int const* liwork,
20463     lapack_int* info );
20464 
20465 #define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
20466 void LAPACK_ztgsen(
20467     lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20468     lapack_complex_double* A, lapack_int const* lda,
20469     lapack_complex_double* B, lapack_int const* ldb,
20470     lapack_complex_double* alpha,
20471     lapack_complex_double* beta,
20472     lapack_complex_double* Q, lapack_int const* ldq,
20473     lapack_complex_double* Z, lapack_int const* ldz, lapack_int* m,
20474     double* pl,
20475     double* pr,
20476     double* DIF,
20477     lapack_complex_double* work, lapack_int const* lwork,
20478     lapack_int* iwork, lapack_int const* liwork,
20479     lapack_int* info );
20480 
20481 #define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA)
20482 void LAPACK_ctgsja_base(
20483     char const* jobu, char const* jobv, char const* jobq,
20484     lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20485     lapack_complex_float* A, lapack_int const* lda,
20486     lapack_complex_float* B, lapack_int const* ldb,
20487     float const* tola,
20488     float const* tolb,
20489     float* alpha,
20490     float* beta,
20491     lapack_complex_float* U, lapack_int const* ldu,
20492     lapack_complex_float* V, lapack_int const* ldv,
20493     lapack_complex_float* Q, lapack_int const* ldq,
20494     lapack_complex_float* work, lapack_int* ncycle,
20495     lapack_int* info
20496 #ifdef LAPACK_FORTRAN_STRLEN_END
20497     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20498 #endif
20499 );
20500 #ifdef LAPACK_FORTRAN_STRLEN_END
20501     #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1)
20502 #else
20503     #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__)
20504 #endif
20505 
20506 #define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA)
20507 void LAPACK_dtgsja_base(
20508     char const* jobu, char const* jobv, char const* jobq,
20509     lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20510     double* A, lapack_int const* lda,
20511     double* B, lapack_int const* ldb,
20512     double const* tola,
20513     double const* tolb,
20514     double* alpha,
20515     double* beta,
20516     double* U, lapack_int const* ldu,
20517     double* V, lapack_int const* ldv,
20518     double* Q, lapack_int const* ldq,
20519     double* work, lapack_int* ncycle,
20520     lapack_int* info
20521 #ifdef LAPACK_FORTRAN_STRLEN_END
20522     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20523 #endif
20524 );
20525 #ifdef LAPACK_FORTRAN_STRLEN_END
20526     #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1)
20527 #else
20528     #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__)
20529 #endif
20530 
20531 #define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA)
20532 void LAPACK_stgsja_base(
20533     char const* jobu, char const* jobv, char const* jobq,
20534     lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20535     float* A, lapack_int const* lda,
20536     float* B, lapack_int const* ldb,
20537     float const* tola,
20538     float const* tolb,
20539     float* alpha,
20540     float* beta,
20541     float* U, lapack_int const* ldu,
20542     float* V, lapack_int const* ldv,
20543     float* Q, lapack_int const* ldq,
20544     float* work, lapack_int* ncycle,
20545     lapack_int* info
20546 #ifdef LAPACK_FORTRAN_STRLEN_END
20547     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20548 #endif
20549 );
20550 #ifdef LAPACK_FORTRAN_STRLEN_END
20551     #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1)
20552 #else
20553     #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__)
20554 #endif
20555 
20556 #define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA)
20557 void LAPACK_ztgsja_base(
20558     char const* jobu, char const* jobv, char const* jobq,
20559     lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20560     lapack_complex_double* A, lapack_int const* lda,
20561     lapack_complex_double* B, lapack_int const* ldb,
20562     double const* tola,
20563     double const* tolb,
20564     double* alpha,
20565     double* beta,
20566     lapack_complex_double* U, lapack_int const* ldu,
20567     lapack_complex_double* V, lapack_int const* ldv,
20568     lapack_complex_double* Q, lapack_int const* ldq,
20569     lapack_complex_double* work, lapack_int* ncycle,
20570     lapack_int* info
20571 #ifdef LAPACK_FORTRAN_STRLEN_END
20572     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20573 #endif
20574 );
20575 #ifdef LAPACK_FORTRAN_STRLEN_END
20576     #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1)
20577 #else
20578     #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__)
20579 #endif
20580 
20581 #define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA)
20582 void LAPACK_ctgsna_base(
20583     char const* job, char const* howmny,
20584     lapack_logical const* select,
20585     lapack_int const* n,
20586     lapack_complex_float const* A, lapack_int const* lda,
20587     lapack_complex_float const* B, lapack_int const* ldb,
20588     lapack_complex_float const* VL, lapack_int const* ldvl,
20589     lapack_complex_float const* VR, lapack_int const* ldvr,
20590     float* S,
20591     float* DIF, lapack_int const* mm, lapack_int* m,
20592     lapack_complex_float* work, lapack_int const* lwork,
20593     lapack_int* iwork,
20594     lapack_int* info
20595 #ifdef LAPACK_FORTRAN_STRLEN_END
20596     , FORTRAN_STRLEN, FORTRAN_STRLEN
20597 #endif
20598 );
20599 #ifdef LAPACK_FORTRAN_STRLEN_END
20600     #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1)
20601 #else
20602     #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__)
20603 #endif
20604 
20605 #define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA)
20606 void LAPACK_dtgsna_base(
20607     char const* job, char const* howmny,
20608     lapack_logical const* select,
20609     lapack_int const* n,
20610     double const* A, lapack_int const* lda,
20611     double const* B, lapack_int const* ldb,
20612     double const* VL, lapack_int const* ldvl,
20613     double const* VR, lapack_int const* ldvr,
20614     double* S,
20615     double* DIF, lapack_int const* mm, lapack_int* m,
20616     double* work, lapack_int const* lwork,
20617     lapack_int* iwork,
20618     lapack_int* info
20619 #ifdef LAPACK_FORTRAN_STRLEN_END
20620     , FORTRAN_STRLEN, FORTRAN_STRLEN
20621 #endif
20622 );
20623 #ifdef LAPACK_FORTRAN_STRLEN_END
20624     #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1)
20625 #else
20626     #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__)
20627 #endif
20628 
20629 #define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA)
20630 void LAPACK_stgsna_base(
20631     char const* job, char const* howmny,
20632     lapack_logical const* select,
20633     lapack_int const* n,
20634     float const* A, lapack_int const* lda,
20635     float const* B, lapack_int const* ldb,
20636     float const* VL, lapack_int const* ldvl,
20637     float const* VR, lapack_int const* ldvr,
20638     float* S,
20639     float* DIF, lapack_int const* mm, lapack_int* m,
20640     float* work, lapack_int const* lwork,
20641     lapack_int* iwork,
20642     lapack_int* info
20643 #ifdef LAPACK_FORTRAN_STRLEN_END
20644     , FORTRAN_STRLEN, FORTRAN_STRLEN
20645 #endif
20646 );
20647 #ifdef LAPACK_FORTRAN_STRLEN_END
20648     #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1)
20649 #else
20650     #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__)
20651 #endif
20652 
20653 #define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA)
20654 void LAPACK_ztgsna_base(
20655     char const* job, char const* howmny,
20656     lapack_logical const* select,
20657     lapack_int const* n,
20658     lapack_complex_double const* A, lapack_int const* lda,
20659     lapack_complex_double const* B, lapack_int const* ldb,
20660     lapack_complex_double const* VL, lapack_int const* ldvl,
20661     lapack_complex_double const* VR, lapack_int const* ldvr,
20662     double* S,
20663     double* DIF, lapack_int const* mm, lapack_int* m,
20664     lapack_complex_double* work, lapack_int const* lwork,
20665     lapack_int* iwork,
20666     lapack_int* info
20667 #ifdef LAPACK_FORTRAN_STRLEN_END
20668     , FORTRAN_STRLEN, FORTRAN_STRLEN
20669 #endif
20670 );
20671 #ifdef LAPACK_FORTRAN_STRLEN_END
20672     #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1)
20673 #else
20674     #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__)
20675 #endif
20676 
20677 #define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL)
20678 void LAPACK_ctgsyl_base(
20679     char const* trans,
20680     lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20681     lapack_complex_float const* A, lapack_int const* lda,
20682     lapack_complex_float const* B, lapack_int const* ldb,
20683     lapack_complex_float* C, lapack_int const* ldc,
20684     lapack_complex_float const* D, lapack_int const* ldd,
20685     lapack_complex_float const* E, lapack_int const* lde,
20686     lapack_complex_float* F, lapack_int const* ldf,
20687     float* dif,
20688     float* scale,
20689     lapack_complex_float* work, lapack_int const* lwork,
20690     lapack_int* iwork,
20691     lapack_int* info
20692 #ifdef LAPACK_FORTRAN_STRLEN_END
20693     , FORTRAN_STRLEN
20694 #endif
20695 );
20696 #ifdef LAPACK_FORTRAN_STRLEN_END
20697     #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1)
20698 #else
20699     #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__)
20700 #endif
20701 
20702 #define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL)
20703 void LAPACK_dtgsyl_base(
20704     char const* trans,
20705     lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20706     double const* A, lapack_int const* lda,
20707     double const* B, lapack_int const* ldb,
20708     double* C, lapack_int const* ldc,
20709     double const* D, lapack_int const* ldd,
20710     double const* E, lapack_int const* lde,
20711     double* F, lapack_int const* ldf,
20712     double* dif,
20713     double* scale,
20714     double* work, lapack_int const* lwork,
20715     lapack_int* iwork,
20716     lapack_int* info
20717 #ifdef LAPACK_FORTRAN_STRLEN_END
20718     , FORTRAN_STRLEN
20719 #endif
20720 );
20721 #ifdef LAPACK_FORTRAN_STRLEN_END
20722     #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1)
20723 #else
20724     #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__)
20725 #endif
20726 
20727 #define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL)
20728 void LAPACK_stgsyl_base(
20729     char const* trans,
20730     lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20731     float const* A, lapack_int const* lda,
20732     float const* B, lapack_int const* ldb,
20733     float* C, lapack_int const* ldc,
20734     float const* D, lapack_int const* ldd,
20735     float const* E, lapack_int const* lde,
20736     float* F, lapack_int const* ldf,
20737     float* dif,
20738     float* scale,
20739     float* work, lapack_int const* lwork,
20740     lapack_int* iwork,
20741     lapack_int* info
20742 #ifdef LAPACK_FORTRAN_STRLEN_END
20743     , FORTRAN_STRLEN
20744 #endif
20745 );
20746 #ifdef LAPACK_FORTRAN_STRLEN_END
20747     #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1)
20748 #else
20749     #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__)
20750 #endif
20751 
20752 #define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL)
20753 void LAPACK_ztgsyl_base(
20754     char const* trans,
20755     lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20756     lapack_complex_double const* A, lapack_int const* lda,
20757     lapack_complex_double const* B, lapack_int const* ldb,
20758     lapack_complex_double* C, lapack_int const* ldc,
20759     lapack_complex_double const* D, lapack_int const* ldd,
20760     lapack_complex_double const* E, lapack_int const* lde,
20761     lapack_complex_double* F, lapack_int const* ldf,
20762     double* dif,
20763     double* scale,
20764     lapack_complex_double* work, lapack_int const* lwork,
20765     lapack_int* iwork,
20766     lapack_int* info
20767 #ifdef LAPACK_FORTRAN_STRLEN_END
20768     , FORTRAN_STRLEN
20769 #endif
20770 );
20771 #ifdef LAPACK_FORTRAN_STRLEN_END
20772     #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1)
20773 #else
20774     #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__)
20775 #endif
20776 
20777 #define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON)
20778 void LAPACK_ctpcon_base(
20779     char const* norm, char const* uplo, char const* diag,
20780     lapack_int const* n,
20781     lapack_complex_float const* AP,
20782     float* rcond,
20783     lapack_complex_float* work,
20784     float* rwork,
20785     lapack_int* info
20786 #ifdef LAPACK_FORTRAN_STRLEN_END
20787     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20788 #endif
20789 );
20790 #ifdef LAPACK_FORTRAN_STRLEN_END
20791     #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1)
20792 #else
20793     #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__)
20794 #endif
20795 
20796 #define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON)
20797 void LAPACK_dtpcon_base(
20798     char const* norm, char const* uplo, char const* diag,
20799     lapack_int const* n,
20800     double const* AP,
20801     double* rcond,
20802     double* work,
20803     lapack_int* iwork,
20804     lapack_int* info
20805 #ifdef LAPACK_FORTRAN_STRLEN_END
20806     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20807 #endif
20808 );
20809 #ifdef LAPACK_FORTRAN_STRLEN_END
20810     #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1)
20811 #else
20812     #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__)
20813 #endif
20814 
20815 #define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON)
20816 void LAPACK_stpcon_base(
20817     char const* norm, char const* uplo, char const* diag,
20818     lapack_int const* n,
20819     float const* AP,
20820     float* rcond,
20821     float* work,
20822     lapack_int* iwork,
20823     lapack_int* info
20824 #ifdef LAPACK_FORTRAN_STRLEN_END
20825     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20826 #endif
20827 );
20828 #ifdef LAPACK_FORTRAN_STRLEN_END
20829     #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1)
20830 #else
20831     #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__)
20832 #endif
20833 
20834 #define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON)
20835 void LAPACK_ztpcon_base(
20836     char const* norm, char const* uplo, char const* diag,
20837     lapack_int const* n,
20838     lapack_complex_double const* AP,
20839     double* rcond,
20840     lapack_complex_double* work,
20841     double* rwork,
20842     lapack_int* info
20843 #ifdef LAPACK_FORTRAN_STRLEN_END
20844     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
20845 #endif
20846 );
20847 #ifdef LAPACK_FORTRAN_STRLEN_END
20848     #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1)
20849 #else
20850     #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__)
20851 #endif
20852 
20853 #define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT)
20854 void LAPACK_ctplqt(
20855     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20856     lapack_complex_float* A, lapack_int const* lda,
20857     lapack_complex_float* B, lapack_int const* ldb,
20858     lapack_complex_float* T, lapack_int const* ldt,
20859     lapack_complex_float* work,
20860     lapack_int* info );
20861 
20862 #define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT)
20863 void LAPACK_dtplqt(
20864     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20865     double* A, lapack_int const* lda,
20866     double* B, lapack_int const* ldb,
20867     double* T, lapack_int const* ldt,
20868     double* work,
20869     lapack_int* info );
20870 
20871 #define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT)
20872 void LAPACK_stplqt(
20873     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20874     float* A, lapack_int const* lda,
20875     float* B, lapack_int const* ldb,
20876     float* T, lapack_int const* ldt,
20877     float* work,
20878     lapack_int* info );
20879 
20880 #define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT)
20881 void LAPACK_ztplqt(
20882     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20883     lapack_complex_double* A, lapack_int const* lda,
20884     lapack_complex_double* B, lapack_int const* ldb,
20885     lapack_complex_double* T, lapack_int const* ldt,
20886     lapack_complex_double* work,
20887     lapack_int* info );
20888 
20889 #define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2)
20890 void LAPACK_ctplqt2(
20891     lapack_int const* m, lapack_int const* n, lapack_int const* l,
20892     lapack_complex_float* A, lapack_int const* lda,
20893     lapack_complex_float* B, lapack_int const* ldb,
20894     lapack_complex_float* T, lapack_int const* ldt,
20895     lapack_int* info );
20896 
20897 #define LAPACK_dtplqt2 LAPACK_GLOBAL(dtplqt2,DTPLQT2)
20898 void LAPACK_dtplqt2(
20899     lapack_int const* m, lapack_int const* n, lapack_int const* l,
20900     double* A, lapack_int const* lda,
20901     double* B, lapack_int const* ldb,
20902     double* T, lapack_int const* ldt,
20903     lapack_int* info );
20904 
20905 #define LAPACK_stplqt2 LAPACK_GLOBAL(stplqt2,STPLQT2)
20906 void LAPACK_stplqt2(
20907     lapack_int const* m, lapack_int const* n, lapack_int const* l,
20908     float* A, lapack_int const* lda,
20909     float* B, lapack_int const* ldb,
20910     float* T, lapack_int const* ldt,
20911     lapack_int* info );
20912 
20913 #define LAPACK_ztplqt2 LAPACK_GLOBAL(ztplqt2,ZTPLQT2)
20914 void LAPACK_ztplqt2(
20915     lapack_int const* m, lapack_int const* n, lapack_int const* l,
20916     lapack_complex_double* A, lapack_int const* lda,
20917     lapack_complex_double* B, lapack_int const* ldb,
20918     lapack_complex_double* T, lapack_int const* ldt,
20919     lapack_int* info );
20920 
20921 #define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT)
20922 void LAPACK_ctpmlqt_base(
20923     char const* side, char const* trans,
20924     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20925     lapack_complex_float const* V, lapack_int const* ldv,
20926     lapack_complex_float const* T, lapack_int const* ldt,
20927     lapack_complex_float* A, lapack_int const* lda,
20928     lapack_complex_float* B, lapack_int const* ldb,
20929     lapack_complex_float* work,
20930     lapack_int* info
20931 #ifdef LAPACK_FORTRAN_STRLEN_END
20932     , FORTRAN_STRLEN, FORTRAN_STRLEN
20933 #endif
20934 );
20935 #ifdef LAPACK_FORTRAN_STRLEN_END
20936     #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1)
20937 #else
20938     #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__)
20939 #endif
20940 
20941 #define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT)
20942 void LAPACK_dtpmlqt_base(
20943     char const* side, char const* trans,
20944     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20945     double const* V, lapack_int const* ldv,
20946     double const* T, lapack_int const* ldt,
20947     double* A, lapack_int const* lda,
20948     double* B, lapack_int const* ldb,
20949     double* work,
20950     lapack_int* info
20951 #ifdef LAPACK_FORTRAN_STRLEN_END
20952     , FORTRAN_STRLEN, FORTRAN_STRLEN
20953 #endif
20954 );
20955 #ifdef LAPACK_FORTRAN_STRLEN_END
20956     #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1)
20957 #else
20958     #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__)
20959 #endif
20960 
20961 #define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT)
20962 void LAPACK_stpmlqt_base(
20963     char const* side, char const* trans,
20964     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20965     float const* V, lapack_int const* ldv,
20966     float const* T, lapack_int const* ldt,
20967     float* A, lapack_int const* lda,
20968     float* B, lapack_int const* ldb,
20969     float* work,
20970     lapack_int* info
20971 #ifdef LAPACK_FORTRAN_STRLEN_END
20972     , FORTRAN_STRLEN, FORTRAN_STRLEN
20973 #endif
20974 );
20975 #ifdef LAPACK_FORTRAN_STRLEN_END
20976     #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1)
20977 #else
20978     #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__)
20979 #endif
20980 
20981 #define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT)
20982 void LAPACK_ztpmlqt_base(
20983     char const* side, char const* trans,
20984     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20985     lapack_complex_double const* V, lapack_int const* ldv,
20986     lapack_complex_double const* T, lapack_int const* ldt,
20987     lapack_complex_double* A, lapack_int const* lda,
20988     lapack_complex_double* B, lapack_int const* ldb,
20989     lapack_complex_double* work,
20990     lapack_int* info
20991 #ifdef LAPACK_FORTRAN_STRLEN_END
20992     , FORTRAN_STRLEN, FORTRAN_STRLEN
20993 #endif
20994 );
20995 #ifdef LAPACK_FORTRAN_STRLEN_END
20996     #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1)
20997 #else
20998     #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__)
20999 #endif
21000 
21001 #define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
21002 void LAPACK_ctpmqrt_base(
21003     char const* side, char const* trans,
21004     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
21005     lapack_complex_float const* V, lapack_int const* ldv,
21006     lapack_complex_float const* T, lapack_int const* ldt,
21007     lapack_complex_float* A, lapack_int const* lda,
21008     lapack_complex_float* B, lapack_int const* ldb,
21009     lapack_complex_float* work,
21010     lapack_int* info
21011 #ifdef LAPACK_FORTRAN_STRLEN_END
21012     , FORTRAN_STRLEN, FORTRAN_STRLEN
21013 #endif
21014 );
21015 #ifdef LAPACK_FORTRAN_STRLEN_END
21016     #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1)
21017 #else
21018     #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__)
21019 #endif
21020 
21021 #define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
21022 void LAPACK_dtpmqrt_base(
21023     char const* side, char const* trans,
21024     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
21025     double const* V, lapack_int const* ldv,
21026     double const* T, lapack_int const* ldt,
21027     double* A, lapack_int const* lda,
21028     double* B, lapack_int const* ldb,
21029     double* work,
21030     lapack_int* info
21031 #ifdef LAPACK_FORTRAN_STRLEN_END
21032     , FORTRAN_STRLEN, FORTRAN_STRLEN
21033 #endif
21034 );
21035 #ifdef LAPACK_FORTRAN_STRLEN_END
21036     #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1)
21037 #else
21038     #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__)
21039 #endif
21040 
21041 #define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT)
21042 void LAPACK_stpmqrt_base(
21043     char const* side, char const* trans,
21044     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
21045     float const* V, lapack_int const* ldv,
21046     float const* T, lapack_int const* ldt,
21047     float* A, lapack_int const* lda,
21048     float* B, lapack_int const* ldb,
21049     float* work,
21050     lapack_int* info
21051 #ifdef LAPACK_FORTRAN_STRLEN_END
21052     , FORTRAN_STRLEN, FORTRAN_STRLEN
21053 #endif
21054 );
21055 #ifdef LAPACK_FORTRAN_STRLEN_END
21056     #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1)
21057 #else
21058     #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__)
21059 #endif
21060 
21061 #define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
21062 void LAPACK_ztpmqrt_base(
21063     char const* side, char const* trans,
21064     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
21065     lapack_complex_double const* V, lapack_int const* ldv,
21066     lapack_complex_double const* T, lapack_int const* ldt,
21067     lapack_complex_double* A, lapack_int const* lda,
21068     lapack_complex_double* B, lapack_int const* ldb,
21069     lapack_complex_double* work,
21070     lapack_int* info
21071 #ifdef LAPACK_FORTRAN_STRLEN_END
21072     , FORTRAN_STRLEN, FORTRAN_STRLEN
21073 #endif
21074 );
21075 #ifdef LAPACK_FORTRAN_STRLEN_END
21076     #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1)
21077 #else
21078     #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__)
21079 #endif
21080 
21081 #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
21082 void LAPACK_ctpqrt(
21083     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
21084     lapack_complex_float* A, lapack_int const* lda,
21085     lapack_complex_float* B, lapack_int const* ldb,
21086     lapack_complex_float* T, lapack_int const* ldt,
21087     lapack_complex_float* work,
21088     lapack_int* info );
21089 
21090 #define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
21091 void LAPACK_dtpqrt(
21092     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
21093     double* A, lapack_int const* lda,
21094     double* B, lapack_int const* ldb,
21095     double* T, lapack_int const* ldt,
21096     double* work,
21097     lapack_int* info );
21098 
21099 #define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT)
21100 void LAPACK_stpqrt(
21101     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
21102     float* A, lapack_int const* lda,
21103     float* B, lapack_int const* ldb,
21104     float* T, lapack_int const* ldt,
21105     float* work,
21106     lapack_int* info );
21107 
21108 #define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
21109 void LAPACK_ztpqrt(
21110     lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
21111     lapack_complex_double* A, lapack_int const* lda,
21112     lapack_complex_double* B, lapack_int const* ldb,
21113     lapack_complex_double* T, lapack_int const* ldt,
21114     lapack_complex_double* work,
21115     lapack_int* info );
21116 
21117 #define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
21118 void LAPACK_ctpqrt2(
21119     lapack_int const* m, lapack_int const* n, lapack_int const* l,
21120     lapack_complex_float* A, lapack_int const* lda,
21121     lapack_complex_float* B, lapack_int const* ldb,
21122     lapack_complex_float* T, lapack_int const* ldt,
21123     lapack_int* info );
21124 
21125 #define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2)
21126 void LAPACK_dtpqrt2(
21127     lapack_int const* m, lapack_int const* n, lapack_int const* l,
21128     double* A, lapack_int const* lda,
21129     double* B, lapack_int const* ldb,
21130     double* T, lapack_int const* ldt,
21131     lapack_int* info );
21132 
21133 #define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2)
21134 void LAPACK_stpqrt2(
21135     lapack_int const* m, lapack_int const* n, lapack_int const* l,
21136     float* A, lapack_int const* lda,
21137     float* B, lapack_int const* ldb,
21138     float* T, lapack_int const* ldt,
21139     lapack_int* info );
21140 
21141 #define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2)
21142 void LAPACK_ztpqrt2(
21143     lapack_int const* m, lapack_int const* n, lapack_int const* l,
21144     lapack_complex_double* A, lapack_int const* lda,
21145     lapack_complex_double* B, lapack_int const* ldb,
21146     lapack_complex_double* T, lapack_int const* ldt,
21147     lapack_int* info );
21148 
21149 #define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB)
21150 void LAPACK_ctprfb_base(
21151     char const* side, char const* trans, char const* direct, char const* storev,
21152     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
21153     lapack_complex_float const* V, lapack_int const* ldv,
21154     lapack_complex_float const* T, lapack_int const* ldt,
21155     lapack_complex_float* A, lapack_int const* lda,
21156     lapack_complex_float* B, lapack_int const* ldb,
21157     lapack_complex_float* work, lapack_int const* ldwork
21158 #ifdef LAPACK_FORTRAN_STRLEN_END
21159     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21160 #endif
21161 );
21162 #ifdef LAPACK_FORTRAN_STRLEN_END
21163     #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1)
21164 #else
21165     #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__)
21166 #endif
21167 
21168 #define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB)
21169 void LAPACK_dtprfb_base(
21170     char const* side, char const* trans, char const* direct, char const* storev,
21171     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
21172     double const* V, lapack_int const* ldv,
21173     double const* T, lapack_int const* ldt,
21174     double* A, lapack_int const* lda,
21175     double* B, lapack_int const* ldb,
21176     double* work, lapack_int const* ldwork
21177 #ifdef LAPACK_FORTRAN_STRLEN_END
21178     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21179 #endif
21180 );
21181 #ifdef LAPACK_FORTRAN_STRLEN_END
21182     #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1)
21183 #else
21184     #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__)
21185 #endif
21186 
21187 #define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB)
21188 void LAPACK_stprfb_base(
21189     char const* side, char const* trans, char const* direct, char const* storev,
21190     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
21191     float const* V, lapack_int const* ldv,
21192     float const* T, lapack_int const* ldt,
21193     float* A, lapack_int const* lda,
21194     float* B, lapack_int const* ldb,
21195     float* work, lapack_int const* ldwork
21196 #ifdef LAPACK_FORTRAN_STRLEN_END
21197     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21198 #endif
21199 );
21200 #ifdef LAPACK_FORTRAN_STRLEN_END
21201     #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1)
21202 #else
21203     #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__)
21204 #endif
21205 
21206 #define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB)
21207 void LAPACK_ztprfb_base(
21208     char const* side, char const* trans, char const* direct, char const* storev,
21209     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
21210     lapack_complex_double const* V, lapack_int const* ldv,
21211     lapack_complex_double const* T, lapack_int const* ldt,
21212     lapack_complex_double* A, lapack_int const* lda,
21213     lapack_complex_double* B, lapack_int const* ldb,
21214     lapack_complex_double* work, lapack_int const* ldwork
21215 #ifdef LAPACK_FORTRAN_STRLEN_END
21216     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21217 #endif
21218 );
21219 #ifdef LAPACK_FORTRAN_STRLEN_END
21220     #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1)
21221 #else
21222     #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__)
21223 #endif
21224 
21225 #define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS)
21226 void LAPACK_ctprfs_base(
21227     char const* uplo, char const* trans, char const* diag,
21228     lapack_int const* n, lapack_int const* nrhs,
21229     lapack_complex_float const* AP,
21230     lapack_complex_float const* B, lapack_int const* ldb,
21231     lapack_complex_float const* X, lapack_int const* ldx,
21232     float* ferr,
21233     float* berr,
21234     lapack_complex_float* work,
21235     float* rwork,
21236     lapack_int* info
21237 #ifdef LAPACK_FORTRAN_STRLEN_END
21238     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21239 #endif
21240 );
21241 #ifdef LAPACK_FORTRAN_STRLEN_END
21242     #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1)
21243 #else
21244     #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__)
21245 #endif
21246 
21247 #define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS)
21248 void LAPACK_dtprfs_base(
21249     char const* uplo, char const* trans, char const* diag,
21250     lapack_int const* n, lapack_int const* nrhs,
21251     double const* AP,
21252     double const* B, lapack_int const* ldb,
21253     double const* X, lapack_int const* ldx,
21254     double* ferr,
21255     double* berr,
21256     double* work,
21257     lapack_int* iwork,
21258     lapack_int* info
21259 #ifdef LAPACK_FORTRAN_STRLEN_END
21260     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21261 #endif
21262 );
21263 #ifdef LAPACK_FORTRAN_STRLEN_END
21264     #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1)
21265 #else
21266     #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__)
21267 #endif
21268 
21269 #define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS)
21270 void LAPACK_stprfs_base(
21271     char const* uplo, char const* trans, char const* diag,
21272     lapack_int const* n, lapack_int const* nrhs,
21273     float const* AP,
21274     float const* B, lapack_int const* ldb,
21275     float const* X, lapack_int const* ldx,
21276     float* ferr,
21277     float* berr,
21278     float* work,
21279     lapack_int* iwork,
21280     lapack_int* info
21281 #ifdef LAPACK_FORTRAN_STRLEN_END
21282     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21283 #endif
21284 );
21285 #ifdef LAPACK_FORTRAN_STRLEN_END
21286     #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1)
21287 #else
21288     #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__)
21289 #endif
21290 
21291 #define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS)
21292 void LAPACK_ztprfs_base(
21293     char const* uplo, char const* trans, char const* diag,
21294     lapack_int const* n, lapack_int const* nrhs,
21295     lapack_complex_double const* AP,
21296     lapack_complex_double const* B, lapack_int const* ldb,
21297     lapack_complex_double const* X, lapack_int const* ldx,
21298     double* ferr,
21299     double* berr,
21300     lapack_complex_double* work,
21301     double* rwork,
21302     lapack_int* info
21303 #ifdef LAPACK_FORTRAN_STRLEN_END
21304     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21305 #endif
21306 );
21307 #ifdef LAPACK_FORTRAN_STRLEN_END
21308     #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1)
21309 #else
21310     #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__)
21311 #endif
21312 
21313 #define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI)
21314 void LAPACK_ctptri_base(
21315     char const* uplo, char const* diag,
21316     lapack_int const* n,
21317     lapack_complex_float* AP,
21318     lapack_int* info
21319 #ifdef LAPACK_FORTRAN_STRLEN_END
21320     , FORTRAN_STRLEN, FORTRAN_STRLEN
21321 #endif
21322 );
21323 #ifdef LAPACK_FORTRAN_STRLEN_END
21324     #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1)
21325 #else
21326     #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__)
21327 #endif
21328 
21329 #define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI)
21330 void LAPACK_dtptri_base(
21331     char const* uplo, char const* diag,
21332     lapack_int const* n,
21333     double* AP,
21334     lapack_int* info
21335 #ifdef LAPACK_FORTRAN_STRLEN_END
21336     , FORTRAN_STRLEN, FORTRAN_STRLEN
21337 #endif
21338 );
21339 #ifdef LAPACK_FORTRAN_STRLEN_END
21340     #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1)
21341 #else
21342     #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__)
21343 #endif
21344 
21345 #define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI)
21346 void LAPACK_stptri_base(
21347     char const* uplo, char const* diag,
21348     lapack_int const* n,
21349     float* AP,
21350     lapack_int* info
21351 #ifdef LAPACK_FORTRAN_STRLEN_END
21352     , FORTRAN_STRLEN, FORTRAN_STRLEN
21353 #endif
21354 );
21355 #ifdef LAPACK_FORTRAN_STRLEN_END
21356     #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1)
21357 #else
21358     #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__)
21359 #endif
21360 
21361 #define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI)
21362 void LAPACK_ztptri_base(
21363     char const* uplo, char const* diag,
21364     lapack_int const* n,
21365     lapack_complex_double* AP,
21366     lapack_int* info
21367 #ifdef LAPACK_FORTRAN_STRLEN_END
21368     , FORTRAN_STRLEN, FORTRAN_STRLEN
21369 #endif
21370 );
21371 #ifdef LAPACK_FORTRAN_STRLEN_END
21372     #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1)
21373 #else
21374     #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__)
21375 #endif
21376 
21377 #define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS)
21378 void LAPACK_ctptrs_base(
21379     char const* uplo, char const* trans, char const* diag,
21380     lapack_int const* n, lapack_int const* nrhs,
21381     lapack_complex_float const* AP,
21382     lapack_complex_float* B, lapack_int const* ldb,
21383     lapack_int* info
21384 #ifdef LAPACK_FORTRAN_STRLEN_END
21385     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21386 #endif
21387 );
21388 #ifdef LAPACK_FORTRAN_STRLEN_END
21389     #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1)
21390 #else
21391     #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__)
21392 #endif
21393 
21394 #define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS)
21395 void LAPACK_dtptrs_base(
21396     char const* uplo, char const* trans, char const* diag,
21397     lapack_int const* n, lapack_int const* nrhs,
21398     double const* AP,
21399     double* B, lapack_int const* ldb,
21400     lapack_int* info
21401 #ifdef LAPACK_FORTRAN_STRLEN_END
21402     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21403 #endif
21404 );
21405 #ifdef LAPACK_FORTRAN_STRLEN_END
21406     #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1)
21407 #else
21408     #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__)
21409 #endif
21410 
21411 #define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS)
21412 void LAPACK_stptrs_base(
21413     char const* uplo, char const* trans, char const* diag,
21414     lapack_int const* n, lapack_int const* nrhs,
21415     float const* AP,
21416     float* B, lapack_int const* ldb,
21417     lapack_int* info
21418 #ifdef LAPACK_FORTRAN_STRLEN_END
21419     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21420 #endif
21421 );
21422 #ifdef LAPACK_FORTRAN_STRLEN_END
21423     #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1)
21424 #else
21425     #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__)
21426 #endif
21427 
21428 #define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS)
21429 void LAPACK_ztptrs_base(
21430     char const* uplo, char const* trans, char const* diag,
21431     lapack_int const* n, lapack_int const* nrhs,
21432     lapack_complex_double const* AP,
21433     lapack_complex_double* B, lapack_int const* ldb,
21434     lapack_int* info
21435 #ifdef LAPACK_FORTRAN_STRLEN_END
21436     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21437 #endif
21438 );
21439 #ifdef LAPACK_FORTRAN_STRLEN_END
21440     #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1)
21441 #else
21442     #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__)
21443 #endif
21444 
21445 #define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF)
21446 void LAPACK_ctpttf_base(
21447     char const* transr, char const* uplo,
21448     lapack_int const* n,
21449     lapack_complex_float const* AP,
21450     lapack_complex_float* ARF,
21451     lapack_int* info
21452 #ifdef LAPACK_FORTRAN_STRLEN_END
21453     , FORTRAN_STRLEN, FORTRAN_STRLEN
21454 #endif
21455 );
21456 #ifdef LAPACK_FORTRAN_STRLEN_END
21457     #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1)
21458 #else
21459     #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__)
21460 #endif
21461 
21462 #define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF)
21463 void LAPACK_dtpttf_base(
21464     char const* transr, char const* uplo,
21465     lapack_int const* n,
21466     double const* AP,
21467     double* ARF,
21468     lapack_int* info
21469 #ifdef LAPACK_FORTRAN_STRLEN_END
21470     , FORTRAN_STRLEN, FORTRAN_STRLEN
21471 #endif
21472 );
21473 #ifdef LAPACK_FORTRAN_STRLEN_END
21474     #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1)
21475 #else
21476     #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__)
21477 #endif
21478 
21479 #define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF)
21480 void LAPACK_stpttf_base(
21481     char const* transr, char const* uplo,
21482     lapack_int const* n,
21483     float const* AP,
21484     float* ARF,
21485     lapack_int* info
21486 #ifdef LAPACK_FORTRAN_STRLEN_END
21487     , FORTRAN_STRLEN, FORTRAN_STRLEN
21488 #endif
21489 );
21490 #ifdef LAPACK_FORTRAN_STRLEN_END
21491     #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1)
21492 #else
21493     #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__)
21494 #endif
21495 
21496 #define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF)
21497 void LAPACK_ztpttf_base(
21498     char const* transr, char const* uplo,
21499     lapack_int const* n,
21500     lapack_complex_double const* AP,
21501     lapack_complex_double* ARF,
21502     lapack_int* info
21503 #ifdef LAPACK_FORTRAN_STRLEN_END
21504     , FORTRAN_STRLEN, FORTRAN_STRLEN
21505 #endif
21506 );
21507 #ifdef LAPACK_FORTRAN_STRLEN_END
21508     #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1)
21509 #else
21510     #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__)
21511 #endif
21512 
21513 #define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR)
21514 void LAPACK_ctpttr_base(
21515     char const* uplo,
21516     lapack_int const* n,
21517     lapack_complex_float const* AP,
21518     lapack_complex_float* A, lapack_int const* lda,
21519     lapack_int* info
21520 #ifdef LAPACK_FORTRAN_STRLEN_END
21521     , FORTRAN_STRLEN
21522 #endif
21523 );
21524 #ifdef LAPACK_FORTRAN_STRLEN_END
21525     #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1)
21526 #else
21527     #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__)
21528 #endif
21529 
21530 #define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR)
21531 void LAPACK_dtpttr_base(
21532     char const* uplo,
21533     lapack_int const* n,
21534     double const* AP,
21535     double* A, lapack_int const* lda,
21536     lapack_int* info
21537 #ifdef LAPACK_FORTRAN_STRLEN_END
21538     , FORTRAN_STRLEN
21539 #endif
21540 );
21541 #ifdef LAPACK_FORTRAN_STRLEN_END
21542     #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1)
21543 #else
21544     #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__)
21545 #endif
21546 
21547 #define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR)
21548 void LAPACK_stpttr_base(
21549     char const* uplo,
21550     lapack_int const* n,
21551     float const* AP,
21552     float* A, lapack_int const* lda,
21553     lapack_int* info
21554 #ifdef LAPACK_FORTRAN_STRLEN_END
21555     , FORTRAN_STRLEN
21556 #endif
21557 );
21558 #ifdef LAPACK_FORTRAN_STRLEN_END
21559     #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1)
21560 #else
21561     #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__)
21562 #endif
21563 
21564 #define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR)
21565 void LAPACK_ztpttr_base(
21566     char const* uplo,
21567     lapack_int const* n,
21568     lapack_complex_double const* AP,
21569     lapack_complex_double* A, lapack_int const* lda,
21570     lapack_int* info
21571 #ifdef LAPACK_FORTRAN_STRLEN_END
21572     , FORTRAN_STRLEN
21573 #endif
21574 );
21575 #ifdef LAPACK_FORTRAN_STRLEN_END
21576     #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1)
21577 #else
21578     #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__)
21579 #endif
21580 
21581 #define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON)
21582 void LAPACK_ctrcon_base(
21583     char const* norm, char const* uplo, char const* diag,
21584     lapack_int const* n,
21585     lapack_complex_float const* A, lapack_int const* lda,
21586     float* rcond,
21587     lapack_complex_float* work,
21588     float* rwork,
21589     lapack_int* info
21590 #ifdef LAPACK_FORTRAN_STRLEN_END
21591     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21592 #endif
21593 );
21594 #ifdef LAPACK_FORTRAN_STRLEN_END
21595     #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1)
21596 #else
21597     #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__)
21598 #endif
21599 
21600 #define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON)
21601 void LAPACK_dtrcon_base(
21602     char const* norm, char const* uplo, char const* diag,
21603     lapack_int const* n,
21604     double const* A, lapack_int const* lda,
21605     double* rcond,
21606     double* work,
21607     lapack_int* iwork,
21608     lapack_int* info
21609 #ifdef LAPACK_FORTRAN_STRLEN_END
21610     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21611 #endif
21612 );
21613 #ifdef LAPACK_FORTRAN_STRLEN_END
21614     #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1)
21615 #else
21616     #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__)
21617 #endif
21618 
21619 #define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON)
21620 void LAPACK_strcon_base(
21621     char const* norm, char const* uplo, char const* diag,
21622     lapack_int const* n,
21623     float const* A, lapack_int const* lda,
21624     float* rcond,
21625     float* work,
21626     lapack_int* iwork,
21627     lapack_int* info
21628 #ifdef LAPACK_FORTRAN_STRLEN_END
21629     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21630 #endif
21631 );
21632 #ifdef LAPACK_FORTRAN_STRLEN_END
21633     #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1)
21634 #else
21635     #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__)
21636 #endif
21637 
21638 #define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON)
21639 void LAPACK_ztrcon_base(
21640     char const* norm, char const* uplo, char const* diag,
21641     lapack_int const* n,
21642     lapack_complex_double const* A, lapack_int const* lda,
21643     double* rcond,
21644     lapack_complex_double* work,
21645     double* rwork,
21646     lapack_int* info
21647 #ifdef LAPACK_FORTRAN_STRLEN_END
21648     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21649 #endif
21650 );
21651 #ifdef LAPACK_FORTRAN_STRLEN_END
21652     #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1)
21653 #else
21654     #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__)
21655 #endif
21656 
21657 #define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC)
21658 void LAPACK_ctrevc_base(
21659     char const* side, char const* howmny,
21660     lapack_logical const* select,
21661     lapack_int const* n,
21662     lapack_complex_float* T, lapack_int const* ldt,
21663     lapack_complex_float* VL, lapack_int const* ldvl,
21664     lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21665     lapack_complex_float* work,
21666     float* rwork,
21667     lapack_int* info
21668 #ifdef LAPACK_FORTRAN_STRLEN_END
21669     , FORTRAN_STRLEN, FORTRAN_STRLEN
21670 #endif
21671 );
21672 #ifdef LAPACK_FORTRAN_STRLEN_END
21673     #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1)
21674 #else
21675     #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__)
21676 #endif
21677 
21678 #define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC)
21679 void LAPACK_dtrevc_base(
21680     char const* side, char const* howmny,
21681     lapack_logical* select,
21682     lapack_int const* n,
21683     double const* T, lapack_int const* ldt,
21684     double* VL, lapack_int const* ldvl,
21685     double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21686     double* work,
21687     lapack_int* info
21688 #ifdef LAPACK_FORTRAN_STRLEN_END
21689     , FORTRAN_STRLEN, FORTRAN_STRLEN
21690 #endif
21691 );
21692 #ifdef LAPACK_FORTRAN_STRLEN_END
21693     #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1)
21694 #else
21695     #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__)
21696 #endif
21697 
21698 #define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC)
21699 void LAPACK_strevc_base(
21700     char const* side, char const* howmny,
21701     lapack_logical* select,
21702     lapack_int const* n,
21703     float const* T, lapack_int const* ldt,
21704     float* VL, lapack_int const* ldvl,
21705     float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21706     float* work,
21707     lapack_int* info
21708 #ifdef LAPACK_FORTRAN_STRLEN_END
21709     , FORTRAN_STRLEN, FORTRAN_STRLEN
21710 #endif
21711 );
21712 #ifdef LAPACK_FORTRAN_STRLEN_END
21713     #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1)
21714 #else
21715     #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__)
21716 #endif
21717 
21718 #define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC)
21719 void LAPACK_ztrevc_base(
21720     char const* side, char const* howmny,
21721     lapack_logical const* select,
21722     lapack_int const* n,
21723     lapack_complex_double* T, lapack_int const* ldt,
21724     lapack_complex_double* VL, lapack_int const* ldvl,
21725     lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21726     lapack_complex_double* work,
21727     double* rwork,
21728     lapack_int* info
21729 #ifdef LAPACK_FORTRAN_STRLEN_END
21730     , FORTRAN_STRLEN, FORTRAN_STRLEN
21731 #endif
21732 );
21733 #ifdef LAPACK_FORTRAN_STRLEN_END
21734     #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, (size_t)1, 1)
21735 #else
21736     #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__)
21737 #endif
21738 
21739 #define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3)
21740 void LAPACK_ctrevc3_base(
21741     char const* side, char const* howmny,
21742     lapack_logical const* select,
21743     lapack_int const* n,
21744     lapack_complex_float* T, lapack_int const* ldt,
21745     lapack_complex_float* VL, lapack_int const* ldvl,
21746     lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21747     lapack_complex_float* work, lapack_int const* lwork,
21748     float* rwork, lapack_int const* lrwork,
21749     lapack_int* info
21750 #ifdef LAPACK_FORTRAN_STRLEN_END
21751     , FORTRAN_STRLEN, FORTRAN_STRLEN
21752 #endif
21753 );
21754 #ifdef LAPACK_FORTRAN_STRLEN_END
21755     #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1)
21756 #else
21757     #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__)
21758 #endif
21759 
21760 #define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3)
21761 void LAPACK_dtrevc3_base(
21762     char const* side, char const* howmny,
21763     lapack_logical* select,
21764     lapack_int const* n,
21765     double const* T, lapack_int const* ldt,
21766     double* VL, lapack_int const* ldvl,
21767     double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21768     double* work, lapack_int const* lwork,
21769     lapack_int* info
21770 #ifdef LAPACK_FORTRAN_STRLEN_END
21771     , FORTRAN_STRLEN, FORTRAN_STRLEN
21772 #endif
21773 );
21774 #ifdef LAPACK_FORTRAN_STRLEN_END
21775     #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1)
21776 #else
21777     #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__)
21778 #endif
21779 
21780 #define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3)
21781 void LAPACK_strevc3_base(
21782     char const* side, char const* howmny,
21783     lapack_logical* select,
21784     lapack_int const* n,
21785     float const* T, lapack_int const* ldt,
21786     float* VL, lapack_int const* ldvl,
21787     float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21788     float* work, lapack_int const* lwork,
21789     lapack_int* info
21790 #ifdef LAPACK_FORTRAN_STRLEN_END
21791     , FORTRAN_STRLEN, FORTRAN_STRLEN
21792 #endif
21793 );
21794 #ifdef LAPACK_FORTRAN_STRLEN_END
21795     #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1)
21796 #else
21797     #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__)
21798 #endif
21799 
21800 #define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3)
21801 void LAPACK_ztrevc3_base(
21802     char const* side, char const* howmny,
21803     lapack_logical const* select,
21804     lapack_int const* n,
21805     lapack_complex_double* T, lapack_int const* ldt,
21806     lapack_complex_double* VL, lapack_int const* ldvl,
21807     lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21808     lapack_complex_double* work, lapack_int const* lwork,
21809     double* rwork, lapack_int const* lrwork,
21810     lapack_int* info
21811 #ifdef LAPACK_FORTRAN_STRLEN_END
21812     , FORTRAN_STRLEN, FORTRAN_STRLEN
21813 #endif
21814 );
21815 #ifdef LAPACK_FORTRAN_STRLEN_END
21816     #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1)
21817 #else
21818     #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__)
21819 #endif
21820 
21821 #define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC)
21822 void LAPACK_ctrexc_base(
21823     char const* compq,
21824     lapack_int const* n,
21825     lapack_complex_float* T, lapack_int const* ldt,
21826     lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21827     lapack_int* info
21828 #ifdef LAPACK_FORTRAN_STRLEN_END
21829     , FORTRAN_STRLEN
21830 #endif
21831 );
21832 #ifdef LAPACK_FORTRAN_STRLEN_END
21833     #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1)
21834 #else
21835     #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__)
21836 #endif
21837 
21838 #define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC)
21839 void LAPACK_dtrexc_base(
21840     char const* compq,
21841     lapack_int const* n,
21842     double* T, lapack_int const* ldt,
21843     double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21844     double* work,
21845     lapack_int* info
21846 #ifdef LAPACK_FORTRAN_STRLEN_END
21847     , FORTRAN_STRLEN
21848 #endif
21849 );
21850 #ifdef LAPACK_FORTRAN_STRLEN_END
21851     #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1)
21852 #else
21853     #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__)
21854 #endif
21855 
21856 #define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC)
21857 void LAPACK_strexc_base(
21858     char const* compq,
21859     lapack_int const* n,
21860     float* T, lapack_int const* ldt,
21861     float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21862     float* work,
21863     lapack_int* info
21864 #ifdef LAPACK_FORTRAN_STRLEN_END
21865     , FORTRAN_STRLEN
21866 #endif
21867 );
21868 #ifdef LAPACK_FORTRAN_STRLEN_END
21869     #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1)
21870 #else
21871     #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__)
21872 #endif
21873 
21874 #define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC)
21875 void LAPACK_ztrexc_base(
21876     char const* compq,
21877     lapack_int const* n,
21878     lapack_complex_double* T, lapack_int const* ldt,
21879     lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21880     lapack_int* info
21881 #ifdef LAPACK_FORTRAN_STRLEN_END
21882     , FORTRAN_STRLEN
21883 #endif
21884 );
21885 #ifdef LAPACK_FORTRAN_STRLEN_END
21886     #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1)
21887 #else
21888     #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__)
21889 #endif
21890 
21891 #define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS)
21892 void LAPACK_ctrrfs_base(
21893     char const* uplo, char const* trans, char const* diag,
21894     lapack_int const* n, lapack_int const* nrhs,
21895     lapack_complex_float const* A, lapack_int const* lda,
21896     lapack_complex_float const* B, lapack_int const* ldb,
21897     lapack_complex_float const* X, lapack_int const* ldx,
21898     float* ferr,
21899     float* berr,
21900     lapack_complex_float* work,
21901     float* rwork,
21902     lapack_int* info
21903 #ifdef LAPACK_FORTRAN_STRLEN_END
21904     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21905 #endif
21906 );
21907 #ifdef LAPACK_FORTRAN_STRLEN_END
21908     #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1)
21909 #else
21910     #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__)
21911 #endif
21912 
21913 #define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS)
21914 void LAPACK_dtrrfs_base(
21915     char const* uplo, char const* trans, char const* diag,
21916     lapack_int const* n, lapack_int const* nrhs,
21917     double const* A, lapack_int const* lda,
21918     double const* B, lapack_int const* ldb,
21919     double const* X, lapack_int const* ldx,
21920     double* ferr,
21921     double* berr,
21922     double* work,
21923     lapack_int* iwork,
21924     lapack_int* info
21925 #ifdef LAPACK_FORTRAN_STRLEN_END
21926     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21927 #endif
21928 );
21929 #ifdef LAPACK_FORTRAN_STRLEN_END
21930     #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1)
21931 #else
21932     #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__)
21933 #endif
21934 
21935 #define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS)
21936 void LAPACK_strrfs_base(
21937     char const* uplo, char const* trans, char const* diag,
21938     lapack_int const* n, lapack_int const* nrhs,
21939     float const* A, lapack_int const* lda,
21940     float const* B, lapack_int const* ldb,
21941     float const* X, lapack_int const* ldx,
21942     float* ferr,
21943     float* berr,
21944     float* work,
21945     lapack_int* iwork,
21946     lapack_int* info
21947 #ifdef LAPACK_FORTRAN_STRLEN_END
21948     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21949 #endif
21950 );
21951 #ifdef LAPACK_FORTRAN_STRLEN_END
21952     #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1)
21953 #else
21954     #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__)
21955 #endif
21956 
21957 #define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS)
21958 void LAPACK_ztrrfs_base(
21959     char const* uplo, char const* trans, char const* diag,
21960     lapack_int const* n, lapack_int const* nrhs,
21961     lapack_complex_double const* A, lapack_int const* lda,
21962     lapack_complex_double const* B, lapack_int const* ldb,
21963     lapack_complex_double const* X, lapack_int const* ldx,
21964     double* ferr,
21965     double* berr,
21966     lapack_complex_double* work,
21967     double* rwork,
21968     lapack_int* info
21969 #ifdef LAPACK_FORTRAN_STRLEN_END
21970     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
21971 #endif
21972 );
21973 #ifdef LAPACK_FORTRAN_STRLEN_END
21974     #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1)
21975 #else
21976     #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__)
21977 #endif
21978 
21979 #define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN)
21980 void LAPACK_ctrsen_base(
21981     char const* job, char const* compq,
21982     lapack_logical const* select,
21983     lapack_int const* n,
21984     lapack_complex_float* T, lapack_int const* ldt,
21985     lapack_complex_float* Q, lapack_int const* ldq,
21986     lapack_complex_float* W, lapack_int* m,
21987     float* s,
21988     float* sep,
21989     lapack_complex_float* work, lapack_int const* lwork,
21990     lapack_int* info
21991 #ifdef LAPACK_FORTRAN_STRLEN_END
21992     , FORTRAN_STRLEN, FORTRAN_STRLEN
21993 #endif
21994 );
21995 #ifdef LAPACK_FORTRAN_STRLEN_END
21996     #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1)
21997 #else
21998     #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__)
21999 #endif
22000 
22001 #define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN)
22002 void LAPACK_dtrsen_base(
22003     char const* job, char const* compq,
22004     lapack_logical const* select,
22005     lapack_int const* n,
22006     double* T, lapack_int const* ldt,
22007     double* Q, lapack_int const* ldq,
22008     double* WR,
22009     double* WI, lapack_int* m,
22010     double* s,
22011     double* sep,
22012     double* work, lapack_int const* lwork,
22013     lapack_int* iwork, lapack_int const* liwork,
22014     lapack_int* info
22015 #ifdef LAPACK_FORTRAN_STRLEN_END
22016     , FORTRAN_STRLEN, FORTRAN_STRLEN
22017 #endif
22018 );
22019 #ifdef LAPACK_FORTRAN_STRLEN_END
22020     #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1)
22021 #else
22022     #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__)
22023 #endif
22024 
22025 #define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN)
22026 void LAPACK_strsen_base(
22027     char const* job, char const* compq,
22028     lapack_logical const* select,
22029     lapack_int const* n,
22030     float* T, lapack_int const* ldt,
22031     float* Q, lapack_int const* ldq,
22032     float* WR,
22033     float* WI, lapack_int* m,
22034     float* s,
22035     float* sep,
22036     float* work, lapack_int const* lwork,
22037     lapack_int* iwork, lapack_int const* liwork,
22038     lapack_int* info
22039 #ifdef LAPACK_FORTRAN_STRLEN_END
22040     , FORTRAN_STRLEN, FORTRAN_STRLEN
22041 #endif
22042 );
22043 #ifdef LAPACK_FORTRAN_STRLEN_END
22044     #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1)
22045 #else
22046     #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__)
22047 #endif
22048 
22049 #define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN)
22050 void LAPACK_ztrsen_base(
22051     char const* job, char const* compq,
22052     lapack_logical const* select,
22053     lapack_int const* n,
22054     lapack_complex_double* T, lapack_int const* ldt,
22055     lapack_complex_double* Q, lapack_int const* ldq,
22056     lapack_complex_double* W, lapack_int* m,
22057     double* s,
22058     double* sep,
22059     lapack_complex_double* work, lapack_int const* lwork,
22060     lapack_int* info
22061 #ifdef LAPACK_FORTRAN_STRLEN_END
22062     , FORTRAN_STRLEN, FORTRAN_STRLEN
22063 #endif
22064 );
22065 #ifdef LAPACK_FORTRAN_STRLEN_END
22066     #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1)
22067 #else
22068     #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__)
22069 #endif
22070 
22071 #define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA)
22072 void LAPACK_ctrsna_base(
22073     char const* job, char const* howmny,
22074     lapack_logical const* select,
22075     lapack_int const* n,
22076     lapack_complex_float const* T, lapack_int const* ldt,
22077     lapack_complex_float const* VL, lapack_int const* ldvl,
22078     lapack_complex_float const* VR, lapack_int const* ldvr,
22079     float* S,
22080     float* SEP, lapack_int const* mm, lapack_int* m,
22081     lapack_complex_float* work, lapack_int const* ldwork,
22082     float* rwork,
22083     lapack_int* info
22084 #ifdef LAPACK_FORTRAN_STRLEN_END
22085     , FORTRAN_STRLEN, FORTRAN_STRLEN
22086 #endif
22087 );
22088 #ifdef LAPACK_FORTRAN_STRLEN_END
22089     #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1)
22090 #else
22091     #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__)
22092 #endif
22093 
22094 #define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA)
22095 void LAPACK_dtrsna_base(
22096     char const* job, char const* howmny,
22097     lapack_logical const* select,
22098     lapack_int const* n,
22099     double const* T, lapack_int const* ldt,
22100     double const* VL, lapack_int const* ldvl,
22101     double const* VR, lapack_int const* ldvr,
22102     double* S,
22103     double* SEP, lapack_int const* mm, lapack_int* m,
22104     double* work, lapack_int const* ldwork,
22105     lapack_int* iwork,
22106     lapack_int* info
22107 #ifdef LAPACK_FORTRAN_STRLEN_END
22108     , FORTRAN_STRLEN, FORTRAN_STRLEN
22109 #endif
22110 );
22111 #ifdef LAPACK_FORTRAN_STRLEN_END
22112     #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1)
22113 #else
22114     #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__)
22115 #endif
22116 
22117 #define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA)
22118 void LAPACK_strsna_base(
22119     char const* job, char const* howmny,
22120     lapack_logical const* select,
22121     lapack_int const* n,
22122     float const* T, lapack_int const* ldt,
22123     float const* VL, lapack_int const* ldvl,
22124     float const* VR, lapack_int const* ldvr,
22125     float* S,
22126     float* SEP, lapack_int const* mm, lapack_int* m,
22127     float* work, lapack_int const* ldwork,
22128     lapack_int* iwork,
22129     lapack_int* info
22130 #ifdef LAPACK_FORTRAN_STRLEN_END
22131     , FORTRAN_STRLEN, FORTRAN_STRLEN
22132 #endif
22133 );
22134 #ifdef LAPACK_FORTRAN_STRLEN_END
22135     #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1)
22136 #else
22137     #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__)
22138 #endif
22139 
22140 #define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA)
22141 void LAPACK_ztrsna_base(
22142     char const* job, char const* howmny,
22143     lapack_logical const* select,
22144     lapack_int const* n,
22145     lapack_complex_double const* T, lapack_int const* ldt,
22146     lapack_complex_double const* VL, lapack_int const* ldvl,
22147     lapack_complex_double const* VR, lapack_int const* ldvr,
22148     double* S,
22149     double* SEP, lapack_int const* mm, lapack_int* m,
22150     lapack_complex_double* work, lapack_int const* ldwork,
22151     double* rwork,
22152     lapack_int* info
22153 #ifdef LAPACK_FORTRAN_STRLEN_END
22154     , FORTRAN_STRLEN, FORTRAN_STRLEN
22155 #endif
22156 );
22157 #ifdef LAPACK_FORTRAN_STRLEN_END
22158     #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1)
22159 #else
22160     #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__)
22161 #endif
22162 
22163 #define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL)
22164 void LAPACK_ctrsyl_base(
22165     char const* trana, char const* tranb,
22166     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22167     lapack_complex_float const* A, lapack_int const* lda,
22168     lapack_complex_float const* B, lapack_int const* ldb,
22169     lapack_complex_float* C, lapack_int const* ldc,
22170     float* scale,
22171     lapack_int* info
22172 #ifdef LAPACK_FORTRAN_STRLEN_END
22173     , FORTRAN_STRLEN, FORTRAN_STRLEN
22174 #endif
22175 );
22176 #ifdef LAPACK_FORTRAN_STRLEN_END
22177     #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1)
22178 #else
22179     #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__)
22180 #endif
22181 
22182 #define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL)
22183 void LAPACK_dtrsyl_base(
22184     char const* trana, char const* tranb,
22185     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22186     double const* A, lapack_int const* lda,
22187     double const* B, lapack_int const* ldb,
22188     double* C, lapack_int const* ldc,
22189     double* scale,
22190     lapack_int* info
22191 #ifdef LAPACK_FORTRAN_STRLEN_END
22192     , FORTRAN_STRLEN, FORTRAN_STRLEN
22193 #endif
22194 );
22195 #ifdef LAPACK_FORTRAN_STRLEN_END
22196     #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1)
22197 #else
22198     #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__)
22199 #endif
22200 
22201 #define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL)
22202 void LAPACK_strsyl_base(
22203     char const* trana, char const* tranb,
22204     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22205     float const* A, lapack_int const* lda,
22206     float const* B, lapack_int const* ldb,
22207     float* C, lapack_int const* ldc,
22208     float* scale,
22209     lapack_int* info
22210 #ifdef LAPACK_FORTRAN_STRLEN_END
22211     , FORTRAN_STRLEN, FORTRAN_STRLEN
22212 #endif
22213 );
22214 #ifdef LAPACK_FORTRAN_STRLEN_END
22215     #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1)
22216 #else
22217     #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__)
22218 #endif
22219 
22220 #define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL)
22221 void LAPACK_ztrsyl_base(
22222     char const* trana, char const* tranb,
22223     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22224     lapack_complex_double const* A, lapack_int const* lda,
22225     lapack_complex_double const* B, lapack_int const* ldb,
22226     lapack_complex_double* C, lapack_int const* ldc,
22227     double* scale,
22228     lapack_int* info
22229 #ifdef LAPACK_FORTRAN_STRLEN_END
22230     , FORTRAN_STRLEN, FORTRAN_STRLEN
22231 #endif
22232 );
22233 #ifdef LAPACK_FORTRAN_STRLEN_END
22234     #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1)
22235 #else
22236     #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__)
22237 #endif
22238 
22239 #define LAPACK_ctrsyl3_base LAPACK_GLOBAL(ctrsyl3,CTRSYL3)
22240 void LAPACK_ctrsyl3_base(
22241     char const* trana, char const* tranb,
22242     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22243     lapack_complex_float const* A, lapack_int const* lda,
22244     lapack_complex_float const* B, lapack_int const* ldb,
22245     lapack_complex_float* C, lapack_int const* ldc, float* scale,
22246     float* swork, lapack_int const *ldswork,
22247     lapack_int* info
22248 #ifdef LAPACK_FORTRAN_STRLEN_END
22249     , FORTRAN_STRLEN, FORTRAN_STRLEN
22250 #endif
22251 );
22252 #ifdef LAPACK_FORTRAN_STRLEN_END
22253     #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__, 1, 1)
22254 #else
22255     #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__)
22256 #endif
22257 
22258 #define LAPACK_dtrsyl3_base LAPACK_GLOBAL(dtrsyl3,DTRSYL3)
22259 void LAPACK_dtrsyl3_base(
22260     char const* trana, char const* tranb,
22261     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22262     double const* A, lapack_int const* lda,
22263     double const* B, lapack_int const* ldb,
22264     double* C, lapack_int const* ldc, double* scale,
22265     lapack_int* iwork, lapack_int const* liwork,
22266     double* swork, lapack_int const *ldswork,
22267     lapack_int* info
22268 #ifdef LAPACK_FORTRAN_STRLEN_END
22269     , FORTRAN_STRLEN, FORTRAN_STRLEN
22270 #endif
22271 );
22272 #ifdef LAPACK_FORTRAN_STRLEN_END
22273     #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__, 1, 1)
22274 #else
22275     #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__)
22276 #endif
22277 
22278 #define LAPACK_strsyl3_base LAPACK_GLOBAL(strsyl3,STRSYL3)
22279 void LAPACK_strsyl3_base(
22280     char const* trana, char const* tranb,
22281     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22282     float const* A, lapack_int const* lda,
22283     float const* B, lapack_int const* ldb,
22284     float* C, lapack_int const* ldc, float* scale,
22285     lapack_int* iwork, lapack_int const* liwork,
22286     float* swork, lapack_int const *ldswork,
22287     lapack_int* info
22288 #ifdef LAPACK_FORTRAN_STRLEN_END
22289     , FORTRAN_STRLEN, FORTRAN_STRLEN
22290 #endif
22291 );
22292 #ifdef LAPACK_FORTRAN_STRLEN_END
22293     #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__, 1, 1)
22294 #else
22295     #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__)
22296 #endif
22297 
22298 #define LAPACK_ztrsyl3_base LAPACK_GLOBAL(ztrsyl3,ZTRSYL3)
22299 void LAPACK_ztrsyl3_base(
22300     char const* trana, char const* tranb,
22301     lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22302     lapack_complex_double const* A, lapack_int const* lda,
22303     lapack_complex_double const* B, lapack_int const* ldb,
22304     lapack_complex_double* C, lapack_int const* ldc, double* scale,
22305     double* swork, lapack_int const *ldswork,
22306     lapack_int* info
22307 #ifdef LAPACK_FORTRAN_STRLEN_END
22308     , FORTRAN_STRLEN, FORTRAN_STRLEN
22309 #endif
22310 );
22311 #ifdef LAPACK_FORTRAN_STRLEN_END
22312     #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__, 1, 1)
22313 #else
22314     #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__)
22315 #endif
22316 
22317 #define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
22318 lapack_int LAPACK_ctrtri_base(
22319     char const* uplo, char const* diag,
22320     lapack_int const* n,
22321     lapack_complex_float* A, lapack_int const* lda,
22322     lapack_int* info
22323 #ifdef LAPACK_FORTRAN_STRLEN_END
22324     , FORTRAN_STRLEN, FORTRAN_STRLEN
22325 #endif
22326 );
22327 #ifdef LAPACK_FORTRAN_STRLEN_END
22328     #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1)
22329 #else
22330     #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__)
22331 #endif
22332 
22333 #define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
22334 lapack_int LAPACK_dtrtri_base(
22335     char const* uplo, char const* diag,
22336     lapack_int const* n,
22337     double* A, lapack_int const* lda,
22338     lapack_int* info
22339 #ifdef LAPACK_FORTRAN_STRLEN_END
22340     , FORTRAN_STRLEN, FORTRAN_STRLEN
22341 #endif
22342 );
22343 #ifdef LAPACK_FORTRAN_STRLEN_END
22344     #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1)
22345 #else
22346     #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__)
22347 #endif
22348 
22349 #define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
22350 lapack_int LAPACK_strtri_base(
22351     char const* uplo, char const* diag,
22352     lapack_int const* n,
22353     float* A, lapack_int const* lda,
22354     lapack_int* info
22355 #ifdef LAPACK_FORTRAN_STRLEN_END
22356     , FORTRAN_STRLEN, FORTRAN_STRLEN
22357 #endif
22358 );
22359 #ifdef LAPACK_FORTRAN_STRLEN_END
22360     #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1)
22361 #else
22362     #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__)
22363 #endif
22364 
22365 #define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
22366 lapack_int LAPACK_ztrtri_base(
22367     char const* uplo, char const* diag,
22368     lapack_int const* n,
22369     lapack_complex_double* A, lapack_int const* lda,
22370     lapack_int* info
22371 #ifdef LAPACK_FORTRAN_STRLEN_END
22372     , FORTRAN_STRLEN, FORTRAN_STRLEN
22373 #endif
22374 );
22375 #ifdef LAPACK_FORTRAN_STRLEN_END
22376     #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1)
22377 #else
22378     #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__)
22379 #endif
22380 
22381 #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
22382 void LAPACK_ctrtrs_base(
22383     char const* uplo, char const* trans, char const* diag,
22384     lapack_int const* n, lapack_int const* nrhs,
22385     lapack_complex_float const* A, lapack_int const* lda,
22386     lapack_complex_float* B, lapack_int const* ldb,
22387     lapack_int* info
22388 #ifdef LAPACK_FORTRAN_STRLEN_END
22389     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22390 #endif
22391 );
22392 #ifdef LAPACK_FORTRAN_STRLEN_END
22393     #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1)
22394 #else
22395     #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__)
22396 #endif
22397 
22398 #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
22399 void LAPACK_dtrtrs_base(
22400     char const* uplo, char const* trans, char const* diag,
22401     lapack_int const* n, lapack_int const* nrhs,
22402     double const* A, lapack_int const* lda,
22403     double* B, lapack_int const* ldb,
22404     lapack_int* info
22405 #ifdef LAPACK_FORTRAN_STRLEN_END
22406     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22407 #endif
22408 );
22409 #ifdef LAPACK_FORTRAN_STRLEN_END
22410     #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1)
22411 #else
22412     #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__)
22413 #endif
22414 
22415 #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
22416 void LAPACK_strtrs_base(
22417     char const* uplo, char const* trans, char const* diag,
22418     lapack_int const* n, lapack_int const* nrhs,
22419     float const* A, lapack_int const* lda,
22420     float* B, lapack_int const* ldb,
22421     lapack_int* info
22422 #ifdef LAPACK_FORTRAN_STRLEN_END
22423     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22424 #endif
22425 );
22426 #ifdef LAPACK_FORTRAN_STRLEN_END
22427     #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1)
22428 #else
22429     #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__)
22430 #endif
22431 
22432 #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
22433 void LAPACK_ztrtrs_base(
22434     char const* uplo, char const* trans, char const* diag,
22435     lapack_int const* n, lapack_int const* nrhs,
22436     lapack_complex_double const* A, lapack_int const* lda,
22437     lapack_complex_double* B, lapack_int const* ldb,
22438     lapack_int* info
22439 #ifdef LAPACK_FORTRAN_STRLEN_END
22440     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22441 #endif
22442 );
22443 #ifdef LAPACK_FORTRAN_STRLEN_END
22444     #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1)
22445 #else
22446     #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__)
22447 #endif
22448 
22449 #define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF)
22450 void LAPACK_ctrttf_base(
22451     char const* transr, char const* uplo,
22452     lapack_int const* n,
22453     lapack_complex_float const* A, lapack_int const* lda,
22454     lapack_complex_float* ARF,
22455     lapack_int* info
22456 #ifdef LAPACK_FORTRAN_STRLEN_END
22457     , FORTRAN_STRLEN, FORTRAN_STRLEN
22458 #endif
22459 );
22460 #ifdef LAPACK_FORTRAN_STRLEN_END
22461     #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1)
22462 #else
22463     #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__)
22464 #endif
22465 
22466 #define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF)
22467 void LAPACK_dtrttf_base(
22468     char const* transr, char const* uplo,
22469     lapack_int const* n,
22470     double const* A, lapack_int const* lda,
22471     double* ARF,
22472     lapack_int* info
22473 #ifdef LAPACK_FORTRAN_STRLEN_END
22474     , FORTRAN_STRLEN, FORTRAN_STRLEN
22475 #endif
22476 );
22477 #ifdef LAPACK_FORTRAN_STRLEN_END
22478     #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1)
22479 #else
22480     #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__)
22481 #endif
22482 
22483 #define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF)
22484 void LAPACK_strttf_base(
22485     char const* transr, char const* uplo,
22486     lapack_int const* n,
22487     float const* A, lapack_int const* lda,
22488     float* ARF,
22489     lapack_int* info
22490 #ifdef LAPACK_FORTRAN_STRLEN_END
22491     , FORTRAN_STRLEN, FORTRAN_STRLEN
22492 #endif
22493 );
22494 #ifdef LAPACK_FORTRAN_STRLEN_END
22495     #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1)
22496 #else
22497     #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__)
22498 #endif
22499 
22500 #define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF)
22501 void LAPACK_ztrttf_base(
22502     char const* transr, char const* uplo,
22503     lapack_int const* n,
22504     lapack_complex_double const* A, lapack_int const* lda,
22505     lapack_complex_double* ARF,
22506     lapack_int* info
22507 #ifdef LAPACK_FORTRAN_STRLEN_END
22508     , FORTRAN_STRLEN, FORTRAN_STRLEN
22509 #endif
22510 );
22511 #ifdef LAPACK_FORTRAN_STRLEN_END
22512     #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1)
22513 #else
22514     #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__)
22515 #endif
22516 
22517 #define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP)
22518 void LAPACK_ctrttp_base(
22519     char const* uplo,
22520     lapack_int const* n,
22521     lapack_complex_float const* A, lapack_int const* lda,
22522     lapack_complex_float* AP,
22523     lapack_int* info
22524 #ifdef LAPACK_FORTRAN_STRLEN_END
22525     , FORTRAN_STRLEN
22526 #endif
22527 );
22528 #ifdef LAPACK_FORTRAN_STRLEN_END
22529     #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1)
22530 #else
22531     #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__)
22532 #endif
22533 
22534 #define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP)
22535 void LAPACK_dtrttp_base(
22536     char const* uplo,
22537     lapack_int const* n,
22538     double const* A, lapack_int const* lda,
22539     double* AP,
22540     lapack_int* info
22541 #ifdef LAPACK_FORTRAN_STRLEN_END
22542     , FORTRAN_STRLEN
22543 #endif
22544 );
22545 #ifdef LAPACK_FORTRAN_STRLEN_END
22546     #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1)
22547 #else
22548     #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__)
22549 #endif
22550 
22551 #define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP)
22552 void LAPACK_strttp_base(
22553     char const* uplo,
22554     lapack_int const* n,
22555     float const* A, lapack_int const* lda,
22556     float* AP,
22557     lapack_int* info
22558 #ifdef LAPACK_FORTRAN_STRLEN_END
22559     , FORTRAN_STRLEN
22560 #endif
22561 );
22562 #ifdef LAPACK_FORTRAN_STRLEN_END
22563     #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1)
22564 #else
22565     #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__)
22566 #endif
22567 
22568 #define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP)
22569 void LAPACK_ztrttp_base(
22570     char const* uplo,
22571     lapack_int const* n,
22572     lapack_complex_double const* A, lapack_int const* lda,
22573     lapack_complex_double* AP,
22574     lapack_int* info
22575 #ifdef LAPACK_FORTRAN_STRLEN_END
22576     , FORTRAN_STRLEN
22577 #endif
22578 );
22579 #ifdef LAPACK_FORTRAN_STRLEN_END
22580     #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1)
22581 #else
22582     #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__)
22583 #endif
22584 
22585 #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
22586 void LAPACK_ctzrzf(
22587     lapack_int const* m, lapack_int const* n,
22588     lapack_complex_float* A, lapack_int const* lda,
22589     lapack_complex_float* tau,
22590     lapack_complex_float* work, lapack_int const* lwork,
22591     lapack_int* info );
22592 
22593 #define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
22594 void LAPACK_dtzrzf(
22595     lapack_int const* m, lapack_int const* n,
22596     double* A, lapack_int const* lda,
22597     double* tau,
22598     double* work, lapack_int const* lwork,
22599     lapack_int* info );
22600 
22601 #define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
22602 void LAPACK_stzrzf(
22603     lapack_int const* m, lapack_int const* n,
22604     float* A, lapack_int const* lda,
22605     float* tau,
22606     float* work, lapack_int const* lwork,
22607     lapack_int* info );
22608 
22609 #define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
22610 void LAPACK_ztzrzf(
22611     lapack_int const* m, lapack_int const* n,
22612     lapack_complex_double* A, lapack_int const* lda,
22613     lapack_complex_double* tau,
22614     lapack_complex_double* work, lapack_int const* lwork,
22615     lapack_int* info );
22616 
22617 #define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB)
22618 void LAPACK_cunbdb_base(
22619     char const* trans, char const* signs,
22620     lapack_int const* m, lapack_int const* p, lapack_int const* q,
22621     lapack_complex_float* X11, lapack_int const* ldx11,
22622     lapack_complex_float* X12, lapack_int const* ldx12,
22623     lapack_complex_float* X21, lapack_int const* ldx21,
22624     lapack_complex_float* X22, lapack_int const* ldx22,
22625     float* theta,
22626     float* phi,
22627     lapack_complex_float* TAUP1,
22628     lapack_complex_float* TAUP2,
22629     lapack_complex_float* TAUQ1,
22630     lapack_complex_float* TAUQ2,
22631     lapack_complex_float* work, lapack_int const* lwork,
22632     lapack_int* info
22633 #ifdef LAPACK_FORTRAN_STRLEN_END
22634     , FORTRAN_STRLEN, FORTRAN_STRLEN
22635 #endif
22636 );
22637 #ifdef LAPACK_FORTRAN_STRLEN_END
22638     #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1)
22639 #else
22640     #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__)
22641 #endif
22642 
22643 #define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB)
22644 void LAPACK_zunbdb_base(
22645     char const* trans, char const* signs,
22646     lapack_int const* m, lapack_int const* p, lapack_int const* q,
22647     lapack_complex_double* X11, lapack_int const* ldx11,
22648     lapack_complex_double* X12, lapack_int const* ldx12,
22649     lapack_complex_double* X21, lapack_int const* ldx21,
22650     lapack_complex_double* X22, lapack_int const* ldx22,
22651     double* theta,
22652     double* phi,
22653     lapack_complex_double* TAUP1,
22654     lapack_complex_double* TAUP2,
22655     lapack_complex_double* TAUQ1,
22656     lapack_complex_double* TAUQ2,
22657     lapack_complex_double* work, lapack_int const* lwork,
22658     lapack_int* info
22659 #ifdef LAPACK_FORTRAN_STRLEN_END
22660     , FORTRAN_STRLEN, FORTRAN_STRLEN
22661 #endif
22662 );
22663 #ifdef LAPACK_FORTRAN_STRLEN_END
22664     #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1)
22665 #else
22666     #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__)
22667 #endif
22668 
22669 #define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD)
22670 void LAPACK_cuncsd_base(
22671     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
22672     lapack_int const* m, lapack_int const* p, lapack_int const* q,
22673     lapack_complex_float* X11, lapack_int const* ldx11,
22674     lapack_complex_float* X12, lapack_int const* ldx12,
22675     lapack_complex_float* X21, lapack_int const* ldx21,
22676     lapack_complex_float* X22, lapack_int const* ldx22,
22677     float* theta,
22678     lapack_complex_float* U1, lapack_int const* ldu1,
22679     lapack_complex_float* U2, lapack_int const* ldu2,
22680     lapack_complex_float* V1T, lapack_int const* ldv1t,
22681     lapack_complex_float* V2T, lapack_int const* ldv2t,
22682     lapack_complex_float* work, lapack_int const* lwork,
22683     float* rwork, lapack_int const* lrwork,
22684     lapack_int* iwork,
22685     lapack_int* info
22686 #ifdef LAPACK_FORTRAN_STRLEN_END
22687     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22688 #endif
22689 );
22690 #ifdef LAPACK_FORTRAN_STRLEN_END
22691     #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22692 #else
22693     #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__)
22694 #endif
22695 
22696 #define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD)
22697 void LAPACK_zuncsd_base(
22698     char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
22699     lapack_int const* m, lapack_int const* p, lapack_int const* q,
22700     lapack_complex_double* X11, lapack_int const* ldx11,
22701     lapack_complex_double* X12, lapack_int const* ldx12,
22702     lapack_complex_double* X21, lapack_int const* ldx21,
22703     lapack_complex_double* X22, lapack_int const* ldx22,
22704     double* theta,
22705     lapack_complex_double* U1, lapack_int const* ldu1,
22706     lapack_complex_double* U2, lapack_int const* ldu2,
22707     lapack_complex_double* V1T, lapack_int const* ldv1t,
22708     lapack_complex_double* V2T, lapack_int const* ldv2t,
22709     lapack_complex_double* work, lapack_int const* lwork,
22710     double* rwork, lapack_int const* lrwork,
22711     lapack_int* iwork,
22712     lapack_int* info
22713 #ifdef LAPACK_FORTRAN_STRLEN_END
22714     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22715 #endif
22716 );
22717 #ifdef LAPACK_FORTRAN_STRLEN_END
22718     #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22719 #else
22720     #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__)
22721 #endif
22722 
22723 #define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1)
22724 void LAPACK_cuncsd2by1_base(
22725     char const* jobu1, char const* jobu2, char const* jobv1t,
22726     lapack_int const* m, lapack_int const* p, lapack_int const* q,
22727     lapack_complex_float* X11, lapack_int const* ldx11,
22728     lapack_complex_float* X21, lapack_int const* ldx21,
22729     float* theta,
22730     lapack_complex_float* U1, lapack_int const* ldu1,
22731     lapack_complex_float* U2, lapack_int const* ldu2,
22732     lapack_complex_float* V1T, lapack_int const* ldv1t,
22733     lapack_complex_float* work, lapack_int const* lwork,
22734     float* rwork, lapack_int const* lrwork,
22735     lapack_int* iwork,
22736     lapack_int* info
22737 #ifdef LAPACK_FORTRAN_STRLEN_END
22738     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22739 #endif
22740 );
22741 #ifdef LAPACK_FORTRAN_STRLEN_END
22742     #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22743 #else
22744     #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__)
22745 #endif
22746 
22747 #define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1)
22748 void LAPACK_zuncsd2by1_base(
22749     char const* jobu1, char const* jobu2, char const* jobv1t,
22750     lapack_int const* m, lapack_int const* p, lapack_int const* q,
22751     lapack_complex_double* X11, lapack_int const* ldx11,
22752     lapack_complex_double* X21, lapack_int const* ldx21,
22753     double* theta,
22754     lapack_complex_double* U1, lapack_int const* ldu1,
22755     lapack_complex_double* U2, lapack_int const* ldu2,
22756     lapack_complex_double* V1T, lapack_int const* ldv1t,
22757     lapack_complex_double* work, lapack_int const* lwork,
22758     double* rwork, lapack_int const* lrwork,
22759     lapack_int* iwork,
22760     lapack_int* info
22761 #ifdef LAPACK_FORTRAN_STRLEN_END
22762     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22763 #endif
22764 );
22765 #ifdef LAPACK_FORTRAN_STRLEN_END
22766     #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22767 #else
22768     #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__)
22769 #endif
22770 
22771 #define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR)
22772 void LAPACK_cungbr_base(
22773     char const* vect,
22774     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22775     lapack_complex_float* A, lapack_int const* lda,
22776     lapack_complex_float const* tau,
22777     lapack_complex_float* work, lapack_int const* lwork,
22778     lapack_int* info
22779 #ifdef LAPACK_FORTRAN_STRLEN_END
22780     , FORTRAN_STRLEN
22781 #endif
22782 );
22783 #ifdef LAPACK_FORTRAN_STRLEN_END
22784     #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1)
22785 #else
22786     #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__)
22787 #endif
22788 
22789 #define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR)
22790 void LAPACK_zungbr_base(
22791     char const* vect,
22792     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22793     lapack_complex_double* A, lapack_int const* lda,
22794     lapack_complex_double const* tau,
22795     lapack_complex_double* work, lapack_int const* lwork,
22796     lapack_int* info
22797 #ifdef LAPACK_FORTRAN_STRLEN_END
22798     , FORTRAN_STRLEN
22799 #endif
22800 );
22801 #ifdef LAPACK_FORTRAN_STRLEN_END
22802     #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1)
22803 #else
22804     #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__)
22805 #endif
22806 
22807 #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
22808 void LAPACK_cunghr(
22809     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22810     lapack_complex_float* A, lapack_int const* lda,
22811     lapack_complex_float const* tau,
22812     lapack_complex_float* work, lapack_int const* lwork,
22813     lapack_int* info );
22814 
22815 #define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
22816 void LAPACK_zunghr(
22817     lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22818     lapack_complex_double* A, lapack_int const* lda,
22819     lapack_complex_double const* tau,
22820     lapack_complex_double* work, lapack_int const* lwork,
22821     lapack_int* info );
22822 
22823 #define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
22824 void LAPACK_cunglq(
22825     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22826     lapack_complex_float* A, lapack_int const* lda,
22827     lapack_complex_float const* tau,
22828     lapack_complex_float* work, lapack_int const* lwork,
22829     lapack_int* info );
22830 
22831 #define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
22832 void LAPACK_zunglq(
22833     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22834     lapack_complex_double* A, lapack_int const* lda,
22835     lapack_complex_double const* tau,
22836     lapack_complex_double* work, lapack_int const* lwork,
22837     lapack_int* info );
22838 
22839 #define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
22840 void LAPACK_cungql(
22841     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22842     lapack_complex_float* A, lapack_int const* lda,
22843     lapack_complex_float const* tau,
22844     lapack_complex_float* work, lapack_int const* lwork,
22845     lapack_int* info );
22846 
22847 #define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
22848 void LAPACK_zungql(
22849     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22850     lapack_complex_double* A, lapack_int const* lda,
22851     lapack_complex_double const* tau,
22852     lapack_complex_double* work, lapack_int const* lwork,
22853     lapack_int* info );
22854 
22855 #define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
22856 void LAPACK_cungqr(
22857     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22858     lapack_complex_float* A, lapack_int const* lda,
22859     lapack_complex_float const* tau,
22860     lapack_complex_float* work, lapack_int const* lwork,
22861     lapack_int* info );
22862 
22863 #define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
22864 void LAPACK_zungqr(
22865     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22866     lapack_complex_double* A, lapack_int const* lda,
22867     lapack_complex_double const* tau,
22868     lapack_complex_double* work, lapack_int const* lwork,
22869     lapack_int* info );
22870 
22871 #define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
22872 void LAPACK_cungrq(
22873     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22874     lapack_complex_float* A, lapack_int const* lda,
22875     lapack_complex_float const* tau,
22876     lapack_complex_float* work, lapack_int const* lwork,
22877     lapack_int* info );
22878 
22879 #define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
22880 void LAPACK_zungrq(
22881     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22882     lapack_complex_double* A, lapack_int const* lda,
22883     lapack_complex_double const* tau,
22884     lapack_complex_double* work, lapack_int const* lwork,
22885     lapack_int* info );
22886 
22887 #define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR)
22888 void LAPACK_cungtr_base(
22889     char const* uplo,
22890     lapack_int const* n,
22891     lapack_complex_float* A, lapack_int const* lda,
22892     lapack_complex_float const* tau,
22893     lapack_complex_float* work, lapack_int const* lwork,
22894     lapack_int* info
22895 #ifdef LAPACK_FORTRAN_STRLEN_END
22896     , FORTRAN_STRLEN
22897 #endif
22898 );
22899 #ifdef LAPACK_FORTRAN_STRLEN_END
22900     #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1)
22901 #else
22902     #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__)
22903 #endif
22904 
22905 #define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR)
22906 void LAPACK_zungtr_base(
22907     char const* uplo,
22908     lapack_int const* n,
22909     lapack_complex_double* A, lapack_int const* lda,
22910     lapack_complex_double const* tau,
22911     lapack_complex_double* work, lapack_int const* lwork,
22912     lapack_int* info
22913 #ifdef LAPACK_FORTRAN_STRLEN_END
22914     , FORTRAN_STRLEN
22915 #endif
22916 );
22917 #ifdef LAPACK_FORTRAN_STRLEN_END
22918     #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1)
22919 #else
22920     #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__)
22921 #endif
22922 
22923 #define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
22924 void LAPACK_cungtsqr_row(
22925     lapack_int const* m, lapack_int const* n,
22926     lapack_int const* mb, lapack_int const* nb,
22927     lapack_complex_float* A, lapack_int const* lda,
22928     lapack_complex_float const* T, lapack_int const* ldt,
22929     lapack_complex_float* work, lapack_int const* lwork,
22930     lapack_int* info );
22931 
22932 #define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW)
22933 void LAPACK_zungtsqr_row(
22934     lapack_int const* m, lapack_int const* n,
22935     lapack_int const* mb, lapack_int const* nb,
22936     lapack_complex_double* A, lapack_int const* lda,
22937     lapack_complex_double const* T, lapack_int const* ldt,
22938     lapack_complex_double* work, lapack_int const* lwork,
22939     lapack_int* info );
22940 
22941 #define LAPACK_cunhr_col LAPACK_GLOBAL(cunhr_col,CUNHR_COL)
22942 void LAPACK_cunhr_col(
22943     lapack_int const* m, lapack_int const* n,
22944     lapack_int const* nb, lapack_complex_float* A,
22945     lapack_int const* lda, lapack_complex_float* T,
22946     lapack_int const* ldt, lapack_complex_float* D,
22947     lapack_int* info );
22948 
22949 #define LAPACK_zunhr_col LAPACK_GLOBAL(zunhr_col,ZUNHR_COL)
22950 void LAPACK_zunhr_col(
22951     lapack_int const* m, lapack_int const* n,
22952     lapack_int const* nb, lapack_complex_double* A,
22953     lapack_int const* lda, lapack_complex_double* T,
22954     lapack_int const* ldt, lapack_complex_double* D,
22955     lapack_int* info );
22956 
22957 #define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR)
22958 void LAPACK_cunmbr_base(
22959     char const* vect, char const* side, char const* trans,
22960     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22961     lapack_complex_float const* A, lapack_int const* lda,
22962     lapack_complex_float const* tau,
22963     lapack_complex_float* C, lapack_int const* ldc,
22964     lapack_complex_float* work, lapack_int const* lwork,
22965     lapack_int* info
22966 #ifdef LAPACK_FORTRAN_STRLEN_END
22967     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22968 #endif
22969 );
22970 #ifdef LAPACK_FORTRAN_STRLEN_END
22971     #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1)
22972 #else
22973     #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__)
22974 #endif
22975 
22976 #define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR)
22977 void LAPACK_zunmbr_base(
22978     char const* vect, char const* side, char const* trans,
22979     lapack_int const* m, lapack_int const* n, lapack_int const* k,
22980     lapack_complex_double const* A, lapack_int const* lda,
22981     lapack_complex_double const* tau,
22982     lapack_complex_double* C, lapack_int const* ldc,
22983     lapack_complex_double* work, lapack_int const* lwork,
22984     lapack_int* info
22985 #ifdef LAPACK_FORTRAN_STRLEN_END
22986     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
22987 #endif
22988 );
22989 #ifdef LAPACK_FORTRAN_STRLEN_END
22990     #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1)
22991 #else
22992     #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__)
22993 #endif
22994 
22995 #define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR)
22996 void LAPACK_cunmhr_base(
22997     char const* side, char const* trans,
22998     lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22999     lapack_complex_float const* A, lapack_int const* lda,
23000     lapack_complex_float const* tau,
23001     lapack_complex_float* C, lapack_int const* ldc,
23002     lapack_complex_float* work, lapack_int const* lwork,
23003     lapack_int* info
23004 #ifdef LAPACK_FORTRAN_STRLEN_END
23005     , FORTRAN_STRLEN, FORTRAN_STRLEN
23006 #endif
23007 );
23008 #ifdef LAPACK_FORTRAN_STRLEN_END
23009     #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1)
23010 #else
23011     #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__)
23012 #endif
23013 
23014 #define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR)
23015 void LAPACK_zunmhr_base(
23016     char const* side, char const* trans,
23017     lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
23018     lapack_complex_double const* A, lapack_int const* lda,
23019     lapack_complex_double const* tau,
23020     lapack_complex_double* C, lapack_int const* ldc,
23021     lapack_complex_double* work, lapack_int const* lwork,
23022     lapack_int* info
23023 #ifdef LAPACK_FORTRAN_STRLEN_END
23024     , FORTRAN_STRLEN, FORTRAN_STRLEN
23025 #endif
23026 );
23027 #ifdef LAPACK_FORTRAN_STRLEN_END
23028     #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1)
23029 #else
23030     #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__)
23031 #endif
23032 
23033 #define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ)
23034 void LAPACK_cunmlq_base(
23035     char const* side, char const* trans,
23036     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23037     lapack_complex_float const* A, lapack_int const* lda,
23038     lapack_complex_float const* tau,
23039     lapack_complex_float* C, lapack_int const* ldc,
23040     lapack_complex_float* work, lapack_int const* lwork,
23041     lapack_int* info
23042 #ifdef LAPACK_FORTRAN_STRLEN_END
23043     , FORTRAN_STRLEN, FORTRAN_STRLEN
23044 #endif
23045 );
23046 #ifdef LAPACK_FORTRAN_STRLEN_END
23047     #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1)
23048 #else
23049     #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__)
23050 #endif
23051 
23052 #define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ)
23053 void LAPACK_zunmlq_base(
23054     char const* side, char const* trans,
23055     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23056     lapack_complex_double const* A, lapack_int const* lda,
23057     lapack_complex_double const* tau,
23058     lapack_complex_double* C, lapack_int const* ldc,
23059     lapack_complex_double* work, lapack_int const* lwork,
23060     lapack_int* info
23061 #ifdef LAPACK_FORTRAN_STRLEN_END
23062     , FORTRAN_STRLEN, FORTRAN_STRLEN
23063 #endif
23064 );
23065 #ifdef LAPACK_FORTRAN_STRLEN_END
23066     #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1)
23067 #else
23068     #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__)
23069 #endif
23070 
23071 #define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL)
23072 void LAPACK_cunmql_base(
23073     char const* side, char const* trans,
23074     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23075     lapack_complex_float const* A, lapack_int const* lda,
23076     lapack_complex_float const* tau,
23077     lapack_complex_float* C, lapack_int const* ldc,
23078     lapack_complex_float* work, lapack_int const* lwork,
23079     lapack_int* info
23080 #ifdef LAPACK_FORTRAN_STRLEN_END
23081     , FORTRAN_STRLEN, FORTRAN_STRLEN
23082 #endif
23083 );
23084 #ifdef LAPACK_FORTRAN_STRLEN_END
23085     #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1)
23086 #else
23087     #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__)
23088 #endif
23089 
23090 #define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL)
23091 void LAPACK_zunmql_base(
23092     char const* side, char const* trans,
23093     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23094     lapack_complex_double const* A, lapack_int const* lda,
23095     lapack_complex_double const* tau,
23096     lapack_complex_double* C, lapack_int const* ldc,
23097     lapack_complex_double* work, lapack_int const* lwork,
23098     lapack_int* info
23099 #ifdef LAPACK_FORTRAN_STRLEN_END
23100     , FORTRAN_STRLEN, FORTRAN_STRLEN
23101 #endif
23102 );
23103 #ifdef LAPACK_FORTRAN_STRLEN_END
23104     #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1)
23105 #else
23106     #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__)
23107 #endif
23108 
23109 #define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR)
23110 void LAPACK_cunmqr_base(
23111     char const* side, char const* trans,
23112     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23113     lapack_complex_float const* A, lapack_int const* lda,
23114     lapack_complex_float const* tau,
23115     lapack_complex_float* C, lapack_int const* ldc,
23116     lapack_complex_float* work, lapack_int const* lwork,
23117     lapack_int* info
23118 #ifdef LAPACK_FORTRAN_STRLEN_END
23119     , FORTRAN_STRLEN, FORTRAN_STRLEN
23120 #endif
23121 );
23122 #ifdef LAPACK_FORTRAN_STRLEN_END
23123     #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1)
23124 #else
23125     #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__)
23126 #endif
23127 
23128 #define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR)
23129 void LAPACK_zunmqr_base(
23130     char const* side, char const* trans,
23131     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23132     lapack_complex_double const* A, lapack_int const* lda,
23133     lapack_complex_double const* tau,
23134     lapack_complex_double* C, lapack_int const* ldc,
23135     lapack_complex_double* work, lapack_int const* lwork,
23136     lapack_int* info
23137 #ifdef LAPACK_FORTRAN_STRLEN_END
23138     , FORTRAN_STRLEN, FORTRAN_STRLEN
23139 #endif
23140 );
23141 #ifdef LAPACK_FORTRAN_STRLEN_END
23142     #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1)
23143 #else
23144     #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__)
23145 #endif
23146 
23147 #define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ)
23148 void LAPACK_cunmrq_base(
23149     char const* side, char const* trans,
23150     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23151     lapack_complex_float const* A, lapack_int const* lda,
23152     lapack_complex_float const* tau,
23153     lapack_complex_float* C, lapack_int const* ldc,
23154     lapack_complex_float* work, lapack_int const* lwork,
23155     lapack_int* info
23156 #ifdef LAPACK_FORTRAN_STRLEN_END
23157     , FORTRAN_STRLEN, FORTRAN_STRLEN
23158 #endif
23159 );
23160 #ifdef LAPACK_FORTRAN_STRLEN_END
23161     #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1)
23162 #else
23163     #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__)
23164 #endif
23165 
23166 #define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ)
23167 void LAPACK_zunmrq_base(
23168     char const* side, char const* trans,
23169     lapack_int const* m, lapack_int const* n, lapack_int const* k,
23170     lapack_complex_double const* A, lapack_int const* lda,
23171     lapack_complex_double const* tau,
23172     lapack_complex_double* C, lapack_int const* ldc,
23173     lapack_complex_double* work, lapack_int const* lwork,
23174     lapack_int* info
23175 #ifdef LAPACK_FORTRAN_STRLEN_END
23176     , FORTRAN_STRLEN, FORTRAN_STRLEN
23177 #endif
23178 );
23179 #ifdef LAPACK_FORTRAN_STRLEN_END
23180     #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1)
23181 #else
23182     #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__)
23183 #endif
23184 
23185 #define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ)
23186 void LAPACK_cunmrz_base(
23187     char const* side, char const* trans,
23188     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
23189     lapack_complex_float const* A, lapack_int const* lda,
23190     lapack_complex_float const* tau,
23191     lapack_complex_float* C, lapack_int const* ldc,
23192     lapack_complex_float* work, lapack_int const* lwork,
23193     lapack_int* info
23194 #ifdef LAPACK_FORTRAN_STRLEN_END
23195     , FORTRAN_STRLEN, FORTRAN_STRLEN
23196 #endif
23197 );
23198 #ifdef LAPACK_FORTRAN_STRLEN_END
23199     #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1)
23200 #else
23201     #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__)
23202 #endif
23203 
23204 #define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ)
23205 void LAPACK_zunmrz_base(
23206     char const* side, char const* trans,
23207     lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
23208     lapack_complex_double const* A, lapack_int const* lda,
23209     lapack_complex_double const* tau,
23210     lapack_complex_double* C, lapack_int const* ldc,
23211     lapack_complex_double* work, lapack_int const* lwork,
23212     lapack_int* info
23213 #ifdef LAPACK_FORTRAN_STRLEN_END
23214     , FORTRAN_STRLEN, FORTRAN_STRLEN
23215 #endif
23216 );
23217 #ifdef LAPACK_FORTRAN_STRLEN_END
23218     #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1)
23219 #else
23220     #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__)
23221 #endif
23222 
23223 #define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR)
23224 void LAPACK_cunmtr_base(
23225     char const* side, char const* uplo, char const* trans,
23226     lapack_int const* m, lapack_int const* n,
23227     lapack_complex_float const* A, lapack_int const* lda,
23228     lapack_complex_float const* tau,
23229     lapack_complex_float* C, lapack_int const* ldc,
23230     lapack_complex_float* work, lapack_int const* lwork,
23231     lapack_int* info
23232 #ifdef LAPACK_FORTRAN_STRLEN_END
23233     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
23234 #endif
23235 );
23236 #ifdef LAPACK_FORTRAN_STRLEN_END
23237     #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1)
23238 #else
23239     #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__)
23240 #endif
23241 
23242 #define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR)
23243 void LAPACK_zunmtr_base(
23244     char const* side, char const* uplo, char const* trans,
23245     lapack_int const* m, lapack_int const* n,
23246     lapack_complex_double const* A, lapack_int const* lda,
23247     lapack_complex_double const* tau,
23248     lapack_complex_double* C, lapack_int const* ldc,
23249     lapack_complex_double* work, lapack_int const* lwork,
23250     lapack_int* info
23251 #ifdef LAPACK_FORTRAN_STRLEN_END
23252     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
23253 #endif
23254 );
23255 #ifdef LAPACK_FORTRAN_STRLEN_END
23256     #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1)
23257 #else
23258     #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__)
23259 #endif
23260 
23261 #define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR)
23262 void LAPACK_cupgtr_base(
23263     char const* uplo,
23264     lapack_int const* n,
23265     lapack_complex_float const* AP,
23266     lapack_complex_float const* tau,
23267     lapack_complex_float* Q, lapack_int const* ldq,
23268     lapack_complex_float* work,
23269     lapack_int* info
23270 #ifdef LAPACK_FORTRAN_STRLEN_END
23271     , FORTRAN_STRLEN
23272 #endif
23273 );
23274 #ifdef LAPACK_FORTRAN_STRLEN_END
23275     #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1)
23276 #else
23277     #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__)
23278 #endif
23279 
23280 #define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR)
23281 void LAPACK_zupgtr_base(
23282     char const* uplo,
23283     lapack_int const* n,
23284     lapack_complex_double const* AP,
23285     lapack_complex_double const* tau,
23286     lapack_complex_double* Q, lapack_int const* ldq,
23287     lapack_complex_double* work,
23288     lapack_int* info
23289 #ifdef LAPACK_FORTRAN_STRLEN_END
23290     , FORTRAN_STRLEN
23291 #endif
23292 );
23293 #ifdef LAPACK_FORTRAN_STRLEN_END
23294     #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1)
23295 #else
23296     #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__)
23297 #endif
23298 
23299 #define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR)
23300 void LAPACK_cupmtr_base(
23301     char const* side, char const* uplo, char const* trans,
23302     lapack_int const* m, lapack_int const* n,
23303     lapack_complex_float const* AP,
23304     lapack_complex_float const* tau,
23305     lapack_complex_float* C, lapack_int const* ldc,
23306     lapack_complex_float* work,
23307     lapack_int* info
23308 #ifdef LAPACK_FORTRAN_STRLEN_END
23309     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
23310 #endif
23311 );
23312 #ifdef LAPACK_FORTRAN_STRLEN_END
23313     #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1)
23314 #else
23315     #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__)
23316 #endif
23317 
23318 #define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR)
23319 void LAPACK_zupmtr_base(
23320     char const* side, char const* uplo, char const* trans,
23321     lapack_int const* m, lapack_int const* n,
23322     lapack_complex_double const* AP,
23323     lapack_complex_double const* tau,
23324     lapack_complex_double* C, lapack_int const* ldc,
23325     lapack_complex_double* work,
23326     lapack_int* info
23327 #ifdef LAPACK_FORTRAN_STRLEN_END
23328     , FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
23329 #endif
23330 );
23331 #ifdef LAPACK_FORTRAN_STRLEN_END
23332     #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1)
23333 #else
23334     #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__)
23335 #endif
23336 
23337 #ifdef __cplusplus
23338 } /* extern "C" */
23339 #endif
23340 
23341 #endif /* LAPACK_H */
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated by the 2.3.7 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!