LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
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 *> \ingroup complexOTHERauxiliary
71 *
72 * =====================================================================
73  SUBROUTINE clacgv( N, X, INCX )
74 *
75 * -- LAPACK auxiliary routine --
76 * -- LAPACK is a software package provided by Univ. of Tennessee, --
77 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
78 *
79 * .. Scalar Arguments ..
80  INTEGER INCX, N
81 * ..
82 * .. Array Arguments ..
83  COMPLEX X( * )
84 * ..
85 *
86 * =====================================================================
87 *
88 * .. Local Scalars ..
89  INTEGER I, IOFF
90 * ..
91 * .. Intrinsic Functions ..
92  INTRINSIC conjg
93 * ..
94 * .. Executable Statements ..
95 *
96  IF( incx.EQ.1 ) THEN
97  DO 10 i = 1, n
98  x( i ) = conjg( x( i ) )
99  10 CONTINUE
100  ELSE
101  ioff = 1
102  IF( incx.LT.0 )
103  $ ioff = 1 - ( n-1 )*incx
104  DO 20 i = 1, n
105  x( ioff ) = conjg( x( ioff ) )
106  ioff = ioff + incx
107  20 CONTINUE
108  END IF
109  RETURN
110 *
111 * End of CLACGV
112 *
113  END
subroutine clacgv(N, X, INCX)
CLACGV conjugates a complex vector.
Definition: clacgv.f:74