[問題]用副程讀array值

[sidbear (端午節生日..太神了)]

我想要從一個文字檔案讀值
值會寫入四個array
但是這個動作是在一個副程式裡面執行的(subroutine)
於是我寫了這樣的程式

Program Au
  Implicit none
   Integer::i
   Real     ::x(4),y(4),z(4)

   Open(Unit=13, File="Tim.txt")
    call find_data(i,x,y,z)

  Stop
 End Program

 subroutine find_data(t,x,y,z)
   Implicit none
   Integer ::t
   Real    ::x(4),y(4),z(4)
   Do t=1,4
    Read(13,*) x(t),y(t),z(t)
   enddo
  return
 End subroutine find_data

但是執行之後都一直有error，可是我不知道哪裡錯了
希望大大能夠幫助我一下

　文字檔的內容
　1.0 2.0 3.0 　
　2.0 3.0 4.0
　3.0 4.0 1.0
  4.0 1.0 2.0

以上
　


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.104.153.126
→ snowanimal:錯誤訊息是啥
推 charlesdc:可以跑
→ YCTzeng:測試結果可以跑,你應該把Tim.txt這個檔案重寫一次,裡面好
→ YCTzeng:像有全形的空格,所以讀取的時候會出錯。