作者zx168zx (zx168zx)
看板Fortran
标题Re: [问题] 要如何将回圈值分开存档
时间Wed Nov 19 11:53:24 2014
※ 引述《zx168zx (zx168zx)》之铭言：
: 小弟想请问一下各位前辈们
: 我的程式结构如下
: 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 的资料
program test
IMPLICIT REAL * 8 (A - H, O - Z)
IMPLICIT integer * 8 (I-N)
character string
do m=1,2
do aa=1,2
do bb=1,2
X=1
write(string, fmt='(5(F13.5))') 'aa-bb',m,'.txt'
open(unit=m , file=string,status='unknown')
write(m, fmt='(5(F13.5))') X
close(1)
enddo
enddo
enddo
end
请问一下各位大大 这样的写法是哪边逻辑不对吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.116.46.236
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Fortran/M.1416369207.A.E7A.html