refactor: base implementation refactoring

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

@@ -111,41 +111,53 @@ function dgttrf( N, DL, strideDL, offsetDL, D, strideD, offsetD, DU, strideDU, o
 	ip = offsetIPIV;
 
 	for ( i = 0; i < N-2; i++ ) {
-		if ( abs( D[ id + (strideD*i) ] ) >= abs( DL[ idl + (strideDL*i) ] ) ) { // No row interchange required, eleminate ith element of DL
+		if ( abs( D[ id ] ) >= abs( DL[ idl ] ) ) { // No row interchange required, eleminate ith element of DL
 			if ( D[ id ] !== 0.0 ) {
-				fact = DL[ idl + (strideDL*i) ] / D[ id + (strideD*i) ];
-				DL[ idl + (strideDL*i) ] = fact;
-				D[ id + (strideD*(i+1)) ] = D[ id + (strideD*(i+1)) ] - ( fact*DU[ idu + (strideDU*i) ] ); // eslint-disable-line max-len
+				fact = DL[ idl ] / D[ id ];
+				DL[ idl ] = fact;
+				D[ id + strideD ] = D[ id + strideD ] - ( fact*DU[ idu ] );
 			}
 		} else { // Interchange the ith and (i+1)th rows and eliminate ith element of DL
-			fact = D[ id+(strideD*i) ] / DL[ idl+(strideDL*i) ];
-			D[ id+(strideD*i) ] = DL[ idl+(strideDL*i) ];
-			DL[ idl+(strideDL*i) ] = fact;
-			temp = DU[ idu+(strideDU*i) ];
-			DU[ idu+(strideDU*i) ] = D[ id + (strideD*(i+1)) ];
-			D[ id+(strideD*(i+1)) ] = temp - ( fact*D[ id+(strideD*(i+1)) ] );
-			DU2[ idu2+(strideDU2*i) ] = DU[ idu+(strideDU*(i+1)) ];
-			DU[ idu+(strideDU*(i+1)) ] = -fact*DU[ idu+(strideDU*(i+1)) ];
-			IPIV[ ip+(strideIPIV*i) ] = i + 1;
+			fact = D[ id ] / DL[ idl ];
+			D[ id ] = DL[ idl ];
+			DL[ idl ] = fact;
+			temp = DU[ idu ];
+			DU[ idu ] = D[ id + strideD ];
+			D[ id + strideD ] = temp - ( fact*D[ id + strideD ] );
+			DU2[ idu2 ] = DU[ idu + strideDU ];
+			DU[ idu + strideDU ] = -fact*DU[ idu + strideDU ];
+			IPIV[ ip ] = i + 1;
 		}
+
+		id += strideD;
+		idl += strideDL;
+		idu += strideDU;
+		idu2 += strideDU2;
+		ip += strideIPIV;
 	}
 
 	if ( N > 1 ) {
 		i = N - 2;
-		if ( abs( D[ id + (strideD*i) ] ) >= abs( DL[ idl + (strideDL*i) ] ) ) {
-			if ( D[ id + (strideD*i) ] !== 0 ) {
-				fact = DL[ idl + (strideDL*i) ] / D[ id + (strideD*i) ];
-				DL[ idl + (strideDL*i) ] = fact;
-				D[ id + (strideD*(i+1)) ] = D[ id + (strideD*(i+1)) ] - (fact*DU[ idu + (strideDU*i) ]); // eslint-disable-line max-len
+		idl = offsetDL + ( strideDL * i );
+		id = offsetD + ( strideD * i );
+		idu = offsetDU + ( strideDU * i );
+		idu2 = offsetDU2 + ( strideDU2 * i );
+		ip = offsetIPIV + ( strideIPIV * i );
+
+		if ( abs( D[ id ] ) >= abs( DL[ idl ] ) ) {
+			if ( D[ id ] !== 0 ) {
+				fact = DL[ idl ] / D[ id ];
+				DL[ idl ] = fact;
+				D[ id + strideD ] = D[ id + strideD ] - ( fact * DU[ idu ] );
 			}
 		} else {
-			fact = D[ id+(strideD*i) ] / DL[ idl+(strideDL*i) ];
-			D[ id+(strideD*i) ] = DL[ idl+(strideDL*i) ];
-			DL[ idl+(strideDL*i) ] = fact;
-			temp = DU[ idu+(strideDU*i) ];
-			DU[ idu+(strideDU*i) ] = D[ id + (strideD*(i+1)) ];
-			D[ id+(strideD*(i+1)) ] = temp - ( fact*D[ id+(strideD*(i+1)) ] );
-			IPIV[ ip+(strideIPIV*i) ] = i + 1;
+			fact = D[ id ] / DL[ idl ];
+			D[ id ] = DL[ idl ];
+			DL[ idl ] = fact;
+			temp = DU[ idu ];
+			DU[ idu ] = D[ id + strideD ];
+			D[ id + strideD ] = temp - ( fact*D[ id + strideD ] );
+			IPIV[ ip ] = i + 1;
 		}
 	}