52 DOUBLE PRECISION FUNCTION dzasum(N,ZX,INCX)
69 DOUBLE PRECISION STEMP
73 DOUBLE PRECISION DCABS1
78 IF (n.LE.0 .OR. incx.LE.0)
RETURN
84 stemp = stemp + dcabs1(zx(i))
92 stemp = stemp + dcabs1(zx(i))
double precision function dzasum(N, ZX, INCX)
DZASUM