chore: minor clean-up

Signed-off-by: Shabareesh Shetty <[email protected]>

Author: ShabiShett07

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

@@ -36,6 +36,7 @@
 * @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 layout, 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;
@@ -62,8 +63,14 @@ void API_SUFFIX(c_dsyr2)( const CBLAS_LAYOUT layout, const CBLAS_UPLO uplo, cons
 		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 );
+	// max(1, N)
+	if ( N < 1 ) {
+		vala = 1;
+	} else {
+		vala = N;
+	}
+	if ( LDA < vala ) {
+		c_xerbla( 10, "c_dsyr2", "Error: invalid argument. Tenth argument must be greater than or equal to max(1,%d). Value: `%d`.", vala, LDA );
 		return;
 	}
 	// Check whether we can avoid computation altogether...