feat: add C implementation for blas/base/zdscal

Author: ShabiShett07

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

@@ -0,0 +1,47 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2024 The Stdlib Authors.
+*
+* Licensed under the Apache License, Version 2.0 (the "License");
+* you may not use this file except in compliance with the License.
+* You may obtain a copy of the License at
+*
+*    http://www.apache.org/licenses/LICENSE-2.0
+*
+* Unless required by applicable law or agreed to in writing, software
+* distributed under the License is distributed on an "AS IS" BASIS,
+* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+* See the License for the specific language governing permissions and
+* limitations under the License.
+*/
+
+#include "stdlib/blas/base/zdscal.h"
+#include "stdlib/blas/base/shared.h"
+#include "stdlib/complex/float64/base/scale.h"
+
+/**
+* Scales a double-precision complex floating-point vector by a double-precision floating-point constant using alternative indexing semantics.
+*
+* @param N        number of indexed elements
+* @param alpha    constant
+* @param X        input array
+* @param strideX  X stride length
+* @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 ) {
+	double *x = (double *)X;
+	CBLAS_INT ix;
+	CBLAS_INT sx;
+	CBLAS_INT i;
+	double tmp;
+
+	if ( N <= 0 || alpha == 1.0 ) {
+		return;
+	}
+	sx = strideX * 2;
+	ix = offsetX * 2;
+	for ( i = 0; i < N; i++ ) {
+	}
+	return;
+}