在科学计算和工程应用中，数据的读取和存储是至关重要的。Fortran提供了多种方式来进行文件操作，包括读取和写入文本文件、二进制文件以及处理文件的结构化数据。本文将介绍如何在Fortran中进行这些文件操作，并提供一些实用的示例。

示例1: 读取和写入文本文件

读取文本文件

以下代码演示了如何在Fortran中读取一个简单的文本文件。

fortran

复制代码

program read_text_file

implicit none

character(len=100) :: filename

character(len=100) :: line

integer :: unit, i

! 输入文件名

print *, 'Enter the name of the file to read:'

read(*, '(A)') filename

! 打开文件

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

! 逐行读取文件内容

i = 0

do

read(fileunit, '(A)', iostat=i) line

if (i /= 0) exit

print *, line

end do

! 关闭文件

close(unit)

end program read_text_file

代码解释

输入文件名: 用户输入要读取的文本文件名。打开文件: 使用 open 语句打开文件以供读取。逐行读取文件内容: 使用 read 语句逐行读取文件内容，并打印到控制台。关闭文件: 使用 close 语句关闭文件。

写入文本文件

以下代码演示了如何在Fortran中写入数据到一个文本文件。

fortran

复制代码

program write_text_file

implicit none

character(len=100) :: filename

integer :: unit, i

real :: data(10)

! 输入文件名

print *, 'Enter the name of the file to write:'

read(*, '(A)') filename

! 准备数据

do i = 1, 10

data(i) = i * 1.0

end do

! 打开文件

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

! 写入数据到文件

do i = 1, 10

write(fileunit, '(F6.2)') data(i)

end do

! 关闭文件

close(unit)

end program write_text_file

www.chjiabao.com/6BHpyC/

www.yankv.com/d2Hggw/

www.pjlbsyxx.com/pN3psj/

www.ybsous.com/r4O790/

www.lsxsmy.com/47n7Qu/

www.tyypw.com/Nr13oc/

代码解释

输入文件名: 用户输入要写入的文本文件名。准备数据: 准备要写入文件的数据。打开文件: 使用 open 语句打开文件以供写入。写入数据到文件: 使用 write 语句将数据写入文件。关闭文件: 使用 close 语句关闭文件。

示例2: 读取和写入二进制文件

读取二进制文件

以下代码演示了如何在Fortran中读取一个二进制文件。

fortran

复制代码

program read_binary_file

implicit none

character(len=100) :: filename

integer :: unit, i, n

real, dimension(10) :: data

! 输入文件名

print *, 'Enter the name of the binary file to read:'

read(*, '(A)') filename

! 打开文件

open(unit=fileunit, file=trim(filename), status='old', action='read', form='unformatted')

! 读取数据

read(unit) data

! 关闭文件

close(unit)

! 打印读取的数据

print *, 'Data read from binary file:'

do i = 1, 10

print *, data(i)

end do

end program read_binary_file

代码解释

输入文件名: 用户输入要读取的二进制文件名。打开文件: 使用 open 语句打开二进制文件以供读取。读取数据: 使用 read 语句从文件中读取数据。关闭文件: 使用 close 语句关闭文件。打印读取的数据: 将读取的数据打印到控制台。

写入二进制文件

以下代码演示了如何在Fortran中将数据写入一个二进制文件。

fortran

复制代码

program write_binary_file

implicit none

character(len=100) :: filename

integer :: unit, i

real, dimension(10) :: data

! 输入文件名

print *, 'Enter the name of the binary file to write:'

read(*, '(A)') filename

! 准备数据

do i = 1, 10

data(i) = i * 1.0

end do

! 打开文件

open(unit=fileunit, file=trim(filename), status='replace', action='write', form='unformatted')

! 写入数据到文件

write(unit) data

! 关闭文件

close(unit)

end program write_binary_file

代码解释

输入文件名: 用户输入要写入的二进制文件名。准备数据: 准备要写入文件的数据。打开文件: 使用 open 语句打开二进制文件以供写入。写入数据到文件: 使用 write 语句将数据写入文件。关闭文件: 使用 close 语句关闭文件。