◆ zlacgv()

subroutine zlacgv	(	integer	n,
		complex16, 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.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
*     ..
*     .. Array Arguments ..
      COMPLEX*16         X( * )
*     ..
*
* =====================================================================
*
*     .. Local Scalars ..
      INTEGER            I, IOFF
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          dconjg
*     ..
*     .. Executable Statements ..
*
      IF( incx.EQ.1 ) THEN
         DO 10 i = 1, n
            x( i ) = dconjg( x( i ) )
   10    CONTINUE
      ELSE
         ioff = 1
         IF( incx.LT.0 )
     $      ioff = 1 - ( n-1 )*incx
         DO 20 i = 1, n
            x( ioff ) = dconjg( x( ioff ) )
            ioff = ioff + incx
   20    CONTINUE
      END IF
      RETURN
*
*     End of ZLACGV
*