floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #3861 from martin-frbg/emcc-cleanup 

Fix C function signatures in LAPACKE headers and f2c-generated LAPACK C files
This commit is contained in:
Martin Kroeker 2022-12-14 17:58:47 +01:00 committed by GitHub
parent de4d5646eb 05fbc81409
commit 73dc03c7c4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2047 changed files with 15659 additions and 14974 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
lapack-netlib/LAPACKE/include/lapack.h
View File

@ -17,7 +17,9 @@
/* It seems all current Fortran compilers put strlen at end. /* It seems all current Fortran compilers put strlen at end.
* Some historical compilers put strlen after the str argument * Some historical compilers put strlen after the str argument
* or make the str argument into a struct. */ * or make the str argument into a struct. */
#ifndef __EMSCRIPTEN__
#define LAPACK_FORTRAN_STRLEN_END #define LAPACK_FORTRAN_STRLEN_END
#endif
/* Complex types are structures equivalent to the /* Complex types are structures equivalent to the
* Fortran complex types COMPLEX(4) and COMPLEX(8). * Fortran complex types COMPLEX(4) and COMPLEX(8).
@ -131,8 +133,10 @@ typedef lapack_logical (*LAPACK_Z_SELECT2)
( const lapack_complex_double*, const lapack_complex_double* ); ( const lapack_complex_double*, const lapack_complex_double* );
#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME) #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
lapack_logical LAPACK_lsame_base( const char* ca, const char* cb, lapack_logical LAPACK_lsame_base( const char* ca, const char* cb
lapack_int lca, lapack_int lcb #ifndef __EMSCRIPTEN__
, lapack_int lca, lapack_int lcb
#endif
#ifdef LAPACK_FORTRAN_STRLEN_END #ifdef LAPACK_FORTRAN_STRLEN_END
, size_t, size_t , size_t, size_t
#endif #endif
@ -3320,28 +3324,28 @@ void LAPACK_zgesdd_base(
#endif #endif
#define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV) #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
void LAPACK_cgesv( lapack_int LAPACK_cgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* B, lapack_int const* ldb,
lapack_int* info ); lapack_int* info );
#define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV) #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
void LAPACK_dgesv( lapack_int LAPACK_dgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double* A, lapack_int const* lda, lapack_int* ipiv, double* A, lapack_int const* lda, lapack_int* ipiv,
double* B, lapack_int const* ldb, double* B, lapack_int const* ldb,
lapack_int* info ); lapack_int* info );
#define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV) #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
void LAPACK_sgesv( lapack_int LAPACK_sgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float* A, lapack_int const* lda, lapack_int* ipiv, float* A, lapack_int const* lda, lapack_int* ipiv,
float* B, lapack_int const* ldb, float* B, lapack_int const* ldb,
lapack_int* info ); lapack_int* info );
#define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV) #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
void LAPACK_zgesv( lapack_int LAPACK_zgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* B, lapack_int const* ldb,
@ -3940,49 +3944,49 @@ void LAPACK_zgesvxx_base(
#endif #endif
#define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2) #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
void LAPACK_cgetf2( lapack_int LAPACK_cgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2) #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
void LAPACK_dgetf2( lapack_int LAPACK_dgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
double* A, lapack_int const* lda, lapack_int* ipiv, double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2) #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
void LAPACK_sgetf2( lapack_int LAPACK_sgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
float* A, lapack_int const* lda, lapack_int* ipiv, float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2) #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
void LAPACK_zgetf2( lapack_int LAPACK_zgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF) #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
void LAPACK_cgetrf( lapack_int LAPACK_cgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF) #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
void LAPACK_dgetrf( lapack_int LAPACK_dgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
double* A, lapack_int const* lda, lapack_int* ipiv, double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF) #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
void LAPACK_sgetrf( lapack_int LAPACK_sgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
float* A, lapack_int const* lda, lapack_int* ipiv, float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF) #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
void LAPACK_zgetrf( lapack_int LAPACK_zgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
@ -4040,7 +4044,7 @@ void LAPACK_zgetri(
lapack_int* info ); lapack_int* info );
#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS) #define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
void LAPACK_cgetrs_base( lapack_int LAPACK_cgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -4057,7 +4061,7 @@ void LAPACK_cgetrs_base(
#endif #endif
#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS) #define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
void LAPACK_dgetrs_base( lapack_int LAPACK_dgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, lapack_int const* ipiv, double const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -4074,7 +4078,7 @@ void LAPACK_dgetrs_base(
#endif #endif
#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS) #define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
void LAPACK_sgetrs_base( lapack_int LAPACK_sgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, lapack_int const* ipiv, float const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -4091,7 +4095,7 @@ void LAPACK_sgetrs_base(
#endif #endif
#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS) #define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
void LAPACK_zgetrs_base( lapack_int LAPACK_zgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -5284,7 +5288,7 @@ void LAPACK_zggrqf(
lapack_int* info ); lapack_int* info );
#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD) #define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
lapack_int LAPACK_cggsvd_base( void LAPACK_cggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5307,7 +5311,7 @@ lapack_int LAPACK_cggsvd_base(
#endif #endif
#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD) #define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
lapack_int LAPACK_sggsvd_base( void LAPACK_sggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5329,7 +5333,7 @@ lapack_int LAPACK_sggsvd_base(
#endif #endif
#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD) #define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
lapack_int LAPACK_dggsvd_base( void LAPACK_dggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5351,7 +5355,7 @@ lapack_int LAPACK_dggsvd_base(
#endif #endif
#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD) #define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
lapack_int LAPACK_zggsvd_base( void LAPACK_zggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5472,7 +5476,7 @@ void LAPACK_zggsvd3_base(
#endif #endif
#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP) #define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
lapack_int LAPACK_sggsvp_base( void LAPACK_sggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
float* a, lapack_int const* lda, float* a, lapack_int const* lda,
@ -5495,7 +5499,7 @@ lapack_int LAPACK_sggsvp_base(
#endif #endif
#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP) #define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
lapack_int LAPACK_dggsvp_base( void LAPACK_dggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
double* a, lapack_int const* lda, double* a, lapack_int const* lda,
@ -5518,7 +5522,7 @@ lapack_int LAPACK_dggsvp_base(
#endif #endif
#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP) #define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
lapack_int LAPACK_cggsvp_base( void LAPACK_cggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
lapack_complex_float* a, lapack_int const* lda, lapack_complex_float* a, lapack_int const* lda,
@ -5540,7 +5544,7 @@ lapack_int LAPACK_cggsvp_base(
#endif #endif
#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP) #define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
lapack_int LAPACK_zggsvp_base( void LAPACK_zggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
lapack_complex_double* a, lapack_int const* lda, lapack_complex_double* a, lapack_int const* lda,
@ -10942,22 +10946,22 @@ void LAPACK_zlassq(
double* sumsq ); double* sumsq );
#define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP) #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
void LAPACK_claswp( lapack_int LAPACK_claswp(
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
#define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP) #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
void LAPACK_dlaswp( lapack_int LAPACK_dlaswp(
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
#define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP) #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
void LAPACK_slaswp( lapack_int LAPACK_slaswp(
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
#define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP) #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
void LAPACK_zlaswp( lapack_int LAPACK_zlaswp(
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
@ -11050,7 +11054,7 @@ void LAPACK_zlatms_base(
#endif #endif
#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM) #define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
void LAPACK_clauum_base( lapack_int LAPACK_clauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* A, lapack_int const* lda,
@ -11066,7 +11070,7 @@ void LAPACK_clauum_base(
#endif #endif
#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM) #define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
void LAPACK_dlauum_base( lapack_int LAPACK_dlauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, double* A, lapack_int const* lda,
@ -11082,7 +11086,7 @@ void LAPACK_dlauum_base(
#endif #endif
#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM) #define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
void LAPACK_slauum_base( lapack_int LAPACK_slauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, float* A, lapack_int const* lda,
@ -11098,7 +11102,7 @@ void LAPACK_slauum_base(
#endif #endif
#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM) #define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
void LAPACK_zlauum_base( lapack_int LAPACK_zlauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* A, lapack_int const* lda,
@ -11114,7 +11118,7 @@ void LAPACK_zlauum_base(
#endif #endif
#define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER) #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
void LAPACK_ilaver( lapack_int LAPACK_ilaver(
lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch ); lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR) #define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
@ -13375,7 +13379,7 @@ void LAPACK_zpotf2_base(
#endif #endif
#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF) #define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
void LAPACK_cpotrf_base( lapack_int LAPACK_cpotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* A, lapack_int const* lda,
@ -13391,7 +13395,7 @@ void LAPACK_cpotrf_base(
#endif #endif
#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF) #define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
void LAPACK_dpotrf_base( lapack_int LAPACK_dpotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, double* A, lapack_int const* lda,
@ -13407,7 +13411,7 @@ void LAPACK_dpotrf_base(
#endif #endif
#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF) #define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
void LAPACK_spotrf_base( lapack_int LAPACK_spotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, float* A, lapack_int const* lda,
@ -13423,7 +13427,7 @@ void LAPACK_spotrf_base(
#endif #endif
#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF) #define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
void LAPACK_zpotrf_base( lapack_int LAPACK_zpotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* A, lapack_int const* lda,
@ -22081,7 +22085,7 @@ void LAPACK_ztrsyl3_base(
#endif #endif
#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI) #define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
void LAPACK_ctrtri_base( lapack_int LAPACK_ctrtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* A, lapack_int const* lda,
@ -22097,7 +22101,7 @@ void LAPACK_ctrtri_base(
#endif #endif
#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI) #define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
void LAPACK_dtrtri_base( lapack_int LAPACK_dtrtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, double* A, lapack_int const* lda,
@ -22113,7 +22117,7 @@ void LAPACK_dtrtri_base(
#endif #endif
#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI) #define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
void LAPACK_strtri_base( lapack_int LAPACK_strtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, float* A, lapack_int const* lda,
@ -22129,7 +22133,7 @@ void LAPACK_strtri_base(
#endif #endif
#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI) #define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
void LAPACK_ztrtri_base( lapack_int LAPACK_ztrtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* A, lapack_int const* lda,
@ -22145,7 +22149,7 @@ void LAPACK_ztrtri_base(
#endif #endif
#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
void LAPACK_ctrtrs_base( lapack_int LAPACK_ctrtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* A, lapack_int const* lda,
@ -22162,7 +22166,7 @@ void LAPACK_ctrtrs_base(
#endif #endif
#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
void LAPACK_dtrtrs_base( lapack_int LAPACK_dtrtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, double const* A, lapack_int const* lda,
@ -22179,7 +22183,7 @@ void LAPACK_dtrtrs_base(
#endif #endif
#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
void LAPACK_strtrs_base( lapack_int LAPACK_strtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, float const* A, lapack_int const* lda,
@ -22196,7 +22200,7 @@ void LAPACK_strtrs_base(
#endif #endif
#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
void LAPACK_ztrtrs_base( lapack_int LAPACK_ztrtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* A, lapack_int const* lda,

7
lapack-netlib/LAPACKE/utils/lapacke_lsame.c
View File

@ -32,9 +32,16 @@
#include "lapacke_utils.h" #include "lapacke_utils.h"
#ifdef __EMSCRIPTEN__
lapack_logical LAPACKE_lsame( char ca, char cb )
{
return (lapack_logical) LAPACK_lsame( &ca, &cb );
}
#else
lapack_logical LAPACKE_lsame( char ca, char cb ) lapack_logical LAPACKE_lsame( char ca, char cb )
{ {
return (lapack_logical) LAPACK_lsame( &ca, &cb, 1, 1 ); return (lapack_logical) LAPACK_lsame( &ca, &cb, 1, 1 );
} }
#endif

38
lapack-netlib/SRC/DEPRECATED/cgegs.c
View File

@ -740,7 +740,7 @@ rices</b> */
/* > \ingroup complexGEeigen */ /* > \ingroup complexGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex * /* Subroutine */ void cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
a, integer *lda, complex *b, integer *ldb, complex *alpha, complex * a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
complex *work, integer *lwork, real *rwork, integer *info) complex *work, integer *lwork, real *rwork, integer *info)
@ -758,7 +758,7 @@ rices</b> */
integer iwork; integer iwork;
logical ilvsr; logical ilvsr;
integer irows; integer irows;
extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, complex *, integer *, integer *, real *, real *, integer *, complex *, integer *,
integer *), cggbal_(char *, integer *, complex *, integer *), cggbal_(char *, integer *, complex *,
integer *, complex *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *, integer *, real *,
@ -766,24 +766,24 @@ rices</b> */
integer nb; integer nb;
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, integer *), integer *, complex *, integer *, integer *),
clascl_(char *, integer *, integer *, real *, real *, integer *, clascl_(char *, integer *, integer *, real *, real *, integer *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *); integer *, complex *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *); integer *, integer *, complex *, complex *, complex *, integer *);
real safmin; real safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *,
complex *, integer *, real *, integer *); complex *, integer *, real *, integer *);
@ -791,7 +791,7 @@ rices</b> */
real anrmto; real anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
real bnrmto; real bnrmto;
extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, extern /* Subroutine */ void cungqr_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *), complex *, integer *, complex *, complex *, integer *, integer *),
cunmqr_(char *, char *, integer *, integer *, integer *, complex cunmqr_(char *, char *, integer *, integer *, integer *, complex
*, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer
@ -898,16 +898,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEGS ", &i__1); xerbla_("CGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -934,7 +934,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -955,7 +955,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1092,13 +1092,13 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
clascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, & clascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1107,20 +1107,20 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
clascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & clascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1].r = (real) lwkopt, work[1].i = 0.f; work[1].r = (real) lwkopt, work[1].i = 0.f;
return 0; return;
/* End of CGEGS */ /* End of CGEGS */

36
lapack-netlib/SRC/DEPRECATED/cgegv.c
View File

@ -799,7 +799,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, /* Subroutine */ void cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
work, integer *lwork, real *rwork, integer *info) work, integer *lwork, real *rwork, integer *info)
@ -819,7 +819,7 @@ rices</b> */
real anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta; real anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer ileft, iinfo, icols, iwork, irows, jc; integer ileft, iinfo, icols, iwork, irows, jc;
extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, complex *, integer *, integer *, real *, real *, integer *, complex *, integer *,
integer *), cggbal_(char *, integer *, complex *, integer *), cggbal_(char *, integer *, complex *,
integer *, complex *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *, integer *, real *,
@ -828,40 +828,40 @@ rices</b> */
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer jr; integer jr;
extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
real salfai; real salfai;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *,
complex *, complex *, integer *, integer *); complex *, complex *, integer *, integer *);
real salfar; real salfar;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *); integer *, integer *, complex *, complex *, complex *, integer *);
real safmin; real safmin;
extern /* Subroutine */ int ctgevc_(char *, char *, logical *, integer *, extern /* Subroutine */ void ctgevc_(char *, char *, logical *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *,
complex *, integer *, integer *, integer *, complex *, real *, complex *, integer *, integer *, integer *, complex *, real *,
integer *); integer *);
real safmax; real safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *,
complex *, integer *, real *, integer *), complex *, integer *, real *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, extern /* Subroutine */ void cungqr_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *); complex *, integer *, complex *, complex *, integer *, integer *);
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer irwork, lwkopt; integer irwork, lwkopt;
@ -969,16 +969,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEGV ", &i__1); xerbla_("CGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1005,7 +1005,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1026,7 +1026,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1353,7 +1353,7 @@ L60:
L80: L80:
work[1].r = (real) lwkopt, work[1].i = 0.f; work[1].r = (real) lwkopt, work[1].i = 0.f;
return 0; return;
/* End of CGEGV */ /* End of CGEGV */

26
lapack-netlib/SRC/DEPRECATED/cgelsx.c
View File

@ -700,7 +700,7 @@ f"> */
/* > \ingroup complexGEsolve */ /* > \ingroup complexGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex * /* Subroutine */ void cgelsx_(integer *m, integer *n, integer *nrhs, complex *
a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
integer *rank, complex *work, real *rwork, integer *info) integer *rank, complex *work, real *rwork, integer *info)
{ {
@ -712,31 +712,31 @@ f"> */
real anrm, bnrm, smin, smax; real anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
complex c1, c2; complex c1, c2;
extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *), claic1_(integer *, integer *), claic1_(integer *,
integer *, complex *, real *, complex *, complex *, real *, integer *, complex *, real *, complex *, complex *, real *,
complex *, complex *); complex *, complex *);
complex s1, s2, t1, t2; complex s1, s2, t1, t2;
extern /* Subroutine */ int cunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunm2r_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *), slabad_(real *, real *); complex *, integer *), slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mn; integer mn;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *), cgeqpf_(integer *, integer *, complex *, integer *, real *, integer *, integer *, complex *, integer *, integer *), cgeqpf_(integer *, integer *, complex *, integer *,
integer *, complex *, complex *, real *, integer *); integer *, complex *, complex *, real *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), xerbla_(char *, *, complex *, complex *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int clatzm_(char *, integer *, integer *, complex extern /* Subroutine */ void clatzm_(char *, integer *, integer *, complex
*, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex
*); *);
real sminpr; real sminpr;
extern /* Subroutine */ int ctzrqf_(integer *, integer *, complex *, extern /* Subroutine */ void ctzrqf_(integer *, integer *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
real smaxpr, smlnum; real smaxpr, smlnum;
@ -787,8 +787,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELSX", &i__1); xerbla_("CGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -797,7 +797,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -1029,7 +1029,7 @@ L70:
L100: L100:
return 0; return;
/* End of CGELSX */ /* End of CGELSX */

18
lapack-netlib/SRC/DEPRECATED/cgeqpf.c
View File

@ -661,7 +661,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
integer *jpvt, complex *tau, complex *work, real *rwork, integer * integer *jpvt, complex *tau, complex *work, real *rwork, integer *
info) info)
{ {
@ -674,21 +674,21 @@ f"> */
real temp, temp2; real temp, temp2;
integer i__, j; integer i__, j;
real tol3z; real tol3z;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
cswap_(integer *, complex *, integer *, complex *, integer *); cswap_(integer *, complex *, integer *, complex *, integer *);
integer itemp; integer itemp;
extern /* Subroutine */ int cgeqr2_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqr2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
extern /* Subroutine */ int cunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunm2r_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *); complex *, integer *);
integer ma, mn; integer ma, mn;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *); integer *, complex *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
complex aii; complex aii;
integer pvt; integer pvt;
@ -725,8 +725,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQPF", &i__1); xerbla_("CGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -865,7 +865,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of CGEQPF */ /* End of CGEQPF */

17
lapack-netlib/SRC/DEPRECATED/cggsvd.c
View File

@ -849,7 +849,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, complex *a, integer * integer *n, integer *p, integer *k, integer *l, complex *a, integer *
lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
@ -868,17 +868,18 @@ f"> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real anorm, bnorm; real anorm, bnorm;
logical wantq; logical wantq;
extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *,
integer *); integer *);
logical wantu, wantv; logical wantu, wantv;
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *), slamch_(char *); real *), slamch_(char *);
extern /* Subroutine */ int ctgsja_(char *, char *, char *, integer *, extern /* Subroutine */ void ctgsja_(char *, char *, char *, integer *,
integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *, integer *, integer *, complex *, integer *,
complex *, integer *, real *, real *, real *, real *, complex *, complex *, integer *, real *, real *, real *, real *, complex *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, integer *), xerbla_(char *, integer *, integer *);
integer *), cggsvp_(char *, char *, char *, integer *, extern int xerbla_(char *, integer *, ftnlen);
extern void cggsvp_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
real *, real *, integer *, integer *, complex *, integer *, real *, real *, integer *, integer *, complex *, integer *,
complex *, integer *, complex *, integer *, integer *, real *, complex *, integer *, complex *, integer *, integer *, real *,
@ -950,8 +951,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGGSVD", &i__1); xerbla_("CGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1011,7 +1012,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of CGGSVD */ /* End of CGGSVD */

15
lapack-netlib/SRC/DEPRECATED/cggsvp.c
View File

@ -774,7 +774,7 @@ f"> */
/* > a matrix. It may be replaced by a better rank determination strategy. */ /* > a matrix. It may be replaced by a better rank determination strategy. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, complex *a, integer *lda, complex *b, integer integer *p, integer *n, complex *a, integer *lda, complex *b, integer
*ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
@ -790,7 +790,7 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int cgeqr2_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqr2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *), cgerq2_(integer *, integer *, complex *, complex *, integer *), cgerq2_(integer *,
integer *, complex *, integer *, complex *, complex *, integer *), integer *, complex *, integer *, complex *, complex *, integer *),
cung2r_(integer *, integer *, integer *, complex *, integer *, cung2r_(integer *, integer *, integer *, complex *, integer *,
@ -802,8 +802,9 @@ f"> */
integer *, complex *, complex *, real *, integer *), clacpy_(char integer *, complex *, complex *, real *, integer *), clacpy_(char
*, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer
*), claset_(char *, integer *, integer *, complex *, *), claset_(char *, integer *, integer *, complex *,
complex *, complex *, integer *), xerbla_(char *, integer complex *, complex *, integer *);
*), clapmt_(logical *, integer *, integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void clapmt_(logical *, integer *, integer *, complex *,
integer *, integer *); integer *, integer *);
logical forwrd; logical forwrd;
@ -872,8 +873,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGGSVP", &i__1); xerbla_("CGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1131,7 +1132,7 @@ f"> */
} }
return 0; return;
/* End of CGGSVP */ /* End of CGGSVP */

10
lapack-netlib/SRC/DEPRECATED/clahrd.c
View File

@ -684,7 +684,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a, /* Subroutine */ void clahrd_(integer *n, integer *k, integer *nb, complex *a,
integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
integer *ldy) integer *ldy)
{ {
@ -695,7 +695,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *), cgemv_(char *, integer *, integer *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *,
integer *), ccopy_(integer *, complex *, integer *, integer *), ccopy_(integer *, complex *, integer *,
@ -703,7 +703,7 @@ f"> */
integer *, complex *, integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *), ctrmv_(char *, char *, char *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
complex ei; complex ei;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *), clacgv_(integer *, complex *, integer *); integer *, complex *), clacgv_(integer *, complex *, integer *);
@ -732,7 +732,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -856,7 +856,7 @@ f"> */
i__1 = *k + *nb + *nb * a_dim1; i__1 = *k + *nb + *nb * a_dim1;
a[i__1].r = ei.r, a[i__1].i = ei.i; a[i__1].r = ei.r, a[i__1].i = ei.i;
return 0; return;
/* End of CLAHRD */ /* End of CLAHRD */

10
lapack-netlib/SRC/DEPRECATED/clatzm.c
View File

