diff options
Diffstat (limited to 'SRC/dtpqrt.f')
| -rw-r--r-- | SRC/dtpqrt.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dtpqrt.f b/SRC/dtpqrt.f index f3bcde22..c8f2e14c 100644 --- a/SRC/dtpqrt.f +++ b/SRC/dtpqrt.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 |