!.. 下面的fortran程式碼實現了Kronecker product
function kron( a, b, m, n, p, q ) !.. 矩陣A:m*n; 矩陣b:p*q
  implicit none 
  integer :: m, n, p, q 
  real(kind=8) :: a(m,n), b(p,q), kron(m*p,n*q)
  integer :: i, j
  
  Do i = 1, m 
    do j = 1, n
      kron( (i-1)*p+1:i*p, (j-1)*q+1:j*q ) = a(i,j)*b(:,:)
    end do
  End do
end function kron
 

相關推薦