作者laa7352 (Laa)
看板Fortran
标题Re: [问题] fortran如何开多个档案
时间Thu May 14 16:52:13 2009
※ 引述《DennyWu (阿贤)》之铭言：
: 想请问一下
: fortran 一定要用OPEN(10,FILE='a.TXT')
: 开档吗??
: 我想问一下
: 如果我有一个
: N=10
: Do i=1,N
: C(i)=i+1
: END DO
: 我想要让C(i) 写在N个档案中
: 想请问有怎样的指令可以用
: 谢谢
可以用write把数字写到字串里
再用字串去open
这样的做好有一个好处，数字可以随do loop改变
再去改变档名
write(字串变数(始格数:末格数),'(数字格式)')数字变数
character*30 outfile
integer i,N
parameter (N=10)
c 1234567890 15
data outfile /'outfile.??.txt'/
dimension c(N)
c
do i=1,N
c(i)=i+1
write(outfile(9:10),'(I2.2)')i
open(11,file=outfile,status='unknown',form='formatted')
write(11,*)c(i)
close(11)
enddo
结果
档名 c值
outfile.01.txt c=2
outfile.02.txt c=3
outfile.03.txt c=4
.
.
.
outfile.09.txt c=10
outfile.10.txt c=11
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.137.32.73
1F：→ DennyWu:感谢 这麽清楚的说明 我目前暂定是用open很多档 section 05/15 12:53
2F：→ DennyWu:最多目前10个 上下面 20个 所以勉强用 我会改一下试 05/15 12:54
3F：→ DennyWu:看看 谢谢了 05/15 12:54
4F：推 DennyWu:ok了 搞定了 再次感谢 05/16 02:00