F77_dasum()

double F77_dasum	(	const CBLAS_INT *	N,
		double *	X,
		const CBLAS_INT *	incX
	)