LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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 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 *