diff --git a/lib/node_modules/@stdlib/blas/ext/base/snansumpw/lib/ndarray.js b/lib/node_modules/@stdlib/blas/ext/base/snansumpw/lib/ndarray.js index 1ccfd558901c..9c070b6718e9 100644 --- a/lib/node_modules/@stdlib/blas/ext/base/snansumpw/lib/ndarray.js +++ b/lib/node_modules/@stdlib/blas/ext/base/snansumpw/lib/ndarray.js @@ -20,7 +20,7 @@ // MODULES // -var float64ToFloat32 = require( '@stdlib/number/float64/base/to-float32' ); +var f32 = require( '@stdlib/number/float64/base/to-float32' ); var isnanf = require( '@stdlib/math/base/assert/is-nanf' ); var floor = require( '@stdlib/math/base/special/floor' ); @@ -88,7 +88,7 @@ function snansumpw( N, x, strideX, offsetX ) { s = 0.0; for ( i = 0; i < N; i++ ) { if ( isnanf( x[ ix ] ) === false ) { - s = float64ToFloat32( s + x[ ix ] ); + s = f32( s + x[ ix ] ); } ix += strideX; } @@ -115,30 +115,30 @@ function snansumpw( N, x, strideX, offsetX ) { M = N % 8; for ( i = 8; i < N-M; i += 8 ) { - s0 = ( isnanf( x[ ix ] ) ) ? s0 : float64ToFloat32( s0 + x[ ix ] ); + s0 = ( isnanf( x[ ix ] ) ) ? s0 : f32( s0 + x[ ix ] ); ix += strideX; - s1 = ( isnanf( x[ ix ] ) ) ? s1 : float64ToFloat32( s1 + x[ ix ] ); + s1 = ( isnanf( x[ ix ] ) ) ? s1 : f32( s1 + x[ ix ] ); ix += strideX; - s2 = ( isnanf( x[ ix ] ) ) ? s2 : float64ToFloat32( s2 + x[ ix ] ); + s2 = ( isnanf( x[ ix ] ) ) ? s2 : f32( s2 + x[ ix ] ); ix += strideX; - s3 = ( isnanf( x[ ix ] ) ) ? s3 : float64ToFloat32( s3 + x[ ix ] ); + s3 = ( isnanf( x[ ix ] ) ) ? s3 : f32( s3 + x[ ix ] ); ix += strideX; - s4 = ( isnanf( x[ ix ] ) ) ? s4 : float64ToFloat32( s4 + x[ ix ] ); + s4 = ( isnanf( x[ ix ] ) ) ? s4 : f32( s4 + x[ ix ] ); ix += strideX; - s5 = ( isnanf( x[ ix ] ) ) ? s5 : float64ToFloat32( s5 + x[ ix ] ); + s5 = ( isnanf( x[ ix ] ) ) ? s5 : f32( s5 + x[ ix ] ); ix += strideX; - s6 = ( isnanf( x[ ix ] ) ) ? s6 : float64ToFloat32( s6 + x[ ix ] ); + s6 = ( isnanf( x[ ix ] ) ) ? s6 : f32( s6 + x[ ix ] ); ix += strideX; - s7 = ( isnanf( x[ ix ] ) ) ? s7 : float64ToFloat32( s7 + x[ ix ] ); + s7 = ( isnanf( x[ ix ] ) ) ? s7 : f32( s7 + x[ ix ] ); ix += strideX; } // Pairwise sum the accumulators: - s = float64ToFloat32( float64ToFloat32( float64ToFloat32(s0+s1) + float64ToFloat32(s2+s3) ) + float64ToFloat32( float64ToFloat32(s4+s5) + float64ToFloat32(s6+s7) ) ); // eslint-disable-line max-len + s = f32( f32( f32(s0+s1) + f32(s2+s3) ) + f32( f32(s4+s5) + f32(s6+s7) ) ); // eslint-disable-line max-len // Clean-up loop... for ( i; i < N; i++ ) { if ( isnanf( x[ ix ] ) === false ) { - s = float64ToFloat32( s + x[ ix ] ); + s = f32( s + x[ ix ] ); } ix += strideX; } @@ -147,7 +147,7 @@ function snansumpw( N, x, strideX, offsetX ) { // Recurse by dividing by two, but avoiding non-multiples of unroll factor... n = floor( N/2 ); n -= n % 8; - return float64ToFloat32( snansumpw( n, x, strideX, ix ) + snansumpw( N-n, x, strideX, ix+(n*strideX) ) ); // eslint-disable-line max-len + return f32( snansumpw( n, x, strideX, ix ) + snansumpw( N-n, x, strideX, ix+(n*strideX) ) ); // eslint-disable-line max-len }