2329
|
1 SUBROUTINE ZLACGV( N, X, INCX ) |
|
2 * |
|
3 * -- LAPACK auxiliary routine (version 2.0) -- |
|
4 * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., |
|
5 * Courant Institute, Argonne National Lab, and Rice University |
|
6 * October 31, 1992 |
|
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 |