73 DOUBLE PRECISION FUNCTION dzasum(N,ZX,INCX)
90 DOUBLE PRECISION STEMP
94 DOUBLE PRECISION DCABS1
99 IF (n.LE.0 .OR. incx.LE.0)
RETURN 105 stemp = stemp + dcabs1(zx(i))
113 stemp = stemp + dcabs1(zx(i))
double precision function dzasum(N, ZX, INCX)
DZASUM