Re: Summing array elements

"Craig Dedo" <cdedo@[EMAIL PROTECTED]
> wrote in message 
news:480a9ef9$0$7077$4c368faf@[EMAIL PROTECTED]
> "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.
>>
>> I know the "obvious" way to do it:
>> s=0.
>> do 1 i=5,50
>> s=s+a(i)
>> 1 continue
>>
>> but since I'm currently doing something which requires quite a number
>> of summing, I was wondering is there something shorter ?
>>
>> Any idead appreciated
>>
>> regards
>> Luka
>
>    This most likely is a homework assignment.  However, if I am mistaken

> and Luka is new to Fortran . . .
>
>    There is always the SUM() intrinsic function.  It can sum an array 
> along any dimension or the whole array and can even sum those array 
> elements for which the value of a corresponding MASK array is true. 
RTFM.

I thought I was gonna clean up the snippet and write an amusing mask. 
This 
*is* wrong, but it doesn't look wrong to me.
real(dim =50):: a

s=0.
do 1 i=5,50
s=s+a(i)
1 continue
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