24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 417  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化工调剂303分,过四级 +9 栖梧待风 2026-04-02 9/450 2026-04-02 16:43 by SZW_UJN
[考研] 348求调剂 +6 吴彦祖24k 2026-04-02 6/300 2026-04-02 14:07 by 给你你注意休息
[考研] 275求调剂 +13 jjjjjjjjjjl 2026-03-27 13/650 2026-04-02 13:07 by yulian1987
[考研] 一志愿华东理工大学,080500学硕,317分,求调剂 +12 s1145 2026-03-31 12/600 2026-04-02 12:38 by smileboy2006
[考研] 一志愿北京科技大学085601材料工程英一数二初试总分335求调剂 +9 双马尾痞老板2 2026-04-01 9/450 2026-04-02 12:14 by oooqiao
[考研] 08开头看过来!!! +4 wwwwffffff 2026-03-31 6/300 2026-04-02 11:42 by 均值回归
[考研] 材料专硕322分 +11 哈哈哈吼吼吼哈 2026-04-01 11/550 2026-04-02 10:52 by lnilvy
[考研] 重庆大学材料与化工085600,初试370+,求求调剂建议 +5 shzhou_ 2026-04-01 6/300 2026-04-02 10:05 by olim
[考研] 070300化学279求调剂 +15 哈哈哈^_^ 2026-03-31 17/850 2026-04-01 21:37 by 给你你注意休息
[考研] 材料与化工(0856)304求B区调剂 +8 邱gl 2026-03-30 16/800 2026-04-01 17:58 by 邱gl
[考研] 311求调剂 +10 李芷新1 2026-03-31 10/500 2026-04-01 14:38 by chenqifeng666
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 08工科,295,接受跨专业调剂 +6 lmnlzy 2026-03-31 6/300 2026-04-01 11:02 by 逆水乘风
[考研] 求调剂 +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[考研] 求收留 +8 1943443204 2026-03-28 8/400 2026-03-31 15:00 by -迷了路啊路
[考研] 291求调剂 +5 Y-cap 2026-03-29 6/300 2026-03-29 13:18 by mumin1990
[考研] 086000生物与医药调剂 +5 Feisty。 2026-03-28 9/450 2026-03-29 12:02 by longlotian
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 265求调剂 +8 小木虫085600 2026-03-27 8/400 2026-03-27 22:16 by 无际的草原
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
信息提示
请填处理意见