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