chore: add checks

---
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: na
  - 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: missing_dependencies
  - 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: ShabiShett07

lib/node_modules/@stdlib/blas/base/dsyr2/src/dsyr2.c

@@ -35,11 +35,38 @@
 * @param LDA      stride of the first dimension of `A` (a.k.a., leading dimension of the matrix `A`)
 */
 void API_SUFFIX(c_dsyr2)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT strideX, const double *Y, const CBLAS_INT strideY, double *A, const CBLAS_INT LDA ) {
+	CBLAS_INT vala;
 	CBLAS_INT sa1;
 	CBLAS_INT sa2;
 	CBLAS_INT ox;
 	CBLAS_INT oy;
 
+	// Perform input argument validation...
+	if ( order != CblasRowMajor && order != CblasColMajor ) {
+		c_xerbla( 1, "c_dsyr2", "Error: invalid argument. First argument must be a valid order. Value: `%d`.", order );
+		return;
+	}
+	if ( uplo != CblasLower && uplo != CblasUpper ) {
+		c_xerbla( 2, "c_dsyr2", "Error: invalid argument. Second argument must specify whether to reference the lower or upper triangular matrixecond argument must specify whether to reference the lower or upper triangular matrix. Value: `%d`.", uplo );
+		return;
+	}
+	if ( N < 0 ) {
+		c_xerbla( 3, "c_dsyr2", "Error: invalid argument. Third argument must be a nonnegative integer. Value: `%d`.", N );
+		return;
+	}
+	if ( strideX == 0 ) {
+		c_xerbla( 6, "c_dsyr2", "Error: invalid argument. Sixth argument must be nonzero. Value: `%d`.", strideX );
+		return;
+	}
+	if ( strideY == 0 ) {
+		c_xerbla( 8, "c_dsyr2", "Error: invalid argument. Eighth argument must be nonzero. Value: `%d`.", strideX );
+		return;
+	}
+	if ( LDA < N ) {
+		c_xerbla( 10, "c_dsyr2", "Error: invalid argument. Tenth argument must be greater than or equal to max(1,%d). Value: `%d`.", N, LDA );
+		return;
+	}
+	// Check whether we can avoid computation altogether...
 	if ( N == 0 || alpha == 0.0 ) {
 		return;
 	}

lib/node_modules/@stdlib/blas/base/dsyr2/src/dsyr2_ndarray.c

@@ -38,6 +38,7 @@
 * @param offsetA   starting index of `A`
 */
 void API_SUFFIX(c_dsyr2_ndarray)( const CBLAS_UPLO uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, const double *Y, const CBLAS_INT strideY, const CBLAS_INT offsetY, double *A, const CBLAS_INT strideA1, const CBLAS_INT strideA2, const CBLAS_INT offsetA ) {
+	int64_t sa[ 2 ];
 	CBLAS_INT isrm;
 	CBLAS_INT ix0;
 	CBLAS_INT ix1;
@@ -53,11 +54,33 @@ void API_SUFFIX(c_dsyr2_ndarray)( const CBLAS_UPLO uplo, const CBLAS_INT N, cons
 	double tmp1;
 	double tmp2;
 
-	int64_t strides[] = { strideA1, strideA2 };
+	// Note on variable naming convention: S#, ix#, iy#, i# where # corresponds to the loop number, with `0` being the innermost loop...
+
+	// Perform input argument validation...
+	if ( uplo != CblasLower && uplo != CblasUpper ) {
+		c_xerbla( 1, "c_dsyr2_ndarray", "Error: invalid argument. First argument must specify whether to reference the lower or upper triangular matrixecond argument must specify whether to reference the lower or upper triangular matrix. Value: `%d`.", uplo );
+		return;
+	}
+	if ( N < 0 ) {
+		c_xerbla( 2, "c_dsyr2_ndarray", "Error: invalid argument. Second argument must be a nonnegative integer. Value: `%d`.", N );
+		return;
+	}
+	if ( strideX == 0 ) {
+		c_xerbla( 5, "c_dsyr2_ndarray", "Error: invalid argument. Fifth argument must be a nonzero. Value: `%d`.", strideX );
+		return;
+	}
+	if ( strideY == 0 ) {
+		c_xerbla( 8, "c_dsyr2_ndarray", "Error: invalid argument. Eighth argument must be a nonzero. Value: `%d`.", strideY );
+		return;
+	}
+	// Check whether we can avoid computation altogether...
 	if ( N == 0 || alpha == 0.0 ) {
 		return;
 	}
-	isrm = stdlib_ndarray_is_row_major( 2, strides );
+	// Extract loop variables for purposes of loop interchange: dimensions and loop offset (pointer) increments...
+	sa[ 0 ] = strideA1;
+	sa[ 1 ] = strideA2;
+	isrm = stdlib_ndarray_is_row_major( 2, sa );
 	if ( isrm ) {
 		// For row-major matrices, the last dimension has the fastest changing index...
 		sa0 = strideA2; // stride for innermost loop