CentOS上Fortran如何进行文件操作

在CentOS上进行Fortran文件操作，你需要使用Fortran的内置I/O功能。以下是一个简单的示例，展示了如何在Fortran程序中打开、读取和关闭一个文件：

program file_io_example
  implicit none
  integer :: iounit, iostat, ios
  character(len=100) :: filename
  real :: data

  ! 设置文件名
  filename = 'example.txt'

  ! 打开文件
  open(unit=iounit, file=filename, status='old', action='read', iostat=ios)

  ! 检查文件是否成功打开
  if (ios /= 0) then
    print *, 'Error opening file:', ios
    stop
  end if

  ! 读取文件内容
  do
    read(iounit, *, iostat=ios) data
    if (ios /= 0) exit
    print *, 'Read data:', data
  end do

  ! 关闭文件
  close(iounit)

end program file_io_example

在这个示例中，我们首先定义了一个整数变量iounit用于存储文件单元号，一个整数变量iostat用于存储I/O操作的状态，一个字符变量filename用于存储文件名，以及一个实数变量data用于存储从文件中读取的数据。

接下来，我们使用open语句打开文件，并检查iostat的值以确保文件已成功打开。如果文件打开失败，程序将打印错误消息并停止执行。

然后，我们使用do循环和read语句从文件中读取数据，直到遇到文件末尾或发生错误。每次读取数据后，我们都会检查iostat的值。如果iostat不为0，表示发生了错误或到达文件末尾，循环将终止。

最后，我们使用close语句关闭文件。

要在CentOS上编译和运行此Fortran程序，请按照以下步骤操作：

1. 将上述代码保存到一个名为file_io_example.f90的文件中。
2. 打开终端，导航到保存文件的目录。
3. 使用gfortran编译器编译程序：gfortran -o file_io_example file_io_example.f90
4. 运行编译后的程序：./file_io_example

确保在运行程序之前，当前目录下有一个名为example.txt的文件，其中包含要读取的数据。