求和 

s = s + v(i)

求积 

s = s * v(i)

点积 

s = s + v(i) * u(i)

最小值 

s = amin( s, v(i))

最大值 

s = amax( s, v(i))

OR

do i = 1, n

b = b .or. v(i)

end do

AND

b = .true.

do i = 1, n

b = b .and. v(i)

end do

非零元素计数 

k = 0

do i = 1, n

if(v(i).ne.0) k = k + 1

end do