projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: e7c9157)
typo in previous fix: MIN(M,N)>0 NOT MIN(M,N)<0 when checking NB>MIN(M,N)
authorlawrence.mulholland <lawrence.mulholland@8a072113-8704-0410-8d35-dd094bca7971>
Wed, 21 Aug 2013 10:39:32 +0000 (10:39 +0000)
committerlawrence.mulholland <lawrence.mulholland@8a072113-8704-0410-8d35-dd094bca7971>
Wed, 21 Aug 2013 10:39:32 +0000 (10:39 +0000)
SRC/cgeqrt.f patch | blob | history
SRC/dgeqrt.f patch | blob | history
SRC/sgeqrt.f patch | blob | history
SRC/zgeqrt.f patch | blob | history

diff --git a/SRC/cgeqrt.f b/SRC/cgeqrt.f
index f8911af2c13c047e8a25c326431d4061689dc331..c1f50eaa52edf1f86c73e1dc3ab89abe26953aed 100644 (file)
--- a/SRC/cgeqrt.f
+++ b/SRC/cgeqrt.f
@@ -173,7 +173,7 @@
          INFO = -1
       ELSE IF( N.LT.0 ) THEN
          INFO = -2
-      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).LT.0 ) )THEN
+      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).GT.0 ) )THEN
          INFO = -3
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -5
diff --git a/SRC/dgeqrt.f b/SRC/dgeqrt.f
index 961af0321e9cf15195de7eee94df8efc1d4cf940..72d79113e80d4c9f2ba15e38f34d1e80e4c657a8 100644 (file)
--- a/SRC/dgeqrt.f
+++ b/SRC/dgeqrt.f
@@ -173,7 +173,7 @@
          INFO = -1
       ELSE IF( N.LT.0 ) THEN
          INFO = -2
-      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).LT.0 ) )THEN
+      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).GT.0 ) )THEN
          INFO = -3
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -5
diff --git a/SRC/sgeqrt.f b/SRC/sgeqrt.f
index 2bc3c493bee674b7bee02c643135afdf328842d0..0a387c81d5a3d86ae1eec0513eca6498c446d5ab 100644 (file)
--- a/SRC/sgeqrt.f
+++ b/SRC/sgeqrt.f
@@ -173,7 +173,7 @@
          INFO = -1
       ELSE IF( N.LT.0 ) THEN
          INFO = -2
-      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).LT.0 ) )THEN
+      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).GT.0 ) )THEN
          INFO = -3
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -5
diff --git a/SRC/zgeqrt.f b/SRC/zgeqrt.f
index 934099fd20d3c0534dbcd866da8fb6b47a3f8019..2d134e7ab32d5d64eb4b75e1bb0c9fe884293751 100644 (file)
--- a/SRC/zgeqrt.f
+++ b/SRC/zgeqrt.f
@@ -173,7 +173,7 @@
          INFO = -1
       ELSE IF( N.LT.0 ) THEN
          INFO = -2
-      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).LT.0 ) )THEN
+      ELSE IF( NB.LT.1 .OR. ( NB.GT.MIN(M,N) .AND. MIN(M,N).GT.0 ) )THEN
          INFO = -3
       ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
          INFO = -5
Domain: System / Base;