@ -666,7 +666,7 @@ f"> */
/* > \ingroup complexOTHERcomputational */ /* > \ingroup complexOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v, /* Subroutine */ void clatzm_(char *side, integer *m, integer *n, complex *v,
integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
complex *work) complex *work)
{ {
@ -675,12 +675,12 @@ f"> */
complex q__1; complex q__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, extern /* Subroutine */ void cgerc_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *), complex *, integer *, complex *, integer *, complex *, integer *),
cgemv_(char *, integer *, integer *, complex *, complex *, cgemv_(char *, integer *, integer *, complex *, complex *,
integer *, complex *, integer *, complex *, complex *, integer *); integer *, complex *, integer *, complex *, complex *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int cgeru_(integer *, integer *, complex *, extern /* Subroutine */ void cgeru_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *), complex *, integer *, complex *, integer *, complex *, integer *),
ccopy_(integer *, complex *, integer *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *),
caxpy_(integer *, complex *, complex *, integer *, complex *, caxpy_(integer *, complex *, complex *, integer *, complex *,
@ -708,7 +708,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || tau->r == 0.f && tau->i == 0.f) { if (f2cmin(*m,*n) == 0 || tau->r == 0.f && tau->i == 0.f) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -751,7 +751,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of CLATZM */ /* End of CLATZM */

20
lapack-netlib/SRC/DEPRECATED/ctzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, integer *info) complex *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -661,18 +661,18 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, extern /* Subroutine */ void cgerc_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
complex alpha; complex alpha;
extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex *
, complex *, integer *, complex *, integer *, complex *, complex * , complex *, integer *, complex *, integer *, complex *, complex *
, integer *), ccopy_(integer *, complex *, integer *, , integer *), ccopy_(integer *, complex *, integer *,
complex *, integer *), caxpy_(integer *, complex *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *), clacgv_(integer *, complex *, integer *), integer *, complex *), clacgv_(integer *, complex *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -703,14 +703,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CTZRQF", &i__1); xerbla_("CTZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -783,7 +783,7 @@ f"> */
} }
} }
return 0; return;
/* End of CTZRQF */ /* End of CTZRQF */

46
lapack-netlib/SRC/DEPRECATED/dgegs.c
View File

@ -742,7 +742,7 @@ rices</b> */
/* > \ingroup doubleGEeigen */ /* > \ingroup doubleGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, /* Subroutine */ void dgegs_(char *jobvsl, char *jobvsr, integer *n,
doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
@ -761,45 +761,45 @@ rices</b> */
integer iwork; integer iwork;
logical ilvsr; logical ilvsr;
integer irows; integer irows;
extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *,
integer *, integer *); integer *, integer *);
integer nb; integer nb;
extern /* Subroutine */ int dggbal_(char *, integer *, doublereal *, extern /* Subroutine */ void dggbal_(char *, integer *, doublereal *,
integer *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *); doublereal *, doublereal *, doublereal *, integer *);
extern doublereal dlamch_(char *), dlange_(char *, integer *, extern doublereal dlamch_(char *), dlange_(char *, integer *,
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal
*, doublereal *, integer *, integer *, doublereal *, integer *, *, doublereal *, integer *, integer *, doublereal *, integer *,
integer *); integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *, integer *), integer *, doublereal *, doublereal *, integer *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *, extern /* Subroutine */ void dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *), doublereal *, doublereal *, doublereal *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *,
integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *); integer *);
integer ijobvl, iright, ijobvr; integer ijobvl, iright, ijobvr;
extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *,
integer *); integer *);
doublereal anrmto; doublereal anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
doublereal bnrmto; doublereal bnrmto;
extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *, integer *); integer *, doublereal *, integer *, integer *);
doublereal smlnum; doublereal smlnum;
@ -904,16 +904,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEGS ", &i__1); xerbla_("DGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -940,7 +940,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -961,7 +961,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1098,19 +1098,19 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1119,20 +1119,20 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
dlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & dlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1] = (doublereal) lwkopt; work[1] = (doublereal) lwkopt;
return 0; return;
/* End of DGEGS */ /* End of DGEGS */

36
lapack-netlib/SRC/DEPRECATED/dgegv.c
View File

@ -822,7 +822,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal * /* Subroutine */ void dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
@ -842,11 +842,11 @@ rices</b> */
doublereal anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta; doublereal anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer ileft, iinfo, icols, iwork, irows, jc; integer ileft, iinfo, icols, iwork, irows, jc;
extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *,
integer *, integer *); integer *, integer *);
integer nb; integer nb;
extern /* Subroutine */ int dggbal_(char *, integer *, doublereal *, extern /* Subroutine */ void dggbal_(char *, integer *, doublereal *,
integer *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *); doublereal *, doublereal *, doublereal *, integer *);
integer in; integer in;
@ -854,42 +854,42 @@ rices</b> */
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
integer jr; integer jr;
doublereal salfai; doublereal salfai;
extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal
*, doublereal *, integer *, integer *, doublereal *, integer *, *, doublereal *, integer *, integer *, doublereal *, integer *,
integer *); integer *);
doublereal salfar; doublereal salfar;
extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *, integer *), integer *, doublereal *, doublereal *, integer *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *, extern /* Subroutine */ void dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *); doublereal *, doublereal *, doublereal *, integer *);
doublereal safmax; doublereal safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *,
integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *), dtgevc_(char *, char *, integer *), dtgevc_(char *, char *,
logical *, integer *, doublereal *, integer *, doublereal *, logical *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *, integer *, doublereal *, integer *), integer *, integer *, doublereal *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *,
integer *); integer *);
doublereal onepls; doublereal onepls;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *, integer *); integer *, doublereal *, integer *, integer *);
integer lwkopt; integer lwkopt;
@ -997,16 +997,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEGV ", &i__1); xerbla_("DGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1034,7 +1034,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1055,7 +1055,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1426,7 +1426,7 @@ L100:
L120: L120:
work[1] = (doublereal) lwkopt; work[1] = (doublereal) lwkopt;
return 0; return;
/* End of DGEGV */ /* End of DGEGV */

24
lapack-netlib/SRC/DEPRECATED/dgelsx.c
View File

@ -694,7 +694,7 @@ f"> */
/* > \ingroup doubleGEsolve */ /* > \ingroup doubleGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, /* Subroutine */ void dgelsx_(integer *m, integer *n, integer *nrhs,
doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
info) info)
@ -707,32 +707,32 @@ f"> */
doublereal anrm, bnrm, smin, smax; doublereal anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
doublereal c1, c2; doublereal c1, c2;
extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *,
integer *, integer *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublereal *, integer *,
doublereal *, integer *), dlaic1_( doublereal *, integer *), dlaic1_(
integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *, doublereal *); doublereal *, doublereal *, doublereal *, doublereal *);
doublereal s1, s2, t1, t2; doublereal s1, s2, t1, t2;
extern /* Subroutine */ int dorm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void dorm2r_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *), dlabad_( integer *, doublereal *, integer *), dlabad_(
doublereal *, doublereal *); doublereal *, doublereal *);
extern doublereal dlamch_(char *), dlange_(char *, integer *, extern doublereal dlamch_(char *), dlange_(char *, integer *,
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
integer mn; integer mn;
extern /* Subroutine */ int dlascl_(char *, integer *, integer *, extern /* Subroutine */ void dlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *,
integer *, integer *), dgeqpf_(integer *, integer *, integer *, integer *), dgeqpf_(integer *, integer *,
doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *,
integer *), dlaset_(char *, integer *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *,
doublereal *, doublereal *, integer *), xerbla_(char *, doublereal *, doublereal *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int dlatzm_(char *, integer *, integer *, extern /* Subroutine */ void dlatzm_(char *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
doublereal sminpr, smaxpr, smlnum; doublereal sminpr, smaxpr, smlnum;
extern /* Subroutine */ int dtzrqf_(integer *, integer *, doublereal *, extern /* Subroutine */ void dtzrqf_(integer *, integer *, doublereal *,
integer *, doublereal *, integer *); integer *, doublereal *, integer *);
@ -781,8 +781,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGELSX", &i__1); xerbla_("DGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -791,7 +791,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -999,7 +999,7 @@ L70:
L100: L100:
return 0; return;
/* End of DGELSX */ /* End of DGELSX */

16
lapack-netlib/SRC/DEPRECATED/dgeqpf.c
View File

@ -655,7 +655,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer * /* Subroutine */ void dgeqpf_(integer *m, integer *n, doublereal *a, integer *
lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info) lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -668,11 +668,11 @@ f"> */
doublereal temp2; doublereal temp2;
integer i__, j; integer i__, j;
doublereal tol3z; doublereal tol3z;
extern /* Subroutine */ int dlarf_(char *, integer *, integer *, extern /* Subroutine */ void dlarf_(char *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *,
doublereal *); doublereal *);
integer itemp; integer itemp;
extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *,
doublereal *, integer *), dgeqr2_(integer *, integer *, doublereal *, integer *), dgeqr2_(integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *), doublereal *, integer *, doublereal *, doublereal *, integer *),
dorm2r_(char *, char *, integer *, integer *, integer *, dorm2r_(char *, char *, integer *, integer *, integer *,
@ -681,10 +681,10 @@ f"> */
integer ma; integer ma;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer mn; integer mn;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
extern integer idamax_(integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal aii; doublereal aii;
integer pvt; integer pvt;
@ -719,8 +719,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEQPF", &i__1); xerbla_("DGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -854,7 +854,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of DGEQPF */ /* End of DGEQPF */

16
lapack-netlib/SRC/DEPRECATED/dggsvd.c
View File

@ -845,7 +845,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, doublereal *a, integer *n, integer *p, integer *k, integer *l, doublereal *a,
integer *lda, doublereal *b, integer *ldb, doublereal *alpha, integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
@ -864,17 +864,19 @@ f"> */
integer ncallmycycle, i__, j; integer ncallmycycle, i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
doublereal anorm, bnorm; doublereal anorm, bnorm;
extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern doublereal dlamch_(char *), dlange_(char *, integer *, extern doublereal dlamch_(char *), dlange_(char *, integer *,
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
extern /* Subroutine */ int dtgsja_(char *, char *, char *, integer *, extern /* Subroutine */ void dtgsja_(char *, char *, char *, integer *,
integer *, integer *, integer *, integer *, doublereal *, integer integer *, integer *, integer *, integer *, doublereal *, integer
*, doublereal *, integer *, doublereal *, doublereal *, *, doublereal *, integer *, doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *), xerbla_(char *, integer *), dggsvp_(char *, char *, char *, integer *, integer *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void dggsvp_(char *, char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
@ -945,8 +947,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGGSVD", &i__1); xerbla_("DGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1007,7 +1009,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of DGGSVD */ /* End of DGGSVD */

14
lapack-netlib/SRC/DEPRECATED/dggsvp.c
View File

@ -768,7 +768,7 @@ f"> */
/* > a matrix. It may be replaced by a better rank determination strategy. */ /* > a matrix. It may be replaced by a better rank determination strategy. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
*l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
@ -784,7 +784,7 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int dgeqr2_(integer *, integer *, doublereal *, extern /* Subroutine */ void dgeqr2_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *), dgerq2_( integer *, doublereal *, doublereal *, integer *), dgerq2_(
integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *,
doublereal *, integer *), dorg2r_(integer *, integer *, integer *, doublereal *, integer *), dorg2r_(integer *, integer *, integer *,
@ -797,7 +797,9 @@ f"> */
integer *, integer *, doublereal *, doublereal *, integer *), integer *, integer *, doublereal *, doublereal *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *), dlaset_(char *, integer *, doublereal *, integer *), dlaset_(char *, integer *,
integer *, doublereal *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *), dlapmt_(logical *, integer *, doublereal *, doublereal *, doublereal *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void dlapmt_(logical *,
integer *, integer *, doublereal *, integer *, integer *); integer *, integer *, doublereal *, integer *, integer *);
logical forwrd; logical forwrd;
@ -865,8 +867,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGGSVP", &i__1); xerbla_("DGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1115,7 +1117,7 @@ f"> */
} }
return 0; return;
/* End of DGGSVP */ /* End of DGGSVP */

10
lapack-netlib/SRC/DEPRECATED/dlahrd.c
View File

@ -685,7 +685,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal * /* Subroutine */ void dlahrd_(integer *n, integer *k, integer *nb, doublereal *
a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
doublereal *y, integer *ldy) doublereal *y, integer *ldy)
{ {
@ -696,7 +696,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *,
integer *), dgemv_(char *, integer *, integer *, doublereal *, integer *), dgemv_(char *, integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *,
doublereal *, integer *), dcopy_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *,
@ -705,7 +705,7 @@ f"> */
*, char *, char *, integer *, doublereal *, integer *, doublereal *, char *, char *, integer *, doublereal *, integer *, doublereal
*, integer *); *, integer *);
doublereal ei; doublereal ei;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
@ -734,7 +734,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -843,7 +843,7 @@ f"> */
} }
a[*k + *nb + *nb * a_dim1] = ei; a[*k + *nb + *nb * a_dim1] = ei;
return 0; return;
/* End of DLAHRD */ /* End of DLAHRD */

10
lapack-netlib/SRC/DEPRECATED/dlatzm.c
View File

@ -665,7 +665,7 @@ f"> */
/* > \ingroup doubleOTHERcomputational */ /* > \ingroup doubleOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal * /* Subroutine */ void dlatzm_(char *side, integer *m, integer *n, doublereal *
v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
integer *ldc, doublereal *work) integer *ldc, doublereal *work)
{ {
@ -674,11 +674,11 @@ f"> */
doublereal d__1; doublereal d__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, extern /* Subroutine */ void dger_(integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *,
integer *); integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int dgemv_(char *, integer *, integer *, extern /* Subroutine */ void dgemv_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *,
doublereal *, integer *, doublereal *, integer *), daxpy_(integer doublereal *, integer *, doublereal *, integer *), daxpy_(integer
@ -707,7 +707,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || *tau == 0.) { if (f2cmin(*m,*n) == 0 || *tau == 0.) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -748,7 +748,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of DLATZM */ /* End of DLATZM */

19
lapack-netlib/SRC/DEPRECATED/dtzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer * /* Subroutine */ void dtzrqf_(integer *m, integer *n, doublereal *a, integer *
lda, doublereal *tau, integer *info) lda, doublereal *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -660,19 +660,20 @@ f"> */
doublereal d__1; doublereal d__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, extern /* Subroutine */ void dger_(integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *,
integer *); integer *);
integer i__, k; integer i__, k;
extern /* Subroutine */ int dgemv_(char *, integer *, integer *, extern /* Subroutine */ void dgemv_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *,
doublereal *, integer *, doublereal *, integer *), daxpy_(integer doublereal *, integer *, doublereal *, integer *), daxpy_(integer
*, doublereal *, doublereal *, integer *, doublereal *, integer *) *, doublereal *, doublereal *, integer *, doublereal *, integer *)
; ;
integer m1; integer m1;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *), xerbla_(char *, integer *); integer *, doublereal *);
extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -703,14 +704,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DTZRQF", &i__1); xerbla_("DTZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -768,7 +769,7 @@ f"> */
} }
} }
return 0; return;
/* End of DTZRQF */ /* End of DTZRQF */

46
lapack-netlib/SRC/DEPRECATED/sgegs.c
View File

@ -742,7 +742,7 @@ ices</b> */
/* > \ingroup realGEeigen */ /* > \ingroup realGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, /* Subroutine */ void sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
*beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real * *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
work, integer *lwork, integer *info) work, integer *lwork, integer *info)
@ -760,7 +760,7 @@ ices</b> */
integer iwork; integer iwork;
logical ilvsr; logical ilvsr;
integer irows, nb; integer irows, nb;
extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, real *, integer *, integer * integer *, real *, real *, integer *, real *, integer *, integer *
), sggbal_(char *, integer *, real *, integer *, ), sggbal_(char *, integer *, real *, integer *,
real *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, real *,
@ -769,35 +769,35 @@ ices</b> */
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
real safmin; real safmin;
extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, integer *, real *, integer * integer *, real *, integer *, real *, integer *, real *, integer *
, real *, integer *, integer *), xerbla_(char *, , real *, integer *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *); real *, integer *, integer *, real *, integer *, integer *);
integer ijobvl, iright; integer ijobvl, iright;
extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer
*, real *, real *, integer *, integer *); *, real *, real *, integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
integer *, real *, real *, real *, integer *); integer *, real *, real *, real *, integer *);
real anrmto; real anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
real bnrmto; real bnrmto;
extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *,
integer *, integer *, real *, integer *, real *, integer *, real * integer *, integer *, real *, integer *, real *, integer *, real *
, real *, real *, real *, integer *, real *, integer *, real *, , real *, real *, real *, integer *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
real smlnum; real smlnum;
extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real
*, integer *, real *, real *, integer *, integer *); *, integer *, real *, real *, integer *, integer *);
integer lwkopt; integer lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
integer ihi, ilo; integer ihi, ilo;
@ -899,16 +899,16 @@ ices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEGS ", &i__1); xerbla_("SGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -935,7 +935,7 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -956,7 +956,7 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1093,19 +1093,19 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1114,20 +1114,20 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
slascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & slascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1] = (real) lwkopt; work[1] = (real) lwkopt;
return 0; return;
/* End of SGEGS */ /* End of SGEGS */

33
lapack-netlib/SRC/DEPRECATED/sgegv.c
View File

@ -822,7 +822,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, /* Subroutine */ void sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
*beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
integer *lwork, integer *info) integer *lwork, integer *info)
@ -842,7 +842,7 @@ rices</b> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer ileft, iinfo, icols, iwork, irows, jc, nb, in, jr; integer ileft, iinfo, icols, iwork, irows, jc, nb, in, jr;
real salfai; real salfai;
extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, real *, integer *, integer * integer *, real *, real *, integer *, real *, integer *, integer *
), sggbal_(char *, integer *, real *, integer *, ), sggbal_(char *, integer *, real *, integer *,
real *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, real *,
@ -851,22 +851,23 @@ rices</b> */
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
real safmin; real safmin;
extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, integer *, real *, integer * integer *, real *, integer *, real *, integer *, real *, integer *
, real *, integer *, integer *); , real *, integer *, integer *);
real safmax; real safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), xerbla_(char *, integer *); real *, integer *, integer *, real *, integer *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer
*, real *, real *, integer *, integer *); *, real *, real *, integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
integer *, real *, real *, real *, integer *), stgevc_( integer *, real *, real *, real *, integer *), stgevc_(
char *, char *, logical *, integer *, real *, integer *, real *, char *, char *, logical *, integer *, real *, integer *, real *,
@ -874,7 +875,7 @@ rices</b> */
integer *, real *, integer *); integer *, real *, integer *);
real onepls; real onepls;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *,
integer *, integer *, real *, integer *, real *, integer *, real * integer *, integer *, real *, integer *, real *, integer *, real *
, real *, real *, real *, integer *, real *, integer *, real *, , real *, real *, real *, integer *, real *, integer *, real *,
integer *, integer *), sorgqr_(integer *, integer *, integer *), sorgqr_(integer *,
@ -882,7 +883,7 @@ rices</b> */
, integer *); , integer *);
integer lwkopt; integer lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
integer ihi, ilo; integer ihi, ilo;
@ -988,16 +989,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEGV ", &i__1); xerbla_("SGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1025,7 +1026,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1046,7 +1047,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1417,7 +1418,7 @@ L100:
L120: L120:
work[1] = (real) lwkopt; work[1] = (real) lwkopt;
return 0; return;
/* End of SGEGV */ /* End of SGEGV */

18
lapack-netlib/SRC/DEPRECATED/sgelsx.c
View File

@ -694,7 +694,7 @@ f"> */
/* > \ingroup realGEsolve */ /* > \ingroup realGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, /* Subroutine */ void sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
integer *rank, real *work, integer *info) integer *rank, real *work, integer *info)
{ {
@ -706,7 +706,7 @@ f"> */
real anrm, bnrm, smin, smax; real anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
real c1, c2, s1, s2, t1, t2; real c1, c2, s1, s2, t1, t2;
extern /* Subroutine */ int strsm_(char *, char *, char *, char *, extern /* Subroutine */ void strsm_(char *, char *, char *, char *,
integer *, integer *, real *, real *, integer *, real *, integer * integer *, integer *, real *, real *, integer *, real *, integer *
), slaic1_(integer *, integer *, ), slaic1_(integer *, integer *,
real *, real *, real *, real *, real *, real *, real *), sorm2r_( real *, real *, real *, real *, real *, real *, real *), sorm2r_(
@ -716,14 +716,14 @@ f"> */
integer mn; integer mn;
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer
*, real *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, integer *), slaset_(char *, integer *, integer
*, real *, real *, real *, integer *); *, real *, real *, real *, integer *);
real sminpr, smaxpr, smlnum; real sminpr, smaxpr, smlnum;
extern /* Subroutine */ int slatzm_(char *, integer *, integer *, real *, extern /* Subroutine */ void slatzm_(char *, integer *, integer *, real *,
integer *, real *, real *, real *, integer *, real *), integer *, real *, real *, real *, integer *, real *),
stzrqf_(integer *, integer *, real *, integer *, real *, integer * stzrqf_(integer *, integer *, real *, integer *, real *, integer *
); );
@ -774,8 +774,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGELSX", &i__1); xerbla_("SGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -784,7 +784,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -992,7 +992,7 @@ L70:
L100: L100:
return 0; return;
/* End of SGELSX */ /* End of SGELSX */

17
lapack-netlib/SRC/DEPRECATED/sgeqpf.c
View File

@ -655,7 +655,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda, /* Subroutine */ void sgeqpf_(integer *m, integer *n, real *a, integer *lda,
integer *jpvt, real *tau, real *work, integer *info) integer *jpvt, real *tau, real *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -667,19 +667,20 @@ f"> */
extern real snrm2_(integer *, real *, integer *); extern real snrm2_(integer *, real *, integer *);
integer i__, j; integer i__, j;
real tol3z; real tol3z;
extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *,
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
integer itemp; integer itemp;
extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *,
integer *), sgeqr2_(integer *, integer *, real *, integer *, real integer *), sgeqr2_(integer *, integer *, real *, integer *, real
*, real *, integer *); *, real *, integer *);
integer ma; integer ma;
extern /* Subroutine */ int sorm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void sorm2r_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *); integer *);
integer mn; integer mn;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *), slarfg_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void slarfg_(
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
real aii; real aii;
@ -716,8 +717,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEQPF", &i__1); xerbla_("SGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -851,7 +852,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of SGEQPF */ /* End of SGEQPF */

13
lapack-netlib/SRC/DEPRECATED/sggsvd.c
View File

@ -845,7 +845,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
real *b, integer *ldb, real *alpha, real *beta, real *u, integer * real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
@ -864,12 +864,13 @@ f"> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real anorm, bnorm; real anorm, bnorm;
logical wantq; logical wantq;
extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *,
integer *); integer *);
logical wantu, wantv; logical wantu, wantv;
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
extern /* Subroutine */ int xerbla_(char *, integer *), stgsja_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void stgsja_(
char *, char *, char *, integer *, integer *, integer *, integer * char *, char *, char *, integer *, integer *, integer *, integer *
, integer *, real *, integer *, real *, integer *, real *, real *, , integer *, real *, integer *, real *, integer *, real *, real *,
real *, real *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, real *,
@ -944,8 +945,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGGSVD", &i__1); xerbla_("SGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1006,7 +1007,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of SGGSVD */ /* End of SGGSVD */

14
lapack-netlib/SRC/DEPRECATED/sggsvp.c
View File

@ -768,7 +768,7 @@ f"> */
/* > a matrix. It may be replaced by a better rank determination strategy. */ /* > a matrix. It may be replaced by a better rank determination strategy. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real * real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
@ -783,13 +783,15 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int sgeqr2_(integer *, integer *, real *, integer extern /* Subroutine */ void sgeqr2_(integer *, integer *, real *, integer
*, real *, real *, integer *), sgerq2_(integer *, integer *, real *, real *, real *, integer *), sgerq2_(integer *, integer *, real
*, integer *, real *, real *, integer *), sorg2r_(integer *, *, integer *, real *, real *, integer *), sorg2r_(integer *,
integer *, integer *, real *, integer *, real *, real *, integer * integer *, integer *, real *, integer *, real *, real *, integer *
), sorm2r_(char *, char *, integer *, integer *, integer *, real * ), sorm2r_(char *, char *, integer *, integer *, integer *, real *
, integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *, , integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *,
real *, integer *, real *, real *, integer *, real *, integer *), xerbla_(char *, integer *), sgeqpf_( real *, integer *, real *, real *, integer *, real *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void sgeqpf_(
integer *, integer *, real *, integer *, integer *, real *, real * integer *, integer *, real *, integer *, integer *, real *, real *
, integer *), slacpy_(char *, integer *, integer *, real *, , integer *), slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
@ -861,8 +863,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGGSVP", &i__1); xerbla_("SGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1111,7 +1113,7 @@ f"> */
} }
return 0; return;
/* End of SGGSVP */ /* End of SGGSVP */

