Я хочу прочитать текст неизвестной длины из файла в векторный символ (len = 1) a (3000), используя Fortran 90 - PullRequest
Новая
       16

Я хочу прочитать текст неизвестной длины из файла в векторный символ (len = 1) a (3000), используя Fortran 90

2 голосов
/ 18 июня 2019

Я хочу прочитать текст неизвестной длины из файла в векторный символ (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

но ничего не работает

Спасибо за ваше внимание

...