From 9756c9b1fd85ebd3e7cc8cc5198de00ffa456b71 Mon Sep 17 00:00:00 2001 From: "philippe.theveny" Date: Tue, 11 Aug 2015 16:23:45 +0000 Subject: [PATCH] Fix bugs reported by Vitorrio Zecca on August 10, 2015. --- SRC/cgges3.f | 2 +- TESTING/EIG/cdrgev3.f | 8 ++++---- TESTING/EIG/ddrgev3.f | 8 ++++---- TESTING/EIG/sdrgev3.f | 8 ++++---- TESTING/EIG/zdrgev3.f | 8 ++++---- 5 files changed, 17 insertions(+), 17 deletions(-) diff --git a/SRC/cgges3.f b/SRC/cgges3.f index ab603de..9103ccf 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 a38882f..6531752 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 79f08b9..e8de1a8 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 29adafb..c1c92a8 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 198bf33..cc9526c 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' ) -- 2.7.4