下面是我又嘗試的新方法
program test
IMPLICIT REAL * 8 (A - H, O - Z)
IMPLICIT integer * 8 (I-N)
character(100)::filename
filename='000.txt'
nn=2 !記事本數量
do i=1,nn
unit=i+10
write(filename(1:3),'(i3.3)') i
open(unit=unit,file=filename,status='unknown',position='rewind')
end do
do aa=2,2
do bb=1,2
do unit=11,nn+10
while_loop=0 !計算do whlie內的迴圈數
do while(條件)
while_loop=while_loop+1
write(unit,"( 3(F13.5))") aa,bb,X
enddo
enddo
write((125,*) aa,bb,while_loop
enddo
enddo
這樣執行的結果我可以創出編號001~nn個記事本並寫入資料
但他並不會依照我的aa,bb迴圈寫入
比如001記事本 依然寫入aa=2 bb=1,aa=2,bb=2的資料
002記事本也是如此
而且寫入的資料量與我的loop數不合 不知道是哪邊出了問題
另外執行完會跑出fort.124這個檔案 也不知道為什麼會跑出來
想請問各位大大前輩們 這樣是哪邊寫法有誤嗎？