数据的提取

li913

获取文件行列数，网站有文章。但是你这个可能不需要定义数组来存储，你只需要开一个9元素的数组，存储每个类型是否出现

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

integer n(9), i,j, ntype
n = 0
open(10,file=...)
do 
read(10,*,iostat=j) i
if(j/=0) exit
n(i) = 1
end do 
ntype = sum(n)

。