Белое диалоговое окно вывода в Фортране проблемы с чтением файла

Question

Я пытаюсь прочитать файл cs251_1.dat в Фортране, а затем пытаюсь создать новый файл, используя данные из cs251_1.dat. Файл cs251_1.dat был написан другой программой на Фортране, и данные в этом файле представляют собой два пробела, за которыми следует трехзначное число, за которым следуют два пробела с общим числом четыре в строке. Тем не менее, я получаю следующую ошибку

C:\Users\Cornelius\Documents\~Source5.f:3:   
open(5, File = 'C:cs251_1.dat')  
1
C:\Users\Cornelius\Documents\~Source5.f:6: (continued): 
Integer A  
2  
Statement at (2) invalid in context established by statement at (1)

Это программа:

      open(5, File = 'C:cs251_1.dat')
      open(6, File = 'C:cs251_2.out')

      Integer A, B, C, D
      total = 0.
      E = 1
      Integer Selection = 1
      total = Selection + 1
      Print *, 'Let''s do some math!!'
    *  16  continue
      Read(5, 65) A, B, C, D
  65  Format(I4, I4, I4, I4)
      write(6,66)
  66  Format(4(2x, I4))

Answer 1

Вы не можете иметь объявление после активного заявления. Это то, что ваш компилятор имеет в виду, что «оператор в (2) недопустим в контексте, установленном оператором в (1)». Так что измените порядок заявлений.