CentOS中Fortran如何進行輸入輸出操作

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

1. 使用Fortran I/O語句

Fortran提供了多種I/O語句，如READ、WRITE和PRINT等。

讀取數據

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

    ! 從標準輸入讀取一個整數和一個浮點數
    print *, 'Enter an integer and a real number:'
    read *, i, x

    ! 輸出讀取的數據
    print *, 'You entered:', i, x
end program read_example

寫入數據

program write_example
    implicit none
    integer :: i = 10
    real :: x = 3.14159

    ! 將數據寫入標準輸出
    print *, 'The integer is:', i
    print *, 'The real number is:', x
end program write_example

2. 使用Fortran庫函數

Fortran標準庫提供了一些用于文件操作的函數，如OPEN、CLOSE、READ、WRITE等。

文件讀寫示例

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

    ! 定義文件名
    filename = 'data.txt'

    ! 打開文件用于寫入
    open(unit=unit_number, file=filename, status='replace', action='write', iostat=iostat)
    if (iostat /= 0) then
        print *, 'Error opening file for writing'
        stop
    end if

    ! 寫入數據到文件
    do i = 1, 5
        write(unit_number, *) i, i * i
    end do

    ! 關閉文件
    close(unit_number)

    ! 打開文件用于讀取
    open(unit=unit_number, file=filename, status='old', action='read', iostat=iostat)
    if (iostat /= 0) then
        print *, 'Error opening file for reading'
        stop
    end if

    ! 從文件讀取數據
    do while (.true.)
        read(unit_number, *, iostat=iostat) i, x
        if (iostat /= 0) exit
        print *, 'Read from file:', i, x
    end do

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

3. 使用C語言接口

如果你需要在Fortran程序中使用C語言的I/O函數，可以使用ISO_C_BINDING模塊來調用C語言函數。

示例

program c_binding_example
    use iso_c_binding
    implicit none
    integer(c_int) :: i
    real(c_double) :: x

    ! 調用C語言的printf函數
    call c_fprintf(stdout, c_char_ptr('Hello from Fortran!\n'), i, x)
end program c_binding_example

注意事項

• 確保文件路徑正確，特別是在使用絕對路徑時。
• 處理I/O錯誤，如文件打開失敗或讀寫錯誤。
• 在Fortran 90及以上版本中，推薦使用iso_fortran_env模塊來獲取預定義的常量，如int32、real64等。

通過這些方法，你可以在CentOS系統中使用Fortran進行基本的輸入輸出操作。