Home | History | Annotate | Download | only in lapack
      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
    117