※ 引述《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
請問一下各位大大 這樣的寫法是哪邊邏輯不對嗎?