Fortran文件读写--查找内容

program ex
implicit none
character(len=40) A(3000),B(3000),C(3000)  !A异常、B已开挖、C需标记
integer i,j,N1,N2,count   !N1是10号文件行数,N2是11号文件行数，count是计数器

open(unit=10,file="10异常焊口编号列表.txt")   !异常焊口编号列表
open(unit=11,file="11以开挖焊口列表.txt")     !以开挖焊口列表
open(unit=12,file="12异常焊口中已开挖焊口编号.txt")

read(10,*)N1   !读取10号文件
DO i=1,N1,1
read(10,*) A(i)
end do

read(11,*)N2    !读取11号文件
DO i=1,N2,1
read(11,*) B(i)
end do

!开始比对（从异常到全部开挖去比对）
DO i=1,N1,1
  DO j=1,N2,1
     if ( trim(A(i))==trim(B(j)) ) then
     write(*,*)A(i),"   以开挖"
     write(12,*)A(i)
     exit
     end if
  end do
end do

write(*,*)"按任意键结束"
read(*,*)

end program