LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
clacgv.f
Go to the documentation of this file.
1 *> \brief \b CLACGV conjugates a complex vector.
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 September 2012
71 *
72 *> \ingroup complexOTHERauxiliary
73 *
74 * =====================================================================
75  SUBROUTINE clacgv( N, X, INCX )
76 *
77 * -- LAPACK auxiliary routine (version 3.4.2) --
78 * -- LAPACK is a software package provided by Univ. of Tennessee, --
79 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
80 * September 2012
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