关于文件读取赋值问题

航行

-0.116758884160000        -0.442415566389000        -0.0979160104040000        -0.0401969243740000        -0.556714728297000        0.0163785985080000
-0.520017575911000        -0.483202961172000        -0.4170738046240000        -0.0403238663060000        -0.551954534509000        0.7672014375880000
-0.424326191009000        -0.443990520364000        -0.0961863555910000        -0.0404490570790000        -0.552315966443000        0.7570562805320000
-0.554525470360000        -0.884795759153000        -0.0952230384360000        -0.0405791594860000        -0.552630092899000        0.0173827315000000
-0.541764742491000        -0.485535568918000        -0.0943069225310000        -0.0406945545240000        -0.552955370065000        0.0177060323720000
-0.563014613570000        -0.486275851122000        -0.1133289446710000        -0.0408196775530000        -0.553266387177000        0.0180154687650000
-0.544407368494000        -0.887500984712000        -0.5415525887380000        -0.0410335961340000        -0.553883811712000        0.0186354152930000
有一组这样的数据，假设该数据在.txt文件内，如何将数据依次循环按行读取赋值给x呢，请求大神帮助，十分感谢！
例如第一次循环时x（1：6）等于第一行数据，第二次循环时x（1：6）等于第二行数据，依次把所有行都读取

li913

do i=1,n
read(10,*) x(1:6)
end do

风平老涡

do
   read(10, iostat=stat) x(1:6)
   if (stat /= 0) exit
   ! process x
end do

航行

li913 发表于 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

read可以读取文本文件嘛

vvt

可以的，沙发正解。板凳的代码更健壮

航行

vvt 发表于 2021-6-2 17:03
可以的，沙发正解。板凳的代码更健壮

已解决，十分感谢~

航行

li913 发表于 2021-6-1 11:21
do i=1,n
read(10,*) x(1:6)
end do

已解决，十分感谢~