感謝terryys
如果希望檔名是test_0001-test_0010的格式，下面的code可改為
do i=1,10
write(iname,'(a5,i0.4)') 'test_',i
enddo
這樣就不需要判別式了!
我在處理類似test_01-test20檔名的部分，會在迴圈裏面多加判別式
do i=1,20
if (i.lt.10) then
write(iname,'(a6,i1)') 'test_0',i
elseif (i.ge.10.and.i.lt.100) then
write(iname,'(a5,i2)') 'test_',i
endif
enddo
雖然這樣寫不是很聰明，不過處理數量少的資料還是可以參考一下
另外
: write(inputname,"(a5,i6)")'test_',000000+i
:C 請問大家，我這一行有寫錯嗎？
這個部分出在000000+i，如果i=5計算結果會是5，而不是000005，
inputname會變成'test_ 5'