24小时热门版块排行榜

>论坛更新日志 (1271)
>虫友互识 (123)
>考博 (31)
>导师招生 (22)
>硕博家园 (16)
>考研 (16)
>基金申请 (15)
>博后之家 (14)
>论文道贺祈福 (14)
>文献求助 (14)
>论文投稿 (14)
>教师之家 (12)
>找工作 (11)
>休闲灌水 (11)
>公派出国 (9)
>医学 (4)

返回列表

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

回复此楼