home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / lapack / zlacgv.f < prev    next >
Text File  |  1996-09-28  |  1KB  |  62 lines
  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
  62.