Ubuntu中Fortran如何處理文件I/O

在Ubuntu中，使用Fortran處理文件I/O主要涉及到打開文件、讀寫數據以及關閉文件等操作。以下是一些基本的步驟和示例代碼，幫助你在Ubuntu中使用Fortran進行文件I/O處理。

1. 打開文件

使用OPEN語句打開文件。你需要指定文件名、訪問模式（如讀、寫、追加）以及文件狀態。

program file_io_example
    implicit none
    integer :: unit_number, iostat
    character(len=100) :: filename

    filename = 'example.txt'
    unit_number = 10  ! 選擇一個未使用的單元號

    ! 打開文件進行讀寫
    open(unit=unit_number, file=filename, status='old', action='readwrite', iostat=iostat)

    if (iostat /= 0) then
        print *, 'Error opening file:', iostat
        stop
    end if

2. 讀寫數據

使用READ和WRITE語句進行數據的讀取和寫入。

    ! 寫入數據到文件
    write(unit_number, *) 'Hello, World!'

    ! 讀取數據從文件
    integer :: num
    read(unit_number, *) num
    print *, 'Read number:', num

3. 關閉文件

使用CLOSE語句關閉文件。

    ! 關閉文件
    close(unit_number)

完整示例

以下是一個完整的Fortran程序示例，演示了如何打開文件、寫入數據、讀取數據以及關閉文件。

program file_io_example
    implicit none
    integer :: unit_number, iostat
    character(len=100) :: filename

    filename = 'example.txt'
    unit_number = 10  ! 選擇一個未使用的單元號

    ! 打開文件進行讀寫
    open(unit=unit_number, file=filename, status='old', action='readwrite', iostat=iostat)

    if (iostat /= 0) then
        print *, 'Error opening file:', iostat
        stop
    end if

    ! 寫入數據到文件
    write(unit_number, *) 'Hello, World!'

    ! 將文件指針移到文件開頭
    rewind(unit_number)

    ! 讀取數據從文件
    integer :: num
    read(unit_number, *) num
    print *, 'Read number:', num

    ! 關閉文件
    close(unit_number)
end program file_io_example

編譯和運行

在Ubuntu中，你可以使用gfortran編譯Fortran程序。假設你的源代碼文件名為file_io_example.f90，可以使用以下命令進行編譯和運行：

gfortran -o file_io_example file_io_example.f90
./file_io_example

運行程序后，你應該會看到輸出：

Read number: 0

這表明程序成功讀取了之前寫入的數據。

通過這些基本步驟，你可以在Ubuntu中使用Fortran進行文件I/O操作。根據具體需求，你可以進一步擴展和優化這些示例代碼。