Annotation of rpl/lapack/blas/zdscal.f, revision 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>