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: accepted/tizen/5.0/unified/20181102.024111~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 e67ea96..8fe22ab 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 6ae1a20..a33bc37 100644
--- a/SRC/dgetc2.f
+++ b/SRC/dgetc2.f
@@ -204,6 +204,11 @@
          A( N, N ) = SMIN
       END IF
 *
+*     Set last pivots to N
+*
+      IPIV( N ) = N
+      JPIV( N ) = N
+*
       RETURN
 *
 *     End of DGETC2
diff --git a/SRC/sgetc2.f b/SRC/sgetc2.f
index 7e9d485..8d688de 100644
--- a/SRC/sgetc2.f
+++ b/SRC/sgetc2.f
@@ -204,6 +204,11 @@
          A( N, N ) = SMIN
       END IF
 *
+*     Set last pivots to N
+*
+      IPIV( N ) = N
+      JPIV( N ) = N
+*
       RETURN
 *
 *     End of SGETC2
diff --git a/SRC/zgetc2.f b/SRC/zgetc2.f
index 277ac7c..c205c75 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