CentOS Fortran程序如何进行输入输出操作

在CentOS上进行Fortran程序的输入输出操作，主要依赖于Fortran语言本身提供的I/O语句和库函数。以下是一些基本的输入输出操作示例：

1. 使用READ和WRITE语句

读取数据

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

    print *, "Enter two numbers:"
    read *, x, y
    print *, "You entered:", x, y
end program read_example

写入数据

program write_example
    implicit none
    integer :: i
    real :: x = 3.14, y = 2.71

    print *, "The value of pi is:", x
    print *, "The value of e is:", y
end program write_example

2. 使用FORMAT语句

FORMAT语句用于指定数据的格式。

格式化读取

program formatted_read
    implicit none
    integer :: i
    real :: x, y

    print *, "Enter two numbers in the format (F5.2, F5.2):"
    read *, '(F5.2, F5.2)', iostat=i
    if (i /= 0) then
        print *, "Error reading input."
    else
        print *, "You entered:", x, y
    end if
end program formatted_read

格式化写入

program formatted_write
    implicit none
    integer :: i = 10
    real :: x = 3.14159, y = 2.71828

    print '(I5, F8.3, F8.3)', i, x, y
end program formatted_write

3. 使用INQUIRE语句

INQUIRE语句用于查询文件属性或设备状态。

查询文件是否存在

program file_inquiry
    implicit none
    logical :: exists

    inquire(file='example.txt', exist=exists)
    if (exists) then
        print *, "File exists."
    else
        print *, "File does not exist."
    end if
end program file_inquiry

4. 使用文件I/O

Fortran也支持文件的读写操作。

写入文件

program write_to_file
    implicit none
    integer :: unit_number, i
    real, dimension(5) :: data = [1.0, 2.0, 3.0, 4.0, 5.0]

    unit_number = 10
    open(unit=unit_number, file='data.txt', status='replace', action='write')
    do i = 1, size(data)
        write(unit_number, '(F8.3)') data(i)
    end do
    close(unit_number)
end program write_to_file

读取文件

program read_from_file
    implicit none
    integer :: unit_number, i
    real, dimension(5) :: data

    unit_number = 10
    open(unit=unit_number, file='data.txt', status='old', action='read')
    do i = 1, size(data)
        read(unit_number, '(F8.3)') data(i)
    end do
    close(unit_number)

    print *, "Data read from file:", data
end program read_from_file

注意事项

• 确保文件路径正确，特别是在使用绝对路径时。
• 处理I/O错误，如文件不存在或读写权限问题。
• 使用unit_number来管理文件单元，避免冲突。

通过这些基本的输入输出操作，你可以在CentOS上编写和运行Fortran程序，并进行数据的读取和写入。