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 / WSET.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  322 b   |  20 lines
  1.       SUBROUTINE WSET (N, XR, XI, YR, YI, INCY)
  2.       IMPLICIT NONE
  3. C
  4.       INTEGER N, INCY
  5.       DOUBLE PRECISION XR, XI, YR(*), YI(*)
  6. C
  7.       INTEGER I, IY
  8. C
  9. C
  10.       IY = 1
  11.       IF (N.LE.0) RETURN
  12.       DO 10 I = 1, N
  13.         YR(IY) = XR
  14.         YI(IY) = XI
  15.         IY = IY+INCY
  16. 10    CONTINUE
  17. C
  18.       RETURN
  19.       END
  20.