Fix bugs reported by Vitorrio Zecca on August 10, 2015.

diff --git a/SRC/cgges3.f b/SRC/cgges3.f
index ab603de5dd2975b9da3a3a8652c9e1e4d0d1399c..9103ccf1c6ff177677587217709204170f69a6ae 100644 (file)
--- 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 a38882fc87f28d468e32499cf957db3aeb97f7db..6531752b149cafd0ad11ae2e61e44aa2fe57f43e 100644 (file)
--- 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 79f08b9ffb5752e1b83985123053bf86be64fcd0..e8de1a8a646b2f8779ffcd5a7b40213f4e6bb883 100644 (file)
--- 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 29adafbb8569833efc5591f695982eea0c246aad..c1c92a89ee97f9c91076bc6cd1738b14b246f6a2 100644 (file)
--- 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 198bf33b32b0c9458874a4ea2c4061fb9341d298..cc9526c3c9dd56f9b33a4b5d074890db61fcb3b4 100644 (file)
--- 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' )