| 查看: 1735 | 回复: 10 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
两次调用同一子程序 第二次调用得出的结果是错误的。。
|
||
|
两次调用同一程序 。。第二次调用得出的结果是错误的 如单独调用 call mainf(x1,eig1) 可得到正确的数据（2.1152...E-002） 单独调用 call mainf(x2,eig2) 可得到正确的数据（-1.170....E-002) 但是两次调用同一子程序 call mainf(x1,eig1) write(*,*) eig1 （2.1152...E-002）(正确） call mainf(x2,eig2) write(*,*) eig2 (-15.899......)(错误） 第二次调用得出的结果是错误的 这次将程序一并附上，感谢大家的关注。。。 还请大家帮忙解决下。。 另外一个问题也想请大家指点下： data L/4/,N/4/ dimension AA(9,9),bb(9,9) common/variable/ x(9),c(9),d(9),xx(9),indx(9)Sample Text 其中AA（a,a) 里面的a=2*L+1但是 我将其改成 data L/4/,N/4/ dimension AA(2*L+1,2*L+1),bb(2*L+1,2*L+1) common/variable/ x(2*L+1),c(2*L+1),d(2*L+1),xx(2*L+1),indx(2*L+1) 输出结果错误 ERROR: An automatic object is invalid in mian program 请问 用什么方法可以 不用每次改变L或N值 都要变化AA（a,a) ，只需要改变L或N值直接可对应上a的值 谢谢。。。 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : test.rar
2012-06-08 15:22:28, 448.32 K
» 猜你喜欢
考博
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
zkshiwo1
银虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 1071.4
- 散金: 23
- 帖子: 239
- 在线: 68.4小时
- 虫号: 443151
- 注册: 2007-10-27
- 性别: GG
- 专业: 金属材料的力学行为
11楼2012-07-14 20:19:01
等高手吧。
2楼2012-06-08 16:26:49
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
风儿2: 金币+25, ★★★★★最佳答案, 非常感谢啊 谢谢。。。 2012-06-11 10:16:40
风儿2: 金币+5, ★★★★★最佳答案 2012-06-12 09:26:03
感谢参与，应助指数 +1
风儿2: 金币+25, ★★★★★最佳答案, 非常感谢啊 谢谢。。。 2012-06-11 10:16:40
风儿2: 金币+5, ★★★★★最佳答案 2012-06-12 09:26:03
|
Ok了，给你弄好了，结果没有问题了 问题出现在 main.f90的 data赋值中，仅第一调用的时候这些语句才启用，你修改了别人的程序，确没有注意这个细节，我给你修改了成了直接赋值的，看见看见截图的作下角多出来的几行。 第二次调用的时候，那些值都是零。不知道你明白我的意思嘛，你按照我说的修改就没问题了。 |
3楼2012-06-08 22:03:52
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
6楼2012-06-08 22:10:48
5