Цитата(Lutik @ 30.10.2009, 23:31) *

...
enddo
endoo
write(*,*)s(i)

...
enddo
write(*,*)s(i)
enddo

Красоты, конечно, никакой, но хотя бы не за циклом печатаем...