Avoid unnecessary type promotion

Author: kgryte

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

@@ -37,7 +37,7 @@ float c_sasum( const int N, const float *X, const int stride ) {
 	int m;
 	int i;
 
-	sum = 0.0;
+	sum = 0.0f;
 	if ( N <= 0 || stride <= 0 ) {
 		return sum;
 	}

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

@@ -43,7 +43,7 @@ void c_saxpy( const int N, const float alpha, const float *X, const int strideX,
 		return;
 	}
 	// If `alpha` is `0`, then `y` is unchanged...
-	if ( alpha == 0.0 ) {
+	if ( alpha == 0.0f ) {
 		return;
 	}
 	// If both strides are equal to `1`, use unrolled loops...

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

@@ -40,7 +40,7 @@ float c_sdot( const int N, const float *X, const int strideX, const float *Y, co
 	int m;
 	int i;
 
-	dot = 0.0;
+	dot = 0.0f;
 	if ( N <= 0 ) {
 		return dot;
 	}

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

@@ -39,18 +39,18 @@ float c_snrm2( const int N, const float *X, const int stride ) {
 	int i;
 
 	if ( N <= 0 || stride <= 0 ) {
-		return 0.0;
+		return 0.0f;
 	}
 	if ( N == 1 ) {
 		return fabs( X[ 0 ] );
 	}
-	scale = 0.0;
-	ssq = 1.0;
+	scale = 0.0f;
+	ssq = 1.0f;
 	for ( i = 0; i < N*stride; i += stride ) {
-		if ( X[ i ] != 0.0 ) {
+		if ( X[ i ] != 0.0f ) {
 			ax = fabs( X[ i ] );
 			if ( scale < ax ) {
-				ssq = 1.0 + ( ssq * pow( scale/ax, 2 ) );
+				ssq = 1.0f + ( ssq * pow( scale/ax, 2 ) );
 				scale = ax;
 			} else {
 				ssq += pow( ax/scale, 2 );

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

@@ -37,7 +37,7 @@ void c_sscal( const int N, const float alpha, float *X, const int stride ) {
 	if ( N <= 0 || stride <= 0 ) {
 		return;
 	}
-	if ( alpha == 1.0 ) {
+	if ( alpha == 1.0f ) {
 		return;
 	}
 	if ( stride == 1 ) {