作者sidbear (端午節生日..太神了)
看板Fortran
標題[問題]用副程讀array值
時間Sun Apr 26 17:24:21 2009
我想要從一個文字檔案讀值
值會寫入四個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
1F：→ snowanimal:錯誤訊息是啥 04/26 18:15
2F：推 charlesdc:可以跑 04/26 20:22
3F：→ YCTzeng:測試結果可以跑,你應該把Tim.txt這個檔案重寫一次,裡面好 04/27 21:35
4F：→ YCTzeng:像有全形的空格,所以讀取的時候會出錯。 04/27 21:36