diff options
author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-11 16:23:45 +0000 |
---|---|---|
committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-11 16:23:45 +0000 |
commit | 9756c9b1fd85ebd3e7cc8cc5198de00ffa456b71 (patch) | |
tree | a7731e4fe047a15d2b2e72a4cfb69314c6faa014 | |
parent | 300e756574988ef2f113696dee2c92ace46963c4 (diff) | |
download | lapack-9756c9b1fd85ebd3e7cc8cc5198de00ffa456b71.tar.gz lapack-9756c9b1fd85ebd3e7cc8cc5198de00ffa456b71.tar.bz2 lapack-9756c9b1fd85ebd3e7cc8cc5198de00ffa456b71.zip |
Fix bugs reported by Vitorrio Zecca on August 10, 2015.
-rw-r--r-- | SRC/cgges3.f | 2 | ||||
-rw-r--r-- | TESTING/EIG/cdrgev3.f | 8 | ||||
-rw-r--r-- | TESTING/EIG/ddrgev3.f | 8 | ||||
-rw-r--r-- | TESTING/EIG/sdrgev3.f | 8 | ||||
-rw-r--r-- | TESTING/EIG/zdrgev3.f | 8 |
5 files changed, 17 insertions, 17 deletions
diff --git a/SRC/cgges3.f b/SRC/cgges3.f index ab603de5..9103ccf1 100644 --- a/SRC/cgges3.f +++ b/SRC/cgges3.f @@ -397,7 +397,7 @@ $ WORK, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) IF( WANTST ) THEN - CALL CTGSEN( 0, ILVSL, ILVSR, WORK, N, A, LDA, B, LDB, + CALL CTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, SDIM, $ PVSL, PVSR, DIF, WORK, -1, IDUM, 1, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) diff --git a/TESTING/EIG/cdrgev3.f b/TESTING/EIG/cdrgev3.f index a38882fc..6531752b 100644 --- a/TESTING/EIG/cdrgev3.f +++ b/TESTING/EIG/cdrgev3.f @@ -898,10 +898,10 @@ 9999 FORMAT( ' CDRGEV3: ', A, ' returned INFO=', I6, '.', / 3X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) * - 9998 FORMAT( ' CDRGEV3: ', A, ' Eigenvectors from ', A, ' incorrectly ', - $ 'normalized.', / ' Bits of error=', 0P, G10.3, ',', 3X, - $ 'N=', I4, ', JTYPE=', I3, ', ISEED=(', 3( I4, ',' ), I5, - $ ')' ) + 9998 FORMAT( ' CDRGEV3: ', A, ' Eigenvectors from ', A, + $ ' incorrectly normalized.', / ' Bits of error=', 0P, G10.3, + $ ',', 3X, 'N=', I4, ', JTYPE=', I3, ', ISEED=(', + $ 3( I4, ',' ), I5, ')' ) * 9997 FORMAT( / 1X, A3, ' -- Complex Generalized eigenvalue problem ', $ 'driver' ) diff --git a/TESTING/EIG/ddrgev3.f b/TESTING/EIG/ddrgev3.f index 79f08b9f..e8de1a8a 100644 --- a/TESTING/EIG/ddrgev3.f +++ b/TESTING/EIG/ddrgev3.f @@ -895,10 +895,10 @@ 9999 FORMAT( ' DDRGEV3: ', A, ' returned INFO=', I6, '.', / 3X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 4( I4, ',' ), I5, ')' ) * - 9998 FORMAT( ' DDRGEV3: ', A, ' Eigenvectors from ', A, ' incorrectly ', - $ 'normalized.', / ' Bits of error=', 0P, G10.3, ',', 3X, - $ 'N=', I4, ', JTYPE=', I3, ', ISEED=(', 4( I4, ',' ), I5, - $ ')' ) + 9998 FORMAT( ' DDRGEV3: ', A, ' Eigenvectors from ', A, + $ ' incorrectly normalized.', / ' Bits of error=', 0P, G10.3, + $ ',', 3X, 'N=', I4, ', JTYPE=', I3, ', ISEED=(', + $ 4( I4, ',' ), I5, ')' ) * 9997 FORMAT( / 1X, A3, ' -- Real Generalized eigenvalue problem driver' $ ) diff --git a/TESTING/EIG/sdrgev3.f b/TESTING/EIG/sdrgev3.f index 29adafbb..c1c92a89 100644 --- a/TESTING/EIG/sdrgev3.f +++ b/TESTING/EIG/sdrgev3.f @@ -896,10 +896,10 @@ 9999 FORMAT( ' SDRGEV3: ', A, ' returned INFO=', I6, '.', / 3X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 4( I4, ',' ), I5, ')' ) * - 9998 FORMAT( ' SDRGEV3: ', A, ' Eigenvectors from ', A, ' incorrectly ', - $ 'normalized.', / ' Bits of error=', 0P, G10.3, ',', 3X, - $ 'N=', I4, ', JTYPE=', I3, ', ISEED=(', 4( I4, ',' ), I5, - $ ')' ) + 9998 FORMAT( ' SDRGEV3: ', A, ' Eigenvectors from ', A, + $ ' incorrectly normalized.', / ' Bits of error=', 0P, G10.3, + $ ',', 3X, 'N=', I4, ', JTYPE=', I3, ', ISEED=(', + $ 4( I4, ',' ), I5, ')' ) * 9997 FORMAT( / 1X, A3, ' -- Real Generalized eigenvalue problem driver' $ ) diff --git a/TESTING/EIG/zdrgev3.f b/TESTING/EIG/zdrgev3.f index 198bf33b..cc9526c3 100644 --- a/TESTING/EIG/zdrgev3.f +++ b/TESTING/EIG/zdrgev3.f @@ -894,10 +894,10 @@ 9999 FORMAT( ' ZDRGEV3: ', A, ' returned INFO=', I6, '.', / 3X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) * - 9998 FORMAT( ' ZDRGEV3: ', A, ' Eigenvectors from ', A, ' incorrectly ', - $ 'normalized.', / ' Bits of error=', 0P, G10.3, ',', 3X, - $ 'N=', I4, ', JTYPE=', I3, ', ISEED=(', 3( I4, ',' ), I5, - $ ')' ) + 9998 FORMAT( ' ZDRGEV3: ', A, ' Eigenvectors from ', A, + $ ' incorrectly normalized.', / ' Bits of error=', 0P, G10.3, + $ ',', 3X, 'N=', I4, ', JTYPE=', I3, ', ISEED=(', + $ 3( I4, ',' ), I5, ')' ) * 9997 FORMAT( / 1X, A3, ' -- Complex Generalized eigenvalue problem ', $ 'driver' ) |