| 查看: 1713 | 回复: 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人回复
-
0854求调剂
已经有27人回复
-
材料相关专业344求调剂双非工科学校或课题组
已经有27人回复
-
300求调剂
已经有12人回复
-
291求调剂
已经有10人回复
-
一志愿沪9，326求生物学调剂
已经有12人回复
-
生物学调剂
已经有10人回复
-
320求调剂
已经有5人回复
-
接受任何调剂
已经有7人回复
-
化学070300 求调剂
已经有29人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 测序得到的结果不对，不知道是比对错误，还是其他什么问题？？？
已经有3人回复
- 只要晶体解出来是没有A,B,C类错误是不是就可以确定解出来是什么就是什么？
已经有18人回复
- 使用chem3D调用gaussian
已经有3人回复
- 媒体嗅探器（悟空小子）——直接调用迅雷下载优酷（土豆）视频【转载】
已经有80人回复
- matlab的函数调用问题
已经有3人回复
- fortran程序怎样调用lapack库进行矩阵对角化？
已经有7人回复
- VS2005下matlab调用
已经有8人回复
- 【求助】matlab 中，几个m文件调用
已经有14人回复
- 【求助】vb.net中调用外部程序的问题
已经有3人回复
- 【求助】f90子程序怎么编译错误？请大家帮忙，谢谢
已经有3人回复
- 【求助】VC++中用MFC进行对话框编程，调用catia程序
已经有13人回复
- 如此面试最终结果，无言！
已经有51人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
6楼2012-06-08 22:10:48
等高手吧。
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
7楼2012-06-10 20:00:39
