Skip to content

Commit 676ed0f

Browse files
committed
chore: update api
--- type: pre_commit_static_analysis_report description: Results of running static analysis checks when committing changes. report: - task: lint_filenames status: passed - task: lint_editorconfig status: passed - task: lint_markdown status: na - task: lint_package_json status: na - task: lint_repl_help status: na - task: lint_javascript_src status: na - task: lint_javascript_cli status: na - task: lint_javascript_examples status: na - task: lint_javascript_tests status: na - task: lint_javascript_benchmarks status: na - task: lint_python status: na - task: lint_r status: na - task: lint_c_src status: missing_dependencies - task: lint_c_examples status: na - task: lint_c_benchmarks status: na - task: lint_c_tests_fixtures status: na - task: lint_shell status: na - task: lint_typescript_declarations status: na - task: lint_typescript_tests status: na - task: lint_license_headers status: passed ---
1 parent 1fd44ca commit 676ed0f

File tree

1 file changed

+23
-1
lines changed

1 file changed

+23
-1
lines changed

lib/node_modules/@stdlib/blas/base/dspr/src/dspr_cblas.c

Lines changed: 23 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -54,11 +54,33 @@ void API_SUFFIX(c_dspr)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const
5454
* @param offsetAP starting index for `AP`
5555
*/
5656
void API_SUFFIX(c_dspr)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const CBLAS_INT N, const double alpha, const double *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, double *AP, const CBLAS_INT strideAP, const CBLAS_INT offsetAP ) {
57+
CBLAS_INT sx = strideX;
58+
if ( sx < 0 ) {
59+
sx = -sx;
60+
}
61+
API_SUFFIX(cblas_dspr)( order, uplo, N, alpha, X, sx, AP );
62+
}
63+
64+
/**
65+
* 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 supplied in packed form using alternative indexing semantics.
66+
*
67+
* @param order storage layout
68+
* @param uplo specifies whether the upper or lower triangular part of the symmetric matrix `A` should be referenced
69+
* @param N number of elements along each dimension of `A`
70+
* @param alpha scalar
71+
* @param X input vector
72+
* @param strideX `x` stride length
73+
* @param offsetX starting index for `x`
74+
* @param AP packed form of a symmetric matrix `A`
75+
* @param strideAP `AP` stride length
76+
* @param offsetAP starting index for `AP`
77+
*/
78+
void API_SUFFIX(c_dspr_ndarray)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const CBLAS_INT N, const float alpha, const float *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, float *AP, const CBLAS_INT strideAP, const CBLAS_INT offsetAP ) {
5779
CBLAS_INT sx = strideX;
5880
X += stdlib_strided_min_view_buffer_index( N, strideX, offsetX ); // adjust array pointer
5981
AP += stdlib_strided_min_view_buffer_index( N, strideAP, offsetAP ); // adjust array pointer
6082
if ( sx < 0 ) {
6183
sx = -sx;
6284
}
63-
API_SUFFIX(cblas_dspr)( order, uplo, N, alpha, X, sx, offsetX, AP, strideAP, offsetAP );
85+
API_SUFFIX(cblas_dspr)( order, uplo, N, alpha, X, sx, AP );
6486
}

0 commit comments

Comments
 (0)