如何在fortran中打开所有带有特定扩展名(名称前缀)的文件？

program open_files
  implicit none
  character(len=100) :: file_pattern
  character(len=100) :: file_name
  integer :: file_unit, i, status

  ! 设置文件名模式
  file_pattern = "*.txt"

  ! 使用GLOB函数进行文件名模式匹配
  do i = 1, 100
    file_name = file_pattern
    call GLOB(file_name, i, status)

    ! 如果没有匹配的文件，则退出循环
    if (status /= 0) exit

    ! 打开文件
    open(newunit=file_unit, file=file_name, status='old', action='read', iostat=status)

    ! 处理文件
    if (status == 0) then
      ! 在这里进行文件处理操作
      ! ...

      ! 关闭文件
      close(file_unit)
    else
      ! 处理文件打开错误
      ! ...
    end if
  end do

end program open_files