chore: add implementation

---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: na
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: na
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: ShabiShett07

lib/node_modules/@stdlib/blas/base/zdscal/benchmark/fortran/Makefile

@@ -78,7 +78,7 @@ endif
 INCLUDE ?=
 
 # List of Fortran source files:
-SOURCE_FILES ?= ../../src/zdrot.f
+SOURCE_FILES ?= ../../src/zdscal.f
 
 # List of Fortran targets:
 f_targets := benchmark.length.out

lib/node_modules/@stdlib/blas/base/zdscal/benchmark/fortran/benchmark.length.f

@@ -20,7 +20,7 @@ program bench
   implicit none
   ! ..
   ! Local constants:
-  character(5), parameter :: name = 'zdscal' ! if changed, be sure to adjust length
+  character(6), parameter :: name = 'zdscal' ! if changed, be sure to adjust length
   integer, parameter :: iterations = 10000000
   integer, parameter :: repeats = 3
   integer, parameter :: min = 1

lib/node_modules/@stdlib/blas/base/zdscal/src/zdscal.f

@@ -60,20 +60,20 @@ subroutine zdscal( N, alpha, x, strideX )
   integer :: ix, i, nstrideX
   ! ..
   ! Intrinsic functions:
-  intrinsic dble, dcmplx, dimag
+  intrinsic dble, cmplx, aimag
   ! ..
   if ( N <= 0 .OR. strideX <= 0 .OR. alpha == 1.0 ) then
     return
   end if
   ! ..
   if ( strideX == 1 ) then
     do i = 1, N
-      x( i ) = dcmplx(alpha*dble(x(i)),alpha*dimag(x(i)))
+      x( i ) = cmplx(alpha*dble(x(i)),alpha*aimag(x(i)))
     end do
   else
     nstrideX = N * strideX;
     do i = 1, nstrideX, strideX
-      x( i ) = dcmplx(alpha*dble(x(i)),alpha*dimag(x(i)))
+      x( i ) = cmplx(alpha*dble(x(i)),alpha*aimag(x(i)))
     end do
   end if
   return