10
lapack-netlib/SRC/DEPRECATED/slahrd.c
View File

@ -685,7 +685,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a, /* Subroutine */ void slahrd_(integer *n, integer *k, integer *nb, real *a,
integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy) integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy)
{ {
/* System generated locals */ /* System generated locals */
@ -695,14 +695,14 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *),
sgemv_(char *, integer *, integer *, real *, real *, integer *, sgemv_(char *, integer *, integer *, real *, real *, integer *,
real *, integer *, real *, real *, integer *), scopy_( real *, integer *, real *, real *, integer *), scopy_(
integer *, real *, integer *, real *, integer *), saxpy_(integer * integer *, real *, integer *, real *, integer *), saxpy_(integer *
, real *, real *, integer *, real *, integer *), strmv_(char *, , real *, real *, integer *, real *, integer *), strmv_(char *,
char *, char *, integer *, real *, integer *, real *, integer *); char *, char *, integer *, real *, integer *, real *, integer *);
real ei; real ei;
extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *,
real *); real *);
@ -731,7 +731,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -840,7 +840,7 @@ f"> */
} }
a[*k + *nb + *nb * a_dim1] = ei; a[*k + *nb + *nb * a_dim1] = ei;
return 0; return;
/* End of SLAHRD */ /* End of SLAHRD */

10
lapack-netlib/SRC/DEPRECATED/slatzm.c
View File

@ -665,7 +665,7 @@ f"> */
/* > \ingroup realOTHERcomputational */ /* > \ingroup realOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v, /* Subroutine */ void slatzm_(char *side, integer *m, integer *n, real *v,
integer *incv, real *tau, real *c1, real *c2, integer *ldc, real * integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
work) work)
{ {
@ -674,10 +674,10 @@ f"> */
real r__1; real r__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, extern /* Subroutine */ void sger_(integer *, integer *, real *, real *,
integer *, real *, integer *, real *, integer *); integer *, real *, integer *, real *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *,
real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *),
saxpy_(integer *, real *, real *, integer *, real *, integer *); saxpy_(integer *, real *, real *, integer *, real *, integer *);
@ -703,7 +703,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || *tau == 0.f) { if (f2cmin(*m,*n) == 0 || *tau == 0.f) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -744,7 +744,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of SLATZM */ /* End of SLATZM */

20
lapack-netlib/SRC/DEPRECATED/stzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda, /* Subroutine */ void stzrqf_(integer *m, integer *n, real *a, integer *lda,
real *tau, integer *info) real *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -660,14 +660,16 @@ f"> */
real r__1; real r__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, extern /* Subroutine */ void sger_(integer *, integer *, real *, real *,
integer *, real *, integer *, real *, integer *); integer *, real *, integer *, real *, integer *);
integer i__, k; integer i__, k;
extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *,
real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *,
real *, integer *), xerbla_(char *, integer *), slarfg_( real *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void slarfg_(
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
@ -699,14 +701,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("STZRQF", &i__1); xerbla_("STZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -764,7 +766,7 @@ f"> */
} }
} }
return 0; return;
/* End of STZRQF */ /* End of STZRQF */

36
lapack-netlib/SRC/DEPRECATED/zgegs.c
View File

@ -740,7 +740,7 @@ rices</b> */
/* > \ingroup complex16GEeigen */ /* > \ingroup complex16GEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n, /* Subroutine */ void zgegs_(char *jobvsl, char *jobvsr, integer *n,
doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex * integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
@ -760,34 +760,34 @@ rices</b> */
logical ilvsr; logical ilvsr;
integer irows, nb; integer irows, nb;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublecomplex *,
integer *, integer *), zggbal_(char *, integer *, integer *, integer *), zggbal_(char *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
, integer *, doublereal *, doublereal *, doublereal *, integer *); , integer *, doublereal *, doublereal *, doublereal *, integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
doublereal bignum; doublereal bignum;
integer ijobvl, iright; integer ijobvl, iright;
extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
), zlascl_(char *, integer *, integer *, ), zlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, doublecomplex *,
integer *, integer *); integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *, integer * integer *, doublecomplex *, doublecomplex *, integer *, integer *
); );
doublereal anrmto; doublereal anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
doublereal bnrmto; doublereal bnrmto;
extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, extern /* Subroutine */ void zlacpy_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *), doublecomplex *, integer *, doublecomplex *, integer *),
zhgeqz_(char *, char *, char *, integer *, integer *, integer *, zhgeqz_(char *, char *, char *, integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
@ -799,7 +799,7 @@ rices</b> */
doublereal smlnum; doublereal smlnum;
integer irwork, lwkopt; integer irwork, lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, extern /* Subroutine */ void zungqr_(integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, integer *), zunmqr_(char *, char *, integer *, integer integer *, integer *), zunmqr_(char *, char *, integer *, integer
*, integer *, doublecomplex *, integer *, doublecomplex *, *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -903,16 +903,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEGS ", &i__1); xerbla_("ZGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -939,7 +939,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -960,7 +960,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1097,13 +1097,13 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
zlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, & zlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1112,20 +1112,20 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
zlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & zlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1].r = (doublereal) lwkopt, work[1].i = 0.; work[1].r = (doublereal) lwkopt, work[1].i = 0.;
return 0; return;
/* End of ZGEGS */ /* End of ZGEGS */

28
lapack-netlib/SRC/DEPRECATED/zgegv.c
View File

@ -799,7 +799,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n, /* Subroutine */ void zgegv_(char *jobvl, char *jobvr, integer *n,
doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
*ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
@ -823,13 +823,13 @@ rices</b> */
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer jr; integer jr;
doublereal salfai; doublereal salfai;
extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublecomplex *,
integer *, integer *), zggbal_(char *, integer *, integer *, integer *), zggbal_(char *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
, integer *, doublereal *, doublereal *, doublereal *, integer *); , integer *, doublereal *, doublereal *, doublereal *, integer *);
doublereal salfar, safmin; doublereal salfar, safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal safmax; doublereal safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
@ -839,18 +839,18 @@ rices</b> */
integer *, doublereal *); integer *, doublereal *);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
), zlascl_(char *, integer *, integer *, ), zlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, doublecomplex *,
integer *, integer *); integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *, integer * integer *, doublecomplex *, doublecomplex *, integer *, integer *
); );
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, extern /* Subroutine */ void zlacpy_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *), doublecomplex *, integer *, doublecomplex *, integer *),
zlaset_(char *, integer *, integer *, doublecomplex *, zlaset_(char *, integer *, integer *, doublecomplex *,
doublecomplex *, doublecomplex *, integer *), ztgevc_( doublecomplex *, doublecomplex *, integer *), ztgevc_(
@ -864,7 +864,7 @@ rices</b> */
integer *, doublecomplex *, integer *, doublereal *, integer *); integer *, doublecomplex *, integer *, doublereal *, integer *);
integer irwork, lwkopt; integer irwork, lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, extern /* Subroutine */ void zungqr_(integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, integer *), zunmqr_(char *, char *, integer *, integer integer *, integer *), zunmqr_(char *, char *, integer *, integer
*, integer *, doublecomplex *, integer *, doublecomplex *, *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -972,16 +972,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEGV ", &i__1); xerbla_("ZGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1008,7 +1008,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1029,7 +1029,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1356,7 +1356,7 @@ L60:
L80: L80:
work[1].r = (doublereal) lwkopt, work[1].i = 0.; work[1].r = (doublereal) lwkopt, work[1].i = 0.;
return 0; return;
/* End of ZGEGV */ /* End of ZGEGV */

21
lapack-netlib/SRC/DEPRECATED/zgelsx.c
View File

@ -700,7 +700,7 @@ f"> */
/* > \ingroup complex16GEsolve */ /* > \ingroup complex16GEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs, /* Subroutine */ void zgelsx_(integer *m, integer *n, integer *nrhs,
doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
doublereal *rwork, integer *info) doublereal *rwork, integer *info)
@ -713,7 +713,7 @@ f"> */
doublereal anrm, bnrm, smin, smax; doublereal anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
doublecomplex c1, c2, s1, s2, t1, t2; doublecomplex c1, c2, s1, s2, t1, t2;
extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *,
integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *,
doublecomplex *, integer *), doublecomplex *, integer *),
zlaic1_(integer *, integer *, doublecomplex *, doublereal *, zlaic1_(integer *, integer *, doublecomplex *, doublereal *,
@ -721,13 +721,14 @@ f"> */
doublecomplex *), dlabad_(doublereal *, doublereal *); doublecomplex *), dlabad_(doublereal *, doublereal *);
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer mn; integer mn;
extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void zunm2r_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *); doublecomplex *, integer *, doublecomplex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int zlascl_(char *, integer *, integer *, extern /* Subroutine */ void zlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, doublecomplex *,
integer *, integer *), zgeqpf_(integer *, integer *, integer *, integer *), zgeqpf_(integer *, integer *,
doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *,
@ -735,7 +736,7 @@ f"> */
integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *,
doublecomplex *, integer *); doublecomplex *, integer *);
doublereal sminpr, smaxpr, smlnum; doublereal sminpr, smaxpr, smlnum;
extern /* Subroutine */ int zlatzm_(char *, integer *, integer *, extern /* Subroutine */ void zlatzm_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), ztzrqf_( doublecomplex *, integer *, doublecomplex *), ztzrqf_(
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -788,8 +789,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGELSX", &i__1); xerbla_("ZGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -798,7 +799,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -1030,7 +1031,7 @@ L70:
L100: L100:
return 0; return;
/* End of ZGELSX */ /* End of ZGELSX */

15
lapack-netlib/SRC/DEPRECATED/zgeqpf.c
View File

@ -661,7 +661,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a, /* Subroutine */ void zgeqpf_(integer *m, integer *n, doublecomplex *a,
integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
doublereal *rwork, integer *info) doublereal *rwork, integer *info)
{ {
@ -675,7 +675,7 @@ f"> */
integer i__, j; integer i__, j;
doublereal tol3z; doublereal tol3z;
integer itemp; integer itemp;
extern /* Subroutine */ int zlarf_(char *, integer *, integer *, extern /* Subroutine */ void zlarf_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, doublecomplex *), zswap_(integer *, integer *, doublecomplex *), zswap_(integer *,
doublecomplex *, integer *, doublecomplex *, integer *), zgeqr2_( doublecomplex *, integer *, doublecomplex *, integer *), zgeqr2_(
@ -685,11 +685,12 @@ f"> */
integer ma; integer ma;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer mn; integer mn;
extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void zunm2r_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex *, integer *, doublecomplex *, integer *);
extern integer idamax_(integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *);
extern /* Subroutine */ int xerbla_(char *, integer *), zlarfg_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void zlarfg_(
integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *,
doublecomplex *); doublecomplex *);
doublecomplex aii; doublecomplex aii;
@ -727,8 +728,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEQPF", &i__1); xerbla_("ZGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -867,7 +868,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of ZGEQPF */ /* End of ZGEQPF */

14
lapack-netlib/SRC/DEPRECATED/zggsvd.c
View File

@ -848,7 +848,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void zggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, doublecomplex *a, integer *n, integer *p, integer *k, integer *l, doublecomplex *a,
integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha,
doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v,
@ -867,14 +867,14 @@ f"> */
integer ncallmycycle, i__, j; integer ncallmycycle, i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
doublereal anorm, bnorm; doublereal anorm, bnorm;
extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
extern /* Subroutine */ int ztgsja_(char *, char *, char *, integer *, extern /* Subroutine */ void ztgsja_(char *, char *, char *, integer *,
integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *, integer *, doublecomplex *,
integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *,
doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *,
@ -953,8 +953,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGGSVD", &i__1); xerbla_("ZGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1014,7 +1014,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of ZGGSVD */ /* End of ZGGSVD */

17
lapack-netlib/SRC/DEPRECATED/zggsvp.c
View File

@ -777,7 +777,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void zggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex
*b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer
@ -793,7 +793,7 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int zgeqr2_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgeqr2_(integer *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *), zgerq2_( integer *, doublecomplex *, doublecomplex *, integer *), zgerq2_(
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *), zung2r_(integer *, integer *, doublecomplex *, integer *), zung2r_(integer *, integer *,
@ -802,14 +802,15 @@ f"> */
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, doublecomplex *, integer *), xerbla_( integer *, doublecomplex *, integer *);
char *, integer *), zgeqpf_(integer *, integer *, extern int xerbla_(char *, integer *, ftnlen);
extern void zgeqpf_(integer *, integer *,
doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *,
doublecomplex *, doublereal *, integer *), zlacpy_(char *, doublecomplex *, doublereal *, integer *), zlacpy_(char *,
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
integer *); integer *);
logical forwrd; logical forwrd;
extern /* Subroutine */ int zlaset_(char *, integer *, integer *, extern /* Subroutine */ void zlaset_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlapmt_(logical *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlapmt_(logical *, integer *, integer *, doublecomplex *,
integer *, integer *); integer *, integer *);
@ -878,8 +879,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGGSVP", &i__1); xerbla_("ZGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1137,7 +1138,7 @@ f"> */
} }
return 0; return;
/* End of ZGGSVP */ /* End of ZGGSVP */

10
lapack-netlib/SRC/DEPRECATED/zlahrd.c
View File

@ -684,7 +684,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb, /* Subroutine */ void zlahrd_(integer *n, integer *k, integer *nb,
doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
integer *ldt, doublecomplex *y, integer *ldy) integer *ldt, doublecomplex *y, integer *ldy)
{ {
@ -695,7 +695,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int zscal_(integer *, doublecomplex *, extern /* Subroutine */ void zscal_(integer *, doublecomplex *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *), integer *, doublecomplex *, doublecomplex *, integer *),
@ -705,7 +705,7 @@ f"> */
char *, integer *, doublecomplex *, integer *, doublecomplex *, char *, integer *, doublecomplex *, integer *, doublecomplex *,
integer *); integer *);
doublecomplex ei; doublecomplex ei;
extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *,
doublecomplex *, integer *); doublecomplex *, integer *);
@ -735,7 +735,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -859,7 +859,7 @@ f"> */
i__1 = *k + *nb + *nb * a_dim1; i__1 = *k + *nb + *nb * a_dim1;
a[i__1].r = ei.r, a[i__1].i = ei.i; a[i__1].r = ei.r, a[i__1].i = ei.i;
return 0; return;
/* End of ZLAHRD */ /* End of ZLAHRD */

8
lapack-netlib/SRC/DEPRECATED/zlatzm.c
View File

@ -666,7 +666,7 @@ f"> */
/* > \ingroup complex16OTHERcomputational */ /* > \ingroup complex16OTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zlatzm_(char *side, integer *m, integer *n, /* Subroutine */ void zlatzm_(char *side, integer *m, integer *n,
doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
c1, doublecomplex *c2, integer *ldc, doublecomplex *work) c1, doublecomplex *c2, integer *ldc, doublecomplex *work)
{ {
@ -676,7 +676,7 @@ f"> */
/* Local variables */ /* Local variables */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *,
@ -710,7 +710,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || tau->r == 0. && tau->i == 0.) { if (f2cmin(*m,*n) == 0 || tau->r == 0. && tau->i == 0.) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -753,7 +753,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of ZLATZM */ /* End of ZLATZM */

19
lapack-netlib/SRC/DEPRECATED/ztzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a, /* Subroutine */ void ztzrqf_(integer *m, integer *n, doublecomplex *a,
integer *lda, doublecomplex *tau, integer *info) integer *lda, doublecomplex *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -662,16 +662,17 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
doublecomplex alpha; doublecomplex alpha;
extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *); integer *, doublecomplex *, doublecomplex *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( doublecomplex *, integer *, doublecomplex *, integer *);
char *, integer *), zlarfg_(integer *, doublecomplex *, extern int xerbla_(char *, integer *, ftnlen);
extern void zlarfg_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *,
doublecomplex *, integer *); doublecomplex *, integer *);
@ -704,14 +705,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZTZRQF", &i__1); xerbla_("ZTZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -784,7 +785,7 @@ f"> */
} }
} }
return 0; return;
/* End of ZTZRQF */ /* End of ZTZRQF */

22
lapack-netlib/SRC/cbbcsd.c
View File

@ -849,7 +849,7 @@ f"> */
/* > \ingroup complexOTHERcomputational */ /* > \ingroup complexOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * /* Subroutine */ void cbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char *
jobv2t, char *trans, integer *m, integer *p, integer *q, real *theta, jobv2t, char *trans, integer *m, integer *p, integer *q, real *theta,
real *phi, complex *u1, integer *ldu1, complex *u2, integer *ldu2, real *phi, complex *u1, integer *ldu1, complex *u2, integer *ldu2,
complex *v1t, integer *ldv1t, complex *v2t, integer *ldv2t, real * complex *v1t, integer *ldv1t, complex *v2t, integer *ldv2t, real *
@ -869,14 +869,14 @@ f"> */
real thetamin, thetamax; real thetamin, thetamax;
logical restart11, restart12, restart21, restart22; logical restart11, restart12, restart21, restart22;
integer iu1cs, iu2cs; integer iu1cs, iu2cs;
extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *)
; ;
integer iu1sn, iu2sn, i__, j; integer iu1sn, iu2sn, i__, j;
real r__; real r__;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *); integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int clasr_(char *, char *, char *, integer *, extern /* Subroutine */ void clasr_(char *, char *, char *, integer *,
integer *, real *, real *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *,
integer *); integer *);
integer maxit; integer maxit;
@ -888,12 +888,12 @@ f"> */
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
real thresh, tolmul; real thresh, tolmul;
extern /* Subroutine */ int mecago_(); extern /* Subroutine */ void mecago_();
logical lquery; logical lquery;
real b11bulge; real b11bulge;
logical wantv1t, wantv2t; logical wantv1t, wantv2t;
real b12bulge, b21bulge, b22bulge, eps, tol; real b12bulge, b21bulge, b22bulge, eps, tol;
extern /* Subroutine */ int slartgp_(real *, real *, real *, real *, real extern /* Subroutine */ void slartgp_(real *, real *, real *, real *, real
*), slartgs_(real *, real *, real *, real *, real *); *), slartgs_(real *, real *, real *, real *, real *);
@ -966,7 +966,7 @@ f"> */
if (*info == 0 && *q == 0) { if (*info == 0 && *q == 0) {
lrworkmin = 1; lrworkmin = 1;
rwork[1] = (real) lrworkmin; rwork[1] = (real) lrworkmin;
return 0; return;
} }
/* Compute workspace */ /* Compute workspace */
@ -991,9 +991,9 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CBBCSD", &i__1, (ftnlen)6); xerbla_("CBBCSD", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1086,7 +1086,7 @@ f"> */
++(*info); ++(*info);
} }
} }
return 0; return;
} }
iter = iter + imax - imin; iter = iter + imax - imin;
@ -1800,7 +1800,7 @@ f"> */
} }
return 0; return;
/* End of CBBCSD */ /* End of CBBCSD */

25
lapack-netlib/SRC/cbdsqr.c
View File

@ -742,7 +742,7 @@ f"> */
/* > \ingroup complexOTHERcomputational */ /* > \ingroup complexOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * /* Subroutine */ void cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork,
integer *info) integer *info)
@ -761,23 +761,23 @@ f"> */
real cosl; real cosl;
integer isub, iter; integer isub, iter;
real unfl, sinl, cosr, smin, smax, sinr; real unfl, sinl, cosr, smin, smax, sinr;
extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *)
; ;
real f, g, h__; real f, g, h__;
integer i__, j, m; integer i__, j, m;
real r__; real r__;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real oldcs; real oldcs;
extern /* Subroutine */ int clasr_(char *, char *, char *, integer *, extern /* Subroutine */ void clasr_(char *, char *, char *, integer *,
integer *, real *, real *, complex *, integer *); integer *, real *, real *, complex *, integer *);
integer oldll; integer oldll;
real shift, sigmn, oldsn; real shift, sigmn, oldsn;
extern /* Subroutine */ int cswap_(integer *, complex *, integer *, extern /* Subroutine */ void cswap_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
integer maxit; integer maxit;
real sminl, sigmx; real sminl, sigmx;
logical lower; logical lower;
extern /* Subroutine */ int csrot_(integer *, complex *, integer *, extern /* Subroutine */ void csrot_(integer *, complex *, integer *,
complex *, integer *, real *, real *), slasq1_(integer *, real *, complex *, integer *, real *, real *), slasq1_(integer *, real *,
real *, real *, integer *), slasv2_(real *, real *, real *, real * real *, real *, integer *), slasv2_(real *, real *, real *, real *
, real *, real *, real *, real *, real *); , real *, real *, real *, real *, real *);
@ -785,10 +785,11 @@ f"> */
integer ll; integer ll;
real sn, mu; real sn, mu;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*), xerbla_(char *, integer *, ftnlen); *);
extern int xerbla_(char *, integer *, ftnlen);
real sminoa; real sminoa;
extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real *
); );
real thresh; real thresh;
logical rotate; logical rotate;
@ -846,10 +847,10 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CBDSQR", &i__1, (ftnlen)6); xerbla_("CBDSQR", &i__1, (ftnlen)6);
return 0; return;
} }
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
if (*n == 1) { if (*n == 1) {
goto L160; goto L160;
@ -867,7 +868,7 @@ f"> */
/* If INFO equals 2, dqds didn't finish, try to finish */ /* If INFO equals 2, dqds didn't finish, try to finish */
if (*info != 2) { if (*info != 2) {
return 0; return;
} }
*info = 0; *info = 0;
} }
@ -1492,7 +1493,7 @@ L200:
/* L210: */ /* L210: */
} }
L220: L220:
return 0; return;
/* End of CBDSQR */ /* End of CBDSQR */

