Fortran怎么读取和写入文件

在Fortran中，可以使用OPEN、READ、WRITE和CLOSE等关键字来读取和写入文件。

下面是一个示例代码，展示了如何读取和写入文件：

program file_io
  implicit none

  integer :: i, n, status
  real :: x
  character(len=50) :: filename
  character(len=50) :: line

  ! 打开文件
  filename = 'data.txt'
  open(unit=10, file=filename, status='old', action='read', iostat=status)
  if (status /= 0) then
    print*, 'Error opening file'
    stop
  end if

  ! 读取文件中的数据
  do i = 1, 5
    read(10, '(A)', iostat=status) line
    read(line, *) n, x
    print*, 'Read from file:', n, x
  end do

  ! 关闭文件
  close(unit=10)

  ! 打开文件以写入数据
  open(unit=20, file='output.txt', status='replace', action='write', iostat=status)
  if (status /= 0) then
    print*, 'Error opening file'
    stop
  end if

  ! 写入数据到文件
  do i = 1, 5
    write(line, '(2I5, F10.2)') i, i*2, real(i)*2
    write(20, '(A)') trim(adjustl(line))
  end do

  ! 关闭文件
  close(unit=20)

end program file_io

在这个示例中，程序首先打开一个名为data.txt的文件，读取其中的数据，并输出到屏幕上。然后，程序再打开一个名为output.txt的文件，并将数据写入到文件中。

需要注意的是，在读取和写入文件时，需要使用READ和WRITE语句，同时也需要使用OPEN和CLOSE语句来操作文件。