Annotation of rpl/lapack/lapack/zlacgv.f, revision 1.4
1.1 bertrand 1: SUBROUTINE ZLACGV( N, X, INCX )
2: *
3: * -- LAPACK auxiliary routine (version 3.2) --
4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6: * November 2006
7: *
8: * .. Scalar Arguments ..
9: INTEGER INCX, N
10: * ..
11: * .. Array Arguments ..
12: COMPLEX*16 X( * )
13: * ..
14: *
15: * Purpose
16: * =======
17: *
18: * ZLACGV conjugates a complex vector of length N.
19: *
20: * Arguments
21: * =========
22: *
23: * N (input) INTEGER
24: * The length of the vector X. N >= 0.
25: *
26: * X (input/output) COMPLEX*16 array, dimension
27: * (1+(N-1)*abs(INCX))
28: * On entry, the vector of length N to be conjugated.
29: * On exit, X is overwritten with conjg(X).
30: *
31: * INCX (input) INTEGER
32: * The spacing between successive elements of X.
33: *
34: * =====================================================================
35: *
36: * .. Local Scalars ..
37: INTEGER I, IOFF
38: * ..
39: * .. Intrinsic Functions ..
40: INTRINSIC DCONJG
41: * ..
42: * .. Executable Statements ..
43: *
44: IF( INCX.EQ.1 ) THEN
45: DO 10 I = 1, N
46: X( I ) = DCONJG( X( I ) )
47: 10 CONTINUE
48: ELSE
49: IOFF = 1
50: IF( INCX.LT.0 )
51: $ IOFF = 1 - ( N-1 )*INCX
52: DO 20 I = 1, N
53: X( IOFF ) = DCONJG( X( IOFF ) )
54: IOFF = IOFF + INCX
55: 20 CONTINUE
56: END IF
57: RETURN
58: *
59: * End of ZLACGV
60: *
61: END
CVSweb interface <joel.bertrand@systella.fr>