KTH framework for Nek5000 toolboxes; testing version  0.0.1
zscal.f
Go to the documentation of this file.
1  subroutine zscal(n,za,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 za,zx(*)
9  integer i,incx,ix,n
10 c
11  if( n.le.0 .or. incx.le.0 )return
12  if(incx.eq.1)go to 20
13 c
14 c code for increment not equal to 1
15 c
16  ix = 1
17  do 10 i = 1,n
18  zx(ix) = za*zx(ix)
19  ix = ix + incx
20  10 continue
21  return
22 c
23 c code for increment equal to 1
24 c
25  20 do 30 i = 1,n
26  zx(i) = za*zx(i)
27  30 continue
28  return
29  end
subroutine zscal(n, za, zx, incx)
Definition: zscal.f:2