小弟想请问一下各位前辈们
我的程式结构如下
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
但没办法成功 所以想请问一下各位前辈们