From: james <james@8a072113-8704-0410-8d35-dd094bca7971>
Date: Tue, 5 Mar 2013 17:52:07 +0000 (+0000)
Subject: added code to set the last pivots to n: ipiv(n)=jpiv(n)=n
X-Git-Tag: submit/tizen/20180313.231549~505
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=febdb51dbf1ea06b910b40ca60671631cca0c978;p=platform%2Fupstream%2Flapack.git

added code to set the last pivots to n: ipiv(n)=jpiv(n)=n
---

diff --git a/SRC/cgetc2.f b/SRC/cgetc2.f
index e67ea969..8fe22abc 100644
--- a/SRC/cgetc2.f
+++ b/SRC/cgetc2.f
@@ -203,6 +203,12 @@
          INFO = N
          A( N, N ) = CMPLX( SMIN, ZERO )
       END IF
+*
+*     Set last pivots to N
+*
+      IPIV( N ) = N
+      JPIV( N ) = N
+*
       RETURN
 *
 *     End of CGETC2
diff --git a/SRC/dgetc2.f b/SRC/dgetc2.f
index 6ae1a204..a33bc374 100644
--- a/SRC/dgetc2.f
+++ b/SRC/dgetc2.f
@@ -203,6 +203,11 @@
          INFO = N
          A( N, N ) = SMIN
       END IF
+*
+*     Set last pivots to N
+*
+      IPIV( N ) = N
+      JPIV( N ) = N
 *
       RETURN
 *
diff --git a/SRC/sgetc2.f b/SRC/sgetc2.f
index 7e9d4850..8d688dec 100644
--- a/SRC/sgetc2.f
+++ b/SRC/sgetc2.f
@@ -203,6 +203,11 @@
          INFO = N
          A( N, N ) = SMIN
       END IF
+*
+*     Set last pivots to N
+*
+      IPIV( N ) = N
+      JPIV( N ) = N
 *
       RETURN
 *
diff --git a/SRC/zgetc2.f b/SRC/zgetc2.f
index 277ac7ce..c205c756 100644
--- a/SRC/zgetc2.f
+++ b/SRC/zgetc2.f
@@ -203,6 +203,12 @@
          INFO = N
          A( N, N ) = DCMPLX( SMIN, ZERO )
       END IF
+*
+*     Set last pivots to N
+*
+      IPIV( N ) = N
+      JPIV( N ) = N
+*
       RETURN
 *
 *     End of ZGETC2