Re: [請益] FORTRAN讀檔案的問題

看板Fortran作者 (我是瓜呆)時間12年前 (2012/05/07 17:24), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串2/4 (看更多)
感謝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' -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.115.36.198 ※ 編輯: mouseforlove 來自: 140.115.36.198 (05/07 17:24) ※ 編輯: mouseforlove 來自: 140.115.36.198 (05/07 17:27)

05/07 17:27, , 1F
這個情況下format用i0或者i0.X會比較簡單
05/07 17:27, 1F
※ 編輯: mouseforlove 來自: 140.115.36.198 (05/07 17:36)
文章代碼(AID): #1FfvI-VT (Fortran)
文章代碼(AID): #1FfvI-VT (Fortran)