| 查看: 1666 | 回复: 4 | |||
[求助]
FORTRAN 赋值错乱问题，求大神解答~~~~急。。５５５
|
|
我在一个子程序POWELL里对S(I,K)数值，像下面这样。 subroutine powell(nn_h,x,x0,x3,xx,s,ss,e1,ep,wh,th1,th2,hrh,obj_f, xq0,r,f0) implicit real*8(a-h,o-z) dimension s(nn_h,nn_h+1),ss(nn_h) dimension x(nn_h),x0(nn_h),x3(nn_h) dimension th1(nn_h) ITE=0 DO 10 I1=1,nn_h DO 20 K=1,nn_h+1 20 S(I1,K)=0. 10 S(I1,I1)=1. 在调用这个子程序前，我的X数组已经给它赋了确定的值，调用到POWELL里面来的时候，X值还是对的，但是在我对S数组赋值的时候，程序却自动的把S数组的值赋给X数组了。 像下面这样。我对S(I1,K)中的I1从１到５赋值里，X（I）里１到５的值也相应的改变了，这个问题是什么原因造成的呢？ 我不知道到底是哪里出了问题，希望大神可以伸出援助之手。谢谢您~ 在线等~~~ |
回复此楼» 猜你喜欢
filecode=后面第一个是大写字母
已经有8人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有13人回复
-
今天系统多次维护，明天很可能放榜！
已经有9人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求大神。Fortran软件
已经有13人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
2楼2012-09-26 21:32:23
3楼2012-09-26 21:33:10
chembetsey
木虫 (小有名气)
- 应助: 125 (高中生)
- 金币: 3820.1
- 散金: 5
- 红花: 9
- 帖子: 262
- 在线: 281.8小时
- 虫号: 1781694
- 注册: 2012-04-27
- 专业: 理论和计算化学
4楼2012-09-26 22:50:07
dingxb
金虫 (正式写手)
迷途书虫
- 应助: 12 (小学生)
- 金币: 1674.5
- 帖子: 482
- 在线: 59.5小时
- 虫号: 34085
- 注册: 2004-01-06
- 性别: GG
- 专业: 原子和分子物理
5楼2012-09-29 12:16:35
25