Re: [問題] 要如何將迴圈值分開存檔
※ 引述《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://www.ptt.cc/bbs/Fortran/M.1416369207.A.E7A.html
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
