您好，在fortran中怎么循环读取数据？

需要做几件事情：定义数组（以文字型变量为例，假定每行有两个字符串），打开文件（假定文件为data.txt），循环读取。

character*100 a(300,2),b(300,2)

open(1,file='data.txt')

do i=1,300

read(1,'(2a)') a(i,1),a(i,2)

end do

do i=1,300

read(1,'(2a)') b(i,1),b(i,2)

end do

end

在Fortran中，您可以使用内置的`READ()`函数来读取一行数据。下面是一个例子:

```fortran

program read_line

implicit none

character(len=100):: line ! 声明一个字符型变量line，用于存储读取的一行数据

open(10,file='data.txt') ! 打开数据文件

do while (.true.) ! 循环读取每一行数据

read(10,'(A)',iostat=ios) line! 使用READ()函数读取一行字符型数据到line中，'A'表示将数据读取为字符串，iostat是一个输出参数用于检查读取过程中是否出现了错误

if (ios /= 0) exit ! 如果发生了读取错误，退出循环

print *, trim(line) ! 处理读取到的数据，trim()函数可以删除字符串两端空格

end do

close(10) ! 关闭文件

end program read_line

```

在上面的示例中，程序使用`READ()`函数读取一个数据文件中的每一行数据，并将其存储在一个字符型变量中。我们使用 IOSTAT 参数来检查读取中是否出现了错误，并使用 TRIM 函数去掉字符串两端的空格。最后，我们使用 PRINT 语句输出每一行的内容。

希望这个例子能帮助您理解如何在 Fortran 中读取一行数据。

---