LAPACK  3.8.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.
Date
December 2016

Definition at line 76 of file zlacgv.f.

76 *
77 * -- LAPACK auxiliary routine (version 3.7.0) --
78 * -- LAPACK is a software package provided by Univ. of Tennessee, --
79 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
80 * December 2016
81 *
82 * .. Scalar Arguments ..
83  INTEGER incx, n
84 * ..
85 * .. Array Arguments ..
86  COMPLEX*16 x( * )
87 * ..
88 *
89 * =====================================================================
90 *
91 * .. Local Scalars ..
92  INTEGER i, ioff
93 * ..
94 * .. Intrinsic Functions ..
95  INTRINSIC dconjg
96 * ..
97 * .. Executable Statements ..
98 *
99  IF( incx.EQ.1 ) THEN
100  DO 10 i = 1, n
101  x( i ) = dconjg( 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 ) = dconjg( x( ioff ) )
109  ioff = ioff + incx
110  20 CONTINUE
111  END IF
112  RETURN
113 *
114 * End of ZLACGV
115 *