KTH framework for Nek5000 toolboxes; testing version  0.0.1
zdscal.f
Go to the documentation of this file.
1  subroutine zdscal(n,da,zx,incx)
2 c
3 c scales a vector by a constant.
4 c jack dongarra, 3/11/78.
5 c modified 3/93 to return if incx .le. 0.
6 c modified 12/3/93, array(1) declarations changed to array(*)
7 c
8  double complex zx(*)
9  double precision da
10  integer i,incx,ix,n
11 c
12  if( n.le.0 .or. incx.le.0 )return
13  if(incx.eq.1)go to 20
14 c
15 c code for increment not equal to 1
16 c
17  ix = 1
18  do 10 i = 1,n
19  zx(ix) = dcmplx(da,0.0d0)*zx(ix)
20  ix = ix + incx
21  10 continue
22  return
23 c
24 c code for increment equal to 1
25 c
26  20 do 30 i = 1,n
27  zx(i) = dcmplx(da,0.0d0)*zx(i)
28  30 continue
29  return
30  end
subroutine zdscal(n, da, zx, incx)
Definition: zdscal.f:2