19
lapack-netlib/SRC/cgbbrd.c
View File

@ -712,7 +712,7 @@ f"> */
/* > \ingroup complexGBcomputational */ /* > \ingroup complexGBcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, /* Subroutine */ void cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, integer *kl, integer *ku, complex *ab, integer *ldab, real *d__,
real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, real *e, complex *q, integer *ldq, complex *pt, integer *ldpt,
complex *c__, integer *ldc, complex *work, real *rwork, integer *info) complex *c__, integer *ldc, complex *work, real *rwork, integer *info)
@ -725,11 +725,11 @@ f"> */
/* Local variables */ /* Local variables */
integer inca; integer inca;
real abst; real abst;
extern /* Subroutine */ int crot_(integer *, complex *, integer *, extern /* Subroutine */ void crot_(integer *, complex *, integer *,
complex *, integer *, real *, complex *); complex *, integer *, real *, complex *);
integer i__, j, l; integer i__, j, l;
complex t; complex t;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *); integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantb, wantc; logical wantb, wantc;
@ -742,10 +742,11 @@ f"> */
complex rb; complex rb;
integer ml, nr, mu; integer ml, nr, mu;
complex rs; complex rs;
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), clartg_(complex *, *, complex *, complex *, integer *), clartg_(complex *,
complex *, real *, complex *, complex *), xerbla_(char *, integer complex *, real *, complex *, complex *);
*, ftnlen), clargv_(integer *, complex *, integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void clargv_(integer *, complex *, integer *, complex *,
integer *, real *, integer *), clartv_(integer *, complex *, integer *, real *, integer *), clartv_(integer *, complex *,
integer *, complex *, integer *, real *, complex *, integer *); integer *, complex *, integer *, real *, complex *, integer *);
integer kb1, ml0; integer kb1, ml0;
@ -813,7 +814,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBBRD", &i__1, (ftnlen)6); xerbla_("CGBBRD", &i__1, (ftnlen)6);
return 0; return;
} }
/* Initialize Q and P**H to the unit matrix, if needed */ /* Initialize Q and P**H to the unit matrix, if needed */
@ -828,7 +829,7 @@ f"> */
/* Quick return if possible. */ /* Quick return if possible. */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
minmn = f2cmin(*m,*n); minmn = f2cmin(*m,*n);
@ -1237,7 +1238,7 @@ f"> */
} }
/* L120: */ /* L120: */
} }
return 0; return;
/* End of CGBBRD */ /* End of CGBBRD */

22
lapack-netlib/SRC/cgbcon.c
View File

@ -664,7 +664,7 @@ f"> */
/* > \ingroup complexGBcomputational */ /* > \ingroup complexGBcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, /* Subroutine */ void cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
complex *work, real *rwork, integer *info) complex *work, real *rwork, integer *info)
{ {
@ -681,20 +681,20 @@ f"> */
*, complex *, integer *); *, complex *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer isave[3]; integer isave[3];
extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, extern /* Subroutine */ void caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
logical lnoti; logical lnoti;
extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real
*, integer *, integer *); *, integer *, integer *);
integer kd, lm, jp, ix; integer kd, lm, jp, ix;
extern integer icamax_(integer *, complex *, integer *); extern integer icamax_(integer *, complex *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clatbs_(char *, char *, char *, char *, extern /* Subroutine */ void clatbs_(char *, char *, char *, char *,
integer *, integer *, complex *, integer *, complex *, real *, integer *, integer *, complex *, integer *, complex *, real *,
real *, integer *), xerbla_(char * real *, integer *);
, integer *, ftnlen); extern int xerbla_(char * , integer *, ftnlen);
real ainvnm; real ainvnm;
extern /* Subroutine */ int csrscl_(integer *, real *, complex *, integer extern /* Subroutine */ void csrscl_(integer *, real *, complex *, integer
*); *);
logical onenrm; logical onenrm;
char normin[1]; char normin[1];
@ -739,7 +739,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBCON", &i__1, (ftnlen)6); xerbla_("CGBCON", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -747,9 +747,9 @@ f"> */
*rcond = 0.f; *rcond = 0.f;
if (*n == 0) { if (*n == 0) {
*rcond = 1.f; *rcond = 1.f;
return 0; return;
} else if (*anorm == 0.f) { } else if (*anorm == 0.f) {
return 0; return;
} }
smlnum = slamch_("Safe minimum"); smlnum = slamch_("Safe minimum");
@ -863,7 +863,7 @@ L10:
} }
L40: L40:
return 0; return;
/* End of CGBCON */ /* End of CGBCON */

12
lapack-netlib/SRC/cgbequ.c
View File

@ -674,7 +674,7 @@ f"> */
/* > \ingroup complexGBcomputational */ /* > \ingroup complexGBcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, /* Subroutine */ void cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
*colcnd, real *amax, integer *info) *colcnd, real *amax, integer *info)
{ {
@ -725,7 +725,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBEQU", &i__1, (ftnlen)6); xerbla_("CGBEQU", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -734,7 +734,7 @@ f"> */
*rowcnd = 1.f; *rowcnd = 1.f;
*colcnd = 1.f; *colcnd = 1.f;
*amax = 0.f; *amax = 0.f;
return 0; return;
} }
/* Get machine constants. */ /* Get machine constants. */
@ -795,7 +795,7 @@ f"> */
for (i__ = 1; i__ <= i__1; ++i__) { for (i__ = 1; i__ <= i__1; ++i__) {
if (r__[i__] == 0.f) { if (r__[i__] == 0.f) {
*info = i__; *info = i__;
return 0; return;
} }
/* L50: */ /* L50: */
} }
@ -872,7 +872,7 @@ f"> */
for (j = 1; j <= i__1; ++j) { for (j = 1; j <= i__1; ++j) {
if (c__[j] == 0.f) { if (c__[j] == 0.f) {
*info = *m + j; *info = *m + j;
return 0; return;
} }
/* L110: */ /* L110: */
} }
@ -895,7 +895,7 @@ f"> */
*colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum);
} }
return 0; return;
/* End of CGBEQU */ /* End of CGBEQU */

12
lapack-netlib/SRC/cgbequb.c
View File

@ -681,7 +681,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \ingroup complexGBcomputational */ /* > \ingroup complexGBcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer * /* Subroutine */ void cgbequb_(integer *m, integer *n, integer *kl, integer *
ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd,
real *colcnd, real *amax, integer *info) real *colcnd, real *amax, integer *info)
{ {
@ -732,7 +732,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBEQUB", &i__1, (ftnlen)7); xerbla_("CGBEQUB", &i__1, (ftnlen)7);
return 0; return;
} }
/* Quick return if possible. */ /* Quick return if possible. */
@ -741,7 +741,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
*rowcnd = 1.f; *rowcnd = 1.f;
*colcnd = 1.f; *colcnd = 1.f;
*amax = 0.f; *amax = 0.f;
return 0; return;
} }
/* Get machine constants. Assume SMLNUM is a power of the radix. */ /* Get machine constants. Assume SMLNUM is a power of the radix. */
@ -811,7 +811,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
for (i__ = 1; i__ <= i__1; ++i__) { for (i__ = 1; i__ <= i__1; ++i__) {
if (r__[i__] == 0.f) { if (r__[i__] == 0.f) {
*info = i__; *info = i__;
return 0; return;
} }
/* L50: */ /* L50: */
} }
@ -891,7 +891,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
for (j = 1; j <= i__1; ++j) { for (j = 1; j <= i__1; ++j) {
if (c__[j] == 0.f) { if (c__[j] == 0.f) {
*info = *m + j; *info = *m + j;
return 0; return;
} }
/* L110: */ /* L110: */
} }
@ -914,7 +914,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
*colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum);
} }
return 0; return;
/* End of CGBEQUB */ /* End of CGBEQUB */

17
lapack-netlib/SRC/cgbrfs.c
View File

@ -730,7 +730,7 @@ f"> */
/* > \ingroup complexGBcomputational */ /* > \ingroup complexGBcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer * /* Subroutine */ void cgbrfs_(char *trans, integer *n, integer *kl, integer *
ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer * ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer * ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
ldx, real *ferr, real *berr, complex *work, real *rwork, integer * ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
@ -747,23 +747,24 @@ f"> */
real safe1, safe2; real safe1, safe2;
integer i__, j, k; integer i__, j, k;
real s; real s;
extern /* Subroutine */ int cgbmv_(char *, integer *, integer *, integer * extern /* Subroutine */ void cgbmv_(char *, integer *, integer *, integer *
, integer *, complex *, complex *, integer *, complex *, integer * , integer *, complex *, complex *, integer *, complex *, integer *
, complex *, complex *, integer *); , complex *, complex *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer isave[3]; integer isave[3];
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *), caxpy_(integer *, complex *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
integer count; integer count;
extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real
*, integer *, integer *); *, integer *, integer *);
integer kk; integer kk;
real xk; real xk;
extern real slamch_(char *); extern real slamch_(char *);
integer nz; integer nz;
real safmin; real safmin;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgbtrs_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void cgbtrs_(
char *, integer *, integer *, integer *, integer *, complex *, char *, integer *, integer *, integer *, integer *, complex *,
integer *, integer *, complex *, integer *, integer *); integer *, integer *, complex *, integer *, integer *);
logical notran; logical notran;
@ -827,7 +828,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBRFS", &i__1, (ftnlen)6); xerbla_("CGBRFS", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -839,7 +840,7 @@ f"> */
berr[j] = 0.f; berr[j] = 0.f;
/* L10: */ /* L10: */
} }
return 0; return;
} }
if (notran) { if (notran) {
@ -1078,7 +1079,7 @@ L100:
/* L140: */ /* L140: */
} }
return 0; return;
/* End of CGBRFS */ /* End of CGBRFS */

13
lapack-netlib/SRC/cgbsv.c
View File

@ -684,7 +684,7 @@ e driver) */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer * /* Subroutine */ void cgbsv_(integer *n, integer *kl, integer *ku, integer *
nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer * nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
ldb, integer *info) ldb, integer *info)
{ {
@ -692,9 +692,10 @@ e driver) */
integer ab_dim1, ab_offset, b_dim1, b_offset, i__1; integer ab_dim1, ab_offset, b_dim1, b_offset, i__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int cgbtrf_(integer *, integer *, integer *, extern /* Subroutine */ void cgbtrf_(integer *, integer *, integer *,
integer *, complex *, integer *, integer *, integer *), xerbla_( integer *, complex *, integer *, integer *, integer *);
char *, integer *, ftnlen), cgbtrs_(char *, integer *, integer *, extern int xerbla_( char *, integer *, ftnlen);
extern void cgbtrs_(char *, integer *, integer *,
integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *,
integer *, integer *); integer *, integer *);
@ -737,7 +738,7 @@ e driver) */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBSV ", &i__1, (ftnlen)6); xerbla_("CGBSV ", &i__1, (ftnlen)6);
return 0; return;
} }
/* Compute the LU factorization of the band matrix A. */ /* Compute the LU factorization of the band matrix A. */
@ -750,7 +751,7 @@ e driver) */
cgbtrs_("No transpose", n, kl, ku, nrhs, &ab[ab_offset], ldab, &ipiv[ cgbtrs_("No transpose", n, kl, ku, nrhs, &ab[ab_offset], ldab, &ipiv[
1], &b[b_offset], ldb, info); 1], &b[b_offset], ldb, info);
} }
return 0; return;
/* End of CGBSV */ /* End of CGBSV */

24
lapack-netlib/SRC/cgbsvx.c
View File

@ -893,7 +893,7 @@ f"> */
/* > \ingroup complexGBsolve */ /* > \ingroup complexGBsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, /* Subroutine */ void cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
@ -911,13 +911,13 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real rcmin, rcmax, anorm; real rcmin, rcmax, anorm;
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
logical equil; logical equil;
integer j1, j2; integer j1, j2;
extern real clangb_(char *, integer *, integer *, integer *, complex *, extern real clangb_(char *, integer *, integer *, integer *, complex *,
integer *, real *); integer *, real *);
extern /* Subroutine */ int claqgb_(integer *, integer *, integer *, extern /* Subroutine */ void claqgb_(integer *, integer *, integer *,
integer *, complex *, integer *, real *, real *, real *, real *, integer *, complex *, integer *, real *, real *, real *, real *,
real *, char *), cgbcon_(char *, integer *, integer *, real *, char *), cgbcon_(char *, integer *, integer *,
integer *, complex *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *, real *, real *,
@ -925,22 +925,22 @@ f"> */
real colcnd; real colcnd;
extern real clantb_(char *, char *, char *, integer *, integer *, complex extern real clantb_(char *, char *, char *, integer *, integer *, complex
*, integer *, real *); *, integer *, real *);
extern /* Subroutine */ int cgbequ_(integer *, integer *, integer *, extern /* Subroutine */ void cgbequ_(integer *, integer *, integer *,
integer *, complex *, integer *, real *, real *, real *, real *, integer *, complex *, integer *, real *, real *, real *, real *,
real *, integer *); real *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int cgbrfs_(char *, integer *, integer *, integer extern /* Subroutine */ void cgbrfs_(char *, integer *, integer *, integer
*, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer
*, complex *, integer *, complex *, integer *, real *, real *, *, complex *, integer *, complex *, integer *, real *, real *,
complex *, real *, integer *), cgbtrf_(integer *, integer complex *, real *, integer *), cgbtrf_(integer *, integer
*, integer *, integer *, complex *, integer *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer
*); *);
logical nofact; logical nofact;
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), xerbla_(char *, *, integer *, complex *, integer *);
integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int cgbtrs_(char *, integer *, integer *, integer extern /* Subroutine */ void cgbtrs_(char *, integer *, integer *, integer
*, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *, integer
*, integer *); *, integer *);
integer infequ; integer infequ;
@ -1080,7 +1080,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBSVX", &i__1, (ftnlen)6); xerbla_("CGBSVX", &i__1, (ftnlen)6);
return 0; return;
} }
if (equil) { if (equil) {
@ -1195,7 +1195,7 @@ f"> */
} }
rwork[1] = rpvgrw; rwork[1] = rpvgrw;
*rcond = 0.f; *rcond = 0.f;
return 0; return;
} }
} }
@ -1289,7 +1289,7 @@ f"> */
} }
rwork[1] = rpvgrw; rwork[1] = rpvgrw;
return 0; return;
/* End of CGBSVX */ /* End of CGBSVX */

22
lapack-netlib/SRC/cgbsvxx.c
View File

@ -1080,7 +1080,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \ingroup complexGBsolve */ /* > \ingroup complexGBsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer * /* Subroutine */ void cgbsvxx_(char *fact, char *trans, integer *n, integer *
kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex * kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
@ -1102,19 +1102,19 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real rcmin, rcmax; real rcmin, rcmax;
logical equil; logical equil;
extern /* Subroutine */ int claqgb_(integer *, integer *, integer *, extern /* Subroutine */ void claqgb_(integer *, integer *, integer *,
integer *, complex *, integer *, real *, real *, real *, real *, integer *, complex *, integer *, real *, real *, real *, real *,
real *, char *); real *, char *);
real colcnd; real colcnd;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int cgbtrf_(integer *, integer *, integer *, extern /* Subroutine */ void cgbtrf_(integer *, integer *, integer *,
integer *, complex *, integer *, integer *, integer *); integer *, complex *, integer *, integer *, integer *);
logical nofact; logical nofact;
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), xerbla_(char *, *, integer *, complex *, integer *);
integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int cgbtrs_(char *, integer *, integer *, integer extern /* Subroutine */ void cgbtrs_(char *, integer *, integer *, integer
*, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *, integer
*, integer *); *, integer *);
integer infequ; integer infequ;
@ -1123,7 +1123,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
logical notran; logical notran;
real smlnum; real smlnum;
logical rowequ; logical rowequ;
extern /* Subroutine */ int clascl2_(integer *, integer *, real *, extern /* Subroutine */ void clascl2_(integer *, integer *, real *,
complex *, integer *), cgbequb_(integer *, integer *, integer *, complex *, integer *), cgbequb_(integer *, integer *, integer *,
integer *, complex *, integer *, real *, real *, real *, real *, integer *, complex *, integer *, real *, real *, real *, real *,
real *, integer *), cgbrfsx_(char *, char *, integer *, integer *, real *, integer *), cgbrfsx_(char *, char *, integer *, integer *,
@ -1270,7 +1270,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBSVXX", &i__1, (ftnlen)7); xerbla_("CGBSVXX", &i__1, (ftnlen)7);
return 0; return;
} }
if (equil) { if (equil) {
@ -1346,7 +1346,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
*rpvgrw = cla_gbrpvgrw_(n, kl, ku, info, &ab[ab_offset], ldab, & *rpvgrw = cla_gbrpvgrw_(n, kl, ku, info, &ab[ab_offset], ldab, &
afb[afb_offset], ldafb); afb[afb_offset], ldafb);
return 0; return;
} }
} }
@ -1379,7 +1379,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
clascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); clascl2_(n, nrhs, &r__[1], &x[x_offset], ldx);
} }
return 0; return;
/* End of CGBSVXX */ /* End of CGBSVXX */

10
lapack-netlib/SRC/cgbtf2.c
View File

@ -672,7 +672,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, /* Subroutine */ void cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
complex *ab, integer *ldab, integer *ipiv, integer *info) complex *ab, integer *ldab, integer *ipiv, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -681,7 +681,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, j; integer i__, j;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *), cgeru_(integer *, integer *, complex *, complex *, integer *), cgeru_(integer *, integer *, complex *, complex *,
integer *, complex *, integer *, complex *, integer *), cswap_( integer *, complex *, integer *, complex *, integer *), cswap_(
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
@ -728,13 +728,13 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBTF2", &i__1, (ftnlen)6); xerbla_("CGBTF2", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
/* Gaussian elimination with partial pivoting */ /* Gaussian elimination with partial pivoting */
@ -827,7 +827,7 @@ f"> */
} }
/* L40: */ /* L40: */
} }
return 0; return;
/* End of CGBTF2 */ /* End of CGBTF2 */

14
lapack-netlib/SRC/cgbtrf.c
View File

@ -671,7 +671,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, /* Subroutine */ void cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
complex *ab, integer *ldab, integer *ipiv, integer *info) complex *ab, integer *ldab, integer *ipiv, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -681,7 +681,7 @@ f"> */
/* Local variables */ /* Local variables */
complex temp; complex temp;
integer i__, j; integer i__, j;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *), cgemm_(char *, char *, integer *, integer *, integer * integer *), cgemm_(char *, char *, integer *, integer *, integer *
, complex *, complex *, integer *, complex *, integer *, complex * , complex *, complex *, integer *, complex *, integer *, complex *
, complex *, integer *), cgeru_(integer *, , complex *, integer *), cgeru_(integer *,
@ -691,11 +691,11 @@ f"> */
complex *, integer *); complex *, integer *);
complex work13[4160] /* was [65][64] */, work31[4160] /* complex work13[4160] /* was [65][64] */, work31[4160] /*
was [65][64] */; was [65][64] */;
extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *); integer *);
integer i2, i3, j2, j3, k2; integer i2, i3, j2, j3, k2;
extern /* Subroutine */ int cgbtf2_(integer *, integer *, integer *, extern /* Subroutine */ void cgbtf2_(integer *, integer *, integer *,
integer *, complex *, integer *, integer *, integer *); integer *, complex *, integer *, integer *, integer *);
integer jb, nb, ii, jj, jm, ip, jp, km, ju, kv; integer jb, nb, ii, jj, jm, ip, jp, km, ju, kv;
extern integer icamax_(integer *, complex *, integer *); extern integer icamax_(integer *, complex *, integer *);
@ -745,13 +745,13 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBTRF", &i__1, (ftnlen)6); xerbla_("CGBTRF", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
/* Determine the block size for this environment */ /* Determine the block size for this environment */
@ -1162,7 +1162,7 @@ f"> */
} }
} }
return 0; return;
/* End of CGBTRF */ /* End of CGBTRF */

14
lapack-netlib/SRC/cgbtrs.c
View File

@ -663,7 +663,7 @@ f"> */
/* > \ingroup complexGBcomputational */ /* > \ingroup complexGBcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer * /* Subroutine */ void cgbtrs_(char *trans, integer *n, integer *kl, integer *
ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex
*b, integer *ldb, integer *info) *b, integer *ldb, integer *info)
{ {
@ -674,7 +674,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, j, l; integer i__, j, l;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex *
, complex *, integer *, complex *, integer *, complex *, complex * , complex *, integer *, complex *, integer *, complex *, complex *
, integer *), cgeru_(integer *, integer *, complex *, , integer *), cgeru_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *), complex *, integer *, complex *, integer *, complex *, integer *),
@ -683,8 +683,8 @@ f"> */
integer *, complex *, integer *); integer *, complex *, integer *);
logical lnoti; logical lnoti;
integer kd, lm; integer kd, lm;
extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), extern /* Subroutine */ void clacgv_(integer *, complex *, integer *);
xerbla_(char *, integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
logical notran; logical notran;
@ -730,13 +730,13 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGBTRS", &i__1, (ftnlen)6); xerbla_("CGBTRS", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0 || *nrhs == 0) { if (*n == 0 || *nrhs == 0) {
return 0; return;
} }
kd = *ku + *kl + 1; kd = *ku + *kl + 1;
@ -851,7 +851,7 @@ f"> */
} }
} }
} }
return 0; return;
/* End of CGBTRS */ /* End of CGBTRS */

19
lapack-netlib/SRC/cgebak.c
View File

@ -651,7 +651,7 @@ f"> */
/* > \ingroup complexGEcomputational */ /* > \ingroup complexGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, /* Subroutine */ void cgebak_(char *job, char *side, integer *n, integer *ilo,
integer *ihi, real *scale, integer *m, complex *v, integer *ldv, integer *ihi, real *scale, integer *m, complex *v, integer *ldv,
integer *info) integer *info)
{ {
@ -662,12 +662,13 @@ f"> */
integer i__, k; integer i__, k;
real s; real s;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int cswap_(integer *, complex *, integer *, extern /* Subroutine */ void cswap_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
logical leftv; logical leftv;
integer ii; integer ii;
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*), xerbla_(char *, integer *, ftnlen); *);
extern int xerbla_(char *, integer *, ftnlen);
logical rightv; logical rightv;
@ -712,19 +713,19 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEBAK", &i__1, (ftnlen)6); xerbla_("CGEBAK", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (lsame_(job, "N")) { if (lsame_(job, "N")) {
return 0; return;
} }
if (*ilo == *ihi) { if (*ilo == *ihi) {
@ -803,7 +804,7 @@ L50:
} }
} }
return 0; return;
/* End of CGEBAK */ /* End of CGEBAK */

15
lapack-netlib/SRC/cgebal.c
View File

