更快的读入方式

fcode

[Fortran] 纯文本查看 复制代码

do i = 1, nLines
    read(12, "(i1,1x,a128)") n , cLine
    read(cline(:len_trim(cLine)-1),*) Aarray(ibeg : ibeg + n - 1)
    ibeg = ibeg + n
end do

这样少一个 read，但是我估计提升可能并不明显
IO的优化本身就没什么空间。