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

Definition at line 76 of file clacgv.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 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 *