Fortran怎么讀取和寫入文件

在Fortran中，可以使用OPEN、READ、WRITE和CLOSE等關(guān)鍵字來讀取和寫入文件。

下面是一個(gè)示例代碼，展示了如何讀取和寫入文件：

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

  ! 讀取文件中的數(shù)據(jù)
  do i = 1, 5
    read(10, '(A)', iostat=status) line
    read(line, *) n, x
    print*, 'Read from file:', n, x
  end do

  ! 關(guān)閉文件
  close(unit=10)

  ! 打開文件以寫入數(shù)據(jù)
  open(unit=20, file='output.txt', status='replace', action='write', iostat=status)
  if (status /= 0) then
    print*, 'Error opening file'
    stop
  end if

  ! 寫入數(shù)據(jù)到文件
  do i = 1, 5
    write(line, '(2I5, F10.2)') i, i*2, real(i)*2
    write(20, '(A)') trim(adjustl(line))
  end do

  ! 關(guān)閉文件
  close(unit=20)

end program file_io

在這個(gè)示例中，程序首先打開一個(gè)名為data.txt的文件，讀取其中的數(shù)據(jù)，并輸出到屏幕上。然后，程序再打開一個(gè)名為output.txt的文件，并將數(shù)據(jù)寫入到文件中。

需要注意的是，在讀取和寫入文件時(shí)，需要使用READ和WRITE語句，同時(shí)也需要使用OPEN和CLOSE語句來操作文件。