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

## ◆ clacgv()

 subroutine clacgv ( integer n, complex, dimension( * ) x, integer incx )

CLACGV conjugates a complex vector.

Purpose:
` CLACGV 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 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 clacgv.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 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*