子程序中文件操作

koorb

在子程序中open一个文件，写入数据，比如就写入一个整数10，status设为‘old’。open(unit=2,file='data.txt',status='old')
write(2,*) 10
close(unit)


在主程序中调用3次。
问：文件中有几个10？

jinguangyang

应该有1个10吧

alsoran

3个啊，你试一下呗，这个感觉在考我们一样

koorb

alsoran 发表于 2013-12-31 13:59
3个啊，你试一下呗，这个感觉在考我们一样

试的结果是3个，但我觉得是1个，求解释

alsoran

koorb 发表于 2013-12-31 20:06
试的结果是3个，但我觉得是1个，求解释

status=‘old’默认是追加形式吧

koorb

alsoran 发表于 2013-12-31 21:12
status=‘old’默认是追加形式吧

如果是追加的话，那执行2次主程序，就应该是6个10，可实际不是。

alsoran

不要写unit=2，写unit>10的数字试试，unit=2 默认是屏幕输出，unit号写10以上比较好

bvoodnuq

把 close(unit)
改为 close(2)

除非你很确定 unit 这个变量的值就是 2

koorb

alsoran 发表于 2014-1-1 11:44
不要写unit=2，写unit>10的数字试试，unit=2 默认是屏幕输出，unit号写10以上比较好 ...

将unit设成>10的数，果然可以。
但我仍然不明白，既然unit=2是屏幕输出，为啥write执行的结果却是将数据写入文件呢？

koorb

bvoodnuq 发表于 2014-1-2 12:00
把 close(unit)
改为 close(2)

用close（2）之后，文件中就一个10.
请教一下，我在程序中没有改变unit的值，为啥没有colse数据文件呢？

bvoodnuq

koorb 发表于 2014-1-4 08:44
用close（2）之后，文件中就一个10.
请教一下，我在程序中没有改变unit的值，为啥没有colse数据文件呢？ ...

你的代码里，没有任何一个变量叫 unit
Open( unit = 2 并不意味着声明了一个变量叫unit并赋值为 2
open 语句中的 unit 是语法规定的子句，与变量没有关系。
就好像
  Character( Len = 512 ) :: File
  File = 'b.txt'
  Open( unit = 2 , File = 'a.txt' )
  此时，File 依然是 'b.txt'

所以，既然没有 unit，那么直接 close( unit )，此时的 unit 值是不确定的，可能是0，也可能是其他值。所以，一般来说，此时的 unit 这个通道号不存在，所以也就没关掉。
一般我写代码就不写 unit，直接 Open( 12 , File = '文件名' )

bvoodnuq

koorb 发表于 2014-1-4 08:41
将unit设成>10的数，果然可以。
但我仍然不明白，既然unit=2是屏幕输出，为啥write执行的结果却是将数据 ...

unit = 2 并不一定是屏幕输出。这个语法没有规定，但是语法建议程序员使用 10 以上的通道号。10 以下的通道号留给编译器使用。

某些编译器可能会使用 2，3，5，6 这样的通道号用于屏幕输出，输出。但不确定，不同的编译器规定不同。
Intel Fortran 使用的是 5，6，并且允许用户重新定义。而 Silverfrost 的编译器，则使用 -1 和 0

koorb

感谢bvoodnuq！

我是用c语言的习惯看待Fortran。