程序编译但不打印结果

Question

我一直在尝试在Fortran77中编写程序而无法完成它，所以我需要一点帮助才能使它工作。 起初我只是想打开一个.txt文件读取文件并写入文件。 .txt文件的格式如下所示。

001,0.02014,3.1217    
002,0.09611,3.1203    
003,0.23753,3.1128
004,0.45527,3.0884    
005,0.75772,3.0285

其中第一列是整数，第二列逗号分隔包含小数点后5位数的实数，第三列是小数点后四位数的实数。

我的程序如下：

      PROGRAM FIRST
      IMPLICIT NONE

      REAL,DIMENSION(304,3)::A 

      OPEN(UNIT =7 , FILE = "Pressure_values.txt",
     1 FORM = "FORMATTED", STATUS = "OLD", ACTION = "READ") 

      READ(*,100) ((A(I,J),J=1,3), I=1,304) 

      WRITE(*,100) ((A(I,J),J=1,3), I=1,304)

   100 FORMAT(I3,F10.5,F10.4)

      STOP

      END

我哪里错了？

Answer 1

您没有从该文件中读取内容。您需要阅读第7单元。

read(7,100)

Answer 2

您的代码：

READ(*,100) ((A(I,J),J=1,3), I=1,304) 

表示＆＃34;从格式为No.100＆＃34;的STDIN读取，而不是您刚刚打开的文件。 STDIN通常表示键盘输入流。使用方法：

READ(7,100) ((A(I,J),J=1,3), I=1,304) 

代替。