小编man*_*any的帖子

我想在Fortran中多次读取同一行文件.有关数据是实际价值.我尝试将此代码构建为测试,但我总是弄错了.

program advance

    implicit none
    integer , parameter :: ut = 20
    character(len=7) :: fname = 'dat.dat'
    integer :: n, idx 
    character(len=100) :: lnumber 
    open(unit = ut, file =fname, status='old', action='read')

    n = 10 

    do idx = 1, n 
        read(ut, '(a)', advance = 'no') lnumber 
        print *, lnumber 
    end do 

end program advance

该dat.dat文件包含一行25.325654515464564564

该代码返回以下错误.

At line 13 of file advance.f90 (unit = 20, file = 'dat.dat')
Fortran runtime error: End of record

我该如何解决这个错误？