@ -686,7 +686,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda, /* Subroutine */ void cgebal_(char *job, integer *n, complex *a, integer *lda,
integer *ilo, integer *ihi, real *scale, integer *info) integer *ilo, integer *ihi, real *scale, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -699,15 +699,16 @@ f"> */
integer i__, j, k, l, m; integer i__, j, k, l, m;
real r__, s; real r__, s;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int cswap_(integer *, complex *, integer *, extern /* Subroutine */ void cswap_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
real sfmin1, sfmin2, sfmax1, sfmax2, ca; real sfmin1, sfmin2, sfmax1, sfmax2, ca;
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
real ra; real ra;
extern integer icamax_(integer *, complex *, integer *); extern integer icamax_(integer *, complex *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*), xerbla_(char *, integer *, ftnlen); *);
extern int xerbla_(char *, integer *, ftnlen);
extern logical sisnan_(real *); extern logical sisnan_(real *);
logical noconv; logical noconv;
integer ica, ira; integer ica, ira;
@ -743,7 +744,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEBAL", &i__1, (ftnlen)6); xerbla_("CGEBAL", &i__1, (ftnlen)6);
return 0; return;
} }
k = 1; k = 1;
@ -909,7 +910,7 @@ L160:
*info = -3; *info = -3;
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGEBAL", &i__2, (ftnlen)6); xerbla_("CGEBAL", &i__2, (ftnlen)6);
return 0; return;
} }
f *= 2.f; f *= 2.f;
c__ *= 2.f; c__ *= 2.f;
@ -971,7 +972,7 @@ L210:
*ilo = k; *ilo = k;
*ihi = l; *ihi = l;
return 0; return;
/* End of CGEBAL */ /* End of CGEBAL */

12
lapack-netlib/SRC/cgebd2.c
View File

@ -715,7 +715,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgebd2_(integer *m, integer *n, complex *a, integer *lda,
real *d__, real *e, complex *tauq, complex *taup, complex *work, real *d__, real *e, complex *tauq, complex *taup, complex *work,
integer *info) integer *info)
{ {
@ -726,11 +726,11 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
clarfg_(integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *),
clacgv_(integer *, complex *, integer *), xerbla_(char *, integer clacgv_(integer *, complex *, integer *);
*, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.1) -- */ /* -- LAPACK computational routine (version 3.7.1) -- */
@ -766,7 +766,7 @@ f"> */
if (*info < 0) { if (*info < 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEBD2", &i__1, (ftnlen)6); xerbla_("CGEBD2", &i__1, (ftnlen)6);
return 0; return;
} }
if (*m >= *n) { if (*m >= *n) {
@ -912,7 +912,7 @@ f"> */
/* L20: */ /* L20: */
} }
} }
return 0; return;
/* End of CGEBD2 */ /* End of CGEBD2 */

16
lapack-netlib/SRC/cgebrd.c
View File

@ -722,7 +722,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgebrd_(integer *m, integer *n, complex *a, integer *lda,
real *d__, real *e, complex *tauq, complex *taup, complex *work, real *d__, real *e, complex *tauq, complex *taup, complex *work,
integer *lwork, integer *info) integer *lwork, integer *info)
{ {
@ -733,15 +733,15 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, j; integer i__, j;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
integer nbmin, iinfo, minmn; integer nbmin, iinfo, minmn;
extern /* Subroutine */ int cgebd2_(integer *, integer *, complex *, extern /* Subroutine */ void cgebd2_(integer *, integer *, complex *,
integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *, complex *,
integer *); integer *);
integer nb; integer nb;
extern /* Subroutine */ int clabrd_(integer *, integer *, integer *, extern /* Subroutine */ void clabrd_(integer *, integer *, integer *,
complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *,
complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *);
integer nx, ws; integer nx, ws;
@ -799,9 +799,9 @@ f"> */
if (*info < 0) { if (*info < 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEBRD", &i__1, (ftnlen)6); xerbla_("CGEBRD", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -809,7 +809,7 @@ f"> */
minmn = f2cmin(*m,*n); minmn = f2cmin(*m,*n);
if (minmn == 0) { if (minmn == 0) {
work[1].r = 1.f, work[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f;
return 0; return;
} }
ws = f2cmax(*m,*n); ws = f2cmax(*m,*n);
@ -914,7 +914,7 @@ f"> */
cgebd2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &d__[i__], &e[i__], & cgebd2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &d__[i__], &e[i__], &
tauq[i__], &taup[i__], &work[1], &iinfo); tauq[i__], &taup[i__], &work[1], &iinfo);
work[1].r = (real) ws, work[1].i = 0.f; work[1].r = (real) ws, work[1].i = 0.f;
return 0; return;
/* End of CGEBRD */ /* End of CGEBRD */

14
lapack-netlib/SRC/cgecon.c
View File

@ -635,7 +635,7 @@ f"> */
/* > \ingroup complexGEcomputational */ /* > \ingroup complexGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda, /* Subroutine */ void cgecon_(char *norm, integer *n, complex *a, integer *lda,
real *anorm, real *rcond, complex *work, real *rwork, integer *info) real *anorm, real *rcond, complex *work, real *rwork, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -647,7 +647,7 @@ f"> */
real scale; real scale;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer isave[3]; integer isave[3];
extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real
*, integer *, integer *); *, integer *, integer *);
real sl; real sl;
integer ix; integer ix;
@ -656,7 +656,7 @@ f"> */
real su; real su;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
real ainvnm; real ainvnm;
extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, extern /* Subroutine */ void clatrs_(char *, char *, char *, char *,
integer *, complex *, integer *, complex *, real *, real *, integer *, complex *, integer *, complex *, real *, real *,
integer *), csrscl_(integer *, integer *), csrscl_(integer *,
real *, complex *, integer *); real *, complex *, integer *);
@ -698,7 +698,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGECON", &i__1, (ftnlen)6); xerbla_("CGECON", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -706,9 +706,9 @@ f"> */
*rcond = 0.f; *rcond = 0.f;
if (*n == 0) { if (*n == 0) {
*rcond = 1.f; *rcond = 1.f;
return 0; return;
} else if (*anorm == 0.f) { } else if (*anorm == 0.f) {
return 0; return;
} }
smlnum = slamch_("Safe minimum"); smlnum = slamch_("Safe minimum");
@ -773,7 +773,7 @@ L10:
} }
L20: L20:
return 0; return;
/* End of CGECON */ /* End of CGECON */

12
lapack-netlib/SRC/cgeequ.c
View File

@ -648,7 +648,7 @@ f"> */
/* > \ingroup complexGEcomputational */ /* > \ingroup complexGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeequ_(integer *m, integer *n, complex *a, integer *lda,
real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
integer *info) integer *info)
{ {
@ -694,7 +694,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEEQU", &i__1, (ftnlen)6); xerbla_("CGEEQU", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -703,7 +703,7 @@ f"> */
*rowcnd = 1.f; *rowcnd = 1.f;
*colcnd = 1.f; *colcnd = 1.f;
*amax = 0.f; *amax = 0.f;
return 0; return;
} }
/* Get machine constants. */ /* Get machine constants. */
@ -759,7 +759,7 @@ f"> */
for (i__ = 1; i__ <= i__1; ++i__) { for (i__ = 1; i__ <= i__1; ++i__) {
if (r__[i__] == 0.f) { if (r__[i__] == 0.f) {
*info = i__; *info = i__;
return 0; return;
} }
/* L50: */ /* L50: */
} }
@ -830,7 +830,7 @@ f"> */
for (j = 1; j <= i__1; ++j) { for (j = 1; j <= i__1; ++j) {
if (c__[j] == 0.f) { if (c__[j] == 0.f) {
*info = *m + j; *info = *m + j;
return 0; return;
} }
/* L110: */ /* L110: */
} }
@ -853,7 +853,7 @@ f"> */
*colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum);
} }
return 0; return;
/* End of CGEEQU */ /* End of CGEEQU */

12
lapack-netlib/SRC/cgeequb.c
View File

@ -656,7 +656,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \ingroup complexGEcomputational */ /* > \ingroup complexGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer * /* Subroutine */ void cgeequb_(integer *m, integer *n, complex *a, integer *
lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
integer *info) integer *info)
{ {
@ -702,7 +702,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEEQUB", &i__1, (ftnlen)7); xerbla_("CGEEQUB", &i__1, (ftnlen)7);
return 0; return;
} }
/* Quick return if possible. */ /* Quick return if possible. */
@ -711,7 +711,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
*rowcnd = 1.f; *rowcnd = 1.f;
*colcnd = 1.f; *colcnd = 1.f;
*amax = 0.f; *amax = 0.f;
return 0; return;
} }
/* Get machine constants. Assume SMLNUM is a power of the radix. */ /* Get machine constants. Assume SMLNUM is a power of the radix. */
@ -776,7 +776,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
for (i__ = 1; i__ <= i__1; ++i__) { for (i__ = 1; i__ <= i__1; ++i__) {
if (r__[i__] == 0.f) { if (r__[i__] == 0.f) {
*info = i__; *info = i__;
return 0; return;
} }
/* L50: */ /* L50: */
} }
@ -851,7 +851,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
for (j = 1; j <= i__1; ++j) { for (j = 1; j <= i__1; ++j) {
if (c__[j] == 0.f) { if (c__[j] == 0.f) {
*info = *m + j; *info = *m + j;
return 0; return;
} }
/* L110: */ /* L110: */
} }
@ -874,7 +874,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
*colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum);
} }
return 0; return;
/* End of CGEEQUB */ /* End of CGEEQUB */

22
lapack-netlib/SRC/cgees.c
View File

@ -710,7 +710,7 @@ or GE matrices</b> */
/* > \ingroup complexGEeigen */ /* > \ingroup complexGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, /* Subroutine */ void cgees_(char *jobvs, char *sort, L_fp select, integer *n,
complex *a, integer *lda, integer *sdim, complex *w, complex *vs, complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
integer *ldvs, complex *work, integer *lwork, real *rwork, logical * integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
bwork, integer *info) bwork, integer *info)
@ -725,7 +725,7 @@ or GE matrices</b> */
real s; real s;
integer icond, ieval; integer icond, ieval;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *), cgebak_(char *, char *, integer *, integer complex *, integer *), cgebak_(char *, char *, integer *, integer
*, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *,
integer *, integer *, real *, integer *), slabad_(real *, integer *, integer *, real *, integer *), slabad_(real *,
@ -734,18 +734,18 @@ or GE matrices</b> */
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
real cscale; real cscale;
extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *), complex *, integer *, complex *, complex *, integer *, integer *),
clascl_(char *, integer *, integer *, real *, real *, integer *, clascl_(char *, integer *, integer *, real *, real *, integer *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), xerbla_(char *, *, integer *, complex *, integer *);
integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void chseqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), cunghr_(integer complex *, integer *, integer *), cunghr_(integer
*, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex
@ -844,16 +844,16 @@ or GE matrices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEES ", &i__1, (ftnlen)6); xerbla_("CGEES ", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
*sdim = 0; *sdim = 0;
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -971,7 +971,7 @@ or GE matrices</b> */
} }
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGEES */ /* End of CGEES */

24
lapack-netlib/SRC/cgeesx.c
View File

@ -752,7 +752,7 @@ f"> */
/* > \ingroup complexGEeigen */ /* > \ingroup complexGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char * /* Subroutine */ void cgeesx_(char *jobvs, char *sort, L_fp select, char *
sense, integer *n, complex *a, integer *lda, integer *sdim, complex * sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex * w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
work, integer *lwork, real *rwork, logical *bwork, integer *info) work, integer *lwork, real *rwork, logical *bwork, integer *info)
@ -765,7 +765,7 @@ f"> */
real anrm; real anrm;
integer ierr, itau, iwrk, lwrk, i__, icond, ieval; integer ierr, itau, iwrk, lwrk, i__, icond, ieval;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *), cgebak_(char *, char *, integer *, integer complex *, integer *), cgebak_(char *, char *, integer *, integer
*, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *,
integer *, integer *, real *, integer *), slabad_(real *, integer *, integer *, real *, integer *), slabad_(real *,
@ -774,25 +774,25 @@ f"> */
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
real cscale; real cscale;
extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *), complex *, integer *, complex *, complex *, integer *, integer *),
clascl_(char *, integer *, integer *, real *, real *, integer *, clascl_(char *, integer *, integer *, real *, real *, integer *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), xerbla_(char *, *, integer *, complex *, integer *);
integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), chseqr_(char *, char *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), chseqr_(char *, char *, integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *,
integer *, integer *), cunghr_(integer *, integer integer *, integer *), cunghr_(integer *, integer
*, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer
*, integer *); *, integer *);
logical wantsb; logical wantsb;
extern /* Subroutine */ int ctrsen_(char *, char *, logical *, integer *, extern /* Subroutine */ void ctrsen_(char *, char *, logical *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *,
real *, real *, complex *, integer *, integer *); real *, real *, complex *, integer *, integer *);
logical wantse; logical wantse;
@ -906,16 +906,16 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEESX", &i__1, (ftnlen)6); xerbla_("CGEESX", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
*sdim = 0; *sdim = 0;
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1054,7 +1054,7 @@ f"> */
} }
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGEESX */ /* End of CGEESX */

25
lapack-netlib/SRC/cgeev.c
View File

@ -695,7 +695,7 @@ ices</b> */
/* > \ingroup complexGEeigen */ /* > \ingroup complexGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, /* Subroutine */ void cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr,
integer *ldvr, complex *work, integer *lwork, real *rwork, integer * integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
info) info)
@ -711,11 +711,11 @@ ices</b> */
char side[1]; char side[1];
real anrm; real anrm;
integer ierr, itau, iwrk, nout, i__, k; integer ierr, itau, iwrk, nout, i__, k;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *); integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
extern /* Subroutine */ int cgebak_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgebak_(char *, char *, integer *, integer *,
integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *,
integer *, integer *, real *, integer *), slabad_(real *, integer *, integer *, real *, integer *), slabad_(real *,
real *); real *);
@ -723,20 +723,21 @@ ices</b> */
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
real cscale; real cscale;
extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *), complex *, integer *, complex *, complex *, integer *, integer *),
clascl_(char *, integer *, integer *, real *, real *, integer *, clascl_(char *, integer *, integer *, real *, real *, integer *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*), clacpy_(char *, integer *, integer *, complex *, integer *, *), clacpy_(char *, integer *, integer *, complex *, integer *,
complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
logical select[1]; logical select[1];
real bignum; real bignum;
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void chseqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), cunghr_(integer complex *, integer *, integer *), cunghr_(integer
*, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex
@ -746,7 +747,7 @@ ices</b> */
real smlnum; real smlnum;
integer hswork, irwork; integer hswork, irwork;
logical lquery, wantvr; logical lquery, wantvr;
extern /* Subroutine */ int ctrevc3_(char *, char *, logical *, integer *, extern /* Subroutine */ void ctrevc3_(char *, char *, logical *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *,
integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *, complex *, integer *, real *, integer *,
integer *); integer *);
@ -868,15 +869,15 @@ ices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEEV ", &i__1, (ftnlen)6); xerbla_("CGEEV ", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1111,7 +1112,7 @@ L50:
} }
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGEEV */ /* End of CGEEV */

27
lapack-netlib/SRC/cgeevx.c
View File

@ -802,7 +802,7 @@ f"> */
/* > \ingroup complexGEeigen */ /* > \ingroup complexGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char * /* Subroutine */ void cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, sense, integer *n, complex *a, integer *lda, complex *w, complex *vl,
integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
@ -818,12 +818,12 @@ f"> */
char side[1]; char side[1];
real anrm; real anrm;
integer ierr, itau, iwrk, nout, i__, k; integer ierr, itau, iwrk, nout, i__, k;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *); integer *);
integer icond; integer icond;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
extern /* Subroutine */ int cgebak_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgebak_(char *, char *, integer *, integer *,
integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *,
integer *, integer *, real *, integer *), slabad_(real *, integer *, integer *, real *, integer *), slabad_(real *,
real *); real *);
@ -831,22 +831,23 @@ f"> */
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
real cscale; real cscale;
extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *), complex *, integer *, complex *, complex *, integer *, integer *),
clascl_(char *, integer *, integer *, real *, real *, integer *, clascl_(char *, integer *, integer *, real *, real *, integer *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*), clacpy_(char *, integer *, integer *, complex *, integer *, *), clacpy_(char *, integer *, integer *, complex *, integer *,
complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
logical select[1]; logical select[1];
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *); real *, integer *, integer *, real *, integer *, integer *);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void chseqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), cunghr_(integer complex *, integer *, integer *), cunghr_(integer
*, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex
@ -860,7 +861,7 @@ f"> */
logical wntsne; logical wntsne;
real smlnum; real smlnum;
logical lquery, wantvr, wntsnn, wntsnv; logical lquery, wantvr, wntsnn, wntsnv;
extern /* Subroutine */ int ctrevc3_(char *, char *, logical *, integer *, extern /* Subroutine */ void ctrevc3_(char *, char *, logical *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *,
integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *, complex *, integer *, real *, integer *,
integer *); integer *);
@ -1019,15 +1020,15 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEEVX", &i__1, (ftnlen)6); xerbla_("CGEEVX", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1285,7 +1286,7 @@ L50:
} }
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGEEVX */ /* End of CGEEVX */

12
lapack-netlib/SRC/cgehd2.c
View File

@ -664,7 +664,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex * /* Subroutine */ void cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
a, integer *lda, complex *tau, complex *work, integer *info) a, integer *lda, complex *tau, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -674,10 +674,10 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
clarfg_(integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *);
xerbla_(char *, integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -712,7 +712,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEHD2", &i__1, (ftnlen)6); xerbla_("CGEHD2", &i__1, (ftnlen)6);
return 0; return;
} }
i__1 = *ihi - 1; i__1 = *ihi - 1;
@ -749,7 +749,7 @@ f"> */
/* L10: */ /* L10: */
} }
return 0; return;
/* End of CGEHD2 */ /* End of CGEHD2 */

16
lapack-netlib/SRC/cgehrd.c
View File

@ -686,7 +686,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex * /* Subroutine */ void cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
a, integer *lda, complex *tau, complex *work, integer *lwork, integer a, integer *lda, complex *tau, complex *work, integer *lwork, integer
*info) *info)
{ {
@ -696,11 +696,11 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, j; integer i__, j;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
integer nbmin, iinfo; integer nbmin, iinfo;
extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *), caxpy_(integer *, integer *), caxpy_(integer *,
complex *, complex *, integer *, complex *, integer *), cgehd2_( complex *, complex *, integer *, complex *, integer *), cgehd2_(
@ -711,7 +711,7 @@ f"> */
integer ib; integer ib;
complex ei; complex ei;
integer nb, nh; integer nb, nh;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
integer nx; integer nx;
@ -771,9 +771,9 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEHRD", &i__1, (ftnlen)6); xerbla_("CGEHRD", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Set elements 1:ILO-1 and IHI:N-1 of TAU to zero */ /* Set elements 1:ILO-1 and IHI:N-1 of TAU to zero */
@ -796,7 +796,7 @@ f"> */
nh = *ihi - *ilo + 1; nh = *ihi - *ilo + 1;
if (nh <= 1) { if (nh <= 1) {
work[1].r = 1.f, work[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f;
return 0; return;
} }
/* Determine the block size */ /* Determine the block size */
@ -913,7 +913,7 @@ f"> */
cgehd2_(n, &i__, ihi, &a[a_offset], lda, &tau[1], &work[1], &iinfo); cgehd2_(n, &i__, ihi, &a[a_offset], lda, &tau[1], &work[1], &iinfo);
work[1].r = (real) lwkopt, work[1].i = 0.f; work[1].r = (real) lwkopt, work[1].i = 0.f;
return 0; return;
/* End of CGEHRD */ /* End of CGEHRD */

53
lapack-netlib/SRC/cgejsv.c
View File

@ -1086,7 +1086,7 @@ f"> */
/* > drmac@math.hr. Thank you. */ /* > drmac@math.hr. Thank you. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgejsv_(char *joba, char *jobu, char *jobv, char *jobr, /* Subroutine */ void cgejsv_(char *joba, char *jobu, char *jobv, char *jobr,
char *jobt, char *jobp, integer *m, integer *n, complex *a, integer * char *jobt, char *jobp, integer *m, integer *n, complex *a, integer *
lda, real *sva, complex *u, integer *ldu, complex *v, integer *ldv, lda, real *sva, complex *u, integer *ldu, complex *v, integer *ldv,
complex *cwork, integer *lwork, real *rwork, integer *lrwork, integer complex *cwork, integer *lwork, real *rwork, integer *lrwork, integer
@ -1109,24 +1109,24 @@ f"> */
p, q; p, q;
logical jracc; logical jracc;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *);
complex ctemp; complex ctemp;
real entra, small; real entra, small;
integer iwoff; integer iwoff;
real sfmin; real sfmin;
logical lsvec; logical lsvec;
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
real epsln; real epsln;
logical rsvec; logical rsvec;
integer lwcon, lwlqf; integer lwcon, lwlqf;
extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *); integer *);
integer lwqrf, n1; integer lwqrf, n1;
logical l2aber; logical l2aber;
extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *,
integer *, integer *, complex *, complex *, integer *, real *, integer *, integer *, complex *, complex *, integer *, real *,
integer *); integer *);
real condr1, condr2, uscal1, uscal2; real condr1, condr2, uscal1, uscal2;
@ -1134,53 +1134,54 @@ f"> */
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
logical l2pert; logical l2pert;
integer lrwqp3; integer lrwqp3;
extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); extern /* Subroutine */ void clacgv_(integer *, complex *, integer *);
integer nr; integer nr;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *); integer *, complex *, complex *, integer *, integer *);
extern integer icamax_(integer *, complex *, integer *); extern integer icamax_(integer *, complex *, integer *);
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *); real *, integer *, integer *, complex *, integer *, integer *);
real scalem, sconda; real scalem, sconda;
logical goscal; logical goscal;
real aatmin; real aatmin;
extern real slamch_(char *); extern real slamch_(char *);
real aatmax; real aatmax;
extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clacpy_( integer *, complex *, complex *, integer *, integer *), clacpy_(
char *, integer *, integer *, complex *, integer *, complex *, char *, integer *, integer *, complex *, integer *, complex *,
integer *), clapmr_(logical *, integer *, integer *, integer *), clapmr_(logical *, integer *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
logical noscal; logical noscal;
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *); *, complex *, complex *, integer *);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), cpocon_(char *, integer *, complex *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), cpocon_(char *, integer *, complex *, integer *, real *,
real *, complex *, real *, integer *), csscal_(integer *, real *, complex *, real *, integer *), csscal_(integer *,
real *, complex *, integer *), classq_(integer *, complex *, real *, complex *, integer *), classq_(integer *, complex *,
integer *, real *, real *), xerbla_(char *, integer *, ftnlen), integer *, real *, real *);
cgesvj_(char *, char *, char *, integer *, integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void cgesvj_(char *, char *, char *, integer *, integer *, complex *,
integer *, real *, integer *, complex *, integer *, complex *, integer *, real *, integer *, complex *, integer *, complex *,
integer *, real *, integer *, integer *), integer *, real *, integer *, integer *);
claswp_(integer *, complex *, integer *, integer *, integer *, extern int claswp_(integer *, complex *, integer *, integer *, integer *,
integer *, integer *); integer *, integer *);
real entrat; real entrat;
logical almort; logical almort;
complex cdummy[1]; complex cdummy[1];
extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, extern /* Subroutine */ void cungqr_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *); complex *, integer *, complex *, complex *, integer *, integer *);
real maxprj; real maxprj;
extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
logical errest; logical errest;
integer lrwcon; integer lrwcon;
extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *,
real *); real *);
logical transp; logical transp;
integer minwrk, lwsvdj; integer minwrk, lwsvdj;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
real rdummy[1]; real rdummy[1];
@ -1784,13 +1785,13 @@ f"> */
/* #:( */ /* #:( */
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEJSV", &i__1, (ftnlen)6); xerbla_("CGEJSV", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
cwork[1].r = (real) optwrk, cwork[1].i = 0.f; cwork[1].r = (real) optwrk, cwork[1].i = 0.f;
cwork[2].r = (real) minwrk, cwork[2].i = 0.f; cwork[2].r = (real) minwrk, cwork[2].i = 0.f;
rwork[1] = (real) minrwrk; rwork[1] = (real) minrwrk;
iwork[1] = f2cmax(4,miniwrk); iwork[1] = f2cmax(4,miniwrk);
return 0; return;
} }
/* Quick return for void matrix (Y3K safe) */ /* Quick return for void matrix (Y3K safe) */
@ -1807,7 +1808,7 @@ f"> */
rwork[5] = 0.f; rwork[5] = 0.f;
rwork[6] = 0.f; rwork[6] = 0.f;
rwork[7] = 0.f; rwork[7] = 0.f;
return 0; return;
} }
/* Determine whether the matrix U should be M x N or M x M */ /* Determine whether the matrix U should be M x N or M x M */
@ -1847,7 +1848,7 @@ f"> */
*info = -9; *info = -9;
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGEJSV", &i__2, (ftnlen)6); xerbla_("CGEJSV", &i__2, (ftnlen)6);
return 0; return;
} }
aaqq = sqrt(aaqq); aaqq = sqrt(aaqq);
if (aapp < big / aaqq && noscal) { if (aapp < big / aaqq && noscal) {
@ -1909,7 +1910,7 @@ f"> */
iwork[2] = 0; iwork[2] = 0;
iwork[3] = 0; iwork[3] = 0;
iwork[4] = -1; iwork[4] = -1;
return 0; return;
} }
/* Issue warning if denormalized column norms detected. Override the */ /* Issue warning if denormalized column norms detected. Override the */
@ -1976,7 +1977,7 @@ f"> */
rwork[6] = 0.f; rwork[6] = 0.f;
rwork[7] = 0.f; rwork[7] = 0.f;
} }
return 0; return;
} }
@ -3547,6 +3548,6 @@ L3302:
iwork[4] = -1; iwork[4] = -1;
} }
return 0; return;
} /* cgejsv_ */ } /* cgejsv_ */

