diff options
Diffstat (limited to 'TESTING/EIG/sget02.f')
-rw-r--r-- | TESTING/EIG/sget02.f | 2 |
1 files changed, 1 insertions, 1 deletions
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 |