24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 976  |  回复: 14

yazhouqin

木虫 (小有名气)

[求助] 求助 已有1人参与

求教:
我想把J0-0.dat文件中数据读出来,编了fortran程序,但返回值为0,请大家帮忙看看,谢谢!
想读取图片中的数据
文件见附件求助
2015-11-8 16-22-38.jpg
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : J0-0.dat
  • 2015-11-08 16:20:38, 42.85 K

» 猜你喜欢

ok
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

指环王jyj

新虫 (小有名气)

不能这样编程吧,据我所知,读取一个文档里的内容时,只能按照一个格式读取,你这既有字符又有浮点,得把他们分开。。读取时候,字符自己编外程序里write(*,*)“一串文字”,然后删掉文档里的字符,用do循环读出数组。我说的不一定对,仅供参考。

发自小木虫Android客户端
8楼2015-11-10 00:01:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

yazhouqin

木虫 (小有名气)

我写的fortran程序
求助-1
2015-11-8 16-28-39.jpg

ok
2楼2015-11-08 16:29:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

那位fortran大侠帮我看下吧
ok
3楼2015-11-08 21:43:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

那位老师能帮我看看啊,谢谢啊
ok
4楼2015-11-09 10:01:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

这是我程序运行后的结果
求助-2
2015-11-9 10-10-40.jpg

ok
5楼2015-11-09 10:13:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lin_tie

至尊木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
yazhouqin: 金币+5 2015-11-10 09:51:38
fortran 是按行读的,所以你两个循环读了 11*3 行,而不是11行,每行三列。

应该改成
do i = 1,11
  read(11,*) (a(i,j),j=1,3)
end do
6楼2015-11-09 20:28:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lin_tie

至尊木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★
yazhouqin: 金币+5 2015-11-10 09:52:49
补充一下,read(11,*) buff 无法读入整行,所以 if 语句判断是无效的。
7楼2015-11-09 20:33:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

谢谢,但是问题还没有解决
ok
9楼2015-11-10 09:53:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yazhouqin

木虫 (小有名气)

现在我把程序修改为下图,还是不行
求助-3
2015-11-10 10-26-35.jpg

ok
10楼2015-11-10 10:36:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yazhouqin 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 288求调剂,一志愿华南理工大学071005 +20 ioodiiij 2026-04-08 20/1000 2026-04-13 15:28 by xhd3152
[硕博家园] 有没有学校材料专业收跨调(一志愿085410) +13 momo(上岸版) 2026-04-06 16/800 2026-04-13 15:27 by Xurambo2014
[考研] 各位老师好,求调剂,本科211,一志愿天津大学生物与医药学硕,差两名录取。 +5 路六六jjj 2026-04-13 5/250 2026-04-13 15:26 by 张zhihao
[考研] 272分材料子求调剂 +41 Loy0361 2026-04-10 53/2650 2026-04-13 14:20 by 张zhihao
[考研] 302求调剂 +9 易!? 2026-04-13 9/450 2026-04-13 13:16 by Sealedwind
[考研] 一志愿华工085600 331分 +7 天下ww 2026-04-09 7/350 2026-04-13 09:01 by lhj2009
[考研] 一志愿中国科学院上海有机所,有机化学356分找调剂 +12 Nadiums 2026-04-09 12/600 2026-04-13 08:50 by lhj2009
[考研] 一志愿浙大生物325分求调剂 +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[考研] 药学305求调剂 +8 玛卡巴卡boom 2026-04-10 8/400 2026-04-12 00:07 by zhouwenxian
[考研] 一志愿东北大学控制工程085406数二英二385,求调剂 +8 Ezra_Zhang 2026-04-09 8/400 2026-04-11 09:15 by 猪会飞
[考研] 284求调剂 +12 archer.. 2026-04-10 13/650 2026-04-11 08:44 by zhq0425
[考研] 调剂 +12 卷卷卷心菜_ 2026-04-09 13/650 2026-04-10 22:36 by Ftglcn90
[考研] 吉大计算机技术331分,英语六级,求调剂 +3 峰峰021116 2026-04-09 3/150 2026-04-10 20:01 by chemisry
[考研] 266求调剂 +29 阳阳哇塞 2026-04-07 29/1450 2026-04-10 16:20 by 高维春
[考研] 一志愿211,化学学硕,310分,本科重点双非,求调剂 +27 努力奋斗112 2026-04-07 30/1500 2026-04-10 15:06 by Kilig0317
[考研] 296求调剂 +6 汪!?! 2026-04-08 6/300 2026-04-10 11:02 by mattzhming
[考研] 求调剂材料科学与工程一志愿985初试365分 +5 材化李可 2026-04-08 5/250 2026-04-09 17:00 by Lilly_Li
[考研] 一志愿西南大学生物学学硕344 求生物学相关调剂/生物与医药 +7 超人不会飞@ 2026-04-08 7/350 2026-04-09 09:35 by gong120082
[考研] 11408 325分 +3 jgtxuxgkx 2026-04-07 3/150 2026-04-07 23:10 by lbsjt
[考研] 机械调剂 +3 zzzbcb 2026-04-07 3/150 2026-04-07 22:19 by hemengdong
信息提示
请填处理意见