| 查看: 476 | 回复: 12 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】运行出错，寻帮助
|
|||
|
这个程序是我从书上找到的 试着运行了下 改了些错误 编译连接没有问题了 但运行时又提示 Program Exception——array bounds exceeded 我试着添加一些write语句，发现这一段执行后就出现上述这个问题了 do 90 lz=lun,lup do 80 lx=lrf,lrg ib=lz*idx+lx+1 j=ncl(ib) if(j.le.0)goto 80 if(j.eq.i)goto 80 do 11 jj=1,10 if(je(i,jj).eq.j)then jk=jj goto 70 endif 11 continue 70 xj=x0(j) zj=z0(j) rj=rr(j) gap=dsqrt((xi-xj)*(xi-xj)+(zi-zj)*(zi-zj)) if(gap.lt.dsqrt((ri+rj)*(ri+rj)))then if(i.gt.j)then ac=(xj-xi)/(gap) as=(zj-zi)/(gap) j0=0 do 555 jj=1,10 if(je(j,jj).eq.i)then j0=jj goto 554 endif 555 continue 554 call actf(i,j,jk,as,ac,gap) en(j,j0)=en(i,jk) es(j,j0)=es(i,jk) j0=0 endif else 85 en(i,jk)=0.d0 es(i,jk)=0.d0 je(i,jk)=0 endif 80 continue 90 continue 请问上述问题应该如何排除，谢谢 |
回复此楼» 猜你喜欢
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
假如你的研究生提出不合理要求
已经有5人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
2楼2009-04-14 10:34:12
3楼2009-04-14 11:05:15
4楼2009-04-14 11:06:52
woshilsh
荣誉版主 (职业作家)
- 应助: 43 (小学生)
- 贵宾: 10.33
- 金币: 21115.1
- 散金: 737
- 红花: 22
- 帖子: 3777
- 在线: 639.7小时
- 虫号: 293038
- 注册: 2006-11-04
- 专业: 计算机应用技术
- 管辖: 仿真模拟
5楼2009-04-14 14:54:45
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
6楼2009-04-14 16:47:46
7楼2009-06-18 16:22:47
argo
铁杆木虫 (著名写手)
上善若水
- 应助: 4 (幼儿园)
- 金币: 9672.8
- 散金: 200
- 红花: 34
- 帖子: 1940
- 在线: 486.4小时
- 虫号: 507533
- 注册: 2008-02-19
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
8楼2009-06-18 17:33:43
9楼2009-06-18 18:31:50
argo
铁杆木虫 (著名写手)
上善若水
- 应助: 4 (幼儿园)
- 金币: 9672.8
- 散金: 200
- 红花: 34
- 帖子: 1940
- 在线: 486.4小时
- 虫号: 507533
- 注册: 2008-02-19
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
10楼2009-06-19 07:11:21