open(3,file = 'inih.dat')
do i = 1,sumnode
read(3,*) (pre_inih(i,j),j = 1,2)
enddo
close(3)
do i = 1,sumnode
layerf(num_node(i,1),num_node(i,2),relayer(i)) = node(i,4)
para(num_node(i,1),num_node(i,2),relayer(i)) = para_list(i)
inih(num_node(i,1),num_node(i,2),relayer(i)) = pre_inih(i,2)
enddo
1.jpg (89.3 KB, 下载次数: 177)
FFX 发表于 2023-5-31 09:05
大佬,routine、line、source下面都是unknown怎么办?
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |