chore: cleaning up

---
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: passed
  - 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: passed
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: aayush0325

lib/node_modules/@stdlib/lapack/base/dorg2r/docs/types/index.d.ts

@@ -35,7 +35,7 @@ interface Routine {
 	* @param N - number of columns in `A`
 	* @param K - number of elementary reflectors whose product defines the matrix `Q`
 	* @param A - input matrix (overwritten with `Q` on output)
-	* @param LDA - stride of the first dimension of `A` (leading dimension)
+	* @param LDA - stride of the first dimension of `A` (a.k.a., leading dimension of the matrix `A`)
 	* @param tau - vector of `K` scalar factors of the elementary reflectors
 	* @param work - workspace array
 	* @returns matrix `A` overwritten with the orthogonal matrix `Q`
@@ -93,7 +93,7 @@ interface Routine {
 * @param N - number of columns in `A`
 * @param K - number of elementary reflectors whose product defines the matrix `Q`
 * @param A - input matrix (overwritten with `Q` on output)
-* @param LDA - stride of the first dimension of `A` (leading dimension)
+* @param LDA - stride of the first dimension of `A` (a.k.a., leading dimension of the matrix `A`)
 * @param tau - vector of `K` scalar factors of the elementary reflectors
 * @param work - workspace array
 * @returns matrix `A` overwritten with the orthogonal matrix `Q`

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

@@ -33,7 +33,7 @@ var dlarf1f = require( './dlarf1f.js' );
 * @param {PositiveInteger} M - number of rows in matrix `A`
 * @param {PositiveInteger} N - number of columns in matrix `A`
 * @param {NonNegativeInteger} K - number of elementary reflectors whose product defines the matrix Q
-* @param {Float64Array} A - input matrix (overwritten by Householder vectors from `dgeqrf`
+* @param {Float64Array} A - input matrix
 * @param {integer} strideA1 - stride of the first dimension of `A`
 * @param {integer} strideA2 - stride of the second dimension of `A`
 * @param {NonNegativeInteger} offsetA - index offset for `A`
@@ -56,6 +56,11 @@ var dlarf1f = require( './dlarf1f.js' );
 * // A => <Float64Array>[ 1.0, 0.0, 0.0, 0.0, 1.0, 0.0 ]
 */
 function dorg2r( M, N, K, A, strideA1, strideA2, offsetA, tau, strideTau, offsetTau, work, strideWork, offsetWork ) { // eslint-disable-line max-len, max-params
+	var ia1;
+	var ia3;
+	var del;
+	var ia2;
+	var it;
 	var i;
 	var j;
 	var l;
@@ -65,30 +70,49 @@ function dorg2r( M, N, K, A, strideA1, strideA2, offsetA, tau, strideTau, offset
 	}
 
 	// Initialize columns k+1:n to columns of the unit matrix
+	ia1 = offsetA + (K*strideA1) + (K*strideA2);
+	ia2 = offsetA + (K*strideA2);
+	del = strideA1 + strideA2;
+
 	for ( j = K; j < N; j++ ) {
 		for ( l = 0; l < M; l++ ) {
-			A[ offsetA + (l*strideA1) + (j*strideA2) ] = 0.0;
+			A[ ia2 ] = 0.0;
+			ia2 += strideA1;
 		}
-		A[ offsetA + (j*strideA1) + (j*strideA2) ] = 1.0;
+		A[ ia1 ] = 1.0;
+		ia1 += del;
+		ia2 += strideA2;
 	}
 
+	it = offsetTau + ((K-1)*strideTau);
+	ia1 = offsetA + ((K-1)*(strideA1+strideA2));
+	ia2 = offsetA + ((K-1)*strideA2);
+
 	// Apply H(i) to A(i:m,i:n) from the left
 	for ( i = K-1; i >= 0; i-- ) {
 		if ( i < N ) {
 			// Apply H(i) to A(i:m,i+1:n) from the left
-			dlarf1f( 'left', M-i, N-i-1, A, strideA1, offsetA + (i*strideA1) + (i*strideA2), tau[ offsetTau + (i*strideTau) ], A, strideA1, strideA2, offsetA + (i*strideA1) + ((i+1)*strideA2), work, strideWork, offsetWork );
+			dlarf1f( 'left', M-i, N-i-1, A, strideA1, ia1, tau[ it ], A, strideA1, strideA2, ia1 + strideA2, work, strideWork, offsetWork );
 		}
 		if ( i < M ) {
 			// Scale A(i+1:m,i) by -tau(i)
-			dscal( M-i-1, -tau[ offsetTau + (i*strideTau) ], A, strideA1, offsetA + ((i+1)*strideA1) + (i*strideA2) ); // eslint-disable-line max-len
+			dscal( M-i-1, -tau[ it ], A, strideA1, ia1 + strideA1 );
 		}
+
 		// Set A(i,i) = 1 - tau(i)
-		A[ offsetA + (i*strideA1) + (i*strideA2) ] = 1.0 - tau[ offsetTau + (i*strideTau) ]; // eslint-disable-line max-len
+		A[ ia1 ] = 1.0 - tau[ it ];
+
+		ia3 = 0;
 
 		// Set A(0:i-1,i) to zero
 		for ( l = 0; l < i; l++ ) {
-			A[ offsetA + (l*strideA1) + (i*strideA2) ] = 0.0;
+			A[ ia2 + ia3 ] = 0.0;
+			ia3 += strideA1;
 		}
+		it -= strideTau;
+
+		ia1 -= del;
+		ia2 -= strideA2;
 	}
 
 	return A;

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

@@ -37,7 +37,7 @@ var base = require( './base.js' );
 * @param {PositiveInteger} M - number of rows in matrix `A`
 * @param {PositiveInteger} N - number of columns in matrix `A`
 * @param {NonNegativeInteger} K - number of elementary reflectors whose product defines the matrix Q
-* @param {Float64Array} A - input matrix (overwritten by Householder vectors from `dgeqrf`
+* @param {Float64Array} A - input matrix
 * @param {PositiveInteger} LDA - stride of the first dimension of `A` (a.k.a., leading dimension of the matrix `A`)
 * @param {Float64Array} tau - vector of K scalar factors of the elementary reflectors
 * @param {Float64Array} work - workspace array

lib/node_modules/@stdlib/lapack/base/dorg2r/lib/ndarray.js

@@ -31,7 +31,7 @@ var base = require( './base.js' );
 * @param {PositiveInteger} M - number of rows in matrix `A`
 * @param {PositiveInteger} N - number of columns in matrix `A`
 * @param {NonNegativeInteger} K - number of elementary reflectors whose product defines the matrix Q
-* @param {Float64Array} A - input matrix (overwritten by Householder vectors from `dgeqrf`
+* @param {Float64Array} A - input matrix
 * @param {integer} strideA1 - stride of the first dimension of `A`
 * @param {integer} strideA2 - stride of the second dimension of `A`
 * @param {NonNegativeInteger} offsetA - index offset for `A`

lib/node_modules/@stdlib/lapack/base/dorg2r/test/test.dorg2r.js

@@ -27,6 +27,8 @@ var dorg2r = require( './../lib/dorg2r.js' );
 
 // FIXTURES //
 
+// Note: the outputs are tested against the outputs of the Fortran implementation.
+
 var COL_MAJOR = require( './fixtures/column_major.json' );
 var ROW_MAJOR = require( './fixtures/row_major.json' );
 var COL_MAJOR_K_LT_N = require( './fixtures/column_major_k_lt_n.json' );

lib/node_modules/@stdlib/lapack/base/dorg2r/test/test.ndarray.js

@@ -29,6 +29,8 @@ var dorg2r = require( './../lib/ndarray.js' );
 
 // FIXTURES //
 
+// Note: the outputs are tested against the outputs of the Fortran implementation.
+
 var COL_MAJOR = require( './fixtures/column_major.json' );
 var ROW_MAJOR = require( './fixtures/row_major.json' );
 var COL_MAJOR_K_LT_N = require( './fixtures/column_major_k_lt_n.json' );