| 查看: 2899 | 回复: 5 | ||
[求助]
运行结果为0，怎么回事？
|
|
我编了下面一段子程序，运行后结果输出0，不知道是怎么回事，存储空间肯定能存储这么大的数，而且没有越界： implicit none real,intent(in)::q integer,intent(in)::Ng integer,dimension(1:Ng),intent(in)::ink real,dimension(1:Ng,1:3000,1:7),intent(in)::AN integer,intent(inout)::Nele,Nion integer i,j nele=0.0;nion=0.0 do i=1,Ng do j=1,ink(i) if(AN(i,j,1)<=0.0.and.q<0.0) then ！AN(i,j,1)是路程 ! Nele=nele+1 else if(AN(i,j,1)<=0.0.and.q>0.0) then Nion=nion+1 end if end do end do 我想实现的目的是统计粒子在一个空间边界处的数目，粒子在电场力的作用下向前走，每走一步（如果走到了边界处）就把粒子数目加1 [ Last edited by xingxiao on 2012-2-10 at 13:22 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有14人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有11人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有11人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有13人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有12人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有12人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有11人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 来看看proe 5.0 出猜怎么回事啊
已经有3人回复
- 配置的0.5M的EDTA 溶液浑浊是怎么回事？
已经有10人回复
- 做充放电测试时电压充到0.4V左右时就冲不上去了，是怎么回事？
已经有8人回复
- 为什么这个程序运行时有延迟，在VC++6.0中，就是点运行要过一会儿才提示输入
已经有8人回复
- jade5.0出来的谱图是阶梯状是怎么回事？
已经有5人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
xingxiao2楼2012-02-10 16:39:18
emanlee
木虫 (小有名气)
- 应助: 28 (小学生)
- 金币: 3521.6
- 散金: 100
- 红花: 2
- 帖子: 116
- 在线: 125.6小时
- 虫号: 1466309
- 注册: 2011-10-29
- 性别: GG
- 专业: 计算机应用技术
3楼2012-02-10 23:31:23
4楼2012-02-11 08:43:59
5楼2012-02-11 08:44:55
joy4210
金虫 (小有名气)
- 应助: 9 (幼儿园)
- 金币: 3095.3
- 散金: 2
- 帖子: 219
- 在线: 114.7小时
- 虫号: 1096044
- 注册: 2010-09-11
- 专业: 原子和分子物理
6楼2012-02-14 16:20:32
