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,54 +16,28 @@
 * limitations under the License.
 */
 
-#include "stdlib/blas/base/dsyr.h"
-#include "stdlib/blas/base/dsyr_cblas.h"
+/**
+* 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/shared.h"
-#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`)
+/*
+* If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler.
 */
-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, A, LDA );
-}
+#ifdef __cplusplus
+extern "C" {
+#endif
 
 /**
-* 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`
+* 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.
 */
-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)( order, uplo, N, alpha, X, sx, A, LDA );
+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
 }
+#endif
+
+#endif // !DSYR_CBLAS_H