用Fortran代码编写文本文件的输出

program write_text_file
  implicit none
  
  integer :: i
  character(len=20) :: filename
  character(len=100) :: line
  
  ! 设置输出文件名
  filename = "output.txt"
  
  ! 打开文件并进行写入操作
  open(unit=10, file=filename, status='replace', action='write', iostat=i)
  
  if (i /= 0) then
    write(*, *) "无法打开文件 ", trim(filename)
    stop
  endif
  
  ! 写入数据到文件
  write(line, '(A)') "这是一行文本数据。"
  write(10, '(A)') trim(line)
  
  ! 关闭文件
  close(10)
  
  write(*, *) "文本文件写入完成。"
  
end program write_text_file