| 查看: 2253 | 回复: 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 ] |
回复此楼» 猜你喜欢
孩子确诊有中度注意力缺陷
已经有12人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
2026博士申请-功能高分子，水凝胶方向
已经有6人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
-
请问2026国家基金面上项目会启动申2停1吗
已经有5人回复
-
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
来看看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