refactor: pointer arithmetic

---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: passed
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: na
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: aayush0325

lib/node_modules/@stdlib/lapack/base/dgebal/lib/base.js

@@ -146,11 +146,11 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 			// Search for rows isolating an eigenvalue and push them down
 			noconv = false;
 
-			is = offsetScale + ( l * strideScale ); // Follows `scale`
-			ia1 = offsetA + ( l * strideA2 ); // Follows `i`th column
-			ia2 = offsetA + ( l * strideA2 ); // Follows `l`th column
-			ia3 = offsetA + (l*strideA1) + (k*strideA2); // Follows `i`th row
-			ia4 = offsetA + (l*strideA1) + (k*strideA2); // Follows `l`th row
+			is = offsetScale + ( l * strideScale ); // Follows scale
+			ia1 = offsetA + ( l * strideA2 ); // Follows `i`th column of A
+			ia2 = offsetA + ( l * strideA2 ); // Follows `l`th column of A
+			ia3 = offsetA + (l*strideA1) + (k*strideA2); // Follows `i`th row of A
+			ia4 = offsetA + (l*strideA1) + (k*strideA2); // Follows `l`th row of A
 
 			for ( i = l; i >= 0; i-- ) {
 				canSwap = true;
@@ -176,10 +176,12 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 						return 0;
 					}
 					l -= 1;
+
 					is -= strideScale;
 					ia2 -= strideA2;
 					ia4 -= strideA1;
 				}
+
 				ia1 -= strideA2;
 				ia3 -= strideA1;
 			}
@@ -189,7 +191,9 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 		while ( noconv ) {
 			// Search for columns isolating an eigenvalue and push them left
 			noconv = false;
-			is = offsetScale + ( k * strideScale );
+			is = offsetScale + ( k * strideScale ); // Follows scale
+			ia1 = offsetA + ( k * strideA2 ); // Follows `j`th column of A
+			ia2 = offsetA + ( k * strideA2 ); // Follows `k`th column of A
 			for ( j = k; j <= l; j++ ) {
 				canSwap = true;
 				for ( i = k; i <= l; i++ ) {
@@ -202,13 +206,17 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 				if ( canSwap ) {
 					scale[ is ] = j;
 					if ( j !== k ) {
-						dswap( l+1, A, strideA1, offsetA + (j*strideA2), A, strideA1, offsetA + (k*strideA2) );
+						dswap( l+1, A, strideA1, ia1, A, strideA1, ia2 );
 						dswap( N-k, A, strideA2, offsetA + (j*strideA1), A, strideA2, offsetA + (k*strideA1) );
 					}
 					noconv = true;
 					k += 1;
+
 					is += strideScale;
+					ia2 += strideA2;
 				}
+
+				ia1 += strideA2;
 			}
 		}
 	}