Return to zlacgv.f CVS log

Up to [local] / rpl / lapack / lapack

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

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