refactor: make the base implementation cleaner

---
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/dgebak/lib/base.js

@@ -64,6 +64,7 @@ var swaps = require( './swaps.js' );
 * // returns <Float64Array>[ 0.5, 2, 4, 10, 3, 6 ]
 */
 function dgebak( job, side, N, M, ilo, ihi, scale, strideScale, offsetScale, V, strideV1, strideV2, offsetV ) { // eslint-disable-line max-len, max-params
+	var is;
 	var i;
 	var s;
 
@@ -79,16 +80,15 @@ function dgebak( job, side, N, M, ilo, ihi, scale, strideScale, offsetScale, V,
 	}
 
 	if ( job === 'scale' || job === 'both' ) {
-		if ( side === 'right' ) {
-			for ( i = ilo; i <= ihi; i++ ) {
-				s = scale[ offsetScale + ( i * strideScale ) ];
-				dscal( M, s, V, strideV2, offsetV + ( i * strideV1 ) );
-			}
-		} else {
-			for ( i = ilo; i <= ihi; i++ ) {
-				s = 1 / scale[ offsetScale + ( i * strideScale ) ];
-				dscal( M, s, V, strideV2, offsetV + ( i * strideV1 ) );
+		is = offsetScale + ( ilo * strideScale );
+		for ( i = ilo; i <= ihi; i++ ) {
+			if ( side === 'right' ) {
+				s = scale[ is ];
+			} else {
+				s = 1 / scale[ is ];
 			}
+			dscal( M, s, V, strideV2, offsetV + ( i * strideV1 ) );
+			is += strideScale;
 		}
 	}