style: add spaces

Signed-off-by: Athan <[email protected]>

Author: kgryte

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

@@ -68,12 +68,12 @@ subroutine zdscal( N, alpha, x, strideX )
   ! ..
   if ( strideX == 1 ) then
     do i = 1, N
-      x( i ) = cmplx(alpha*dble(x(i)),alpha*aimag(x(i)), kind=kind(0.0d0))
+      x( i ) = cmplx( alpha*dble(x(i)), alpha*aimag(x(i)), kind=kind(0.0d0) )
     end do
   else
     nstrideX = N * strideX;
     do i = 1, nstrideX, strideX
-      x( i ) = cmplx(alpha*dble(x(i)),alpha*aimag(x(i)), kind=kind(0.0d0))
+      x( i ) = cmplx( alpha*dble(x(i)), alpha*aimag(x(i)), kind=kind(0.0d0) )
     end do
   end if
   return