From b68e5d873fe2ef24f3250e71e318c5f545bb63a0 Mon Sep 17 00:00:00 2001 From: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> Date: Sat, 26 Apr 2025 11:25:24 +0530 Subject: [PATCH 1/2] docs: change variable naming in `blas/base/ccopy` Signed-off-by: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> --- .../blas/base/ccopy/benchmark/fortran/benchmark.length.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/node_modules/@stdlib/blas/base/ccopy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/ccopy/benchmark/fortran/benchmark.length.f index 95def9420f78..d15a939e4756 100644 --- a/lib/node_modules/@stdlib/blas/base/ccopy/benchmark/fortran/benchmark.length.f +++ b/lib/node_modules/@stdlib/blas/base/ccopy/benchmark/fortran/benchmark.length.f @@ -117,8 +117,8 @@ double precision function benchmark( iterations, len ) ! .. ! External functions: interface - subroutine ccopy( N, cx, strideX, cy, strideY ) - complex :: cx(*), cy(*) + subroutine ccopy( N, x, strideX, y, strideY ) + complex :: x(*), y(*) integer :: strideX, strideY, N end subroutine ccopy 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 8357041f670e4be05bec22893879451239b17774 Mon Sep 17 00:00:00 2001 From: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> Date: Sat, 26 Apr 2025 11:26:12 +0530 Subject: [PATCH 2/2] chore: update variable name Signed-off-by: Shabareesh Shetty <139731143+ShabiShett07@users.noreply.github.com> --- .../@stdlib/blas/base/ccopy/src/ccopy.f | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lib/node_modules/@stdlib/blas/base/ccopy/src/ccopy.f b/lib/node_modules/@stdlib/blas/base/ccopy/src/ccopy.f index a56e42edd65b..a2ba4d989b3a 100644 --- a/lib/node_modules/@stdlib/blas/base/ccopy/src/ccopy.f +++ b/lib/node_modules/@stdlib/blas/base/ccopy/src/ccopy.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} cx - input array -! @param {integer} strideX - `cx` stride length -! @param {Array} cy - output array -! @param {integer} strideY - `cy` 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 ccopy( N, cx, strideX, cy, strideY ) +subroutine ccopy( N, x, strideX, y, strideY ) implicit none ! .. ! Scalar arguments: integer :: strideX, strideY, N ! .. ! Array arguments: - complex :: cx(*), cy(*) + complex :: x(*), y(*) ! .. ! Local scalars: integer :: ix, iy, i @@ -71,7 +71,7 @@ subroutine ccopy( N, cx, strideX, cy, strideY ) ! .. if ( strideX == 1 .AND. strideY == 1 ) then do i = 1, N - cy( i ) = cx( i ) + y( i ) = x( i ) end do else if ( strideX < 0 ) then @@ -85,7 +85,7 @@ subroutine ccopy( N, cx, strideX, cy, strideY ) iy = 1 end if do i = 1, N - cy( iy ) = cx( ix ) + y( iy ) = x( ix ) ix = ix + strideX iy = iy + strideY end do