1 SUBROUTINE CLACGV( 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 X( * )
13 * ..
14 *
15 * Purpose
16 * =======
17 *
18 * CLACGV 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 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 CONJG
41 * ..
42 * .. Executable Statements ..
43 *
44 IF( INCX.EQ.1 ) THEN
45 DO 10 I = 1, N
46 X( I ) = CONJG( 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 ) = CONJG( X( IOFF ) )
54 IOFF = IOFF + INCX
55 20 CONTINUE
56 END IF
57 RETURN
58 *
59 * End of CLACGV
60 *
61 END
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 X( * )
13 * ..
14 *
15 * Purpose
16 * =======
17 *
18 * CLACGV 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 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 CONJG
41 * ..
42 * .. Executable Statements ..
43 *
44 IF( INCX.EQ.1 ) THEN
45 DO 10 I = 1, N
46 X( I ) = CONJG( 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 ) = CONJG( X( IOFF ) )
54 IOFF = IOFF + INCX
55 20 CONTINUE
56 END IF
57 RETURN
58 *
59 * End of CLACGV
60 *
61 END