![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ZLACGV 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download ZLACGV + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlacgv.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlacgv.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlacgv.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * SUBROUTINE ZLACGV( N, X, INCX ) 00022 * 00023 * .. Scalar Arguments .. 00024 * INTEGER INCX, N 00025 * .. 00026 * .. Array Arguments .. 00027 * COMPLEX*16 X( * ) 00028 * .. 00029 * 00030 * 00031 *> \par Purpose: 00032 * ============= 00033 *> 00034 *> \verbatim 00035 *> 00036 *> ZLACGV conjugates a complex vector of length N. 00037 *> \endverbatim 00038 * 00039 * Arguments: 00040 * ========== 00041 * 00042 *> \param[in] N 00043 *> \verbatim 00044 *> N is INTEGER 00045 *> The length of the vector X. N >= 0. 00046 *> \endverbatim 00047 *> 00048 *> \param[in,out] X 00049 *> \verbatim 00050 *> X is COMPLEX*16 array, dimension 00051 *> (1+(N-1)*abs(INCX)) 00052 *> On entry, the vector of length N to be conjugated. 00053 *> On exit, X is overwritten with conjg(X). 00054 *> \endverbatim 00055 *> 00056 *> \param[in] INCX 00057 *> \verbatim 00058 *> INCX is INTEGER 00059 *> The spacing between successive elements of X. 00060 *> \endverbatim 00061 * 00062 * Authors: 00063 * ======== 00064 * 00065 *> \author Univ. of Tennessee 00066 *> \author Univ. of California Berkeley 00067 *> \author Univ. of Colorado Denver 00068 *> \author NAG Ltd. 00069 * 00070 *> \date November 2011 00071 * 00072 *> \ingroup complex16OTHERauxiliary 00073 * 00074 * ===================================================================== 00075 SUBROUTINE ZLACGV( N, X, INCX ) 00076 * 00077 * -- LAPACK auxiliary routine (version 3.4.0) -- 00078 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00079 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00080 * November 2011 00081 * 00082 * .. Scalar Arguments .. 00083 INTEGER INCX, N 00084 * .. 00085 * .. Array Arguments .. 00086 COMPLEX*16 X( * ) 00087 * .. 00088 * 00089 * ===================================================================== 00090 * 00091 * .. Local Scalars .. 00092 INTEGER I, IOFF 00093 * .. 00094 * .. Intrinsic Functions .. 00095 INTRINSIC DCONJG 00096 * .. 00097 * .. Executable Statements .. 00098 * 00099 IF( INCX.EQ.1 ) THEN 00100 DO 10 I = 1, N 00101 X( I ) = DCONJG( X( I ) ) 00102 10 CONTINUE 00103 ELSE 00104 IOFF = 1 00105 IF( INCX.LT.0 ) 00106 $ IOFF = 1 - ( N-1 )*INCX 00107 DO 20 I = 1, N 00108 X( IOFF ) = DCONJG( X( IOFF ) ) 00109 IOFF = IOFF + INCX 00110 20 CONTINUE 00111 END IF 00112 RETURN 00113 * 00114 * End of ZLACGV 00115 * 00116 END