chore: update implementation

Author: ShabiShett07

lib/node_modules/@stdlib/blas/base/zdscal/src/zdscal_cblas.c

@@ -31,7 +31,11 @@
 * @param strideX  X stride length
 */
 void API_SUFFIX(c_zdscal)( const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT strideX ) {
-	API_SUFFIX(cblas_zdscal)( N, alpha, X, strideX );
+	CBLAS_INT sx = strideX;
+	if ( sx < 0 ) {
+		sx = -sx;
+	}
+	API_SUFFIX(cblas_zdscal)( N, alpha, X, sx );
 }
 
 /**
@@ -45,6 +49,11 @@ void API_SUFFIX(c_zdscal)( const CBLAS_INT N, const double alpha, void *X, const
 */
 void API_SUFFIX(c_zdscal_ndarray)( const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT strideX, const CBLAS_INT offsetX ) {
 	stdlib_complex128_t *x = (stdlib_complex128_t *)X;
+	CBLAS_INT sx = strideX;
+
 	x += stdlib_strided_min_view_buffer_index( N, strideX, offsetX ); // adjust array pointer
-	API_SUFFIX(cblas_zdscal)( N, alpha, (void *)x, strideX );
+	if ( sx < 0 ) {
+        sx = -sx;
+    }
+	API_SUFFIX(cblas_zdscal)( N, alpha, (void *)x, sx );
 }

lib/node_modules/@stdlib/blas/base/zdscal/src/zdscal_ndarray.c

@@ -31,19 +31,19 @@
 * @param offsetX  starting index for X
 */
 void API_SUFFIX(c_zdscal_ndarray)( const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT strideX, const CBLAS_INT offsetX ) {
-	stdlib_complex128_t *x = (stdlib_complex128_t *)X;
-	CBLAS_INT ix;
-	CBLAS_INT sx;
-	CBLAS_INT i;
+	stdlib_complex128_t z;
+    int64_t is1;
+    int64_t i;
 
-	if ( N <= 0 || alpha == 1.0 ) {
-		return;
-	}
-	sx = strideX;
-	ix = offsetX;
-	for ( i = 0; i < N; i++ ) {
-		x[ ix ] = stdlib_base_complex128_scale( alpha, x[ ix ] );
-		ix += sx;
-	}
-	return;
+    if ( N <= 0 || alpha == 1.0 ) {
+        return;
+    }
+    stdlib_complex128_t *ip1 = (stdlib_complex128_t *)X;
+    is1 = (int64_t)strideX;
+    ip1 += offsetX;
+    for ( i = 0; i < N; i++, ip1 += is1 ) {
+        z = *ip1;
+        *ip1 = stdlib_base_complex128_scale( alpha, z );
+    }
+    return;
 }