5
2
0
入门
高斯牛顿代码.zip
2014-10-17 11:11 上传
点击文件名下载附件
3.6 KB, 下载次数: 20
使用道具 举报
农村外出务工人员
739
4
大师
捕获.JPG (14.76 KB, 下载次数: 274)
下载附件
2014-10-17 12:45 上传
REAL*8::G(row,col),Gt(col,row),GtG(col,col)=0.0D0,GtGl(col,col)=0.0D0,ds(row)=0.0D0,dl(row)=0.0D0,d(row)=0.0D0,& Gtd(col)=0.0D0,Gdm(row)=0.0D0,u(col,col)=0.0D0,v(col)=0.0D0,s(ka)=0.0D0,e(ka)=0.0D0,work(ka)=0.0D0,dd(row)=0.0D0
楚香饭 发表于 2014-10-17 13:09 你用的什么编译器?我试过 ivf,cvf,gfortran,都无法跳出循环。
楚香饭 发表于 2014-10-17 13:29 OK ,改了以下代码 就可以了 [mw_shl_code=fortran,true]REAL*8::G(row,col),Gt(col,row),GtG(col,col)=0. ...
100
专家
小菜鸟
12
熟手
百事可乐 发表于 2014-10-17 22:56 有一个错误,可能不是主要原因,但至少是一个隐患. 主程序里的 v(col) 应该是二维数组.v(col,col) ??
查看全部评分
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给为Fcode网站捐赠的网友
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-26 05:39
Powered by Tencent X3.4
© 2013-2024 Tencent