Fortran在Linux上如何进行文件操作

在Linux上使用Fortran进行文件操作，主要依赖于Fortran标准库中的I/O子例程。以下是一些基本的文件操作步骤和示例代码：

1. 打开文件

使用OPEN语句打开一个文件。

program file_example
    implicit none
    integer :: unit_number
    character(len=*) :: filename

    filename = 'example.txt'
    unit_number = 10  ! 选择一个未使用的单元号

    open(unit=unit_number, file=filename, status='new', action='write')

2. 写入文件

使用WRITE语句将数据写入文件。

    write(unit_number, *) 'Hello, World!'
    write(unit_number, '(I5)') 12345
    write(unit_number, '(F8.3)') 3.14159

3. 关闭文件

使用CLOSE语句关闭文件。

    close(unit_number)
end program file_example

4. 读取文件

使用READ语句从文件中读取数据。

program file_read_example
    implicit none
    integer :: unit_number
    character(len=*) :: filename
    integer :: i
    real :: num

    filename = 'example.txt'
    unit_number = 10

    open(unit=unit_number, file=filename, status='old', action='read')

    read(unit_number, *) i
    print *, 'Read integer:', i

    read(unit_number, '(F8.3)') num
    print *, 'Read float:', num

    close(unit_number)
end program file_read_example

5. 追加数据

使用OPEN语句的position='append'选项来追加数据。

program file_append_example
    implicit none
    integer :: unit_number
    character(len=*) :: filename

    filename = 'example.txt'
    unit_number = 10

    open(unit=unit_number, file=filename, status='old', position='append', action='write')

    write(unit_number, *) 'Appended line'
    close(unit_number)
end program file_append_example

注意事项

• 单元号：在Fortran中，文件操作使用单元号（unit number）来标识文件。确保选择的单元号在程序中未被其他文件操作使用。
• 文件状态：status参数可以是'new'、'old'、'replace'等，根据需要选择合适的值。
• 动作：action参数可以是'read'、'write'、'readwrite'等，指定文件的读写模式。

通过这些基本步骤，你可以在Linux上使用Fortran进行文件操作。根据具体需求，可以进一步扩展和优化代码。