dasum()

double F77NAME() dasum	(	const integer *	n,
		const double *	dx,
		const integer *	incx
	)