      DOUBLE PRECISION FUNCTION WASUM (N, XR, XI, INCX)
      IMPLICIT NONE
C
      INTEGER N, INCX
      DOUBLE PRECISION XR(*), XI(*)
C
      INTEGER I, IX
      DOUBLE PRECISION S
C
      DOUBLE PRECISION FLOP
C
C
C ***      NORM1(X)
      S = 0.0D0
      IF (N.LE.0) GO TO 20
      IX = 1
      DO 10 I = 1, N
         S = FLOP (S+DABS (XR(IX))+DABS (XI(IX)))
         IX = IX+INCX
10    CONTINUE
20    CONTINUE
      WASUM = S
C
      RETURN
      END
