diff options
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/cget02.f | 4 | ||||
| -rw-r--r-- | TESTING/EIG/dget02.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/sget02.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/zget02.f | 4 |
4 files changed, 6 insertions, 6 deletions
diff --git a/TESTING/EIG/cget02.f b/TESTING/EIG/cget02.f index f79585db..276680c1 100644 --- 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 c992b524..7b8bdd8b 100644 --- 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 50546869..430e8d0a 100644 --- 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 b157379a..49ea2ca0 100644 --- 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 |