作者zx168zx (zx168zx)
看板Fortran
标题[问题] 要如何将回圈值分开存档
时间Sun Nov 16 11:35:52 2014
小弟想请问一下各位前辈们
我的程式结构如下
do aa=1,5
do bb=1,10
.
.
.
.
do while (条件)
.
.
write(126,"(3(F13.5))") aa,bb,X
.
.
enddo
enddo
enddo
但我跑资料时 这样的存法让我的档案变很大
想问一下 是否能够将档案自动存成
aa-bb.txt 照我的回圈编号分割储存好我的档案
就是1-1.txt 存的档案是 aa=1,bb=1的资料
1-2.txt 是aa=1,bb=2 的资料
我试过这样的写法
character(len=20) :: string
do m=1,2
do aa=1,1
do bb=1,2
write(unit=string,fmt='((F13.5))')m,'.txt'
.
.
.
.
do while (条件)
open(unit=1 ,file= string)
write(1,fmt='((F13.5))')m, X
close(1)
enddo
enddo
enddo
但没办法成功 所以想请问一下各位前辈们
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.116.1.136
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Fortran/M.1416108955.A.46C.html
※ 编辑: zx168zx (140.116.1.136), 11/16/2014 11:38:08
1F：→ jubilee2: 每次开档案会洗掉前面已经输出的，所以可以回圈外面先 11/16 12:59
2F：→ jubilee2: open 所有的档案，另一法是看看有没有接续写档案的指令 11/16 13:00
3F：→ blc: open有个append，查一下吧 11/16 15:14
4F：→ zx168zx: append指令我知道 但我不太懂移到档案结尾的意思 11/16 16:16
5F：→ fcuiii: 把OPEN放到do 里面 将string 改为回圈，如string=i.txt 11/17 10:39
6F：→ fcuiii: i 要改为字元，就会切成很多档案。 11/17 10:40
7F：→ zx168zx: i.txt我太不懂要怎麽定义 i如果是回圈数 不是已经定义成 11/17 13:52
8F：→ zx168zx: integer了吗 怎麽在定义成字元? 11/17 13:52
9F：推 terryys: 板上搜寻字串,例如这个: #19xRni2i 11/17 16:59
10F：→ rex0707: WRITE(string,*) integer 11/18 10:48
11F：→ zx168zx: r大 我不太懂你那样的写法.... 11/18 13:28