Чтение файлов в Фортране

Question

Я продолжаю пытаться перенаправить этот файл в Фортран и вывести и отформатировать данные, однако продолжаю получать это сообщение о Среде выполнения, запрашивающей прекращение или что-то в этом роде.

   Real X
   Real AVG, SUM, Y
   open(3, File = 'C: test.txt')
   open(5, File = 'C: test1.out')
   SUM = 0.
   Do 29, J = 1, 30
   Read(3, 60) X
60   Format(2x, F4.2)
   SUM = SUM + X
29   continue
   AVG = Sum / 30
   write(5, 65) AVG
65   Format(2x, 'Avg = ', F8.2)
*        Read *, Y
     Stop
     End

Answer 1

В зависимости от вашей ОС (имеется в виду, компилятор и ваша текущая операционная система) есть несколько вещей, которые могут пойти не так в этом примере.

Для начала

open(3, file='c:\test.txt')

ближе к тому, какэта строка должна выглядеть, хотя обычно лучше всего, чтобы файл находился в том же каталоге, что и рабочая программа.