docs: change variable naming in blas/base/zcopy

PR-URL: #6821
Reviewed-by: Athan Reines <[email protected]>

Author: ShabiShett07

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
+end program bench

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<complex<double>>} zx - input array
-! @param {integer} strideX - `zx` stride length
-! @param {Array<complex<double>>} zy - output array
-! @param {integer} strideY - `zy` stride length
+! @param {Array<complex<double>>} x - input array
+! @param {integer} strideX - `x` stride length
+! @param {Array<complex<double>>} 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

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 );
 }