[問題] 如何讀取以空白分隔的字串？

[jsb (jsb)]

試過用這樣的程式讀取，

      program strings
      character*40 a(5)

      open(1,file="t.txt",status='old')

      read (1,'(5a)') (a(i),i=1,5)
      do i=1,5
         write (*,*) a(i)
      end do

      end

結果是 a(1) 就把五個字串讀光光，
剩下的 a(2) 到 a(5) 都讀到空字串。

難道真的要一個一個字元讀，再自己整理出字串來嗎？
應該有簡單一點的方法吧？

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.116.80.241
→ blc:這是fortran的痛處…
→ gilocustom:宣告時a陣列每個元素是a40，可是讀檔時5元素卻只給5a？
→ jsb:不知道長度的話是真的可以不用在型態後面加長度的。例如：3i
→ jsb:就表示有三個不知道幾位數的整數。
→ gilocustom:不用'(5a)'改用*(自由格式)就可以略過空白了。
→ jsb:原來這麼簡單！多謝！