namelist

风平老涡

在Open语句中，Status="replace"会导致”test01.txt"文件被删除，然后产生一个同名的空白文件。
改"replace"为"unknown"或"old"

风平老涡

胆怯滴大侠 发表于 2020-9-19 21:41
感谢您的回答，可是还是不行，是不是我哪里还有问题啊？

文件"test01.txt"改为

&legend a=1, b=2 /

每一行结束必须有"/"

风平老涡

胆怯滴大侠 发表于 2020-9-20 20:04
现在得到的结果是错误的，很大，1+2不等于17606072啊

namelist的变量名不能有空格，namelist /pa /a,b 可改为namelist /pa/a,b。 "test01.txt"文件可改为:

&pa a=1,b=2 /

或者

&pa
a=1, b=2 /

或者

&pa a=1,
b2 /

风平老涡

胆怯滴大侠 发表于 2020-9-20 22:05
还是不行啊

我这边没问题。

[Fortran] 纯文本查看 复制代码

program hello
    implicit none

   integer:: a,b
   namelist /pa/a,b
   open(101,file="test01.txt",status="old")
   read(101,nml=pa)
   write(*,*) a+b
 end program hello

文本"test01.txt"

&pa a=1,
b=2 /

风平老涡

li913 发表于 2020-9-21 10:21
ivf对输入文件的要求较为宽泛，写得不太标准也认，但gfortran必须按照标准写法组织文件。
&pa
a=1

我用的就是gfortran, 我给出的文件格式都能通过。