24小时热门版块排行榜    

查看: 515  |  回复: 4

springer_

木虫 (著名写手)

[求助] 读取矩阵数据出现问题了 已有2人参与

读取4X3矩阵,出现下面的错误,求大神指点
program ex01
    implicit none
    integer :: i,j
    real :: a(4,3)
    open(11,file='data.txt')
    read(11,*)
    read(11,*) ( (a(i,j),j=1,3),i=1,4 )
    write(*,*)a  
    close(11)
end program ex01

读取矩阵数据出现问题了
QQ Photo20150115205420.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

坐在墙头等红杏
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

感谢参与,应助指数 +1
似乎数据不够,把 data.txt 帖上来看看
2楼2015-01-15 23:44:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

springer_

木虫 (著名写手)

引用回帖:
2楼: Originally posted by pippi6 at 2015-01-15 23:44:32
似乎数据不够,把 data.txt 帖上来看看

1 2 3
2 3 4
3 4 5
4 5 6
就是像这样
坐在墙头等红杏
3楼2015-01-16 08:13:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

向海洋进军

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
springer_: 金币+5, ★★★★★最佳答案, 按你的方法,解决了 2015-01-16 10:46:46
删除第一个read试试。

[ 发自小木虫客户端 ]
4楼2015-01-16 08:15:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

4楼说得对, 第一个read 是问题
5楼2015-01-16 08:43:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 springer_ 的主题更新
信息提示
请填处理意见