write(fname,1601) fn2
1601 format(a,'1.dat')
open(3,file=fname) !打开fname文件,3为1.dat,存tmp12
VBJMA@H0HZ9HFQLR9)@GS@C.png (3.04 KB, 下载次数: 277)
vvt 发表于 2017-3-23 07:55
fname是一个字符串,它的内容代表文件名。
3是文件通道号。open(3,file=fname) 把它和 fname 关联起来。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |