01:       SUBROUTINE ZLACGV( N, X, INCX )
02: *
03: *  -- LAPACK auxiliary routine (version 3.2) --
04: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
05: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
06: *     November 2006
07: *
08: *     .. Scalar Arguments ..
09:       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
62: