docs: change variable naming in blas/base/ccopy

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

Author: ShabiShett07

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

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