在Fortran 90中,将行数组写入文本文件的好方法是什么？

program write_array
  implicit none
  
  integer, parameter :: n = 5 ! 数组大小
  real :: array(n) ! 行数组
  integer :: i ! 循环变量
  character(len=10) :: filename ! 文件名
  integer, parameter :: unit = 10 ! 文件单元号

  ! 初始化数组
  array = [1.0, 2.0, 3.0, 4.0, 5.0]

  ! 设置文件名
  filename = "output.txt"

  ! 打开文件
  open(unit, file=filename, status='replace')

  ! 将数组写入文件
  do i = 1, n
    write(unit, *) array(i)
  end do

  ! 关闭文件
  close(unit)

  print *, "数组已成功写入文件：", trim(filename)
  
end program write_array