Merge pull request #1023 from Goddan-wq/lapack_issue1021

changing the order of loop to improve performance
Reference-LAPACK · Jun 6, 2024 · 017dbf4 · 017dbf4
2 parents a4d0691 + 2bee293
commit 017dbf4
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/SRC/cgetc2.f b/SRC/cgetc2.f
@@ -176,8 +176,8 @@ SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO )
 *        Find max element in matrix A
 *
          XMAX = ZERO
-         DO 20 IP = I, N
-            DO 10 JP = I, N
+         DO 20 JP = I, N
+            DO 10 IP = I, N
                IF( ABS( A( IP, JP ) ).GE.XMAX ) THEN
                   XMAX = ABS( A( IP, JP ) )
                   IPV = IP

diff --git a/SRC/dgetc2.f b/SRC/dgetc2.f
@@ -176,8 +176,8 @@ SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO )
 *        Find max element in matrix A
 *
          XMAX = ZERO
-         DO 20 IP = I, N
-            DO 10 JP = I, N
+         DO 20 JP = I, N
+            DO 10 IP = I, N
                IF( ABS( A( IP, JP ) ).GE.XMAX ) THEN
                   XMAX = ABS( A( IP, JP ) )
                   IPV = IP

diff --git a/SRC/sgetc2.f b/SRC/sgetc2.f
@@ -176,8 +176,8 @@ SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO )
 *        Find max element in matrix A
 *
          XMAX = ZERO
-         DO 20 IP = I, N
-            DO 10 JP = I, N
+         DO 20 JP = I, N
+            DO 10 IP = I, N
                IF( ABS( A( IP, JP ) ).GE.XMAX ) THEN
                   XMAX = ABS( A( IP, JP ) )
                   IPV = IP

diff --git a/SRC/zgetc2.f b/SRC/zgetc2.f
@@ -176,8 +176,8 @@ SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO )
 *        Find max element in matrix A
 *
          XMAX = ZERO
-         DO 20 IP = I, N
-            DO 10 JP = I, N
+         DO 20 JP = I, N
+            DO 10 IP = I, N
                IF( ABS( A( IP, JP ) ).GE.XMAX ) THEN
                   XMAX = ABS( A( IP, JP ) )
                   IPV = IP