diff options
| author | julie <julielangou@users.noreply.github.com> | 2013-11-17 01:08:52 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2013-11-17 01:08:52 +0000 |
| commit | 94c1e9addacc088fc75ad0c17cf599bdc1d13074 (patch) | |
| tree | a34b5fa5516072e3620cea3b8fa9b5dd2e1623d3 /SRC/ztpqrt.f | |
| parent | afbaf16e8a89a7477f0bdb1ef1375ad8faa651b3 (diff) | |
Slight modification to Lawrence patch for xTPQRT - Update conditions for testing parameter L - MIN(M,N) can be 0
Diffstat (limited to 'SRC/ztpqrt.f')
| -rw-r--r-- | SRC/ztpqrt.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/ztpqrt.f b/SRC/ztpqrt.f index 40ad4d02..05fc8844 100644 --- a/SRC/ztpqrt.f +++ b/SRC/ztpqrt.f @@ -219,7 +219,7 @@ INFO = -1 ELSE IF( N.LT.0 ) THEN INFO = -2 - ELSE IF( L.LT.0 .OR. (L.GT.MIN(M,N) .AND. MIN(M,N).GT.0)) THEN + ELSE IF( L.LT.0 .OR. (L.GT.MIN(M,N) .AND. MIN(M,N).GE.0)) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. (NB.GT.N .AND. N.GT.0)) THEN INFO = -4 |