你好！
program a
implicit none
integer::n
real,allocatable,dimension(:)::b
open(unit=8,file="a.txt")
read(8,*)n
allocate(b(n))
read(8,*)b!%把矩阵b读入了
end
a.txt
19
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
44.0000000
希望我的回答对你有所帮助！！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024