14
lapack-netlib/SRC/cgelq.c
View File

@ -681,7 +681,7 @@ static integer c__2 = 2;
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelq_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgelq_(integer *m, integer *n, complex *a, integer *lda,
complex *t, integer *tsize, complex *work, integer *lwork, integer * complex *t, integer *tsize, complex *work, integer *lwork, integer *
info) info)
{ {
@ -694,11 +694,11 @@ static integer c__2 = 2;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *, extern /* Subroutine */ void cgelqt_(integer *, integer *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
logical lminws, lquery; logical lminws, lquery;
integer mintsz; integer mintsz;
extern /* Subroutine */ int claswlq_(integer *, integer *, integer *, extern /* Subroutine */ void claswlq_(integer *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, integer *); integer *, integer *);
@ -839,15 +839,15 @@ static integer c__2 = 2;
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELQ", &i__1, (ftnlen)5); xerbla_("CGELQ", &i__1, (ftnlen)5);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (f2cmin(*m,*n) == 0) { if (f2cmin(*m,*n) == 0) {
return 0; return;
} }
/* The LQ Decomposition */ /* The LQ Decomposition */
@ -861,7 +861,7 @@ static integer c__2 = 2;
work[1].r = (real) lwreq, work[1].i = 0.f; work[1].r = (real) lwreq, work[1].i = 0.f;
return 0; return;
/* End of CGELQ */ /* End of CGELQ */

12
lapack-netlib/SRC/cgelq2.c
View File

@ -639,7 +639,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgelq2_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *info) complex *tau, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -648,11 +648,11 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
clarfg_(integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *),
clacgv_(integer *, complex *, integer *), xerbla_(char *, integer clacgv_(integer *, complex *, integer *);
*, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.9.0) -- */ /* -- LAPACK computational routine (version 3.9.0) -- */
@ -685,7 +685,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELQ2", &i__1, (ftnlen)6); xerbla_("CGELQ2", &i__1, (ftnlen)6);
return 0; return;
} }
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
@ -721,7 +721,7 @@ f"> */
clacgv_(&i__2, &a[i__ + i__ * a_dim1], lda); clacgv_(&i__2, &a[i__ + i__ * a_dim1], lda);
/* L10: */ /* L10: */
} }
return 0; return;
/* End of CGELQ2 */ /* End of CGELQ2 */

19
lapack-netlib/SRC/cgelqf.c
View File

@ -659,7 +659,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgelqf_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *lwork, integer *info) complex *tau, complex *work, integer *lwork, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -667,15 +667,16 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k, nbmin, iinfo; integer i__, k, nbmin, iinfo;
extern /* Subroutine */ int cgelq2_(integer *, integer *, complex *, extern /* Subroutine */ void cgelq2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
integer ib, nb; integer ib, nb;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
integer nx; integer nx;
extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ldwork, lwkopt; integer ldwork, lwkopt;
@ -720,9 +721,9 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELQF", &i__1, (ftnlen)6); xerbla_("CGELQF", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -730,7 +731,7 @@ f"> */
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
if (k == 0) { if (k == 0) {
work[1].r = 1.f, work[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f;
return 0; return;
} }
nbmin = 2; nbmin = 2;
@ -815,7 +816,7 @@ f"> */
} }
work[1].r = (real) iws, work[1].i = 0.f; work[1].r = (real) iws, work[1].i = 0.f;
return 0; return;
/* End of CGELQF */ /* End of CGELQF */

15
lapack-netlib/SRC/cgelqt.c
View File

@ -630,7 +630,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelqt_(integer *m, integer *n, integer *mb, complex *a, /* Subroutine */ void cgelqt_(integer *m, integer *n, integer *mb, complex *a,
integer *lda, complex *t, integer *ldt, complex *work, integer *info) integer *lda, complex *t, integer *ldt, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -638,10 +638,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* Local variables */ /* Local variables */
integer i__, k, iinfo, ib; integer i__, k, iinfo, ib;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen), integer *, complex *, integer *, complex *, integer *);
cgelqt3_(integer *, integer *, complex *, integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void cgelqt3_(integer *, integer *, complex *, integer *, complex *,
integer *, integer *); integer *, integer *);
@ -681,14 +682,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELQT", &i__1, (ftnlen)6); xerbla_("CGELQT", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
if (k == 0) { if (k == 0) {
return 0; return;
} }
/* Blocked loop of length K */ /* Blocked loop of length K */
@ -717,7 +718,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
i__ * a_dim1], lda, &work[1], &i__5); i__ * a_dim1], lda, &work[1], &i__5);
} }
} }
return 0; return;
/* End of CGELQT */ /* End of CGELQT */

15
lapack-netlib/SRC/cgelqt3.c
View File

@ -627,7 +627,7 @@ static complex c_b1 = {1.f,0.f};
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelqt3_(integer *m, integer *n, complex *a, integer * /* Subroutine */ void cgelqt3_(integer *m, integer *n, complex *a, integer *
lda, complex *t, integer *ldt, integer *info) lda, complex *t, integer *ldt, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -636,16 +636,17 @@ static complex c_b1 = {1.f,0.f};
/* Local variables */ /* Local variables */
integer i__, j; integer i__, j;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
integer iinfo; integer iinfo;
extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *); integer *);
integer i1, j1, m1, m2; integer i1, j1, m1, m2;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *), xerbla_(char *, integer *, ftnlen); integer *, complex *);
extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.8.0) -- */ /* -- LAPACK computational routine (version 3.8.0) -- */
@ -679,7 +680,7 @@ static complex c_b1 = {1.f,0.f};
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELQT3", &i__1, (ftnlen)7); xerbla_("CGELQT3", &i__1, (ftnlen)7);
return 0; return;
} }
if (*m == 1) { if (*m == 1) {
@ -793,7 +794,7 @@ static complex c_b1 = {1.f,0.f};
} }
return 0; return;
/* End of CGELQT3 */ /* End of CGELQT3 */

29
lapack-netlib/SRC/cgels.c
View File

@ -697,7 +697,7 @@ static integer c__0 = 0;
/* > \ingroup complexGEsolve */ /* > \ingroup complexGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer * /* Subroutine */ void cgels_(char *trans, integer *m, integer *n, integer *
nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
work, integer *lwork, integer *info) work, integer *lwork, integer *info)
{ {
@ -714,24 +714,25 @@ static integer c__0 = 0;
integer wsize; integer wsize;
real rwork[1]; real rwork[1];
integer nb; integer nb;
extern /* Subroutine */ int slabad_(real *, real *); extern /* Subroutine */ void slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mn; integer mn;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clascl_( integer *, complex *, complex *, integer *, integer *), clascl_(
char *, integer *, integer *, real *, real *, integer *, integer * char *, integer *, integer *, real *, real *, integer *, integer *
, complex *, integer *, integer *); , complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), claset_( integer *, complex *, complex *, integer *, integer *), claset_(
char *, integer *, integer *, complex *, complex *, complex *, char *, integer *, integer *, complex *, complex *, complex *,
integer *), xerbla_(char *, integer *, ftnlen); integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer scllen; integer scllen;
real bignum; real bignum;
extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), cunmqr_(char *, complex *, integer *, integer *), cunmqr_(char *,
char *, integer *, integer *, integer *, complex *, integer *, char *, integer *, integer *, integer *, complex *, integer *,
@ -840,9 +841,9 @@ static integer c__0 = 0;
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELS ", &i__1, (ftnlen)6); xerbla_("CGELS ", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -852,7 +853,7 @@ static integer c__0 = 0;
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
i__1 = f2cmax(*m,*n); i__1 = f2cmax(*m,*n);
claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb);
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -939,7 +940,7 @@ static integer c__0 = 0;
, lda, &b[b_offset], ldb, info); , lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
scllen = *n; scllen = *n;
@ -954,7 +955,7 @@ static integer c__0 = 0;
a_offset], lda, &b[b_offset], ldb, info); a_offset], lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
/* B(N+1:M,1:NRHS) = ZERO */ /* B(N+1:M,1:NRHS) = ZERO */
@ -1002,7 +1003,7 @@ static integer c__0 = 0;
, lda, &b[b_offset], ldb, info); , lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
/* B(M+1:N,1:NRHS) = 0 */ /* B(M+1:N,1:NRHS) = 0 */
@ -1047,7 +1048,7 @@ static integer c__0 = 0;
a_offset], lda, &b[b_offset], ldb, info); a_offset], lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
scllen = *m; scllen = *m;
@ -1077,7 +1078,7 @@ L50:
r__1 = (real) wsize; r__1 = (real) wsize;
work[1].r = r__1, work[1].i = 0.f; work[1].r = r__1, work[1].i = 0.f;
return 0; return;
/* End of CGELS */ /* End of CGELS */

23
lapack-netlib/SRC/cgelsd.c
View File

@ -744,7 +744,7 @@ f"> */
/* > Osni Marques, LBNL/NERSC, USA \n */ /* > Osni Marques, LBNL/NERSC, USA \n */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex * /* Subroutine */ void cgelsd_(integer *m, integer *n, integer *nrhs, complex *
a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, a, integer *lda, complex *b, integer *ldb, real *s, real *rcond,
integer *rank, complex *work, integer *lwork, real *rwork, integer * integer *rank, complex *work, integer *lwork, real *rwork, integer *
iwork, integer *info) iwork, integer *info)
@ -757,13 +757,13 @@ f"> */
integer itau, nlvl, iascl, ibscl; integer itau, nlvl, iascl, ibscl;
real sfmin; real sfmin;
integer minmn, maxmn, itaup, itauq, mnthr, nwork, ie, il; integer minmn, maxmn, itaup, itauq, mnthr, nwork, ie, il;
extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *,
integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *, complex *,
integer *, integer *), slabad_(real *, real *); integer *, integer *), slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mm; integer mm;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clalsd_( integer *, complex *, complex *, integer *, integer *), clalsd_(
char *, integer *, integer *, integer *, real *, real *, complex * char *, integer *, integer *, integer *, real *, real *, complex *
, integer *, real *, integer *, complex *, real *, integer *, , integer *, real *, integer *, complex *, real *, integer *,
@ -771,13 +771,14 @@ f"> */
real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *,
complex *, complex *, integer *, integer *); complex *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); integer *, integer *, complex *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), slaset_( complex *, integer *, integer *), slaset_(
@ -785,7 +786,7 @@ f"> */
complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *,
integer *, integer *); integer *, integer *);
integer ldwork; integer ldwork;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer liwork, minwrk, maxwrk; integer liwork, minwrk, maxwrk;
@ -994,16 +995,16 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELSD", &i__1, (ftnlen)6); xerbla_("CGELSD", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible. */ /* Quick return if possible. */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters. */ /* Get machine parameters. */
@ -1299,7 +1300,7 @@ L10:
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
iwork[1] = liwork; iwork[1] = liwork;
rwork[1] = (real) lrwork; rwork[1] = (real) lrwork;
return 0; return;
/* End of CGELSD */ /* End of CGELSD */

30
lapack-netlib/SRC/cgelss.c
View File

@ -696,7 +696,7 @@ f"> */
/* > \ingroup complexGEsolve */ /* > \ingroup complexGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex * /* Subroutine */ void cgelss_(integer *m, integer *n, integer *nrhs, complex *
a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, a, integer *lda, complex *b, integer *ldb, real *s, real *rcond,
integer *rank, complex *work, integer *lwork, real *rwork, integer * integer *rank, complex *work, integer *lwork, real *rwork, integer *
info) info)
@ -710,41 +710,43 @@ f"> */
integer itau, lwork_cgebrd__, lwork_cgelqf__, lwork_cgeqrf__, integer itau, lwork_cgebrd__, lwork_cgelqf__, lwork_cgeqrf__,
lwork_cungbr__, lwork_cunmbr__, i__, lwork_cunmlq__, lwork_cungbr__, lwork_cunmbr__, i__, lwork_cunmlq__,
lwork_cunmqr__; lwork_cunmqr__;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
integer iascl, ibscl; integer iascl, ibscl;
extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex *
, complex *, integer *, complex *, integer *, complex *, complex * , complex *, integer *, complex *, integer *, complex *, complex *
, integer *); , integer *);
integer chunk; integer chunk;
real sfmin; real sfmin;
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
integer minmn, maxmn, itaup, itauq, mnthr, iwork, bl, ie, il; integer minmn, maxmn, itaup, itauq, mnthr, iwork, bl, ie, il;
extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *,
integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *, complex *,
integer *, integer *), slabad_(real *, real *); integer *, integer *), slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mm; integer mm;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clascl_( integer *, complex *, complex *, integer *, integer *), clascl_(
char *, integer *, integer *, real *, real *, integer *, integer * char *, integer *, integer *, real *, real *, integer *, integer *
, complex *, integer *, integer *), cgeqrf_(integer *, , complex *, integer *, integer *), cgeqrf_(integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
integer *); integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen), cbdsqr_(char *, integer *, integer *, complex *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void cbdsqr_(char *,
integer *, integer *, integer *, integer *, real *, real *, integer *, integer *, integer *, integer *, real *, real *,
complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *,
real *, integer *); real *, integer *);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int cungbr_(char *, integer *, integer *, integer extern /* Subroutine */ void cungbr_(char *, integer *, integer *, integer
*, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer
*), slascl_(char *, integer *, integer *, real *, real *, *), slascl_(char *, integer *, integer *, real *, real *,
integer *, integer *, real *, integer *, integer *), integer *, integer *, real *, integer *, integer *),
@ -756,7 +758,7 @@ f"> */
char *, integer *, integer *, integer *, complex *, integer *, char *, integer *, integer *, integer *, complex *, integer *,
complex *, complex *, integer *, complex *, integer *, integer *); complex *, complex *, integer *, complex *, integer *, integer *);
integer ldwork; integer ldwork;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer minwrk, maxwrk; integer minwrk, maxwrk;
@ -963,16 +965,16 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELSS", &i__1, (ftnlen)6); xerbla_("CGELSS", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -1431,7 +1433,7 @@ f"> */
} }
L70: L70:
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGELSS */ /* End of CGELSS */

39
lapack-netlib/SRC/cgelst.c
View File

@ -710,7 +710,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelst_(char *trans, integer *m, integer *n, integer * /* Subroutine */ void cgelst_(char *trans, integer *m, integer *n, integer *
nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
work, integer *lwork, integer *info) work, integer *lwork, integer *info)
{ {
@ -727,29 +727,30 @@ f"> */
integer nbmin; integer nbmin;
real rwork[1]; real rwork[1];
integer lwopt, nb; integer lwopt, nb;
extern /* Subroutine */ int slabad_(real *, real *); extern /* Subroutine */ void slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mn; integer mn;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *); real *, integer *, integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), xerbla_(char *, *, complex *, complex *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *, extern /* Subroutine */ void cgelqt_(integer *, integer *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
integer scllen; integer scllen;
real bignum; real bignum;
extern /* Subroutine */ int cgeqrt_(integer *, integer *, integer *, extern /* Subroutine */ void cgeqrt_(integer *, integer *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
integer mnnrhs; integer mnnrhs;
real smlnum; real smlnum;
logical lquery; logical lquery;
extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *,
integer *, complex *, integer *, complex *, integer *, integer *), cgemlqt_(char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *);
extern void cgemlqt_(char *, char *, integer *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *), cgemqrt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *), cgemqrt_(char *, char *, integer *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
@ -826,10 +827,10 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELST ", &i__1); xerbla_("CGELST ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -841,7 +842,7 @@ f"> */
claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb);
r__1 = (real) lwopt; r__1 = (real) lwopt;
work[1].r = r__1, work[1].i = 0.f; work[1].r = r__1, work[1].i = 0.f;
return 0; return;
} }
/* *GEQRT and *GELQT routines cannot accept NB larger than f2cmin(M,N) */ /* *GEQRT and *GELQT routines cannot accept NB larger than f2cmin(M,N) */
@ -901,7 +902,7 @@ f"> */
claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb);
r__1 = (real) lwopt; r__1 = (real) lwopt;
work[1].r = r__1, work[1].i = 0.f; work[1].r = r__1, work[1].i = 0.f;
return 0; return;
} }
brow = *m; brow = *m;
@ -956,7 +957,7 @@ f"> */
, lda, &b[b_offset], ldb, info); , lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
scllen = *n; scllen = *n;
@ -975,7 +976,7 @@ f"> */
a_offset], lda, &b[b_offset], ldb, info); a_offset], lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
/* Block 2: Zero out all rows below the N-th row in B: */ /* Block 2: Zero out all rows below the N-th row in B: */
@ -1026,7 +1027,7 @@ f"> */
, lda, &b[b_offset], ldb, info); , lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
/* Block 2: Zero out all rows below the M-th row in B: */ /* Block 2: Zero out all rows below the M-th row in B: */
@ -1071,7 +1072,7 @@ f"> */
a_offset], lda, &b[b_offset], ldb, info); a_offset], lda, &b[b_offset], ldb, info);
if (*info > 0) { if (*info > 0) {
return 0; return;
} }
scllen = *m; scllen = *m;
@ -1100,7 +1101,7 @@ f"> */
r__1 = (real) lwopt; r__1 = (real) lwopt;
work[1].r = r__1, work[1].i = 0.f; work[1].r = r__1, work[1].i = 0.f;
return 0; return;
/* End of CGELST */ /* End of CGELST */

32
lapack-netlib/SRC/cgelsy.c
View File

@ -727,7 +727,7 @@ f"> */
/* > G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n */ /* > G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex * /* Subroutine */ void cgelsy_(integer *m, integer *n, integer *nrhs, complex *
a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
integer *rank, complex *work, integer *lwork, real *rwork, integer * integer *rank, complex *work, integer *lwork, real *rwork, integer *
info) info)
@ -740,45 +740,45 @@ f"> */
/* Local variables */ /* Local variables */
real anrm, bnrm, smin, smax; real anrm, bnrm, smin, smax;
integer i__, j, iascl, ibscl; integer i__, j, iascl, ibscl;
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
integer ismin, ismax; integer ismin, ismax;
complex c1, c2; complex c1, c2;
extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *), claic1_(integer *, integer *), claic1_(integer *,
integer *, complex *, real *, complex *, complex *, real *, integer *, complex *, real *, complex *, complex *, real *,
complex *, complex *); complex *, complex *);
real wsize; real wsize;
complex s1, s2; complex s1, s2;
extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *,
integer *, integer *, complex *, complex *, integer *, real *, integer *, integer *, complex *, complex *, integer *, real *,
integer *); integer *);
integer nb; integer nb;
extern /* Subroutine */ int slabad_(real *, real *); extern /* Subroutine */ void slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mn; integer mn;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *); real *, integer *, integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), xerbla_(char *, *, complex *, complex *, integer *);
integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
integer nb1, nb2, nb3, nb4; integer nb1, nb2, nb3, nb4;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
real sminpr, smaxpr, smlnum; real sminpr, smaxpr, smlnum;
extern /* Subroutine */ int cunmrz_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmrz_(char *, char *, integer *, integer *,
integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
integer lwkopt; integer lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int ctzrzf_(integer *, integer *, complex *, extern /* Subroutine */ void ctzrzf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *); integer *, complex *, complex *, integer *, integer *);
@ -854,9 +854,9 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELSY", &i__1, (ftnlen)6); xerbla_("CGELSY", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -865,7 +865,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -1082,7 +1082,7 @@ L70:
q__1.r = (real) lwkopt, q__1.i = 0.f; q__1.r = (real) lwkopt, q__1.i = 0.f;
work[1].r = q__1.r, work[1].i = q__1.i; work[1].r = q__1.r, work[1].i = q__1.i;
return 0; return;
/* End of CGELSY */ /* End of CGELSY */

14
lapack-netlib/SRC/cgemlq.c
View File

