[交流] 避免多层嵌套循环的方法有哪些。 已有3人参与

do i=1,3     
    do j=1,3        
         do k=1,3            
              do l=1,3                  
                 c(i, j, k, l)=a(i, j)*b(k, l)            
end do;end do;end do; end do !讨论里只为减少行数。

do i=1,3; do j=1, 3
c(i, j, :, :)=a(i, j)*b
end do; end do