Function Dasum

Part of:

package f77
( dasum < n > < dx > < incx > )