Annotation of rpl/lapack/blas/zscal.f, revision 1.8
1.8 ! bertrand 1: *> \brief \b ZSCAL
! 2: *
! 3: * =========== DOCUMENTATION ===========
! 4: *
! 5: * Online html documentation available at
! 6: * http://www.netlib.org/lapack/explore-html/
! 7: *
! 8: * Definition:
! 9: * ===========
! 10: *
! 11: * SUBROUTINE ZSCAL(N,ZA,ZX,INCX)
! 12: *
! 13: * .. Scalar Arguments ..
! 14: * COMPLEX*16 ZA
! 15: * INTEGER INCX,N
! 16: * ..
! 17: * .. Array Arguments ..
! 18: * COMPLEX*16 ZX(*)
! 19: * ..
! 20: *
! 21: *
! 22: *> \par Purpose:
! 23: * =============
! 24: *>
! 25: *> \verbatim
! 26: *>
! 27: *> ZSCAL scales a vector by a constant.
! 28: *> \endverbatim
! 29: *
! 30: * Authors:
! 31: * ========
! 32: *
! 33: *> \author Univ. of Tennessee
! 34: *> \author Univ. of California Berkeley
! 35: *> \author Univ. of Colorado Denver
! 36: *> \author NAG Ltd.
! 37: *
! 38: *> \date November 2011
! 39: *
! 40: *> \ingroup complex16_blas_level1
! 41: *
! 42: *> \par Further Details:
! 43: * =====================
! 44: *>
! 45: *> \verbatim
! 46: *>
! 47: *> jack dongarra, 3/11/78.
! 48: *> modified 3/93 to return if incx .le. 0.
! 49: *> modified 12/3/93, array(1) declarations changed to array(*)
! 50: *> \endverbatim
! 51: *>
! 52: * =====================================================================
1.1 bertrand 53: SUBROUTINE ZSCAL(N,ZA,ZX,INCX)
1.8 ! bertrand 54: *
! 55: * -- Reference BLAS level1 routine (version 3.4.0) --
! 56: * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
! 57: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
! 58: * November 2011
! 59: *
1.1 bertrand 60: * .. Scalar Arguments ..
1.8 ! bertrand 61: COMPLEX*16 ZA
1.1 bertrand 62: INTEGER INCX,N
63: * ..
64: * .. Array Arguments ..
1.8 ! bertrand 65: COMPLEX*16 ZX(*)
1.1 bertrand 66: * ..
67: *
68: * =====================================================================
69: *
70: * .. Local Scalars ..
1.7 bertrand 71: INTEGER I,NINCX
1.1 bertrand 72: * ..
73: IF (N.LE.0 .OR. INCX.LE.0) RETURN
1.7 bertrand 74: IF (INCX.EQ.1) THEN
1.1 bertrand 75: *
1.7 bertrand 76: * code for increment equal to 1
1.1 bertrand 77: *
1.7 bertrand 78: DO I = 1,N
79: ZX(I) = ZA*ZX(I)
80: END DO
81: ELSE
1.1 bertrand 82: *
1.7 bertrand 83: * code for increment not equal to 1
1.1 bertrand 84: *
1.7 bertrand 85: NINCX = N*INCX
86: DO I = 1,NINCX,INCX
87: ZX(I) = ZA*ZX(I)
88: END DO
89: END IF
1.1 bertrand 90: RETURN
91: END
CVSweb interface <joel.bertrand@systella.fr>