feat: add base implementation

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

@@ -0,0 +1,98 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 The Stdlib Authors.
+*
+* Licensed under the Apache License, Version 2.0 (the "License");
+* you may not use this file except in compliance with the License.
+* You may obtain a copy of the License at
+*
+*    http://www.apache.org/licenses/LICENSE-2.0
+*
+* Unless required by applicable law or agreed to in writing, software
+* distributed under the License is distributed on an "AS IS" BASIS,
+* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+* See the License for the specific language governing permissions and
+* limitations under the License.
+*/
+
+'use strict';
+
+// MODULES //
+
+var isRowMajor = require( '@stdlib/ndarray/base/assert/is-row-major' );
+
+
+// MAIN //
+
+/**
+* Finds the index of the last non zero column in a matrix `A`.
+*
+* @private
+* @param {PositiveInteger} M - number of rows in `A`
+* @param {PositiveInteger} N - number of columns in `A`
+* @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`
+* @returns {integer} index of the last column
+*
+* @example
+* var Float64array = require( '@stdlib/array/float64' );
+*
+* var A = new Float64array( [ 1.0, 2.0, 0.0, 3.0, 4.0, 0.0 ] ); // => [ [ 1.0, 2.0, 0.0 ], [ 3.0, 4.0, 0.0 ] ]
+*
+* var out = iladlc( 3, 2, A, 2, 1, 0 );
+* // returns 1
+*/
+function iladlc( M, N, A, strideA1, strideA2, offsetA ) {
+	var ia1;
+	var ia2;
+	var i;
+	var j;
+
+	if ( M === 0 || N === 0 ) {
+		return -1; // Invalid index
+	}
+
+	ia1 = offsetA + ( (N-1) * strideA2 ); // A( 1, N )
+	ia2 = ia1 + ( (M-1) * strideA2 ); // A( M, N )
+
+	// Quick test for common case where corners are non-zero:
+	if ( A[ ia1 ] !== 0.0 || A[ ia2 ] !== 0.0 ) {
+		return N - 1;
+	}
+
+	if ( isRowMajor( [ strideA1, strideA2 ] ) ) {
+		ia1 = offsetA;
+		for ( i = 0; i < M; i++ ) {
+			ia2 = ( N - 1 ) * strideA2;
+			for ( j = N-1; j >= 0; j-- ) {
+				if ( A[ ia1 + ia2 ] !== 0.0 ) {
+					return j;
+				}
+				ia2 -= strideA2;
+			}
+			ia1 += strideA1;
+		}
+	} else {
+		ia1 = offsetA + ( (N-1) * strideA2 );
+		for ( i = N-1; i >= 0; i-- ) {
+			ia1 = 0;
+			for ( j = 0; j < M; j++ ) {
+				if ( A[ ia1 + ia2 ] !== 0.0 ) {
+					return i;
+				}
+				ia1 += strideA1;
+			}
+			ia1 -= strideA2;
+		}
+	}
+
+	return -1;
+}
+
+
+// EXPORTS //
+
+module.exports = iladlc;