| 查看: 2401 | 回复: 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 ] |
回复此楼» 猜你喜欢
290求调剂
已经有3人回复
-
一志愿西南交通 专硕 材料355 本科双非 求调剂
已经有4人回复
-
295复试调剂
已经有6人回复
-
279分求调剂 一志愿211
已经有8人回复
-
工科材料085601 279求调剂
已经有8人回复
-
317求调剂
已经有8人回复
-
一志愿南昌大学，327分，材料与化工085600
已经有5人回复
-
274求调剂
已经有7人回复
-
317求调剂
已经有9人回复
-
招收调剂硕士
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 来看看proe 5.0 出猜怎么回事啊
已经有3人回复
- 配置的0.5M的EDTA 溶液浑浊是怎么回事？
已经有10人回复
- 做充放电测试时电压充到0.4V左右时就冲不上去了，是怎么回事？
已经有8人回复
- 为什么这个程序运行时有延迟，在VC++6.0中，就是点运行要过一会儿才提示输入
已经有8人回复
- jade5.0出来的谱图是阶梯状是怎么回事？
已经有5人回复
送鲜花一朵 
4楼2012-02-11 08:43:59
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
5楼2012-02-11 08:44:55
