くだすれFORTRAN（超初心者用）その6

[0502 デフォルトの名無しさん 2014/06/26(木) 21:08:20.99 ID:2skFYUOi]

詰めないと使いにくくない？

i=1
do m=1, linenum
if(mod(m,n) .eq. 1) then
read(20,*) hoge(i)
i = i +1
else
read(20,*)
endif
enddo