Annotation of rpl/lapack/blas/zdscal.f, revision 1.1.1.1
1.1 bertrand 1: SUBROUTINE ZDSCAL(N,DA,ZX,INCX)
2: * .. Scalar Arguments ..
3: DOUBLE PRECISION DA
4: INTEGER INCX,N
5: * ..
6: * .. Array Arguments ..
7: DOUBLE COMPLEX ZX(*)
8: * ..
9: *
10: * Purpose
11: * =======
12: *
13: * ZDSCAL scales a vector by a constant.
14: *
15: * Further Details
16: * ===============
17: *
18: * jack dongarra, 3/11/78.
19: * modified 3/93 to return if incx .le. 0.
20: * modified 12/3/93, array(1) declarations changed to array(*)
21: *
22: * =====================================================================
23: *
24: * .. Local Scalars ..
25: INTEGER I,IX
26: * ..
27: * .. Intrinsic Functions ..
28: INTRINSIC DCMPLX
29: * ..
30: IF (N.LE.0 .OR. INCX.LE.0) RETURN
31: IF (INCX.EQ.1) GO TO 20
32: *
33: * code for increment not equal to 1
34: *
35: IX = 1
36: DO 10 I = 1,N
37: ZX(IX) = DCMPLX(DA,0.0d0)*ZX(IX)
38: IX = IX + INCX
39: 10 CONTINUE
40: RETURN
41: *
42: * code for increment equal to 1
43: *
44: 20 DO 30 I = 1,N
45: ZX(I) = DCMPLX(DA,0.0d0)*ZX(I)
46: 30 CONTINUE
47: RETURN
48: END
CVSweb interface <joel.bertrand@systella.fr>