请教论坛的各位前辈,
文件里面数据形式是:
...
4{123 1234 12345 23456} !第一个数指定这括号里有几个数
3{1234 12345 12345} !第一个数是个位数,也就是说从第三个字符开始是数据
5{123 1234 12345 123456} !每行的数字个数可能有变化
...
用Fortran读入,我是这么实现的,但是效率比较低,想请教下大家有更好的写法吗?
[Fortran] 纯文本查看 复制代码 ibeg = 1
do i = 1, nLines !nLines:行数
read(12, "(a128)") cLine
read(cLine(1: 1), *) n
read(cline(3: len_trim(cLine)-1), *) Aarray(ibeg : ibeg + n - 1)
ibeg = ibeg + n
end do
|