home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / RROT.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  602 b   |  30 lines
  1.       SUBROUTINE RROT (N, DX, INCX, DY, INCY, C, S)
  2.       IMPLICIT NONE
  3. C
  4. C APPLIES A PLANE ROTATION
  5. C
  6.       INTEGER N, INCX, INCY
  7.       DOUBLE PRECISION DX(*), DY(*), C, S
  8. C
  9.       INTEGER I, IX, IY
  10.       DOUBLE PRECISION DTEMP
  11. C
  12.       DOUBLE PRECISION FLOP
  13. C
  14. C
  15.       IF (N.LE.0) RETURN
  16.       IX = 1
  17.       IY = 1
  18.       IF (INCX.LT.0) IX = (-N+1)*INCX+1
  19.       IF (INCY.LT.0) IY = (-N+1)*INCY+1
  20.       DO 10 I = 1, N
  21.         DTEMP = FLOP (C*DX(IX)+S*DY(IY))
  22.         DY(IY) = FLOP (C*DY(IY)-S*DX(IX))
  23.         DX(IX) = DTEMP
  24.         IX = IX+INCX
  25.         IY = IY+INCY
  26. 10    CONTINUE
  27. C
  28.       RETURN
  29.       END
  30.