24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2329  |  回复: 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的回帖

风儿2

铁虫 (初入文坛)

引用回帖:
2楼: Originally posted by libralibra at 2012-06-05 00:03:26
说明write这句改变了某些值
你是不是有全局变量?好好查查write的过程

全局变量 我都是用common的 。。。
6楼2012-06-05 09:27:48
已阅   回复此楼   关注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

银虫 (小有名气)

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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 317求调剂 +6 十闲wx 2026-03-24 6/300 2026-03-28 13:27 by Iveryant
[考研] 一志愿华理,数一英一285求A区调剂 +8 AZMK 2026-03-25 11/550 2026-03-28 13:16 by AZMK
[考研] 数一英一271专硕(085401)求调剂,可跨 +4 前行必有光 2026-03-28 5/250 2026-03-28 11:27 by xuxiang
[考研] 材料求调剂一志愿哈工大324 +7 闫旭东 2026-03-28 9/450 2026-03-28 08:51 by Xu de nuo
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 求调剂 +3 刘柯@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[考研] 286求调剂 +4 lim0922 2026-03-26 4/200 2026-03-27 10:28 by guoweigw
[考研] 351求调剂 +4 麦克阿磊 2026-03-24 4/200 2026-03-27 00:32 by wxiongid
[考研] 0703化学求调剂 +3 丹青奶盖 2026-03-26 5/250 2026-03-26 20:11 by macy2011
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 化学调剂一志愿上海交通大学336分-本科上海211 +4 小鱼爱有机 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 求b区院校调剂 +4 周56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 277分求调剂,跨调材料 +3 考研调剂lxh 2026-03-24 3/150 2026-03-24 13:52 by JourneyLucky
[考研] 一志愿吉大化学322求调剂 +4 17501029541 2026-03-23 6/300 2026-03-24 10:21 by 戴围脖的小蚊子
[考研] 一志愿河北工业大学0817化工278分求调剂 +7 jhybd 2026-03-23 12/600 2026-03-24 09:03 by jhybd
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
信息提示
请填处理意见