diff options
| author | langou <langou@users.noreply.github.com> | 2015-06-17 14:44:54 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2015-06-17 14:44:54 +0000 |
| commit | 73854f7f69412d4bc9eb001b3a6d77d2387c1987 (patch) | |
| tree | 0cd67471177e6834544320f9e7e068464de04f2f | |
| parent | e3c6598e1a709aef738474e2a2081d1445bf59db (diff) | |
| download | lapack-73854f7f69412d4bc9eb001b3a6d77d2387c1987.tar.gz lapack-73854f7f69412d4bc9eb001b3a6d77d2387c1987.tar.bz2 lapack-73854f7f69412d4bc9eb001b3a6d77d2387c1987.zip | |
bug in [c,d,s,z]get02.f when calling the norm computation for A
| -rw-r--r-- | TESTING/LIN/cget02.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/dget02.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/sget02.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zget02.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/LIN/cget02.f b/TESTING/LIN/cget02.f index 7fe35e9e..2a493eaf 100644 --- a/TESTING/LIN/cget02.f +++ b/TESTING/LIN/cget02.f @@ -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/LIN/dget02.f b/TESTING/LIN/dget02.f index 0939eeb6..56cb579e 100644 --- a/TESTING/LIN/dget02.f +++ b/TESTING/LIN/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/LIN/sget02.f b/TESTING/LIN/sget02.f index 85adaaf9..e6ca7e1f 100644 --- a/TESTING/LIN/sget02.f +++ b/TESTING/LIN/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/LIN/zget02.f b/TESTING/LIN/zget02.f index 55025c97..ffea7d22 100644 --- a/TESTING/LIN/zget02.f +++ b/TESTING/LIN/zget02.f @@ -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 |