F77的循环语法不太理解~感谢~

li913

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

do k=n,2,-1
    do i=k,n
        d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)
		end do 
    d(k-1,j)=d(k-1,j)/a(k-1,k-1)
end do