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 / RSET.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  355 b   |  22 lines
  1.       SUBROUTINE RSET (N, DX, DY, INCY)
  2.       IMPLICIT NONE
  3. C
  4. C COPIES SCALAR X TO SCALAR Y
  5. C
  6.       INTEGER N, INCY
  7.       DOUBLE PRECISION DX, DY(*)
  8. C
  9.       INTEGER I, IY
  10. C
  11. C
  12.       IF (N.LE.0) RETURN
  13.       IY = 1
  14.       IF (INCY.LT.0) IY = (-N+1)*INCY+1
  15.       DO 10 I = 1, N
  16.         DY(IY) = DX
  17.         IY = IY+INCY
  18. 10    CONTINUE
  19. C
  20.       RETURN
  21.       END
  22.