fix: update implementation to preserve signed zeros

---
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: passed
  - 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: kgryte

lib/node_modules/@stdlib/blas/ext/base/dnannsumors/lib/ndarray.js

@@ -49,36 +49,54 @@ var isnan = require( '@stdlib/math/base/assert/is-nan' );
 function dnannsumors( N, x, strideX, offsetX, out, strideOut, offsetOut ) {
 	var sum;
 	var ix;
+	var io;
 	var n;
+	var v;
 	var i;
 
-	sum = 0.0;
+	io = offsetOut;
 	if ( N <= 0 ) {
-		out[ offsetOut ] = sum;
-		out[ offsetOut+strideOut ] = 0;
+		out[ io ] = 0.0;
+		out[ io+strideOut ] = 0;
 		return out;
 	}
 	ix = offsetX;
 	if ( strideX === 0 ) {
 		if ( isnan( x[ ix ] ) ) {
-			out[ offsetOut ] = sum;
-			out[ offsetOut+strideOut ] = 0;
+			out[ io ] = 0.0;
+			out[ io+strideOut ] = 0;
 			return out;
 		}
-		out[ offsetOut ] = x[ ix ] * N;
-		out[ offsetOut+strideOut ] = N;
+		out[ io ] = x[ ix ] * N;
+		out[ io+strideOut ] = N;
 		return out;
 	}
-	n = 0;
+	// Find the first non-NaN element...
 	for ( i = 0; i < N; i++ ) {
+		v = x[ ix ];
+		if ( isnan( v ) === false ) {
+			break;
+		}
+		ix += strideX;
+	}
+	if ( i === N ) {
+		out[ io ] = 0.0;
+		out[ io+strideOut ] = 0;
+		return out;
+	}
+	n = 1;
+	sum = v;
+	ix += strideX;
+	i += 1;
+	for ( ; i < N; i++ ) {
 		if ( isnan( x[ ix ] ) === false ) {
 			sum += x[ ix ];
 			n += 1;
 		}
 		ix += strideX;
 	}
-	out[ offsetOut ] = sum;
-	out[ offsetOut+strideOut ] = n;
+	out[ io ] = sum;
+	out[ io+strideOut ] = n;
 	return out;
 }
 

lib/node_modules/@stdlib/blas/ext/base/dnannsumors/src/main.c

@@ -49,21 +49,36 @@ double API_SUFFIX(stdlib_strided_dnannsumors_ndarray)( const CBLAS_INT N, const
 	CBLAS_INT ix;
 	CBLAS_INT i;
 	double sum;
+	double v;
 
-	sum = 0.0;
 	*n = 0;
 	if ( N <= 0 ) {
-		return sum;
+		return 0.0;
 	}
 	ix = offsetX;
 	if ( strideX == 0 ) {
 		if ( stdlib_base_is_nan( X[ ix ] ) ) {
-			return sum;
+			return 0.0;
 		}
 		*n += N;
 		return X[ ix ] * N;
 	}
+	// Find the first non-NaN element...
 	for ( i = 0; i < N; i++ ) {
+		v = X[ ix ];
+		if ( !stdlib_base_is_nan( v ) ) {
+			break;
+		}
+		ix += strideX;
+	}
+	if ( i == N ) {
+		return 0.0;
+	}
+	*n += 1;
+	sum = v;
+	ix += strideX;
+	i += 1;
+	for ( ; i < N; i++ ) {
 		if ( !stdlib_base_is_nan( X[ ix ] ) ) {
 			sum += X[ ix ];
 			*n += 1;