| 查看: 2432 | 回复: 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 ] |
» 猜你喜欢
复试调剂,一志愿郑州大学材料与化工289分
已经有23人回复
化学工程与技术专业一志愿哈工程 291分B区 国家级大创负责人 有一作论文
已经有6人回复
材料调剂
已经有10人回复
314求调剂
已经有12人回复
调剂 化学 307
已经有8人回复
一志愿211 0703化学 346分求调剂
已经有11人回复
086003调剂求助
已经有14人回复
085400 328分 求调剂
已经有5人回复
083200 初试305分 求调剂
已经有9人回复
284求调剂
已经有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
- 专业: 污染生态化学
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
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













回复此楼
xingxiao