Align TESTING/{EIG,LIN}/*get02.f

diff --git a/TESTING/EIG/cget02.f b/TESTING/EIG/cget02.f
index f79585d..276680c 100644 (file)
--- a/TESTING/EIG/cget02.f
+++ b/TESTING/EIG/cget02.f
@@ -154,7 +154,7 @@
       REAL               ZERO, ONE
       PARAMETER          ( ZERO = 0.0E+0, ONE = 1.0E+0 )
       COMPLEX            CONE
-      PARAMETER          ( CONE = 1.0E+0 )
+      PARAMETER          ( CONE = ( 1.0E+0, 0.0E+0 ) )
 *     ..
 *     .. Local Scalars ..
       INTEGER            J, N1, N2
@@ -191,7 +191,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = SLAMCH( 'Epsilon' )
-      ANORM = CLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN

diff --git a/TESTING/EIG/dget02.f b/TESTING/EIG/dget02.f
index c992b52..7b8bdd8 100644 (file)
--- a/TESTING/EIG/dget02.f
+++ b/TESTING/EIG/dget02.f
@@ -189,7 +189,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = DLAMCH( 'Epsilon' )
-      ANORM = DLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = DLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN

diff --git a/TESTING/EIG/sget02.f b/TESTING/EIG/sget02.f
index 5054686..430e8d0 100644 (file)
--- a/TESTING/EIG/sget02.f
+++ b/TESTING/EIG/sget02.f
@@ -189,7 +189,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = SLAMCH( 'Epsilon' )
-      ANORM = SLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = SLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN

diff --git a/TESTING/EIG/zget02.f b/TESTING/EIG/zget02.f
index b157379..49ea2ca 100644 (file)
--- a/TESTING/EIG/zget02.f
+++ b/TESTING/EIG/zget02.f
@@ -154,7 +154,7 @@
       DOUBLE PRECISION   ZERO, ONE
       PARAMETER          ( ZERO = 0.0D+0, ONE = 1.0D+0 )
       COMPLEX*16         CONE
-      PARAMETER          ( CONE = 1.0D+0 )
+      PARAMETER          ( CONE = ( 1.0D+0, 0.0D+0 ) )
 *     ..
 *     .. Local Scalars ..
       INTEGER            J, N1, N2
@@ -191,7 +191,7 @@
 *     Exit with RESID = 1/EPS if ANORM = 0.
 *
       EPS = DLAMCH( 'Epsilon' )
-      ANORM = ZLANGE( '1', N1, N2, A, LDA, RWORK )
+      ANORM = ZLANGE( '1', M, N, A, LDA, RWORK )
       IF( ANORM.LE.ZERO ) THEN
          RESID = ONE / EPS
          RETURN