diff options
author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-01-18 22:38:18 +0000 |
---|---|---|
committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-01-18 22:38:18 +0000 |
commit | eb4f5ca43b87c2be5236318d1fe72b3c1ed83b91 (patch) | |
tree | 7818e8707352a5cc189fb2c90bd4fefcc8fb834e /SRC/ztpmqrt.f | |
parent | 30231be484be0a9b73ca9c9204218e9d65d6c229 (diff) | |
download | lapack-eb4f5ca43b87c2be5236318d1fe72b3c1ed83b91.tar.gz lapack-eb4f5ca43b87c2be5236318d1fe72b3c1ed83b91.tar.bz2 lapack-eb4f5ca43b87c2be5236318d1fe72b3c1ed83b91.zip |
Fixed QRT routine testing
Diffstat (limited to 'SRC/ztpmqrt.f')
-rw-r--r-- | SRC/ztpmqrt.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/ztpmqrt.f b/SRC/ztpmqrt.f index 54de3ce7..54c17592 100644 --- a/SRC/ztpmqrt.f +++ b/SRC/ztpmqrt.f @@ -277,13 +277,13 @@ ELSE IF( NB.LT.1 .OR. NB.GT.K ) THEN INFO = -7 ELSE IF( LDV.LT.MAX( 1, Q ) ) THEN - INFO = -8 + INFO = -9 ELSE IF( LDT.LT.NB ) THEN - INFO = -10 + INFO = -11 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -12 + INFO = -13 ELSE IF( LDB.LT.MAX( 1, M ) ) THEN - INFO = -12 + INFO = -15 END IF * IF( INFO.NE.0 ) THEN |