在Fortran中读取两个文件并在新文件中打印相同的值

program compare_files
  implicit none
  
  character(len=100) :: file1, file2, newfile
  integer :: value1, value2
  logical :: same_value
  
  ! 定义文件名和路径
  file1 = "path/to/file1.txt"
  file2 = "path/to/file2.txt"
  newfile = "path/to/newfile.txt"
  
  ! 打开输入文件和新文件
  open(unit=10, file=file1, status='old')
  open(unit=20, file=file2, status='old')
  open(unit=30, file=newfile, status='replace')
  
  ! 读取并比较文件中的值
  do while (.true.)
    ! 从文件1读取值
    read(10, *, iostat=same_value) value1
    if (same_value /= 0) exit ! 读取完文件1
    
    ! 从文件2读取值
    read(20, *, iostat=same_value) value2
    if (same_value /= 0) exit ! 读取完文件2
    
    ! 比较两个值
    if (value1 == value2) then
      ! 将相同的值写入新文件
      write(30, *) value1
    end if
  end do
  
  ! 关闭文件
  close(10)
  close(20)
  close(30)
  
end program compare_files