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