Fortran读取文本文件

小宝19950118

我需要读取文本格式文件的1，2，5列数据，一直读到最后一行，请问如何设置循环？我只会做从指定行到指定行的循环。
我的程序是
program RItiqu
        implicit none
        integer i
        integer t,intensity
        character(10) number
        real temp
        open(11,FILE='taifeng.dat' )
        do i=1, 2
                read(11,*) number, t, temp, temp, intensity
        end do
        close(11)
end

须佐能乎

有多少行就设置成多少行的数组呗，不用循环直接读就行了
character ：： number（行数）*10
下面读取时直接写
read(11,*) number, t, temp, temp, intensity
这样就可以了

贫道敬孔

同意楼上   可以把所有咧都读进来，然后用想用的列就好啦