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
zscal
subroutine zscal(n, za, zx, incx)
Definition:
zscal.f:2
Nek5000
3rd_party
blasLapack
zscal.f
Generated on Tue Jun 4 2024 12:44:42 for KTH framework for Nek5000 toolboxes; testing version by
1.9.1