24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2269  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

xingxiao

铜虫 (小有名气)

[求助] 运行结果为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 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

joy4210

金虫 (小有名气)

AN(i,j,1)和q的值没有给啊!所以应该没有进入if判断里边吧
6楼2012-02-14 16:20:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xingxiao 的主题更新
信息提示
请填处理意见