@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgemlq_(char *side, char *trans, integer *m, integer *n, /* Subroutine */ void cgemlq_(char *side, char *trans, integer *m, integer *n,
integer *k, complex *a, integer *lda, complex *t, integer *tsize, integer *k, complex *a, integer *lda, complex *t, integer *tsize,
complex *c__, integer *ldc, complex *work, integer *lwork, integer * complex *c__, integer *ldc, complex *work, integer *lwork, integer *
info) info)
@ -684,7 +684,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* Local variables */ /* Local variables */
logical left, tran; logical left, tran;
extern /* Subroutine */ int clamswlq_(char *, char *, integer *, integer * extern /* Subroutine */ void clamswlq_(char *, char *, integer *, integer *
, integer *, integer *, integer *, complex *, integer *, complex * , integer *, integer *, integer *, complex *, integer *, complex *
, integer *, complex *, integer *, complex *, integer *, integer * , integer *, complex *, integer *, complex *, integer *, integer *
); );
@ -693,7 +693,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
integer mb, nb, mn, lw, nblcks; integer mb, nb, mn, lw, nblcks;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
logical notran, lquery; logical notran, lquery;
extern /* Subroutine */ int cgemlqt_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemlqt_(char *, char *, integer *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *);
@ -775,9 +775,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEMLQ", &i__1, (ftnlen)6); xerbla_("CGEMLQ", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -785,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* Computing MIN */ /* Computing MIN */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*k) == 0) { if (f2cmin(i__1,*k) == 0) {
return 0; return;
} }
/* Computing MAX */ /* Computing MAX */
@ -802,7 +802,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
r__1 = (real) lw; r__1 = (real) lw;
work[1].r = r__1, work[1].i = 0.f; work[1].r = r__1, work[1].i = 0.f;
return 0; return;
/* End of CGEMLQ */ /* End of CGEMLQ */

13
lapack-netlib/SRC/cgemlqt.c
View File

@ -658,7 +658,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \ingroup doubleGEcomputational */ /* > \ingroup doubleGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgemlqt_(char *side, char *trans, integer *m, integer *n, /* Subroutine */ void cgemlqt_(char *side, char *trans, integer *m, integer *n,
integer *k, integer *mb, complex *v, integer *ldv, complex *t, integer *k, integer *mb, complex *v, integer *ldv, complex *t,
integer *ldt, complex *c__, integer *ldc, complex *work, integer * integer *ldt, complex *c__, integer *ldc, complex *work, integer *
info) info)
@ -673,9 +673,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical right; logical right;
integer ib, kf; integer ib, kf;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); integer *, complex *, integer *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
logical notran; logical notran;
integer ldwork; integer ldwork;
@ -737,12 +738,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEMLQT", &i__1, (ftnlen)7); xerbla_("CGEMLQT", &i__1, (ftnlen)7);
return 0; return;
} }
if (*m == 0 || *n == 0 || *k == 0) { if (*m == 0 || *n == 0 || *k == 0) {
return 0; return;
} }
if (left && notran) { if (left && notran) {
@ -803,7 +804,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
} }
return 0; return;
/* End of CGEMLQT */ /* End of CGEMLQT */

14
lapack-netlib/SRC/cgemqr.c
View File

@ -675,7 +675,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgemqr_(char *side, char *trans, integer *m, integer *n, /* Subroutine */ void cgemqr_(char *side, char *trans, integer *m, integer *n,
integer *k, complex *a, integer *lda, complex *t, integer *tsize, integer *k, complex *a, integer *lda, complex *t, integer *tsize,
complex *c__, integer *ldc, complex *work, integer *lwork, integer * complex *c__, integer *ldc, complex *work, integer *lwork, integer *
info) info)
@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* Local variables */ /* Local variables */
logical left, tran; logical left, tran;
extern /* Subroutine */ int clamtsqr_(char *, char *, integer *, integer * extern /* Subroutine */ void clamtsqr_(char *, char *, integer *, integer *
, integer *, integer *, integer *, complex *, integer *, complex * , integer *, integer *, integer *, complex *, integer *, complex *
, integer *, complex *, integer *, complex *, integer *, integer * , integer *, complex *, integer *, complex *, integer *, integer *
); );
@ -694,7 +694,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
integer mb, nb, mn, lw, nblcks; integer mb, nb, mn, lw, nblcks;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
logical notran, lquery; logical notran, lquery;
extern /* Subroutine */ int cgemqrt_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemqrt_(char *, char *, integer *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *);
@ -775,9 +775,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEMQR", &i__1, (ftnlen)6); xerbla_("CGEMQR", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -785,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* Computing MIN */ /* Computing MIN */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*k) == 0) { if (f2cmin(i__1,*k) == 0) {
return 0; return;
} }
/* Computing MAX */ /* Computing MAX */
@ -801,7 +801,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
work[1].r = (real) lw, work[1].i = 0.f; work[1].r = (real) lw, work[1].i = 0.f;
return 0; return;
/* End of CGEMQR */ /* End of CGEMQR */

13
lapack-netlib/SRC/cgemqrt.c
View File

@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \ingroup complexGEcomputational */ /* > \ingroup complexGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgemqrt_(char *side, char *trans, integer *m, integer *n, /* Subroutine */ void cgemqrt_(char *side, char *trans, integer *m, integer *n,
integer *k, integer *nb, complex *v, integer *ldv, complex *t, integer *k, integer *nb, complex *v, integer *ldv, complex *t,
integer *ldt, complex *c__, integer *ldc, complex *work, integer * integer *ldt, complex *c__, integer *ldc, complex *work, integer *
info) info)
@ -691,9 +691,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical right; logical right;
integer ib, kf; integer ib, kf;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); integer *, complex *, integer *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
logical notran; logical notran;
integer ldwork; integer ldwork;
@ -757,12 +758,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEMQRT", &i__1, (ftnlen)7); xerbla_("CGEMQRT", &i__1, (ftnlen)7);
return 0; return;
} }
if (*m == 0 || *n == 0 || *k == 0) { if (*m == 0 || *n == 0 || *k == 0) {
return 0; return;
} }
if (left && tran) { if (left && tran) {
@ -823,7 +824,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
} }
return 0; return;
/* End of CGEMQRT */ /* End of CGEMQRT */

12
lapack-netlib/SRC/cgeql2.c
View File

@ -637,7 +637,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeql2_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *info) complex *tau, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -647,10 +647,10 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
clarfg_(integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *);
xerbla_(char *, integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -683,7 +683,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQL2", &i__1, (ftnlen)6); xerbla_("CGEQL2", &i__1, (ftnlen)6);
return 0; return;
} }
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
@ -712,7 +712,7 @@ f"> */
a[i__1].r = alpha.r, a[i__1].i = alpha.i; a[i__1].r = alpha.r, a[i__1].i = alpha.i;
/* L10: */ /* L10: */
} }
return 0; return;
/* End of CGEQL2 */ /* End of CGEQL2 */

19
lapack-netlib/SRC/cgeqlf.c
View File

@ -654,7 +654,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *lwork, integer *info) complex *tau, complex *work, integer *lwork, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -662,15 +662,16 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k, nbmin, iinfo; integer i__, k, nbmin, iinfo;
extern /* Subroutine */ int cgeql2_(integer *, integer *, complex *, extern /* Subroutine */ void cgeql2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
integer ib, nb, ki, kk; integer ib, nb, ki, kk;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
integer mu, nu, nx; integer mu, nu, nx;
extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ldwork, lwkopt; integer ldwork, lwkopt;
@ -726,15 +727,15 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQLF", &i__1, (ftnlen)6); xerbla_("CGEQLF", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (k == 0) { if (k == 0) {
return 0; return;
} }
nbmin = 2; nbmin = 2;
@ -826,7 +827,7 @@ f"> */
} }
work[1].r = (real) iws, work[1].i = 0.f; work[1].r = (real) iws, work[1].i = 0.f;
return 0; return;
/* End of CGEQLF */ /* End of CGEQLF */

22
lapack-netlib/SRC/cgeqp3.c
View File

@ -674,7 +674,7 @@ f"> */
/* > X. Sun, Computer Science Dept., Duke University, USA */ /* > X. Sun, Computer Science Dept., Duke University, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
integer *jpvt, complex *tau, complex *work, integer *lwork, real * integer *jpvt, complex *tau, complex *work, integer *lwork, real *
rwork, integer *info) rwork, integer *info)
{ {
@ -684,24 +684,24 @@ f"> */
/* Local variables */ /* Local variables */
integer nfxd, j, nbmin; integer nfxd, j, nbmin;
extern /* Subroutine */ int cswap_(integer *, complex *, integer *, extern /* Subroutine */ void cswap_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
integer minmn, minws; integer minmn, minws;
extern /* Subroutine */ int claqp2_(integer *, integer *, integer *, extern /* Subroutine */ void claqp2_(integer *, integer *, integer *,
complex *, integer *, integer *, complex *, real *, real *, complex *, integer *, integer *, complex *, real *, real *,
complex *); complex *);
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
integer jb, na, nb, sm, sn, nx; integer jb, na, nb, sm, sn, nx;
extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), xerbla_( integer *, complex *, complex *, integer *, integer *);
char *, integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern /* Subroutine */ int claqps_(integer *, integer *, integer *, extern /* Subroutine */ void claqps_(integer *, integer *, integer *,
integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *, complex *,
real *, real *, complex *, complex *, integer *); real *, real *, complex *, complex *, integer *);
integer topbmn, sminmn; integer topbmn, sminmn;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer lwkopt; integer lwkopt;
@ -763,9 +763,9 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQP3", &i__1, (ftnlen)6); xerbla_("CGEQP3", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Move initial columns up front. */ /* Move initial columns up front. */
@ -921,7 +921,7 @@ L30:
q__1.r = (real) lwkopt, q__1.i = 0.f; q__1.r = (real) lwkopt, q__1.i = 0.f;
work[1].r = q__1.r, work[1].i = q__1.i; work[1].r = q__1.r, work[1].i = q__1.i;
return 0; return;
/* End of CGEQP3 */ /* End of CGEQP3 */

14
lapack-netlib/SRC/cgeqr.c
View File

@ -683,7 +683,7 @@ static integer c__2 = 2;
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqr_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqr_(integer *m, integer *n, complex *a, integer *lda,
complex *t, integer *tsize, complex *work, integer *lwork, integer * complex *t, integer *tsize, complex *work, integer *lwork, integer *
info) info)
{ {
@ -696,11 +696,11 @@ static integer c__2 = 2;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern /* Subroutine */ int cgeqrt_(integer *, integer *, integer *, extern /* Subroutine */ void cgeqrt_(integer *, integer *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
logical lminws, lquery; logical lminws, lquery;
integer mintsz; integer mintsz;
extern /* Subroutine */ int clatsqr_(integer *, integer *, integer *, extern /* Subroutine */ void clatsqr_(integer *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, integer *); integer *, integer *);
@ -829,15 +829,15 @@ static integer c__2 = 2;
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQR", &i__1, (ftnlen)5); xerbla_("CGEQR", &i__1, (ftnlen)5);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (f2cmin(*m,*n) == 0) { if (f2cmin(*m,*n) == 0) {
return 0; return;
} }
/* The QR Decomposition */ /* The QR Decomposition */
@ -854,7 +854,7 @@ static integer c__2 = 2;
i__1 = f2cmax(i__2,i__3); i__1 = f2cmax(i__2,i__3);
work[1].r = (real) i__1, work[1].i = 0.f; work[1].r = (real) i__1, work[1].i = 0.f;
return 0; return;
/* End of CGEQR */ /* End of CGEQR */

12
lapack-netlib/SRC/cgeqr2.c
View File

@ -644,7 +644,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *info) complex *tau, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -654,10 +654,10 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
clarfg_(integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *);
xerbla_(char *, integer *, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.9.0) -- */ /* -- LAPACK computational routine (version 3.9.0) -- */
@ -690,7 +690,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQR2", &i__1, (ftnlen)6); xerbla_("CGEQR2", &i__1, (ftnlen)6);
return 0; return;
} }
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
@ -723,7 +723,7 @@ f"> */
} }
/* L10: */ /* L10: */
} }
return 0; return;
/* End of CGEQR2 */ /* End of CGEQR2 */

13
lapack-netlib/SRC/cgeqr2p.c
View File

@ -648,7 +648,7 @@ l elements using an unblocked algorithm. */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqr2p_(integer *m, integer *n, complex *a, integer * /* Subroutine */ void cgeqr2p_(integer *m, integer *n, complex *a, integer *
lda, complex *tau, complex *work, integer *info) lda, complex *tau, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -658,9 +658,10 @@ l elements using an unblocked algorithm. */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *);
xerbla_(char *, integer *, ftnlen), clarfgp_(integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void clarfgp_(integer *, complex *,
complex *, integer *, complex *); complex *, integer *, complex *);
@ -694,7 +695,7 @@ l elements using an unblocked algorithm. */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQR2P", &i__1, (ftnlen)7); xerbla_("CGEQR2P", &i__1, (ftnlen)7);
return 0; return;
} }
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
@ -727,7 +728,7 @@ l elements using an unblocked algorithm. */
} }
/* L10: */ /* L10: */
} }
return 0; return;
/* End of CGEQR2P */ /* End of CGEQR2P */

19
lapack-netlib/SRC/cgeqrf.c
View File

@ -661,7 +661,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *lwork, integer *info) complex *tau, complex *work, integer *lwork, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -669,15 +669,16 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k, nbmin, iinfo; integer i__, k, nbmin, iinfo;
extern /* Subroutine */ int cgeqr2_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqr2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
integer ib, nb; integer ib, nb;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
integer nx; integer nx;
extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ldwork, lwkopt; integer ldwork, lwkopt;
@ -722,9 +723,9 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQRF", &i__1, (ftnlen)6); xerbla_("CGEQRF", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -732,7 +733,7 @@ f"> */
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
if (k == 0) { if (k == 0) {
work[1].r = 1.f, work[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f;
return 0; return;
} }
nbmin = 2; nbmin = 2;
@ -817,7 +818,7 @@ f"> */
} }
work[1].r = (real) iws, work[1].i = 0.f; work[1].r = (real) iws, work[1].i = 0.f;
return 0; return;
/* End of CGEQRF */ /* End of CGEQRF */

19
lapack-netlib/SRC/cgeqrfp.c
View File

@ -665,7 +665,7 @@ static integer c__2 = 2;
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqrfp_(integer *m, integer *n, complex *a, integer * /* Subroutine */ void cgeqrfp_(integer *m, integer *n, complex *a, integer *
lda, complex *tau, complex *work, integer *lwork, integer *info) lda, complex *tau, complex *work, integer *lwork, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -673,17 +673,18 @@ static integer c__2 = 2;
/* Local variables */ /* Local variables */
integer i__, k, nbmin, iinfo, ib, nb; integer i__, k, nbmin, iinfo, ib, nb;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
integer nx; integer nx;
extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ldwork, lwkopt; integer ldwork, lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int cgeqr2p_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqr2p_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
integer iws; integer iws;
@ -725,9 +726,9 @@ static integer c__2 = 2;
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQRFP", &i__1, (ftnlen)7); xerbla_("CGEQRFP", &i__1, (ftnlen)7);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -735,7 +736,7 @@ static integer c__2 = 2;
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
if (k == 0) { if (k == 0) {
work[1].r = 1.f, work[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f;
return 0; return;
} }
nbmin = 2; nbmin = 2;
@ -820,7 +821,7 @@ static integer c__2 = 2;
} }
work[1].r = (real) iws, work[1].i = 0.f; work[1].r = (real) iws, work[1].i = 0.f;
return 0; return;
/* End of CGEQRFP */ /* End of CGEQRFP */

15
lapack-netlib/SRC/cgeqrt.c
View File

@ -650,7 +650,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqrt_(integer *m, integer *n, integer *nb, complex *a, /* Subroutine */ void cgeqrt_(integer *m, integer *n, integer *nb, complex *a,
integer *lda, complex *t, integer *ldt, complex *work, integer *info) integer *lda, complex *t, integer *ldt, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -658,10 +658,11 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k, iinfo, ib; integer i__, k, iinfo, ib;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen), integer *, complex *, integer *, complex *, integer *);
cgeqrt2_(integer *, integer *, complex *, integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void cgeqrt2_(integer *, integer *, complex *, integer *, complex *,
integer *, integer *), cgeqrt3_(integer *, integer *, complex *, integer *, integer *), cgeqrt3_(integer *, integer *, complex *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
@ -702,14 +703,14 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQRT", &i__1, (ftnlen)6); xerbla_("CGEQRT", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
if (k == 0) { if (k == 0) {
return 0; return;
} }
/* Blocked loop of length K */ /* Blocked loop of length K */
@ -744,7 +745,7 @@ f"> */
ib) * a_dim1], lda, &work[1], &i__5); ib) * a_dim1], lda, &work[1], &i__5);
} }
} }
return 0; return;
/* End of CGEQRT */ /* End of CGEQRT */

13
lapack-netlib/SRC/cgeqrt2.c
View File

@ -643,7 +643,7 @@ presentation of Q. */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqrt2_(integer *m, integer *n, complex *a, integer * /* Subroutine */ void cgeqrt2_(integer *m, integer *n, complex *a, integer *
lda, complex *t, integer *ldt, integer *info) lda, complex *t, integer *ldt, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -652,14 +652,15 @@ presentation of Q. */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, extern /* Subroutine */ void cgerc_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
complex alpha; complex alpha;
extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex *
, complex *, integer *, complex *, integer *, complex *, complex * , complex *, integer *, complex *, integer *, complex *, complex *
, integer *), ctrmv_(char *, char *, char *, integer *, , integer *), ctrmv_(char *, char *, char *, integer *,
complex *, integer *, complex *, integer *), clarfg_(integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), clarfg_(integer *, complex *, complex *, integer *,
complex *), xerbla_(char *, integer *, ftnlen); complex *);
extern int xerbla_(char *, integer *, ftnlen);
complex aii; complex aii;
@ -696,7 +697,7 @@ presentation of Q. */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQRT2", &i__1, (ftnlen)7); xerbla_("CGEQRT2", &i__1, (ftnlen)7);
return 0; return;
} }
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
@ -778,6 +779,6 @@ presentation of Q. */
/* End of CGEQRT2 */ /* End of CGEQRT2 */
return 0; return;
} /* cgeqrt2_ */ } /* cgeqrt2_ */

15
lapack-netlib/SRC/cgeqrt3.c
View File

@ -647,7 +647,7 @@ compact WY representation of Q. </b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqrt3_(integer *m, integer *n, complex *a, integer * /* Subroutine */ void cgeqrt3_(integer *m, integer *n, complex *a, integer *
lda, complex *t, integer *ldt, integer *info) lda, complex *t, integer *ldt, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -656,16 +656,17 @@ compact WY representation of Q. </b> */
/* Local variables */ /* Local variables */
integer i__, j; integer i__, j;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
integer iinfo; integer iinfo;
extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *); integer *);
integer i1, j1, n1, n2; integer i1, j1, n1, n2;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *), xerbla_(char *, integer *, ftnlen); integer *, complex *);
extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -699,7 +700,7 @@ compact WY representation of Q. </b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQRT3", &i__1, (ftnlen)7); xerbla_("CGEQRT3", &i__1, (ftnlen)7);
return 0; return;
} }
if (*n == 1) { if (*n == 1) {
@ -809,7 +810,7 @@ compact WY representation of Q. </b> */
} }
return 0; return;
/* End of CGEQRT3 */ /* End of CGEQRT3 */

17
lapack-netlib/SRC/cgerfs.c
View File

@ -699,7 +699,7 @@ f"> */
/* > \ingroup complexGEcomputational */ /* > \ingroup complexGEcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex * /* Subroutine */ void cgerfs_(char *trans, integer *n, integer *nrhs, complex *
a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
complex *work, real *rwork, integer *info) complex *work, real *rwork, integer *info)
@ -716,21 +716,22 @@ f"> */
integer i__, j, k; integer i__, j, k;
real s; real s;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex *
, complex *, integer *, complex *, integer *, complex *, complex * , complex *, integer *, complex *, integer *, complex *, complex *
, integer *); , integer *);
integer isave[3]; integer isave[3];
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *), caxpy_(integer *, complex *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
integer count; integer count;
extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real
*, integer *, integer *); *, integer *, integer *);
real xk; real xk;
extern real slamch_(char *); extern real slamch_(char *);
integer nz; integer nz;
real safmin; real safmin;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgetrs_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern int cgetrs_(
char *, integer *, integer *, complex *, integer *, integer *, char *, integer *, integer *, complex *, integer *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
logical notran; logical notran;
@ -790,7 +791,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGERFS", &i__1, (ftnlen)6); xerbla_("CGERFS", &i__1, (ftnlen)6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -802,7 +803,7 @@ f"> */
berr[j] = 0.f; berr[j] = 0.f;
/* L10: */ /* L10: */
} }
return 0; return;
} }
if (notran) { if (notran) {
@ -1028,7 +1029,7 @@ L100:
/* L140: */ /* L140: */
} }
return 0; return;
/* End of CGERFS */ /* End of CGERFS */

12
lapack-netlib/SRC/cgerq2.c
View File

@ -633,7 +633,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgerq2_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *info) complex *tau, complex *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -642,11 +642,11 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
complex alpha; complex alpha;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
clarfg_(integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *),
clacgv_(integer *, complex *, integer *), xerbla_(char *, integer clacgv_(integer *, complex *, integer *);
*, ftnlen); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -679,7 +679,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGERQ2", &i__1, (ftnlen)6); xerbla_("CGERQ2", &i__1, (ftnlen)6);
return 0; return;
} }
k = f2cmin(*m,*n); k = f2cmin(*m,*n);
@ -710,7 +710,7 @@ f"> */
clacgv_(&i__1, &a[*m - k + i__ + a_dim1], lda); clacgv_(&i__1, &a[*m - k + i__ + a_dim1], lda);
/* L10: */ /* L10: */
} }
return 0; return;
/* End of CGERQ2 */ /* End of CGERQ2 */

19
lapack-netlib/SRC/cgerqf.c
View File

@ -654,7 +654,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgerqf_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, complex *work, integer *lwork, integer *info) complex *tau, complex *work, integer *lwork, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -662,15 +662,16 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k, nbmin, iinfo; integer i__, k, nbmin, iinfo;
extern /* Subroutine */ int cgerq2_(integer *, integer *, complex *, extern /* Subroutine */ void cgerq2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
integer ib, nb, ki, kk; integer ib, nb, ki, kk;
extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, extern /* Subroutine */ void clarfb_(char *, char *, char *, char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
integer mu, nu, nx; integer mu, nu, nx;
extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ldwork, lwkopt; integer ldwork, lwkopt;
@ -726,15 +727,15 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGERQF", &i__1, (ftnlen)6); xerbla_("CGERQF", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (k == 0) { if (k == 0) {
return 0; return;
} }
nbmin = 2; nbmin = 2;
@ -825,7 +826,7 @@ f"> */
} }
work[1].r = (real) iws, work[1].i = 0.f; work[1].r = (real) iws, work[1].i = 0.f;
return 0; return;
/* End of CGERQF */ /* End of CGERQF */

6
lapack-netlib/SRC/cgesc2.c
View File

