合計 

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