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