1*> \brief \b CLACGV
2*
3*  =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6*            http://www.netlib.org/lapack/explore-html/
7*
8*> \htmlonly
9*> Download CLACGV + dependencies
10*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clacgv.f">
11*> [TGZ]</a>
12*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clacgv.f">
13*> [ZIP]</a>
14*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clacgv.f">
15*> [TXT]</a>
16*> \endhtmlonly
17*
18*  Definition:
19*  ===========
20*
21*       SUBROUTINE CLACGV( N, X, INCX )
22*
23*       .. Scalar Arguments ..
24*       INTEGER            INCX, N
25*       ..
26*       .. Array Arguments ..
27*       COMPLEX            X( * )
28*       ..
29*
30*
31*> \par Purpose:
32*  =============
33*>
34*> \verbatim
35*>
36*> CLACGV conjugates a complex vector of length N.
37*> \endverbatim
38*
39*  Arguments:
40*  ==========
41*
42*> \param[in] N
43*> \verbatim
44*>          N is INTEGER
45*>          The length of the vector X.  N >= 0.
46*> \endverbatim
47*>
48*> \param[in,out] X
49*> \verbatim
50*>          X is COMPLEX array, dimension
51*>                         (1+(N-1)*abs(INCX))
52*>          On entry, the vector of length N to be conjugated.
53*>          On exit, X is overwritten with conjg(X).
54*> \endverbatim
55*>
56*> \param[in] INCX
57*> \verbatim
58*>          INCX is INTEGER
59*>          The spacing between successive elements of X.
60*> \endverbatim
61*
62*  Authors:
63*  ========
64*
65*> \author Univ. of Tennessee
66*> \author Univ. of California Berkeley
67*> \author Univ. of Colorado Denver
68*> \author NAG Ltd.
69*
70*> \date November 2011
71*
72*> \ingroup complexOTHERauxiliary
73*
74*  =====================================================================
75      SUBROUTINE CLACGV( N, X, INCX )
76*
77*  -- LAPACK auxiliary routine (version 3.4.0) --
78*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
79*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
80*     November 2011
81*
82*     .. Scalar Arguments ..
83      INTEGER            INCX, N
84*     ..
85*     .. Array Arguments ..
86      COMPLEX            X( * )
87*     ..
88*
89* =====================================================================
90*
91*     .. Local Scalars ..
92      INTEGER            I, IOFF
93*     ..
94*     .. Intrinsic Functions ..
95      INTRINSIC          CONJG
96*     ..
97*     .. Executable Statements ..
98*
99      IF( INCX.EQ.1 ) THEN
100         DO 10 I = 1, N
101            X( I ) = CONJG( X( I ) )
102   10    CONTINUE
103      ELSE
104         IOFF = 1
105         IF( INCX.LT.0 )
106     $      IOFF = 1 - ( N-1 )*INCX
107         DO 20 I = 1, N
108            X( IOFF ) = CONJG( X( IOFF ) )
109            IOFF = IOFF + INCX
110   20    CONTINUE
111      END IF
112      RETURN
113*
114*     End of CLACGV
115*
116      END
117