diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-24 13:32:51 -0700 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-24 16:57:29 -0700 |
| commit | 0c94b08376514646a92ec3ff9943c3166fbce642 (patch) | |
| tree | 382bf7f23e3be16d944c522dd709a3f84688fbe4 /TESTING | |
| parent | 4c45cc4b332769a9031c566cd94eb3b952abf810 (diff) | |
| download | lapack-0c94b08376514646a92ec3ff9943c3166fbce642.tar.gz lapack-0c94b08376514646a92ec3ff9943c3166fbce642.tar.bz2 lapack-0c94b08376514646a92ec3ff9943c3166fbce642.zip | |
Align TESTING/{EIG,LIN}/*get02.f
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 |