home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / matlab.lha / Matlab / matlab.lzh / Source / MatLab / RSWAP.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  476 b   |  26 lines
  1.       SUBROUTINE RSWAP (N, X, INCX, Y, INCY)
  2.       IMPLICIT NONE
  3. C
  4.       INTEGER N, INCX, INCY
  5.       DOUBLE PRECISION X(*), Y(*)
  6. C
  7.       INTEGER I, IX, IY
  8.       DOUBLE PRECISION T
  9. C
  10. C
  11.       IF (N.LE.0) RETURN
  12.       IX = 1
  13.       IY = 1
  14.       IF (INCX.LT.0) IX = (-N+1)*INCX+1
  15.       IF (INCY.LT.0) IY = (-N+1)*INCY+1
  16.       DO 10 I = 1, N
  17.         T = X(IX)
  18.         X(IX) = Y(IY)
  19.         Y(IY) = T
  20.         IX = IX+INCX
  21.         IY = IY+INCY
  22. 10    CONTINUE
  23. C
  24.       RETURN
  25.       END
  26.