Annotation of rpl/lapack/blas/zscal.f, revision 1.1
1.1 ! bertrand 1: SUBROUTINE ZSCAL(N,ZA,ZX,INCX)
! 2: * .. Scalar Arguments ..
! 3: DOUBLE COMPLEX ZA
! 4: INTEGER INCX,N
! 5: * ..
! 6: * .. Array Arguments ..
! 7: DOUBLE COMPLEX ZX(*)
! 8: * ..
! 9: *
! 10: * Purpose
! 11: * =======
! 12: *
! 13: * ZSCAL 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: IF (N.LE.0 .OR. INCX.LE.0) RETURN
! 28: IF (INCX.EQ.1) GO TO 20
! 29: *
! 30: * code for increment not equal to 1
! 31: *
! 32: IX = 1
! 33: DO 10 I = 1,N
! 34: ZX(IX) = ZA*ZX(IX)
! 35: IX = IX + INCX
! 36: 10 CONTINUE
! 37: RETURN
! 38: *
! 39: * code for increment equal to 1
! 40: *
! 41: 20 DO 30 I = 1,N
! 42: ZX(I) = ZA*ZX(I)
! 43: 30 CONTINUE
! 44: RETURN
! 45: END
CVSweb interface <joel.bertrand@systella.fr>