您所在位置：主题：怎样才能使输出的数据不重复？？
damien
[专家分：0] 发布于 2011-01-19 04:45:00
我的想法是这样的，把符合条件(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
我的程序是这样的：
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