3232* @param AP packed form of a symmetric matrix `A`
3333*/
3434void API_SUFFIX (c_sspr )( const CBLAS_LAYOUT order , const CBLAS_UPLO uplo , const CBLAS_INT N , const float alpha , const float * X , const CBLAS_INT strideX , float * AP ) {
35- CBLAS_INT sx = stride ;
35+ CBLAS_INT sx = strideX ;
3636 if ( sx < 0 ) {
3737 sx = - sx ;
3838 }
39- API_SUFFIX (cblas_sspr )( order , uplo , N , alpha , X , strideX , AP );
39+ API_SUFFIX (cblas_sspr )( order , uplo , N , alpha , X , sx , AP );
4040}
4141
4242/**
@@ -54,11 +54,11 @@ void API_SUFFIX(c_sspr)( const CBLAS_LAYOUT order, const CBLAS_UPLO uplo, const
5454* @param offsetAP starting index for `AP`
5555*/
5656void API_SUFFIX (c_sspr )( 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 ) {
57- CBLAS_INT sx = stride ;
57+ CBLAS_INT sx = strideX ;
5858 X += stdlib_strided_min_view_buffer_index ( N , strideX , offsetX ); // adjust array pointer
5959 AP += stdlib_strided_min_view_buffer_index ( N , strideAP , offsetAP ); // adjust array pointer
6060 if ( sx < 0 ) {
6161 sx = - sx ;
6262 }
63- API_SUFFIX (cblas_sspr )( order , uplo , N , alpha , X , strideX , offsetX , AP , strideAP , offsetAP );
63+ API_SUFFIX (cblas_sspr )( order , uplo , N , alpha , X , sx , offsetX , AP , strideAP , offsetAP );
6464}
0 commit comments