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操作。根据具体需求，你可以进一步扩展和优化这些示例代码。