Fortran删除重复数据
m=1do while(line(i+m)(1:1).ne."#")
m=m+1
enddo
idex(i+1)=0
do n=1,m-2
do l=n+1,m-1
idex(i+l)=0
if(line(i+n)(1:3).eq.line(i+l)(1:3))idex(i+l)=1
enddo
enddo
do 30 k=1,m-1
if(idex(i+k).eq.1)goto 30
write(2,'(a25)')line(i+k)
30 continue
endif
enddo
页:
[1]