1*> \brief \b ZLACGV 2* 3* =========== DOCUMENTATION =========== 4* 5* Online html documentation available at 6* http://www.netlib.org/lapack/explore-html/ 7* 8*> \htmlonly 9*> Download ZLACGV + dependencies 10*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlacgv.f"> 11*> [TGZ]</a> 12*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlacgv.f"> 13*> [ZIP]</a> 14*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlacgv.f"> 15*> [TXT]</a> 16*> \endhtmlonly 17* 18* Definition: 19* =========== 20* 21* SUBROUTINE ZLACGV( N, X, INCX ) 22* 23* .. Scalar Arguments .. 24* INTEGER INCX, N 25* .. 26* .. Array Arguments .. 27* COMPLEX*16 X( * ) 28* .. 29* 30* 31*> \par Purpose: 32* ============= 33*> 34*> \verbatim 35*> 36*> ZLACGV 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*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). 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 complex16OTHERauxiliary 73* 74* ===================================================================== 75 SUBROUTINE ZLACGV( 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*16 X( * ) 87* .. 88* 89* ===================================================================== 90* 91* .. Local Scalars .. 92 INTEGER I, IOFF 93* .. 94* .. Intrinsic Functions .. 95 INTRINSIC DCONJG 96* .. 97* .. Executable Statements .. 98* 99 IF( INCX.EQ.1 ) THEN 100 DO 10 I = 1, N 101 X( I ) = DCONJG( 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 ) = DCONJG( X( IOFF ) ) 109 IOFF = IOFF + INCX 110 20 CONTINUE 111 END IF 112 RETURN 113* 114* End of ZLACGV 115* 116 END 117