52 DOUBLE PRECISION FUNCTION dzasum(N,ZX,INCX)
69 DOUBLE PRECISION stemp
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 dcabs1(Z)
DCABS1
double precision function dzasum(N, ZX, INCX)
DZASUM