37 #ifndef TEMPLATE_BLAS_ASUM_HEADER
38 #define TEMPLATE_BLAS_ASUM_HEADER
46 Treal ret_val, d__1, d__2, d__3, d__4, d__5, d__6;
60 if (*n <= 0 || *incx <= 0) {
70 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
71 dtemp += (d__1 = dx[i__],
absMACRO(d__1));
84 for (i__ = 1; i__ <= i__2; ++i__) {
85 dtemp += (d__1 = dx[i__],
absMACRO(d__1));
94 for (i__ = mp1; i__ <= i__2; i__ += 6) {
95 dtemp = dtemp + (d__1 = dx[i__],
absMACRO(d__1)) + (d__2 = dx[i__ + 1],