LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ zlacgv()

subroutine zlacgv ( integer  N,
complex*16, dimension( * )  X,
integer  INCX 
)

ZLACGV conjugates a complex vector.

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

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

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 *