shebin 发表于 2013-8-12 10:15:40

Fortran删除重复数据

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

页: [1]
查看完整版本: Fortran删除重复数据