chore: minor clean-up

Signed-off-by: Shabareesh Shetty <[email protected]>

Author: ShabiShett07

lib/node_modules/@stdlib/blas/base/dsyr/include/stdlib/blas/base/dsyr_cblas.h

@@ -16,28 +16,54 @@
 * limitations under the License.
 */
 
-/**
-* Header file containing function declarations for the C interface to the CBLAS Level 2 routine `cblas_dsyr`.
-*/
-#ifndef DSYR_CBLAS_H
-#define DSYR_CBLAS_H
-
+#include "stdlib/blas/base/dsyr.h"
+#include "stdlib/blas/base/dsyr_cblas.h"
 #include "stdlib/blas/base/shared.h"
-
-/*
-* If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler.
-*/
-#ifdef __cplusplus
-extern "C" {
-#endif
+#include "stdlib/strided/base/min_view_buffer_index.h"
+#include "stdlib/ndarray/base/min_view_buffer_index.h"
 
 /**
 * Performs the symmetric rank 1 operation `A = α*x*x^T + A` where `α` is a scalar, `x` is an `N` element vector, and `A` is an `N` by `N` symmetric matrix.
+*
+* @param order    storage layout
+* @param uplo     specifies whether the upper or lower triangular part of the symmetric matrix `A` is supplied
+* @param N        number of elements along each dimension of `A`
+* @param alpha    scalar
+* @param x        input vector
+* @param strideX  `X` stride length
+* @param A        input matrix
+* @param LDA      stride of the first dimension of `A` (a.k.a., leading dimension of the matrix `A`)
 */
-void API_SUFFIX(cblas_dsyr)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT strideX, double *A, const CBLAS_INT LDA );
-
-#ifdef __cplusplus
+void API_SUFFIX(c_dsyr)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT strideX, double *A, const CBLAS_INT LDA ) {
+	CBLAS_INT sx = strideX;
+	if ( sx < 0 ) {
+		sx = -sx;
+	}
+	API_SUFFIX(cblas_dsyr)( order, uplo, N, alpha, X, sx, AP );
 }
-#endif
 
-#endif // !DSYR_CBLAS_H
+/**
+* Performs the symmetric rank 1 operation `A = α*x*x^T + A`, using alternative indexing semantics and where `α` is a scalar, `x` is an `N` element vector, and `A` is an `N` by `N` symmetric matrix.
+*
+* @param uplo      specifies whether the upper or lower triangular part of the symmetric matrix `A` is supplied
+* @param N         number of elements along each dimension of `A`
+* @param alpha     scalar
+* @param X         input vector
+* @param strideX   `x` stride length
+* @param offsetX   starting index for `x`
+* @param A         input matrix
+* @param strideA1  stride of the first dimension of `A`
+* @param strideA2  stride of the second dimension of `A`
+* @param offsetA   starting index for `AP`
+*/
+void API_SUFFIX(c_dsyr_ndarray)( const CBLAS_UPLO uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, float *A, const CBLAS_INT strideA1, const CBLAS_INT strideA2, const CBLAS_INT offsetA ) {
+	CBLAS_INT sx = strideX;
+	X += stdlib_strided_min_view_buffer_index( N, strideX, offsetX ); // adjust array pointer
+	CBLAS_INT shape[] = { N, N };
+	CBLAS_INT strides[] = { strideA1, strideA2 };
+	A += stdlib_ndarray_min_view_buffer_index( 2, shape, strides, offsetA); // adjust array pointer
+	if ( sx < 0 ) {
+		sx = -sx;
+	}
+	API_SUFFIX(cblas_dsyr)( uplo, N, alpha, X, sx, offsetX, A, strideA1, strideA2, offsetA );
+}