今天做课题要用到一个计算态密度的程序，在自己的贴子里搜索了下，还真有，是yello哥们给解答的，真好啊！！论坛真好，给我解决了很多问题啊！！良师益友！！

 

      ds=0
      do j=1,ns
      do ia=1,200
      if((ef(ia)<=ek(j)) .and. (ek(j)<ef(ia+1))) then
      ds(ia)=ds(ia)+1
      exit
      end if
      enddo
      enddo

这段语句 exit 到底退出到那里呢？

if语句？

do ia=1,201

还是第一个do j=1,ns

求解。

论坛，好样的，兄弟支持你的发展！！尽管水平不行，哈哈。