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