fortran中write和print的异同

mofangbao

最近看到有朋友们在讨论fortran中的write和print命令的异同，于是就去找资料验证了一下，有了下面一下小小的结论，单独发个帖子以便需要查找的人能更好的找到。

相同点：
1、都可以输出内容到屏幕，write(*,*)"字符串" 和print*,"字符串"的效果是一样的
2、都可以使用格式控制符来控制输入和输出，并且都可以直接把控制符写在输出命令的后面
write可以使用格式控制是尽人皆知的了，print使用格式可能还比较少，但也是可以的，关于这一点我做了个小小的验证：
程序如下：
program write_print
print 20,"这是第一个字符串测试"
print '(1x,a)',"这是第二个个字符串测试"
20 format(1x,a)
end
编译后运行如下：


因此，print后面的*表示的是默认格式，而不是输出到屏幕。那print命令一定会把数据输出到屏幕吗？查了help之后发现官方的说法是输出到 implicit output device，也就是默认输出设备，我们一般的默认输出设备也就是屏幕了，如果是打印机呢？我没测试过了...

不同点：
write可以指定输出的设备的设备号，而print只能输出到默认设备。要注意的是fortran中默认的输出设备号是unit=6，如果当前没有打开的6号文件，那么如果使用如下语句：
program write_print
write(6,20)"这是一个字符串测试"
20 format(1x,a)
end
将会在屏幕上进行输出，不会提示设备号未找到。但是如果当前已经open了一个文件作为6号输出的话，将会输出到文件而不是屏幕，看来以后open的时候尽量避开6号了...

topmad

支持一下清风，小技巧大智慧...

言深深

看，write（x,y）,前一个是表示打开的unit，如果同时打开多个unit的话，在不同的里面输出，比如：
open(1,file="hello.txt")
open(2,file="fine.txt")
write(1,*) "this is file 'hello' "
write(2,*) "this id file 'fine' "
close(1)
close(2)
那么文件hello.txt里面写的是this is file 'hello' ；fine.txt里面写的是this id file 'fine'

注意，close部分是可以缺省的，但是最好写上，因为如果你一下子打开两个unit 1，如下
open(1,file="hello.txt")
write(1,*) "this is file 'hello' "
close(1)

open(1,file="fine.txt")
write(1,*) "this id file 'fine' "
close(1)
此处第一个close(1)不可缺省哦

关于print，我曾经想试试看能不能想write写入到一个open file里面，但是没有成功，当然像清风那个，设置一下输出的格式是ok的

mofangbao

言深深 发表于 2011-12-5 16:13

                               
登录/注册后可看大图

看，write（x,y）,前一个是表示打开的unit，如果同时打开多个unit的话，在不同的里面输出，比如：
open(1, ...

print当然不能输出到文件...

言深深

mofangbao 发表于 2011-12-5 16:35

                               
登录/注册后可看大图

print当然不能输出到文件...

好吧，没有系统做过研究啦

冬日情愫+

学习学习！

too

有书上讲 2、6是默认输出设备，1、5是默认输入设备。。。这个是据版本而定的么？？？

wly123456

学习一下啊

ABBY

楼主的说法好像有点牵强哎

artmunich

ABBY 发表于 2011-12-7 18:14

                               
登录/注册后可看大图

楼主的说法好像有点牵强哎

哪里牵强了