@ -631,7 +631,7 @@ f"> */
/* > Umea University, S-901 87 Umea, Sweden. */ /* > Umea University, S-901 87 Umea, Sweden. */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex * /* Subroutine */ void cgesc2_(integer *n, complex *a, integer *lda, complex *
rhs, integer *ipiv, integer *jpiv, real *scale) rhs, integer *ipiv, integer *jpiv, real *scale)
{ {
/* System generated locals */ /* System generated locals */
@ -642,7 +642,7 @@ f"> */
/* Local variables */ /* Local variables */
complex temp; complex temp;
integer i__, j; integer i__, j;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *), slabad_(real *, real *); integer *), slabad_(real *, real *);
extern integer icamax_(integer *, complex *, integer *); extern integer icamax_(integer *, complex *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
@ -745,7 +745,7 @@ f"> */
i__1 = *n - 1; i__1 = *n - 1;
claswp_(&c__1, &rhs[1], lda, &c__1, &i__1, &jpiv[1], &c_n1); claswp_(&c__1, &rhs[1], lda, &c__1, &i__1, &jpiv[1], &c_n1);
return 0; return;
/* End of CGESC2 */ /* End of CGESC2 */

30
lapack-netlib/SRC/cgesdd.c
View File

@ -742,7 +742,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a, /* Subroutine */ void cgesdd_(char *jobz, integer *m, integer *n, complex *a,
integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer
*ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork,
integer *info) integer *info)
@ -760,26 +760,26 @@ f"> */
real anrm; real anrm;
integer ierr, itau, lwork_cunmbr_qln_mm__, lwork_cunmbr_qln_mn__, integer ierr, itau, lwork_cunmbr_qln_mm__, lwork_cunmbr_qln_mn__,
lwork_cunmbr_qln_nn__, idum[1], irvt, i__; lwork_cunmbr_qln_nn__, idum[1], irvt, i__;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer chunk, minmn, wrkbl, itaup, itauq; integer chunk, minmn, wrkbl, itaup, itauq;
logical wntqa; logical wntqa;
integer nwork; integer nwork;
extern /* Subroutine */ int clacp2_(char *, integer *, integer *, real *, extern /* Subroutine */ void clacp2_(char *, integer *, integer *, real *,
integer *, complex *, integer *); integer *, complex *, integer *);
logical wntqn, wntqo, wntqs; logical wntqn, wntqo, wntqs;
integer mnthr1, mnthr2, ie, lwork_cungbr_p_mn__, il, lwork_cungbr_p_nn__, integer mnthr1, mnthr2, ie, lwork_cungbr_p_mn__, il, lwork_cungbr_p_nn__,
lwork_cungbr_q_mn__, lwork_cungbr_q_mm__; lwork_cungbr_q_mn__, lwork_cungbr_q_mm__;
extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *,
integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *, complex *,
integer *, integer *); integer *, integer *);
integer ir; integer ir;
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer iu; integer iu;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clacrm_( integer *, complex *, complex *, integer *, integer *), clacrm_(
integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *, complex *, integer *, real *, integer *,
complex *, integer *, real *), clarcm_(integer *, integer *, real complex *, integer *, real *), clarcm_(integer *, integer *, real
@ -790,13 +790,15 @@ f"> */
integer *, real *, integer *, real *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer integer *, real *, integer *, real *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer
*, complex *, complex *, integer *, integer *); *, complex *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen), cungbr_(char *, integer *, integer *, complex *, complex *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void cungbr_(char *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,
complex *, integer *, integer *); complex *, integer *, integer *);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), cunglq_( complex *, integer *, integer *), cunglq_(
@ -804,7 +806,7 @@ f"> */
complex *, integer *, integer *); complex *, integer *, integer *);
extern logical sisnan_(real *); extern logical sisnan_(real *);
integer ldwrkl; integer ldwrkl;
extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, extern /* Subroutine */ void cungqr_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *); complex *, integer *, complex *, complex *, integer *, integer *);
integer ldwrkr, minwrk, ldwrku, maxwrk, ldwkvt; integer ldwrkr, minwrk, ldwrku, maxwrk, ldwkvt;
real smlnum; real smlnum;
@ -1267,15 +1269,15 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGESDD", &i__1, (ftnlen)6); xerbla_("CGESDD", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1289,7 +1291,7 @@ f"> */
anrm = clange_("M", m, n, &a[a_offset], lda, dum); anrm = clange_("M", m, n, &a[a_offset], lda, dum);
if (sisnan_(&anrm)) { if (sisnan_(&anrm)) {
*info = -4; *info = -4;
return 0; return;
} }
iscl = 0; iscl = 0;
if (anrm > 0.f && anrm < smlnum) { if (anrm > 0.f && anrm < smlnum) {
@ -2951,7 +2953,7 @@ f"> */
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGESDD */ /* End of CGESDD */

6
lapack-netlib/SRC/cgesv.c
View File

@ -639,8 +639,10 @@ iver) </b> */
integer a_dim1, a_offset, b_dim1, b_offset, i__1; integer a_dim1, a_offset, b_dim1, b_offset, i__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int cgetrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgetrf_(integer *, integer *, complex *,
integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen), cgetrs_(char *, integer *, integer *, complex *, integer integer *, integer *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void cgetrs_(char *, integer *, integer *, complex *, integer
*, integer *, complex *, integer *, integer *); *, integer *, complex *, integer *, integer *);

27
lapack-netlib/SRC/cgesvd.c
View File

@ -732,7 +732,7 @@ f"> */
/* > \ingroup complexGEsing */ /* > \ingroup complexGEsing */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, /* Subroutine */ void cgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
complex *a, integer *lda, real *s, complex *u, integer *ldu, complex * complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *
vt, integer *ldvt, complex *work, integer *lwork, real *rwork, vt, integer *ldvt, complex *work, integer *lwork, real *rwork,
integer *info) integer *info)
@ -749,40 +749,41 @@ f"> */
real anrm; real anrm;
integer ierr, itau, ncvt, nrvt, lwork_cgebrd__, lwork_cgelqf__, integer ierr, itau, ncvt, nrvt, lwork_cgebrd__, lwork_cgelqf__,
lwork_cgeqrf__, i__; lwork_cgeqrf__, i__;
extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *,
integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer *,
complex *, complex *, integer *); complex *, complex *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork;
logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs;
integer ie; integer ie;
extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *,
integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *, complex *,
integer *, integer *); integer *, integer *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer ir, iu; integer ir, iu;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clascl_( integer *, complex *, complex *, integer *, integer *), clascl_(
char *, integer *, integer *, real *, real *, integer *, integer * char *, integer *, integer *, real *, real *, integer *, integer *
, complex *, integer *, integer *), cgeqrf_(integer *, , complex *, integer *, integer *), cgeqrf_(integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
integer *); integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *), cbdsqr_(char *, integer *, integer *, integer *, integer integer *, integer *, complex *, complex *, complex *, integer *), cbdsqr_(char *, integer *, integer *, integer *, integer
*, real *, real *, complex *, integer *, complex *, integer *, *, real *, real *, complex *, integer *, complex *, integer *,
complex *, integer *, real *, integer *), xerbla_(char *, complex *, integer *, real *, integer *);
integer *, ftnlen), cungbr_(char *, integer *, integer *, integer extern int xerbla_(char *, integer *, ftnlen);
extern void cungbr_(char *, integer *, integer *, integer
*, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer
*); *);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *); real *, integer *, integer *, real *, integer *, integer *);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern /* Subroutine */ int cunmbr_(char *, char *, char *, integer *, extern /* Subroutine */ void cunmbr_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *,
integer *, complex *, integer *, integer *), cunglq_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *), cunglq_(integer *, integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), cungqr_( integer *, complex *, complex *, integer *, integer *), cungqr_(
@ -1334,15 +1335,15 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGESVD", &i__2, (ftnlen)6); xerbla_("CGESVD", &i__2, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -4718,7 +4719,7 @@ f"> */
work[1].r = (real) maxwrk, work[1].i = 0.f; work[1].r = (real) maxwrk, work[1].i = 0.f;
return 0; return;
/* End of CGESVD */ /* End of CGESVD */

34
lapack-netlib/SRC/cgesvdq.c
View File

@ -932,7 +932,7 @@ static logical c_false = FALSE_;
/* > \ingroup complexGEsing */ /* > \ingroup complexGEsing */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, /* Subroutine */ void cgesvdq_(char *joba, char *jobp, char *jobr, char *jobu,
char *jobv, integer *m, integer *n, complex *a, integer *lda, real *s, char *jobv, integer *m, integer *n, complex *a, integer *lda, real *s,
complex *u, integer *ldu, complex *v, integer *ldv, integer *numrank, complex *u, integer *ldu, complex *v, integer *ldv, integer *numrank,
integer *iwork, integer *liwork, complex *cwork, integer *lcwork, integer *iwork, integer *liwork, complex *cwork, integer *lcwork,
@ -965,7 +965,7 @@ static logical c_false = FALSE_;
logical dntwu, dntwv, wntuf, wntva; logical dntwu, dntwv, wntuf, wntva;
integer lwunq; integer lwunq;
logical wntur, wntus, wntvr; logical wntur, wntus, wntvr;
extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *,
integer *, integer *, complex *, complex *, integer *, real *, integer *, integer *, complex *, complex *, integer *, real *,
integer *); integer *);
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
@ -973,21 +973,22 @@ static logical c_false = FALSE_;
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer nr; integer nr;
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clascl_( integer *, complex *, complex *, integer *, integer *), clascl_(
char *, integer *, integer *, real *, real *, integer *, integer * char *, integer *, integer *, real *, real *, integer *, integer *
, complex *, integer *, integer *); , complex *, integer *, integer *);
real sconda; real sconda;
extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), csscal_( integer *, complex *, complex *, integer *, integer *), csscal_(
integer *, real *, complex *, integer *); integer *, real *, complex *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int cgesvd_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgesvd_(char *, char *, integer *, integer *,
complex *, integer *, real *, complex *, integer *, complex *, complex *, integer *, real *, complex *, integer *, complex *,
integer *, complex *, integer *, real *, integer *), clacpy_(char *, integer *, integer *, complex *, integer integer *, complex *, integer *, real *, integer *), clacpy_(char *, integer *, integer *, complex *, integer
*, complex *, integer *), claset_(char *, integer *, *, complex *, integer *), claset_(char *, integer *,
integer *, complex *, complex *, complex *, integer *), integer *, complex *, complex *, complex *, integer *);
xerbla_(char *, integer *, ftnlen), clapmt_(logical *, integer *, extern int xerbla_(char *, integer *, ftnlen);
extern void clapmt_(logical *, integer *,
integer *, complex *, integer *, integer *), slascl_(char *, integer *, complex *, integer *, integer *), slascl_(char *,
integer *, integer *, real *, real *, integer *, integer *, real * integer *, integer *, real *, real *, integer *, integer *, real *
, integer *, integer *), cpocon_(char *, integer *, , integer *, integer *), cpocon_(char *, integer *,
@ -995,10 +996,11 @@ static logical c_false = FALSE_;
); );
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
extern /* Subroutine */ int claswp_(integer *, complex *, integer *, extern /* Subroutine */ int claswp_(integer *, complex *, integer *,
integer *, integer *, integer *, integer *), slaset_(char *, integer *, integer *, integer *, integer *);
extern void slaset_(char *,
integer *, integer *, real *, real *, real *, integer *); integer *, integer *, real *, real *, real *, integer *);
complex cdummy[1]; complex cdummy[1];
extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *), cunmqr_(char *, complex *, integer *, integer *), cunmqr_(char *,
char *, integer *, integer *, integer *, complex *, integer *, char *, integer *, integer *, integer *, complex *, integer *,
@ -1380,7 +1382,7 @@ static logical c_false = FALSE_;
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGESVDQ", &i__1, (ftnlen)7); xerbla_("CGESVDQ", &i__1, (ftnlen)7);
return 0; return;
} else if (lquery) { } else if (lquery) {
/* Return optimal workspace */ /* Return optimal workspace */
@ -1389,13 +1391,13 @@ static logical c_false = FALSE_;
cwork[1].r = (real) optwrk, cwork[1].i = 0.f; cwork[1].r = (real) optwrk, cwork[1].i = 0.f;
cwork[2].r = (real) minwrk, cwork[2].i = 0.f; cwork[2].r = (real) minwrk, cwork[2].i = 0.f;
rwork[1] = (real) rminwrk; rwork[1] = (real) rminwrk;
return 0; return;
} }
/* Quick return if the matrix is void. */ /* Quick return if the matrix is void. */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
big = slamch_("O"); big = slamch_("O");
@ -1412,7 +1414,7 @@ static logical c_false = FALSE_;
*info = -8; *info = -8;
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGESVDQ", &i__2, (ftnlen)7); xerbla_("CGESVDQ", &i__2, (ftnlen)7);
return 0; return;
} }
/* L1904: */ /* L1904: */
} }
@ -1466,7 +1468,7 @@ static logical c_false = FALSE_;
rwork[1] = -1.f; rwork[1] = -1.f;
} }
rwork[2] = -1.f; rwork[2] = -1.f;
return 0; return;
} }
if (rwork[1] > big / sqrt((real) (*m))) { if (rwork[1] > big / sqrt((real) (*m))) {
@ -1490,7 +1492,7 @@ static logical c_false = FALSE_;
*info = -8; *info = -8;
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGESVDQ", &i__1, (ftnlen)7); xerbla_("CGESVDQ", &i__1, (ftnlen)7);
return 0; return;
} }
if (rtmp > big / sqrt((real) (*m))) { if (rtmp > big / sqrt((real) (*m))) {
/* matrix by 1/sqrt(M) if too large entry detected */ /* matrix by 1/sqrt(M) if too large entry detected */
@ -2317,7 +2319,7 @@ L4002:
/* full row rank triangular (trapezoidal) factor of A. */ /* full row rank triangular (trapezoidal) factor of A. */
*numrank = nr; *numrank = nr;
return 0; return;
/* End of CGESVDQ */ /* End of CGESVDQ */

29
lapack-netlib/SRC/cgesvdx.c
View File

@ -786,7 +786,7 @@ static integer c_n1 = -1;
/* > \ingroup complexGEsing */ /* > \ingroup complexGEsing */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgesvdx_(char *jobu, char *jobvt, char *range, integer * /* Subroutine */ void cgesvdx_(char *jobu, char *jobvt, char *range, integer *
m, integer *n, complex *a, integer *lda, real *vl, real *vu, integer * m, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *
il, integer *iu, integer *ns, real *s, complex *u, integer *ldu, il, integer *iu, integer *ns, real *s, complex *u, integer *ldu,
complex *vt, integer *ldvt, complex *work, integer *lwork, real * complex *vt, integer *ldvt, complex *work, integer *lwork, real *
@ -813,43 +813,44 @@ static integer c_n1 = -1;
integer iltgk, itemp, minmn, itaup, itauq, iutgk, itgkz, mnthr; integer iltgk, itemp, minmn, itaup, itauq, iutgk, itgkz, mnthr;
logical wantu; logical wantu;
integer id, ie; integer id, ie;
extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *,
integer *, real *, real *, complex *, complex *, complex *, integer *, real *, real *, complex *, complex *, complex *,
integer *, integer *); integer *, integer *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *), clascl_( integer *, complex *, complex *, integer *, integer *), clascl_(
char *, integer *, integer *, real *, real *, integer *, integer * char *, integer *, integer *, real *, real *, integer *, integer *
, complex *, integer *, integer *), cgeqrf_(integer *, , complex *, integer *, integer *), cgeqrf_(integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
integer *); integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), clacpy_(char *, *, complex *, complex *, integer *), clacpy_(char *,
integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); integer *, integer *, complex *, integer *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *); real *, integer *, integer *, real *, integer *, integer *);
real abstol; real abstol;
extern /* Subroutine */ int cunmbr_(char *, char *, char *, integer *, extern /* Subroutine */ void cunmbr_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
char rngtgk[1]; char rngtgk[1];
extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer itempr; integer itempr;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer minwrk, maxwrk; integer minwrk, maxwrk;
real smlnum; real smlnum;
logical lquery, wantvt; logical lquery, wantvt;
real dum[1], eps; real dum[1], eps;
extern /* Subroutine */ int sbdsvdx_(char *, char *, char *, integer *, extern /* Subroutine */ void sbdsvdx_(char *, char *, char *, integer *,
real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *,
real *, real *, integer *, real *, integer *, integer *); real *, real *, integer *, real *, integer *, integer *);
@ -1049,15 +1050,15 @@ static integer c_n1 = -1;
if (*info != 0) { if (*info != 0) {
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGESVDX", &i__2, (ftnlen)7); xerbla_("CGESVDX", &i__2, (ftnlen)7);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
/* Set singular values indices accord to RANGE='A'. */ /* Set singular values indices accord to RANGE='A'. */
@ -1501,7 +1502,7 @@ static integer c_n1 = -1;
q__1.r = r__1, q__1.i = 0.f; q__1.r = r__1, q__1.i = 0.f;
work[1].r = q__1.r, work[1].i = q__1.i; work[1].r = q__1.r, work[1].i = q__1.i;
return 0; return;
/* End of CGESVDX */ /* End of CGESVDX */

41
lapack-netlib/SRC/cgesvj.c
View File

@ -868,7 +868,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgesvj_(char *joba, char *jobu, char *jobv, integer *m, /* Subroutine */ void cgesvj_(char *joba, char *jobu, char *jobv, integer *m,
integer *n, complex *a, integer *lda, real *sva, integer *mv, complex integer *n, complex *a, integer *lda, real *sva, integer *mv, complex
*v, integer *ldv, complex *cwork, integer *lwork, real *rwork, *v, integer *ldv, complex *cwork, integer *lwork, real *rwork,
integer *lrwork, integer *info) integer *lrwork, integer *info)
@ -885,7 +885,7 @@ f"> */
real aaqq, ctol; real aaqq, ctol;
integer ierr; integer ierr;
real bigtheta; real bigtheta;
extern /* Subroutine */ int crot_(integer *, complex *, integer *, extern /* Subroutine */ void crot_(integer *, complex *, integer *,
complex *, integer *, real *, complex *); complex *, integer *, real *, complex *);
complex ompq; complex ompq;
integer pskipped; integer pskipped;
@ -898,16 +898,16 @@ f"> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real theta, small, sfmin; real theta, small, sfmin;
logical lsvec; logical lsvec;
extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, extern /* Subroutine */ void ccopy_(integer *, complex *, integer *,
complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *,
complex *, integer *); complex *, integer *);
real epsln; real epsln;
logical applv, rsvec, uctol; logical applv, rsvec, uctol;
extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, extern /* Subroutine */ void caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
logical lower, upper, rotok; logical lower, upper, rotok;
integer n2, n4; integer n2, n4;
extern /* Subroutine */ int cgsvj0_(char *, integer *, integer *, complex extern /* Subroutine */ void cgsvj0_(char *, integer *, integer *, complex
*, integer *, complex *, real *, integer *, complex *, integer *, *, integer *, complex *, real *, integer *, complex *, integer *,
real *, real *, real *, integer *, complex *, integer *, integer * real *, real *, real *, integer *, complex *, integer *, integer *
), cgsvj1_(char *, integer *, integer *, integer *, ), cgsvj1_(char *, integer *, integer *, integer *,
@ -918,18 +918,19 @@ f"> */
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
integer n34; integer n34;
real cs, sn; real cs, sn;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *); real *, integer *, integer *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*), claset_(char *, integer *, integer *, complex *, complex *, *), claset_(char *, integer *, integer *, complex *, complex *,
complex *, integer *), xerbla_(char *, integer *, ftnlen); complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
integer ijblsk, swband; integer ijblsk, swband;
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *); real *, integer *, integer *, real *, integer *, integer *);
integer blskip; integer blskip;
extern /* Subroutine */ int classq_(integer *, complex *, integer *, real extern /* Subroutine */ void classq_(integer *, complex *, integer *, real
*, real *); *, real *);
real mxaapq, thsign, mxsinj; real mxaapq, thsign, mxsinj;
integer ir1, emptsw; integer ir1, emptsw;
@ -1014,18 +1015,18 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGESVJ", &i__1, (ftnlen)6); xerbla_("CGESVJ", &i__1, (ftnlen)6);
return 0; return;
} else if (lquery) { } else if (lquery) {
i__1 = *m + *n; i__1 = *m + *n;
cwork[1].r = (real) i__1, cwork[1].i = 0.f; cwork[1].r = (real) i__1, cwork[1].i = 0.f;
rwork[1] = (real) f2cmax(*n,6); rwork[1] = (real) f2cmax(*n,6);
return 0; return;
} }
/* #:) Quick return for void matrix */ /* #:) Quick return for void matrix */
if (*m == 0 || *n == 0) { if (*m == 0 || *n == 0) {
return 0; return;
} }
/* Set numerical parameters */ /* Set numerical parameters */
@ -1067,7 +1068,7 @@ f"> */
*info = -4; *info = -4;
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGESVJ", &i__1, (ftnlen)6); xerbla_("CGESVJ", &i__1, (ftnlen)6);
return 0; return;
} }
/* Initialize the right singular vector matrix. */ /* Initialize the right singular vector matrix. */
@ -1105,7 +1106,7 @@ f"> */
*info = -6; *info = -6;
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGESVJ", &i__2, (ftnlen)6); xerbla_("CGESVJ", &i__2, (ftnlen)6);
return 0; return;
} }
aaqq = sqrt(aaqq); aaqq = sqrt(aaqq);
if (aapp < big / aaqq && noscale) { if (aapp < big / aaqq && noscale) {
@ -1135,7 +1136,7 @@ f"> */
*info = -6; *info = -6;
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGESVJ", &i__2, (ftnlen)6); xerbla_("CGESVJ", &i__2, (ftnlen)6);
return 0; return;
} }
aaqq = sqrt(aaqq); aaqq = sqrt(aaqq);
if (aapp < big / aaqq && noscale) { if (aapp < big / aaqq && noscale) {
@ -1165,7 +1166,7 @@ f"> */
*info = -6; *info = -6;
i__2 = -(*info); i__2 = -(*info);
xerbla_("CGESVJ", &i__2, (ftnlen)6); xerbla_("CGESVJ", &i__2, (ftnlen)6);
return 0; return;
} }
aaqq = sqrt(aaqq); aaqq = sqrt(aaqq);
if (aapp < big / aaqq && noscale) { if (aapp < big / aaqq && noscale) {
@ -1221,7 +1222,7 @@ f"> */
rwork[4] = 0.f; rwork[4] = 0.f;
rwork[5] = 0.f; rwork[5] = 0.f;
rwork[6] = 0.f; rwork[6] = 0.f;
return 0; return;
} }
/* #:) Quick return for one-column matrix */ /* #:) Quick return for one-column matrix */
@ -1241,7 +1242,7 @@ f"> */
rwork[4] = 0.f; rwork[4] = 0.f;
rwork[5] = 0.f; rwork[5] = 0.f;
rwork[6] = 0.f; rwork[6] = 0.f;
return 0; return;
} }
/* Protect small singular values from underflow, and try to */ /* Protect small singular values from underflow, and try to */
@ -2267,6 +2268,6 @@ L1995:
/* MXSINJ is the largest absolute value of the sines of Jacobi angles */ /* MXSINJ is the largest absolute value of the sines of Jacobi angles */
/* in the last sweep */ /* in the last sweep */
return 0; return;
} /* cgesvj_ */ } /* cgesvj_ */

Some files were not shown because too many files have changed in this diff Show More