Fortran删除重复数据

shebin

m=1
    do 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