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/stpqrt.f | |
| parent | 30231be484be0a9b73ca9c9204218e9d65d6c229 (diff) | |
Fixed QRT routine testing
Diffstat (limited to 'SRC/stpqrt.f')
| -rw-r--r-- | SRC/stpqrt.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/stpqrt.f b/SRC/stpqrt.f index 96dbf9d1..3b87d8d4 100644 --- a/SRC/stpqrt.f +++ b/SRC/stpqrt.f @@ -215,9 +215,9 @@ * Test the input arguments * INFO = 0 - IF( N.LT.0 ) THEN + IF( M.LT.0 ) THEN INFO = -1 - ELSE IF( M.LT.0 ) THEN + ELSE IF( N.LT.0 ) THEN INFO = -2 ELSE IF( L.LT.0 .OR. L.GT.MIN(M,N) ) THEN INFO = -3 |