LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 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.```
Date
September 2012

Definition at line 76 of file clacgv.f.

76 *
77 * -- LAPACK auxiliary routine (version 3.4.2) --
78 * -- LAPACK is a software package provided by Univ. of Tennessee, --
79 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
80 * September 2012
81 *
82 * .. Scalar Arguments ..
83  INTEGER incx, n
84 * ..
85 * .. Array Arguments ..
86  COMPLEX x( * )
87 * ..
88 *
89 * =====================================================================
90 *
91 * .. Local Scalars ..
92  INTEGER i, ioff
93 * ..
94 * .. Intrinsic Functions ..
95  INTRINSIC conjg
96 * ..
97 * .. Executable Statements ..
98 *
99  IF( incx.EQ.1 ) THEN
100  DO 10 i = 1, n
101  x( i ) = conjg( x( i ) )
102  10 CONTINUE
103  ELSE
104  ioff = 1
105  IF( incx.LT.0 )
106  \$ ioff = 1 - ( n-1 )*incx
107  DO 20 i = 1, n
108  x( ioff ) = conjg( x( ioff ) )
109  ioff = ioff + incx
110  20 CONTINUE
111  END IF
112  RETURN
113 *
114 * End of CLACGV
115 *

Here is the caller graph for this function: