LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ clacgv()

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

CLACGV conjugates a complex vector.

Download CLACGV + dependencies [TGZ] [ZIP] [TXT]

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.
!>
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 71 of file clacgv.f.

72*
73* -- LAPACK auxiliary routine --
74* -- LAPACK is a software package provided by Univ. of Tennessee, --
75* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
76*
77* .. Scalar Arguments ..
78 INTEGER INCX, N
79* ..
80* .. Array Arguments ..
81 COMPLEX X( * )
82* ..
83*
84* =====================================================================
85*
86* .. Local Scalars ..
87 INTEGER I, IOFF
88* ..
89* .. Intrinsic Functions ..
90 INTRINSIC conjg
91* ..
92* .. Executable Statements ..
93*
94 IF( incx.EQ.1 ) THEN
95 DO 10 i = 1, n
96 x( i ) = conjg( x( i ) )
97 10 CONTINUE
98 ELSE
99 ioff = 1
100 IF( incx.LT.0 )
101 $ ioff = 1 - ( n-1 )*incx
102 DO 20 i = 1, n
103 x( ioff ) = conjg( x( ioff ) )
104 ioff = ioff + incx
105 20 CONTINUE
106 END IF
107 RETURN
108*
109* End of CLACGV
110*
Here is the caller graph for this function: