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