From ac11ee6e1757f9edb1c43390d6ed8d5ca763eb66 Mon Sep 17 00:00:00 2001 From: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> Date: Sat, 26 Apr 2025 12:03:59 +0530 Subject: [PATCH 1/3] docs: change variable naming in `blas/base/zaxpy` Signed-off-by: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> --- .../blas/base/zcopy/benchmark/fortran/benchmark.length.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/node_modules/@stdlib/blas/base/zcopy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/zcopy/benchmark/fortran/benchmark.length.f index 85d89f933ed6..cbf7512a7587 100644 --- a/lib/node_modules/@stdlib/blas/base/zcopy/benchmark/fortran/benchmark.length.f +++ b/lib/node_modules/@stdlib/blas/base/zcopy/benchmark/fortran/benchmark.length.f @@ -117,8 +117,8 @@ double precision function benchmark( iterations, len ) ! .. ! External functions: interface - subroutine zcopy( N, zx, strideX, zy, strideY ) - complex(kind=kind(0.0d0)) :: zx(*), zy(*) + subroutine zcopy( N, x, strideX, y, strideY ) + complex(kind=kind(0.0d0)) :: x(*), y(*) integer :: strideX, strideY, N end subroutine zcopy end interface @@ -207,4 +207,4 @@ subroutine main() end do call print_summary( count, count ) end subroutine main -end program bench \ No newline at end of file +end program bench From 5b529dd025e3f273abcc38c50dbc5e65b077014b Mon Sep 17 00:00:00 2001 From: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> Date: Sat, 26 Apr 2025 12:07:13 +0530 Subject: [PATCH 2/3] chore: update variable name Signed-off-by: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> --- .../@stdlib/blas/base/zcopy/src/zcopy.f | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy.f b/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy.f index 73d8751e0766..ec3abab98c7a 100644 --- a/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy.f +++ b/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy.f @@ -48,19 +48,19 @@ ! > * We will gladly answer any questions regarding the software. If a modification is done, however, it is the responsibility of the person who modified the routine to provide support. ! ! @param {integer} N - number of indexed elements -! @param {Array>} zx - input array -! @param {integer} strideX - `zx` stride length -! @param {Array>} zy - output array -! @param {integer} strideY - `zy` stride length +! @param {Array>} x - input array +! @param {integer} strideX - `x` stride length +! @param {Array>} y - output array +! @param {integer} strideY - `y` stride length !< -subroutine zcopy( N, zx, strideX, zy, strideY ) +subroutine zcopy( N, x, strideX, y, strideY ) implicit none ! .. ! Scalar arguments: integer :: strideX, strideY, N ! .. ! Array arguments: - complex(kind=kind(0.0d0)) :: zx(*), zy(*) + complex(kind=kind(0.0d0)) :: x(*), y(*) ! .. ! Local scalars: integer :: ix, iy, i @@ -71,7 +71,7 @@ subroutine zcopy( N, zx, strideX, zy, strideY ) ! .. if ( strideX == 1 .AND. strideY == 1 ) then do i = 1, N - zy( i ) = zx( i ) + y( i ) = x( i ) end do else if ( strideX < 0 ) then @@ -85,7 +85,7 @@ subroutine zcopy( N, zx, strideX, zy, strideY ) iy = 1 end if do i = 1, N - zy( iy ) = zx( ix ) + y( iy ) = x( ix ) ix = ix + strideX iy = iy + strideY end do From bd1e7645a1cca1c2f115af090a9aabbe285ccdc6 Mon Sep 17 00:00:00 2001 From: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> Date: Sat, 26 Apr 2025 12:07:55 +0530 Subject: [PATCH 3/3] chore: update variable name Signed-off-by: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> --- lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy_f.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy_f.c b/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy_f.c index 2f21ebf46af2..37078e80eaad 100644 --- a/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy_f.c +++ b/lib/node_modules/@stdlib/blas/base/zcopy/src/zcopy_f.c @@ -47,10 +47,10 @@ void API_SUFFIX(c_zcopy)( const CBLAS_INT N, const void *X, const CBLAS_INT stri * @param offsetY starting index for Y */ void API_SUFFIX(c_zcopy_ndarray)( const CBLAS_INT N, const void *X, const CBLAS_INT strideX, const CBLAS_INT offsetX, void *Y, const CBLAS_INT strideY, const CBLAS_INT offsetY ) { - stdlib_complex128_t *zx = (stdlib_complex128_t *)X; - stdlib_complex128_t *zy = (stdlib_complex128_t *)Y; + stdlib_complex128_t *x = (stdlib_complex128_t *)X; + stdlib_complex128_t *y = (stdlib_complex128_t *)Y; - zx += stdlib_strided_min_view_buffer_index( N, strideX, offsetX ); - zy += stdlib_strided_min_view_buffer_index( N, strideY, offsetY ); - zcopy( &N, (void *)zx, &strideX, (void *)zy, &strideY ); + x += stdlib_strided_min_view_buffer_index( N, strideX, offsetX ); + y += stdlib_strided_min_view_buffer_index( N, strideY, offsetY ); + zcopy( &N, (void *)x, &strideX, (void *)y, &strideY ); }