[問題]用副程讀array值
我想要從一個文字檔案讀值
值會寫入四個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
→
04/26 18:15, , 1F
04/26 18:15, 1F
推
04/26 20:22, , 2F
04/26 20:22, 2F
→
04/27 21:35, , 3F
04/27 21:35, 3F
→
04/27 21:36, , 4F
04/27 21:36, 4F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
