Mercurial > octave
comparison libcruft/lapack/zlacgv.f @ 2329:30c606bec7a8
[project @ 1996-07-19 01:29:05 by jwe]
Initial revision
| author | jwe |
|---|---|
| date | Fri, 19 Jul 1996 01:29:55 +0000 |
| parents | |
| children | 15cddaacbc2d |
comparison
equal
deleted
inserted
replaced
| 2328:b44c3b2a5fce | 2329:30c606bec7a8 |
|---|---|
| 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 |