Return to zlacgv.f CVS log

Up to [local] / rpl / lapack / lapack

Annotation of rpl/lapack/lapack/zlacgv.f, revision 1.1

1.1     ! bertrand    1:       SUBROUTINE ZLACGV( N, X, INCX )
        !             2: *
        !             3: *  -- LAPACK auxiliary routine (version 3.2) --
        !             4: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
        !             5: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
        !             6: *     November 2006
        !             7: *
        !             8: *     .. Scalar Arguments ..
        !             9:       INTEGER            INCX, N
        !            10: *     ..
        !            11: *     .. Array Arguments ..
        !            12:       COMPLEX*16         X( * )
        !            13: *     ..
        !            14: *
        !            15: *  Purpose
        !            16: *  =======
        !            17: *
        !            18: *  ZLACGV conjugates a complex vector of length N.
        !            19: *
        !            20: *  Arguments
        !            21: *  =========
        !            22: *
        !            23: *  N       (input) INTEGER
        !            24: *          The length of the vector X.  N >= 0.
        !            25: *
        !            26: *  X       (input/output) COMPLEX*16 array, dimension
        !            27: *                         (1+(N-1)*abs(INCX))
        !            28: *          On entry, the vector of length N to be conjugated.
        !            29: *          On exit, X is overwritten with conjg(X).
        !            30: *
        !            31: *  INCX    (input) INTEGER
        !            32: *          The spacing between successive elements of X.
        !            33: *
        !            34: * =====================================================================
        !            35: *
        !            36: *     .. Local Scalars ..
        !            37:       INTEGER            I, IOFF
        !            38: *     ..
        !            39: *     .. Intrinsic Functions ..
        !            40:       INTRINSIC          DCONJG
        !            41: *     ..
        !            42: *     .. Executable Statements ..
        !            43: *
        !            44:       IF( INCX.EQ.1 ) THEN
        !            45:          DO 10 I = 1, N
        !            46:             X( I ) = DCONJG( X( I ) )
        !            47:    10    CONTINUE
        !            48:       ELSE
        !            49:          IOFF = 1
        !            50:          IF( INCX.LT.0 )
        !            51:      $      IOFF = 1 - ( N-1 )*INCX
        !            52:          DO 20 I = 1, N
        !            53:             X( IOFF ) = DCONJG( X( IOFF ) )
        !            54:             IOFF = IOFF + INCX
        !            55:    20    CONTINUE
        !            56:       END IF
        !            57:       RETURN
        !            58: *
        !            59: *     End of ZLACGV
        !            60: *
        !            61:       END