我想使用Fortran 90从文件中将长度未知的文本读取到诸如character（len = 1）a（3000）之类的向量中

Question

我想从文件中将长度未知的文本读取为诸如character（len = 1）a（3000）之类的向量，但是输入文件没有“文件结尾标记”

我尝试过类似的事情：

     open(2,file=surnames.txt,status='old')
     read(2,15, IOSTAT=ios,END=20,ERR=20)(a(i),i=1,3000)

      isize=0
      do while (ios == 0)
        isize=isize+1
        read(2,15, iostat=ios, end=20) a(isize)
      end do

15    format(a1)
20    continue

但无济于事

感谢您的关注