CentOS下Fortran程序如何進行輸入輸出操作

在CentOS系統下，Fortran程序的輸入輸出操作主要依賴于Fortran語言本身提供的I/O語句和函數。以下是一些基本的輸入輸出操作方法：

1. 使用READ和WRITE語句

• READ語句：用于從文件或標準輸入（通常是鍵盤）讀取數據。
• WRITE語句：用于向文件或標準輸出（通常是屏幕）寫入數據。

示例代碼

program io_example
    implicit none
    integer :: i
    real :: x

    ! 從標準輸入讀取數據
    print *, "Enter an integer:"
    read *, i
    print *, "You entered:", i

    print *, "Enter a real number:"
    read *, x
    print *, "You entered:", x

    ! 向標準輸出寫入數據
    write(*,*) "This is a line of output."
end program io_example

2. 文件I/O操作

Fortran也支持文件的讀寫操作。你可以使用OPEN、READ、WRITE、CLOSE等語句來操作文件。

示例代碼

program file_io_example
    implicit none
    integer :: unit_number, i
    real :: x
    character(len=100) :: filename

    filename = 'data.txt'

    ! 打開文件
    open(unit=unit_number, file=filename, status='new', action='write')

    ! 寫入數據到文件
    write(unit_number,*) "This is a line of data."

    ! 關閉文件
    close(unit_number)

    ! 重新打開文件以進行讀取
    open(unit=unit_number, file=filename, status='old', action='read')

    ! 從文件讀取數據
    read(unit_number,*) x
    print *, "Read from file:", x

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

3. 使用FORMAT語句

FORMAT語句用于定義數據的格式，特別是在讀寫文件時非常有用。

示例代碼

program format_example
    implicit none
    integer :: i
    real :: x

    ! 定義格式
    format(i5, f8.2)

    ! 寫入數據
    write(*, '(i5, f8.2)') 123, 45.678

    ! 讀取數據
    read(*, '(i5, f8.2)') i, x
    print *, "Read:", i, x
end program format_example

注意事項

• 在進行文件I/O操作時，確保文件路徑正確，并且程序具有相應的讀寫權限。
• 使用OPEN語句時，注意指定正確的文件狀態（如new、old、replace等）和操作模式（如read、write、append等）。
• 在處理大量數據時，考慮使用高效的I/O方法，如直接I/O或內存映射文件。

總之，在CentOS系統下編寫Fortran程序時，你可以利用Fortran語言本身提供的豐富I/O功能來實現數據的輸入輸出操作。