diff --git a/SRC/dlaswlq.f b/SRC/dlaswlq.f index 1fe888501..9c4ceb19c 100644 --- a/SRC/dlaswlq.f +++ b/SRC/dlaswlq.f @@ -218,7 +218,7 @@ SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 ) ) THEN INFO = -3 - ELSE IF( NB.LT.0 ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -6