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