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")