FORTRAN 如何把txt中数据一行读成一个一维数组，并得到每个一维数组里有多少个元素？
制作了一个数据文件，写了一段读取代码。代码在cvf6.0上编译通过。
具体的，你可以参考、修改、扩充。比如，定义一个二维数组，B(1000,0:30)，第一维是行数，第二维的0单元记录一行数据总量，1到30单元记录数据。
具体思路和说明见程序注释（感叹号及紧跟的文字）。数据文件为文本格式，每行不超过30个数据，数据与数据之间以至少一个空格分隔，一行的长度不超过1000个字符（含空格）。
为保持代码结构清晰，以图片方式发上来（可编辑代码附后）。以下三张图，分别是数据文件、代码、输出结果。
可以编辑代码：
$freeform
! 从txt文本中读取数据（整数、实数）
character*1000 h,t
real*8 a(0:30) ! 定义为双精度实数，a(0)用来记录一行的数据数量
open(1,file='ff.txt') ! 打开数据文件
do while(.true.) ! 循环读取各行，直到文件尾
read(1,'(a)',iostat=io) h
if(io.ne.0) exit
a=0
do i=1,30
nstart=verify(h,' ') ! 定位数据起始点
t=h(nstart:) ! 用t临时存储并从中读取
nend=index(t,' ') ! 定位数据结束点
a(0)=a(0)+1 ! a(0)用来计数，最终值就是该行数据总数
read(t(1:nend),fmt=*) a(a(0))
h=t(nend:) ! 将未读取部分重新赋值给h
if(h.eq.' ') exit
end do
write(*,*) ! 打印输出该行数据
write(*,'(1x,a,i3,a)') '本行数据有',int(a(0)),' 个'
do i=1,a(0)
write(*,*) a(i)
end do
end do
end
