fortran读取文本文件

Fortran是一种主要用于数值计算的编程语言，读取文本文件通常通过I/O（Input/Output）操作来完成。以下是一个基本的例子，展示了如何使用Fortran来读取文本文件中的数据：

program read_text_file
   implicit none
   character(len=80) :: filename  ! 文件名变量
   integer :: unit_id     ! 文件单位标识符
   integer :: i           ! 计数器
   real :: value       ! 存储从文件读取的数据

   ! 定义文件名
   filename = 'example.txt'

   ! 打开文件，如果文件不存在则创建
   open(newunit=unit_id, file=filename, status='new', action='read')

   ! 检查文件是否成功打开
   if (iostat .ne. 0) then
      write(*,*) "Error opening the file!"
      stop
   endif

   ! 使用循环逐行读取文件内容
   do i = 1, 100 ! 假设你想读取前100行
      read(unit_id, *) value   ! 假设每行都是一个浮点数
      ! 对读取到的数据做处理...
      print *, "Value:", value
   end do

   ! 关闭文件
   close(unit_id)

end program read_text_file

在这个例子中，`open`函数用于打开文件，`read`函数用于读取每一行的内容（假设为数字），然后你可以对这些数据进行处理。注意实际文件路径需要替换为你的文件位置。