1 *> \brief \b ZLACGV conjugates a complex vector.
3 * =========== DOCUMENTATION ===========
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
9 *> Download ZLACGV + dependencies
10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlacgv.f">
12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlacgv.f">
14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlacgv.f">
21 * SUBROUTINE ZLACGV( N, X, INCX )
23 * .. Scalar Arguments ..
26 * .. Array Arguments ..
36 *> ZLACGV conjugates a complex vector of length N.
45 *> The length of the vector X. N >= 0.
50 *> X is COMPLEX*16 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).
59 *> The spacing between successive elements of X.
65 *> \author Univ. of Tennessee
66 *> \author Univ. of California Berkeley
67 *> \author Univ. of Colorado Denver
70 *> \date September 2012
72 *> \ingroup complex16OTHERauxiliary
74 * =====================================================================
75 SUBROUTINE ZLACGV( N, X, INCX )
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..--
82 * .. Scalar Arguments ..
85 * .. Array Arguments ..
89 * =====================================================================
94 * .. Intrinsic Functions ..
97 * .. Executable Statements ..
101 X( I ) = DCONJG( X( I ) )
106 $ IOFF = 1 - ( N-1 )*INCX
108 X( IOFF ) = DCONJG( X( IOFF ) )