78 IF (n.LE.0 .OR. incx.LE.0)
RETURN
88 stemp = stemp + abs(sx(i))
97 stemp = stemp + abs(sx(i)) + abs(sx(i+1)) +
98 $ abs(sx(i+2)) + abs(sx(i+3)) +
99 $ abs(sx(i+4)) + abs(sx(i+5))
107 stemp = stemp + abs(sx(i))
REAL function sasum(N, SX, INCX)
SASUM