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)
li913 发表于 2022-1-21 11:48
获取文件行列数,网站有文章。但是你这个可能不需要定义数组来存储,你只需要开一个9元素的数组,存储每个 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |