Fortran文件读写

1program ex
2implicit none
3character(len=40) A(3000),B(3000),C(3000)  !A异常、B已开挖、C需标记
4integer i,j,N1,N2,count   !N1是10号文件行数,N2是11号文件行数，count是计数器
5
6open(unit=10,file="10异常焊口编号列表.txt")   !异常焊口编号列表
7open(unit=11,file="11以开挖焊口列表.txt")     !以开挖焊口列表
8open(unit=12,file="12异常焊口中已开挖焊口编号.txt")
9
10read(10,*)N1   !读取10号文件
11DO i=1,N1,1
12read(10,*) A(i)
13end do
14
15read(11,*)N2    !读取11号文件
16DO i=1,N2,1
17read(11,*) B(i)
18end do
19
20!开始比对（从异常到全部开挖去比对）
21DO i=1,N1,1
22  DO j=1,N2,1
23     if ( trim(A(i))==trim(B(j)) ) then
24     write(*,*)A(i),"   以开挖"
25     write(12,*)A(i)
26     exit
27     end if
28  end do
29end do
30
31write(*,*)"按任意键结束"
32read(*,*)
33
34end program