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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】读文本数据出现段错误[fortran]
152/2返回列表上一页12
查看: 2215  |  回复: 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
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