| 查看: 2042 | 回复: 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 ] |
回复此楼» 猜你喜欢
变性人申请基金咋算性别？
已经有22人回复
-
硕博人来此
已经有6人回复
-
评正教授需要两个国家级项目，有人用子课题糊弄，结果在评审前资格公示时被举报拿下了
已经有32人回复
-
联系的博导说有时间聊一聊 我回复了自己可以的时间后 博导就没再回复
已经有7人回复
-
找不到审稿人
已经有7人回复
-
期刊选择
已经有3人回复
-
二甲胺的使用
已经有14人回复
-
小论文影响大论文查重吗？
已经有5人回复
-
我感觉当老师好累啊。。
已经有20人回复
-
博后资助名单出来了
已经有16人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 来看看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人回复
送鲜花一朵
5楼2012-02-11 08:44:55
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18839.2
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼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
20