1 double precision function dasum(n,dx,incx)
8 double precision dx(*),dtemp
9 integer i,incx,m,mp1,n,nincx
13 if( n.le.0 .or. incx.le.0 )
return
19 do 10 i = 1,nincx,incx
20 dtemp = dtemp + dabs(dx(i))
31 if( m .eq. 0 )
go to 40
33 dtemp = dtemp + dabs(dx(i))
35 if( n .lt. 6 )
go to 60
38 dtemp = dtemp + dabs(dx(i)) + dabs(dx(i + 1)) + dabs(dx(i + 2))
39 * + dabs(dx(i + 3)) + dabs(dx(i + 4)) + dabs(dx(i + 5))
double precision function dasum(n, dx, incx)