24小时热门版块排行榜    

查看: 2314  |  回复: 19
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

风儿2

铁虫 (初入文坛)

[求助] 两次调用同一子程序 第二次调用得出的结果是错误的。。

Sample Text
两次调用同一程序 。。第二次调用得出的结果是错误的
如单独调用 call mainc(x1,eig1) 可得到正确的数据
   单独调用 call mainc(x2,eig2) 可得到正确的数据
但是两次调用同一子程序
   call mainc(x1,eig1)
   write(*,*) eig1        (正确)
   call mainc(x2,eig2)
   write(*,*) eig2        (错误)
第二次调用得出的结果是错误的
跪求哪位好心的大神 帮忙解决下,谢谢。。。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Carpathia

银虫 (小有名气)

write不会改变什么值的
很明显是mainc子程序里面改了东西了
另外建议lz检查下局部变量的定义
子程序里如果这么定义局部变量:
integer:: ii=1
下次进入子程序时 ii 就是上一次退出子程序时候的值,并不是 ii 不一定等于1
追求理想的道路上东张西望
3楼2012-06-05 08:48:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 20 个回答

libralibra

至尊木虫 (著名写手)

骠骑将军

【答案】应助回帖

感谢参与,应助指数 +1
说明write这句改变了某些值
你是不是有全局变量?好好查查write的过程
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
2楼2012-06-05 00:03:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Carpathia

银虫 (小有名气)

小木虫不能修改回复,无语……
接上面
这么定义ii 每次调用子程序,ii 初始值都不一定是1,就导致程序不确定性
所以如下定义为好:
integer:: ii
ii = 1

当然你可能并不是这个错误……
追求理想的道路上东张西望
4楼2012-06-05 08:53:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

风儿2

铁虫 (初入文坛)

引用回帖:
4楼: Originally posted by Carpathia at 2012-06-05 08:53:50
小木虫不能修改回复,无语……
接上面
这么定义ii 每次调用子程序,ii 初始值都不一定是1,就导致程序不确定性
所以如下定义为好:
integer:: ii
ii = 1

当然你可能并不是这个错误……

我的里面没有 integer,real 用的都是 common/cons/ a,b  data a/5/,b/6/等等  这样不太好检查啊 。。。 我用手动  每次输入一个x 得出的eig都是对的 两次连续调用就不对了 另外我这个程序比较复杂,子程序里面调用子程序,就是不知道哪出现错误。。。
5楼2012-06-05 09:26:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料求调剂 +5 @taotao 2026-03-21 5/250 2026-03-21 20:55 by lbsjt
[考研] 313求调剂 +4 肆叁贰壹22 2026-03-19 4/200 2026-03-21 17:33 by ColorlessPI
[考研] 298求调剂 +4 上岸6666@ 2026-03-20 4/200 2026-03-21 17:14 by 学员8dgXkO
[考研] 一志愿重庆大学085700资源与环境总分308求调剂 +7 墨墨漠 2026-03-20 7/350 2026-03-21 16:36 by barlinike
[考研] 299求调剂 +4 某某某某位 2026-03-21 4/200 2026-03-21 16:30 by barlinike
[考研] 0856材料专硕353求调剂 +3 NIFFFfff 2026-03-20 3/150 2026-03-21 10:23 by luoyongfeng
[考研] 316求调剂 +6 梁茜雯 2026-03-19 6/300 2026-03-21 06:32 by Ecowxq666!
[考研] 310求调剂 +3 baibai1314 2026-03-16 3/150 2026-03-21 03:56 by JourneyLucky
[考研] 初始318分求调剂(有工作经验) +3 1911236844 2026-03-17 3/150 2026-03-21 02:33 by JourneyLucky
[考研] 求调剂 +3 Ma_xt 2026-03-17 3/150 2026-03-21 02:05 by JourneyLucky
[考研] 324分 085600材料化工求调剂 +4 llllkkkhh 2026-03-18 4/200 2026-03-21 01:24 by JourneyLucky
[考研] 296求调剂 +6 www_q 2026-03-18 10/500 2026-03-20 23:56 by JourneyLucky
[考研] 材料专硕英一数二306 +7 z1z2z3879 2026-03-18 7/350 2026-03-20 23:48 by JourneyLucky
[考研] 294求调剂材料与化工专硕 +15 陌の森林 2026-03-18 15/750 2026-03-20 23:28 by JourneyLucky
[考研] 材料与化工 322求调剂 +4 然11 2026-03-19 4/200 2026-03-20 22:12 by luoyongfeng
[考研] 广西大学家禽遗传育种课题组2026年硕士招生(接收计算机专业调剂) +3 123阿标 2026-03-17 3/150 2026-03-20 15:58 by 飞行琦
[考研] 085600材料与化工求调剂 +6 绪幸与子 2026-03-17 6/300 2026-03-19 13:27 by houyaoxu
[考研] 301求调剂 +4 A_JiXing 2026-03-16 4/200 2026-03-17 17:32 by ruiyingmiao
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 有没有道铁/土木的想调剂南林,给自己招师弟中~ +3 TqlXswl 2026-03-16 7/350 2026-03-17 15:23 by TqlXswl
信息提示
请填处理意见