24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 939  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 324求调剂 +5 hanamiko 2026-03-26 6/300 2026-03-26 22:47 by fmesaito
[考研] 305求调剂 +4 哇卢卡库 2026-03-26 4/200 2026-03-26 20:58 by sanrepian
[考研] 【双一流院校新能源、环境材料,材料加工与模拟招收大量调剂】 +4 Higraduate 2026-03-22 8/400 2026-03-26 20:34 by Higraduate
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +6 晨昏线与星海 2026-03-20 6/300 2026-03-26 19:20 by macy2011
[考研] 材料考研求调剂 +3 Dendel 2026-03-23 6/300 2026-03-26 17:51 by fmesaito
[考研] 考研调剂 +8 小蜡新笔 2026-03-26 8/400 2026-03-26 16:18 by dick_runner
[考研] 334分 一志愿武理 材料求调剂 +4 李李不服输 2026-03-26 4/200 2026-03-26 16:00 by 不吃魚的貓
[硕博家园] 北京林业大学硕导招生广告 +5 kongweilin 2026-03-26 7/350 2026-03-26 14:37 by mapenggao
[考研] 考研一志愿苏州大学初始315(英一)求调剂 +3 sbdksD 2026-03-24 4/200 2026-03-25 18:16 by xcjcqu
[考研] 0854电子信息求调剂 324 +4 Promise-jyl 2026-03-23 4/200 2026-03-25 11:36 by Sugarlight
[考研] 生物学学硕求调剂 +7 小羊睡着了? 2026-03-23 10/500 2026-03-25 02:24 by 清风拂扬。 m
[考研] 材料专硕找调剂 +5 哈哈哈吼吼吼哈 2026-03-23 5/250 2026-03-24 19:07 by 了了了了。。
[考研] 306求0703调剂一志愿华中师范 +10 纸鱼ly 2026-03-21 11/550 2026-03-24 17:22 by qingfeng258
[考研] 求调剂 +5 林之夕 2026-03-24 5/250 2026-03-24 17:16 by dick_runner
[考研] 080500求调剂 +3 zzzzfan 2026-03-24 3/150 2026-03-24 16:38 by barlinike
[考博] 26申博自荐 +3 whh869393 2026-03-24 3/150 2026-03-24 09:55 by 21018060
[考研] 一志愿山东大学药学学硕求调剂 +3 开开心心没烦恼 2026-03-23 4/200 2026-03-24 00:06 by 开开心心没烦恼
[考研] 生物学一志愿985,分数349求调剂 +6 zxts12 2026-03-21 9/450 2026-03-23 18:37 by macy2011
[考研] 298求调剂一志愿211 +3 上岸6666@ 2026-03-20 3/150 2026-03-22 15:50 by ColorlessPI
[考研] 260求调剂 +3 朱芷琳 2026-03-20 4/200 2026-03-22 15:12 by 朱芷琳
信息提示
请填处理意见