/* Double Precision Level 1 BLAS */
double
F77_NAME(dasum)(const int *n, const double *dx, const int *incx)
{
return DASUM(n, dx, incx);
}
/* Interface to FORTRAN routine DASUM. */
Number IpBlasDasum(Index size, const Number *x, Index incX)
{
ipfint n=size, INCX=incX;
return DASUM(&n, x, &INCX);
}
