ground/gcs/src/libs/eigen/lapack/zlacgv.f

   1 *> \brief \b ZLACGV
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *> \htmlonly
   9 *> Download ZLACGV + dependencies
  10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlacgv.f">
  11 *> [TGZ]</a>
  12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlacgv.f">
  13 *> [ZIP]</a>
  14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlacgv.f">
  15 *> [TXT]</a>
  16 *> \endhtmlonly
  17 *
  18 *  Definition:
  19 *  ===========
  20 *
  21 *       SUBROUTINE ZLACGV( N, X, INCX )
  22 *
  23 *       .. Scalar Arguments ..
  24 *       INTEGER            INCX, N
  25 *       ..
  26 *       .. Array Arguments ..
  27 *       COMPLEX*16         X( * )
  28 *       ..
  29 *
  30 *
  31 *> \par Purpose:
  32 *  =============
  33 *>
  34 *> \verbatim
  35 *>
  36 *> ZLACGV conjugates a complex vector of length N.
  37 *> \endverbatim
  38 *
  39 *  Arguments:
  40 *  ==========
  41 *
  42 *> \param[in] N
  43 *> \verbatim
  44 *>          N is INTEGER
  45 *>          The length of the vector X.  N >= 0.
  46 *> \endverbatim
  47 *>
  48 *> \param[in,out] X
  49 *> \verbatim
  50 *>          X is COMPLEX*16 array, dimension
  51 *>                         (1+(N-1)*abs(INCX))
  52 *>          On entry, the vector of length N to be conjugated.
  53 *>          On exit, X is overwritten with conjg(X).
  54 *> \endverbatim
  55 *>
  56 *> \param[in] INCX
  57 *> \verbatim
  58 *>          INCX is INTEGER
  59 *>          The spacing between successive elements of X.
  60 *> \endverbatim
  61 *
  62 *  Authors:
  63 *  ========
  64 *
  65 *> \author Univ. of Tennessee
  66 *> \author Univ. of California Berkeley
  67 *> \author Univ. of Colorado Denver
  68 *> \author NAG Ltd.
  69 *
  70 *> \date November 2011
  71 *
  72 *> \ingroup complex16OTHERauxiliary
  73 *
  74 *  =====================================================================
  75       SUBROUTINE ZLACGV( N, X, INCX )
  76 *
  77 *  -- LAPACK auxiliary routine (version 3.4.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 *     November 2011
  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 *
 116       END