LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
clacgv.f
Go to the documentation of this file.
00001 *> \brief \b CLACGV
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *> \htmlonly
00009 *> Download CLACGV + dependencies 
00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clacgv.f"> 
00011 *> [TGZ]</a> 
00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clacgv.f"> 
00013 *> [ZIP]</a> 
00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clacgv.f"> 
00015 *> [TXT]</a>
00016 *> \endhtmlonly 
00017 *
00018 *  Definition:
00019 *  ===========
00020 *
00021 *       SUBROUTINE CLACGV( N, X, INCX )
00022 * 
00023 *       .. Scalar Arguments ..
00024 *       INTEGER            INCX, N
00025 *       ..
00026 *       .. Array Arguments ..
00027 *       COMPLEX            X( * )
00028 *       ..
00029 *  
00030 *
00031 *> \par Purpose:
00032 *  =============
00033 *>
00034 *> \verbatim
00035 *>
00036 *> CLACGV 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 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 complexOTHERauxiliary
00073 *
00074 *  =====================================================================
00075       SUBROUTINE CLACGV( 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            X( * )
00087 *     ..
00088 *
00089 * =====================================================================
00090 *
00091 *     .. Local Scalars ..
00092       INTEGER            I, IOFF
00093 *     ..
00094 *     .. Intrinsic Functions ..
00095       INTRINSIC          CONJG
00096 *     ..
00097 *     .. Executable Statements ..
00098 *
00099       IF( INCX.EQ.1 ) THEN
00100          DO 10 I = 1, N
00101             X( I ) = CONJG( 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 ) = CONJG( X( IOFF ) )
00109             IOFF = IOFF + INCX
00110    20    CONTINUE
00111       END IF
00112       RETURN
00113 *
00114 *     End of CLACGV
00115 *
00116       END
 All Files Functions