24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2111  |  回复: 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的回帖

匿名

用户注销 (正式写手)

感谢参与,应助指数 +1
本帖仅楼主可见
8楼2012-06-05 20:46:09
已阅   申请程序强帖   回复此楼   编辑   查看我的主页
查看全部 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

银虫 (小有名气)

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

Carpathia

银虫 (小有名气)

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

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