| 查看: 2041 | 回复: 5 | ||
| 【悬赏金币】回答本帖问题，作者xingxiao将赠送您 10 个金币 | ||
[求助]
运行结果为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 ] |
回复此楼» 猜你喜欢
我感觉当老师好累啊。。
已经有17人回复
-
硕博人来此
已经有4人回复
-
联系的博导说有时间聊一聊 我回复了自己可以的时间后 博导就没再回复
已经有5人回复
-
博后资助名单出来了
已经有15人回复
-
和导师撕破脸了
已经有22人回复
-
有没有要一起买VASP版权的，可以6个人
已经有8人回复
-
论文返修状态变成了awaiting AE recommendation
已经有15人回复
-
国内期刊审稿人数量
已经有6人回复
-
北大教授何怀宏曾如此描述他的同行
已经有13人回复
-
求助！请问海外博后依托内地单位申请青基的优劣？
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 来看看proe 5.0 出猜怎么回事啊
已经有3人回复
- 配置的0.5M的EDTA 溶液浑浊是怎么回事？
已经有10人回复
- 做充放电测试时电压充到0.4V左右时就冲不上去了，是怎么回事？
已经有8人回复
- 为什么这个程序运行时有延迟，在VC++6.0中，就是点运行要过一会儿才提示输入
已经有8人回复
- 【求助】ChemBio3D ultra 11.0中的Gamess为什么运行不了？
已经有19人回复
- jade5.0出来的谱图是阶梯状是怎么回事？
已经有5人回复
- 【在线答疑】关于NAMD/VMD (v2)
已经有49人回复
- 【转帖】Materials-Studio 论坛问答全集（精选众多论坛讨论贴）
已经有122人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18839.2
- 红花: 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
5