24小时热门版块排行榜

返回列表

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
散金: 1233
红花: 4
帖子: 1180
在线: 354.8小时
虫号: 900839
注册: 2009-11-12
专业: 理论和计算化学

[交流] 【求助】怎样使输出的结果不重复？？已有1人参与

我的想法是这样的，把符合条件(r.lt.rmax) 的io和r输出，但是在循环过程中会有重复的io出现，怎样才能使符合条件(r.lt.rmax) 的io只输出一次，并统计次数次数？请大家帮忙看看。
我的程序是这样的：
      do i=1, n1
         if (条件1) then
               io=i
                  do j=1,n2
                     call bondcalculation(io,j，r)
                        if (r.lt.rmax) then
                        nwat=nwat+1
                        write(10,*) io
                     endif
                  enddo
               endif
            enddo

回复此楼