LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ zlacgv()

 subroutine zlacgv ( integer n, complex*16, dimension( * ) x, integer incx )

ZLACGV conjugates a complex vector.

Purpose:
` ZLACGV conjugates a complex vector of length N.`
Parameters
 [in] N ``` N is INTEGER The length of the vector X. N >= 0.``` [in,out] X ``` X is COMPLEX*16 array, dimension (1+(N-1)*abs(INCX)) On entry, the vector of length N to be conjugated. On exit, X is overwritten with conjg(X).``` [in] INCX ``` INCX is INTEGER The spacing between successive elements of X.```

Definition at line 73 of file zlacgv.f.

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*16 X( * )
84* ..
85*
86* =====================================================================
87*
88* .. Local Scalars ..
89 INTEGER I, IOFF
90* ..
91* .. Intrinsic Functions ..
92 INTRINSIC dconjg
93* ..
94* .. Executable Statements ..
95*
96 IF( incx.EQ.1 ) THEN
97 DO 10 i = 1, n
98 x( i ) = dconjg( 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 ) = dconjg( x( ioff ) )
106 ioff = ioff + incx
107 20 CONTINUE
108 END IF
109 RETURN
110*
111* End of ZLACGV
112*