00001 SUBROUTINE ZLACGV( N, X, INCX ) 00002 * 00003 * -- LAPACK auxiliary routine (version 3.2) -- 00004 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00005 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00006 * November 2006 00007 * 00008 * .. Scalar Arguments .. 00009 INTEGER INCX, N 00010 * .. 00011 * .. Array Arguments .. 00012 COMPLEX*16 X( * ) 00013 * .. 00014 * 00015 * Purpose 00016 * ======= 00017 * 00018 * ZLACGV conjugates a complex vector of length N. 00019 * 00020 * Arguments 00021 * ========= 00022 * 00023 * N (input) INTEGER 00024 * The length of the vector X. N >= 0. 00025 * 00026 * X (input/output) COMPLEX*16 array, dimension 00027 * (1+(N-1)*abs(INCX)) 00028 * On entry, the vector of length N to be conjugated. 00029 * On exit, X is overwritten with conjg(X). 00030 * 00031 * INCX (input) INTEGER 00032 * The spacing between successive elements of X. 00033 * 00034 * ===================================================================== 00035 * 00036 * .. Local Scalars .. 00037 INTEGER I, IOFF 00038 * .. 00039 * .. Intrinsic Functions .. 00040 INTRINSIC DCONJG 00041 * .. 00042 * .. Executable Statements .. 00043 * 00044 IF( INCX.EQ.1 ) THEN 00045 DO 10 I = 1, N 00046 X( I ) = DCONJG( X( I ) ) 00047 10 CONTINUE 00048 ELSE 00049 IOFF = 1 00050 IF( INCX.LT.0 ) 00051 $ IOFF = 1 - ( N-1 )*INCX 00052 DO 20 I = 1, N 00053 X( IOFF ) = DCONJG( X( IOFF ) ) 00054 IOFF = IOFF + INCX 00055 20 CONTINUE 00056 END IF 00057 RETURN 00058 * 00059 * End of ZLACGV 00060 * 00061 END
1.7.2