应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】读文本数据出现段错误[fortran]
北京石油化工学院2026年研究生招生接收调剂公告
152/2返回列表上一页12
查看: 2375  |  回复: 14
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

xk6891

至尊木虫 (著名写手)
引用回帖:
Originally posted by snoopyzhao at 2011-04-24 15:02:25:
我是指 5 楼的，很明显很显的语法错误……

确实，刚才的表情以图片的形式复制过来，就无法转化为“)”后引号了，不好意思，上面发的更正了，编译通过
赞一下 回复此楼
人生自古多险阻，勤者自得天酬助。试问否泰何所依，枯藤老枝待新抽。临渊踌躇终迈步，振翅鹏起云霄冲。似是前程甚堪忧，他日振臂揽苍穹。
11楼2011-04-24 15:33:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
微尘、梦想(金币+2): 谢谢参与应助！ 2011-04-24 18:01:42
引用回帖:
Originally posted by xk6891 at 2011-04-24 15:33:27:
确实，刚才的表情以图片的形式复制过来，就无法转化为“)”后引号了，不好意思，上面发的更正了，编译通过

问题出在这里：
CODE:
if(mod(i,2)/=0)then
write(23,"(A1,3(F15.9),1XA4,1XI1,7XA1,A1)")ele(i),pos2(i,j),"XXXX",1,ele(i),"+"
else
write(23,"(A1,3(F15.9),1XA4,1XI1,7XA1,A1)")ele(i),pos2(i,j),"XXXX",1,ele(i),"-"
end if

你想写出 pos2 中的三个值，因为你给定了 3(F15.9)，但实际上，pos2(i,j) 只代表一个值……
赞一下(2人) 回复此楼
12楼2011-04-24 16:09:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xk6891

至尊木虫 (著名写手)
引用回帖:
Originally posted by snoopyzhao at 2011-04-24 16:09:44:
问题出在这里：

[code]
if(mod(i,2)/=0)then
write(23,"(A1,3(F15.9),1XA4,1XI1,7XA1,A1)"ele(i),pos2(i,j),"XXXX",1,ele(i),"+"
else
write(23,"(A1,3(F15.9) ...

恩是的，确实这里有问题,这样如何(pos(i,j),j=1,3)
赞一下 回复此楼
人生自古多险阻，勤者自得天酬助。试问否泰何所依，枯藤老枝待新抽。临渊踌躇终迈步，振翅鹏起云霄冲。似是前程甚堪忧，他日振臂揽苍穹。
13楼2011-04-24 16:22:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖
引用回帖:
Originally posted by xk6891 at 2011-04-24 16:22:01:
恩是的，确实这里有问题,这样如何(pos(i,j),j=1,3)

应该可以，可以测试一下，呵呵……
赞一下(1人) 回复此楼
14楼2011-04-24 16:44:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xk6891

至尊木虫 (著名写手)
引用回帖:
Originally posted by snoopyzhao at 2011-04-24 16:44:59:
应该可以，可以测试一下，呵呵……

恩，好的，谢谢专家。
回复此楼
人生自古多险阻，勤者自得天酬助。试问否泰何所依，枯藤老枝待新抽。临渊踌躇终迈步，振翅鹏起云霄冲。似是前程甚堪忧，他日振臂揽苍穹。
15楼2011-04-24 17:51:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xk6891 的主题更新
152/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料求调剂 +11 一样YWY 2026-04-05 11/550 2026-04-05 23:36 by 来看流星雨10
[考研] 找调剂 +10 楚乔乔 2026-04-01 10/500 2026-04-05 22:19 by syh9288
[考研] 262求调剂 +7 天下第一文 2026-04-04 8/400 2026-04-05 21:31 by 激流勇渡
[考研] 调剂 +3 李广火 2026-04-05 3/150 2026-04-05 18:57 by 蓝云思雨
[考研] 材料专硕 调剂 +14 CXN123456 2026-04-03 14/700 2026-04-05 17:18 by Hdyxbekcb
[考研] 288求调剂 +7 没有答案_ 2026-04-05 7/350 2026-04-05 17:01 by yulian1987
[考研] 工科08专硕机械275求调剂 +3 AaAa7420 2026-04-02 3/150 2026-04-05 13:26 by jp9609
[考研] 0832食品科学与工程学硕282调剂 +6 鱼在水中游a 2026-04-02 9/450 2026-04-05 11:45 by flysky1234
[考研] 286求调剂 +3 草木不言 2026-04-04 3/150 2026-04-04 22:40 by lbsjt
[考研] 309分085801求调剂 +11 MY_angel 2026-03-31 11/550 2026-04-04 19:11 by 蓝云思雨
[考研] 求调剂 +3 ffyyu 2026-04-02 3/150 2026-04-04 19:03 by 蓝云思雨
[考研] 359求调剂 +7 hhhhaaaa$ 2026-04-04 7/350 2026-04-04 18:49 by imissbao
[考研] 306求调剂 +3 hyb上名工 2026-04-02 3/150 2026-04-04 18:12 by 热情沙漠
[考研] 土木304求调剂 +4 兔突突突， 2026-03-31 4/200 2026-04-04 13:34 by 1753564080
[考研] 334求调剂 +8 曾仰之 2026-04-03 8/400 2026-04-04 11:16 by w_xuqing
[考研] 326分求调剂 +3 于是乎呢 2026-04-01 5/250 2026-04-03 14:23 by 于是乎呢
[考研] 一志愿深大085601材料工程专业（专硕）300分可以调剂去哪 +8 10160315 2026-04-02 8/400 2026-04-03 09:36 by hypershenger
[考研] 260求调剂 +6 朱芷琳 2026-04-02 6/300 2026-04-02 20:27 by 6781022
[考研] 农学考研求调剂 +3 dkdkxm 2026-04-01 3/150 2026-04-02 16:04 by wangjagri
[考研] 江苏苏北高校诚邀调剂同学 +3 zzll406 2026-03-31 3/150 2026-03-31 16:54 by 及时行乐fan
信息提示
关闭
请填处理意见
关闭