作者snowanimal (依然动物先生)
看板Programming
标题Re: [请益] [fortran]回圈open档案的问题
时间Thu Feb 8 10:30:05 2007
※ 引述《mjckey ( 拉)》之铭言：
: 我想请问一下，open 档案可以写在回圈里吗?
: 我有写一个简单的程式来测试
: ./a.out的结果:目录下会出现1.dat 2.dat ．．．10.dat的档案
: 不过只有10.dat才有我要写入的内容
: 其他档案都是[New File]
: 是我有写错什麽，或是不能这样open档案呢?
: 谢谢回答 ^^
: character*6 out
: character*2 fn
: do i=1,10
: write(fn,'(i2)')i
: out=fn(1:2)//'.dat'
: open (unit=i,file=out)
: write(i,'(i2)')i
: enddo
: stop
: end
可以写进回圈里面
program loop_open
integer i,j
character*6 name
name=' 1.dat'
do i=1,10
j=0
write (name(1:2),'(i2)') i !把filename的第一第二字用 i2格式写入
write (*,*) "open ",name !看看档名是否正确 显示在萤幕上
j=i+20
open (j,file=name)
write (j,'(i2)') i
close (j)
enddo
stop
end
这样应该就可以了
会有要开启file unit 要变成 21~30
是因为unit 1-10 是Fortran内部本身就有定义的
所以尽量避开这些unit比较不会出错
还有 开了要关!
--
●▲◆▼●▲◆▼●▲◆▼●▲◆▼●▲◆▼●▲◆▼● ▲▲▲▲
▼ 我与我的酷企鹅 - 台客 ▲ 〒 〒
◆ 相本:
http://photo.xuite.net/animalion ◆ ▲
▲ 网志:
http://blog.xuite.net/animalion ▼ ◣
▼ ◢
●▼◆▲●▼◆▲●▼◆▲●▼◆▲●▼◆▲●▼◆▲● M A R U.
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 192.83.177.177
※ 编辑: snowanimal 来自: 192.83.177.177 (02/08 10:41)
1F：→ snowanimal:最好连开档的 format也写[进去 192.83.177.177 02/09 14:22