Fix from Lawrence Mulholland (NAG).
authorlangou <langou@users.noreply.github.com>
Fri, 16 Aug 2013 15:03:03 +0000 (15:03 +0000)
committerlangou <langou@users.noreply.github.com>
Fri, 16 Aug 2013 15:03:03 +0000 (15:03 +0000)
commite7c915724441cc7bab2d1b3acf6f289c844d6dbe
tree47518cb5711913217282588c138d1a96b04c1247
parent2c7f5d957a6ea86dcd16d349650915f45dbe594a
Fix from Lawrence Mulholland (NAG).

From Lawrence:
The *GEQRT routines are supposed to return immediately when N=0 or M=0.
However the code is such that an INFO = -3 is triggered since we are
trying to satisfy
ELSE IF( NB.LT.1 .OR. NB.GT.MIN(M,N) )THEN
INFO = -3
should be
ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).LT.0 ) )THEN
INFO = -3

Also on a side note, I think we could allow NB to be greater than MIN(M,N) in
the interface and then reset NB as needed if the user's NB is too large.
Another day. Good enough for now.

Julien.
SRC/cgeqrt.f
SRC/dgeqrt.f
SRC/sgeqrt.f
SRC/zgeqrt.f