24小时热门版块排行榜    

查看: 395  |  回复: 4

383026016

银虫 (初入文坛)

[交流] 【求助】新手求助【已完结】 已有4人参与

我有个txt的文件
如何用fortran读取并赋给数组
   DIMENSION A(2333,2)
   OPEN(77,FILE='123.TXT')     
   DO I=1,2333
     READ(77,*) (A(I,J),J=1,2)                                                                                                      
   ENDDO
   CLOSE(77)
   WRITE(*,10) (A(I,J),J=1,2)
10 FORMAT(F20.15)
   END
怎么老是出问题呢?恳请大家帮帮忙

[ Last edited by 余泽成 on 2010-12-7 at 16:20 ]
回复此楼

» 猜你喜欢

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

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-12-07 16:18:21
你的问题是啥?因为你的 write 那句不在循环之内??
2楼2010-12-06 17:31:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

luoxitc

新虫 (初入文坛)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-12-07 16:18:28
因为你的 write 那句不在循环之内
那个I...
想有件T恤,上面印着空姐的头像
3楼2010-12-06 19:17:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

da6789090

木虫 (著名写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-12-07 16:20:11
楼主仔细点。前面两楼都正解。
write是在循环结束后才开始
....
4楼2010-12-06 20:27:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

383026016

银虫 (初入文坛)

对~谢谢大家了
5楼2010-12-13 10:18:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 383026016 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见