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

@@ -99,6 +99,10 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 	var sfmax2;
 	var ica;
 	var ira;
+	var ia1;
+	var ia2;
+	var ia3;
+	var ia4;
 	var ca;
 	var ra;
 	var is;
@@ -141,7 +145,13 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 		while ( noconv ) {
 			// Search for rows isolating an eigenvalue and push them down
 			noconv = false;
-			is = offsetScale + ( l * strideScale );
+
+			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
+
 			for ( i = l; i >= 0; i-- ) {
 				canSwap = true;
 				for ( j = 0; j <= l; j++ ) {
@@ -154,8 +164,8 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 				if ( canSwap ) {
 					scale[ is ] = i;
 					if ( i !== l ) {
-						dswap( l+1, A, strideA1, offsetA + (i*strideA2), A, strideA1, offsetA + (l*strideA2) );
-						dswap( N - k, A, strideA2, offsetA + (i*strideA1) + (k*strideA2), A, strideA2, offsetA + (l*strideA1) + (k*strideA2) );
+						dswap( l+1, A, strideA1, ia1, A, strideA1, ia2 );
+						dswap( N - k, A, strideA2, ia3, A, strideA2, ia4 );
 					}
 					noconv = true;
 
@@ -167,7 +177,11 @@ function dgebal( job, N, A, strideA1, strideA2, offsetA, out, strideOut, offsetO
 					}
 					l -= 1;
 					is -= strideScale;
+					ia2 -= strideA2;
+					ia4 -= strideA1;
 				}
+				ia1 -= strideA2;
+				ia3 -= strideA1;
 			}
 		}