diff --git a/lib/node_modules/@stdlib/blas/ext/base/scusumkbn2/lib/ndarray.js b/lib/node_modules/@stdlib/blas/ext/base/scusumkbn2/lib/ndarray.js index da6e4b6ed75a..13fb47bbf9b7 100644 --- a/lib/node_modules/@stdlib/blas/ext/base/scusumkbn2/lib/ndarray.js +++ b/lib/node_modules/@stdlib/blas/ext/base/scusumkbn2/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 abs = require( '@stdlib/math/base/special/abs' ); @@ -80,7 +80,7 @@ function scusumkbn2( N, sum, x, strideX, offsetX, y, strideY, offsetY ) { if ( v !== 0.0 ) { break; } - sum = float64ToFloat32( sum + v ); + sum = f32( sum + v ); y[ iy ] = sum; ix += strideX; iy += strideY; @@ -92,23 +92,23 @@ function scusumkbn2( N, sum, x, strideX, offsetX, y, strideY, offsetY ) { cs = 0.0; // first order correction term for lost low order bits for ( ; i < N; i++ ) { v = x[ ix ]; - t = float64ToFloat32( sum+v ); + t = f32( sum+v ); if ( abs( sum ) >= abs( v ) ) { - c = float64ToFloat32( float64ToFloat32( sum-t ) + v ); + c = f32( f32( sum-t ) + v ); } else { - c = float64ToFloat32( float64ToFloat32( v-t ) + sum ); + c = f32( f32( v-t ) + sum ); } sum = t; - t = float64ToFloat32( cs+c ); + t = f32( cs+c ); if ( abs( cs ) >= abs( c ) ) { - cc = float64ToFloat32( float64ToFloat32( cs-t ) + c ); + cc = f32( f32( cs-t ) + c ); } else { - cc = float64ToFloat32( float64ToFloat32( c-t ) + cs ); + cc = f32( f32( c-t ) + cs ); } cs = t; - ccs = float64ToFloat32( ccs+cc ); + ccs = f32( ccs+cc ); - y[ iy ] = float64ToFloat32( sum + float64ToFloat32( cs+ccs ) ); + y[ iy ] = f32( sum + f32( cs+ccs ) ); ix += strideX; iy += strideY; }