作者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