Re: Summing array elements

"dpb" <none@[EMAIL PROTECTED]
> wrote in message news:fufn4b$gcg$1@[EMAIL PROTECTED]
> David Frank wrote:
>> "Luka Djigas" <ldigas@[EMAIL PROTECTED]
> wrote in message 
>> news:pu4l04dnt3apg1hf1a1jvesp0gf3jttiol@[EMAIL PROTECTED]
>>> What would be the shortest way to sum some elements of an array? For
>>> example from 5 to 50.
>>>
>>
>> Gee whiz, all these replies and no-one shows him what he asked for.
>>
>>    asum = SUM(a(5:50))
>>
> I missed that... :)
>
> I saw a response that used 5,50 in a loop but didn't realize it was the 
> actual question.
>
> The reply to look at array sections was spot on, though, wasn't it?? :)

Yup.

real :: a(50)
real asum

do  j=1, 50
  a(j) = real(j)
end do

s=0.
do 1 i=5,50
s=s+a(i)
1 continue

asum = SUM(a(5:50))

print *, asum


print *, SUM(a, MASK= a > 42.3)


print *, s
end


-- 
"A belief in a supernatural source of evil is not necessary; men alone
are quite capable of every wickedness."

~~  Joseph Conrad (1857-1924), novelist