如何在此Fortran代码中保存多个文件？该代码最多可以处理10个文件编号，但在此之后它会覆盖现有文件

program save_multiple_files
  implicit none
  
  integer :: file_num
  character(len=10) :: file_name
  
  ! 循环保存多个文件
  do file_num = 1, 10
    write(file_name, '(A,I0)') 'file', file_num
    call save_file(file_name)
  end do
  
contains

  subroutine save_file(file_name)
    character(len=10), intent(in) :: file_name
    integer :: unit
    
    ! 打开文件
    open(newunit=unit, file=file_name, status='replace', action='write')
    
    ! 写入文件内容
    write(unit, *) '这是文件', file_name
    
    ! 关闭文件
    close(unit)
  end subroutine save_file

end program save_multiple_files