Is there a way to vectorize this routine?

Thank MattD and Brentl for your kind reply. Looking forward to this feature coming soon. :-)

Another question. Is there a way to vectorize reduction operation? Somehing like this:
[/code]
do i=1, 1024
sum = sum+a(i)
enddo

Thanks!