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