CentOS下Fortran代码如何进行文件操作

在CentOS系统下，使用Fortran进行文件操作主要依赖于Fortran的内置I/O功能。以下是一些基本的文件操作示例：

打开文件

program open_file_example
    implicit none
    integer :: unit_number, iostat
    character(len=*) :: filename

    filename = 'example.txt'
    unit_number = 10

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

    if (iostat /= 0) then
        print *, 'Error opening file:', iostat
        stop
    end if

    ! 文件操作代码...

    close(unit_number)
end program open_file_example

读取文件

program read_file_example
    implicit none
    integer :: unit_number, iostat, num_lines
    character(len=100) :: line

    unit_number = 10
    open(unit=unit_number, file='example.txt', status='old', action='read', iostat=iostat)

    if (iostat /= 0) then
        print *, 'Error opening file:', iostat
        stop
    end if

    num_lines = 0
    do
        read(unit=unit_number, '(A)', iostat=iostat) line
        if (iostat /= 0) exit
        num_lines = num_lines + 1
        print *, 'Line', num_lines, ':', trim(line)
    end do

    close(unit_number)
end program read_file_example

写入文件

program write_file_example
    implicit none
    integer :: unit_number, iostat
    character(len=*) :: filename

    filename = 'output.txt'
    unit_number = 20

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

    if (iostat /= 0) then
        print *, 'Error opening file:', iostat
        stop
    end if

    write(unit=unit_number, *) 'Hello, World!'
    write(unit=unit_number, *) 'This is a test.'

    close(unit_number)
end program write_file_example

追加内容到文件

program append_to_file_example
    implicit none
    integer :: unit_number, iostat
    character(len=*) :: filename

    filename = 'output.txt'
    unit_number = 20

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

    if (iostat /= 0) then
        print *, 'Error opening file:', iostat
        stop
    end if

    write(unit=unit_number, *) 'Appending this line to the file.'

    close(unit_number)
end program append_to_file_example

关闭文件

在上述示例中，close(unit_number)用于关闭文件。确保在完成所有文件操作后调用此语句。

错误处理

在文件操作过程中，使用iostat变量来检查错误。如果iostat不为0，则表示发生了错误。

注意事项

1. 文件路径：确保文件路径正确，特别是在不同的目录下操作文件时。
2. 权限：确保你有足够的权限来读取或写入文件。
3. 文件关闭：始终确保在完成文件操作后关闭文件，以避免资源泄漏。

通过这些基本示例，你应该能够在CentOS系统下使用Fortran进行基本的文件操作。