1 *> \brief \b CLACGV 2 * 3 * =========== DOCUMENTATION =========== 4 * 5 * Online html documentation available at 6 * http://www.netlib.org/lapack/explore-html/ 7 * 8 *> \htmlonly 9 *> Download CLACGV + dependencies 10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clacgv.f"> 11 *> [TGZ]</a> 12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clacgv.f"> 13 *> [ZIP]</a> 14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clacgv.f"> 15 *> [TXT]</a> 16 *> \endhtmlonly 17 * 18 * Definition: 19 * =========== 20 * 21 * SUBROUTINE CLACGV( N, X, INCX ) 22 * 23 * .. Scalar Arguments .. 24 * INTEGER INCX, N 25 * .. 26 * .. Array Arguments .. 27 * COMPLEX X( * ) 28 * .. 29 * 30 * 31 *> \par Purpose: 32 * ============= 33 *> 34 *> \verbatim 35 *> 36 *> CLACGV 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 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 complexOTHERauxiliary 73 * 74 * ===================================================================== 75 SUBROUTINE CLACGV( 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 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 * 116 END 117
