引言

在Fortran中进行文件操作是处理输入和输出数据的重要部分。本文将介绍Fortran中如何打开、读取、写入和关闭文件，并提供一些实用的示例。

示例1: 打开和关闭文件

打开文件

以下代码展示了如何在Fortran中打开一个文本文件进行读写操作。

fortran

复制代码

program file_operations

implicit none

character(len=100) :: filename

integer :: unit, ierr

! 输入文件名

changshajinanguanlin.cn/DmFGLX/

hubei.jinanguanlin.cn/0Cem1L/

hunan.jinanguanlin.cn/YZhRNi/

guangdong.jinanguanlin.cn/iNTz0J/

wuhan.tgoi.cn/Bkc1JF/

shenzhen.nanjing.tgoi.cn/lw8oWT/

print *, 'Enter filename to open:'

read *, filename

! 打开文件

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

if (ierr /= 0) then

print *, 'Error opening file ', trim(filename)

stop

end if

! 写入数据到文件

write(unit, '(A)', advance='no') 'Hello, World!'

write(unit, '(A)', advance='no') 'This is a test.'

! 关闭文件

close(unit)

print *, 'File ', trim(filename), ' successfully written.'

end program file_operations

代码解释

文件操作: 使用 open 打开文件，write 模式表示写入操作。错误处理: 使用 iostat=ierr 检查文件打开过程中是否发生错误。写入数据: 使用 write 语句向文件写入数据。关闭文件: 使用 close 关闭文件操作。

编译和运行

要编译并运行上述代码，可以使用如下命令：

bash

复制代码

gfortran file_operations.f90 -o file_operations

./file_operations

示例2: 读取文件数据

从文件读取数据

以下代码展示了如何在Fortran中从文件中读取数据。

fortran

复制代码

program read_file

implicit none

character(len=100) :: filename

integer :: unit, ierr

character(len=100) :: line

! 输入文件名

print *, 'Enter filename to read:'

read *, filename

! 打开文件

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

if (ierr /= 0) then

print *, 'Error opening file ', trim(filename)

stop

end if

! 逐行读取文件内容

do

read(unit, '(A)', iostat=ierr) line

if (ierr /= 0) exit

print *, line

end do

! 关闭文件

close(unit)

end program read_file

代码解释

文件操作: 使用 open 打开文件，read 模式表示读取操作。循环读取: 使用 do 循环和 read 语句逐行读取文件内容。错误处理: 使用 iostat=ierr 检查文件读取过程中是否发生错误。关闭文件: 使用 close 关闭文件操作。

编译和运行

要编译并运行上述代码，可以使用如下命令：

bash

复制代码

gfortran read_file.f90 -o read_file

./read_file

结论

通过上述示例，可以看到Fortran中进行文件操作的基本方法和技巧。无论是写入数据还是读取数据，Fortran提供了丰富的文件处理功能，可以灵活地应用于科学计算、数据处理和工程应用中。合理利用Fortran的文件操作能力，可以实现数据的高效输入输出，支持复杂的数据处理和分析任务。