[Fortran] 纯文本查看 复制代码
Subroutine InverseV2D
use variables, Only : Np, InvV, V2D
Use lapack95
Implicit none
Real(kind=4), Allocatable :: ipiv(:)
Allocate(ipiv(Np))
ipiv = 0.0
InvV = V2D
Call getrf(InvV, ipiv)
Call getri(InvV, ipiv)
End Subroutine InverseV2D
[Fortran] 纯文本查看 复制代码
program MKL_getrfANDgetri
use lapack95
implicit none
integer, parameter :: n = 3
integer :: i, j, ipiv(n)
real(kind=8) :: a(n,n), aa(n,n)
call random_seed()
call random_number(a)
aa = a
write(*,'(1x,a)') "a = "
do i = 1, n
write(*,'(*(f12.6,3x))') a(i,:)
end do
!// 使用lapack求解逆矩阵
call getrf( a, ipiv )
!write(6,*)ipiv
call getri( a, ipiv )
!write(6,*)ipiv
write(*,'(1x,a)') 'inv(a) = '
do i = 1, n
write(*,'(*(f12.6,3x))') a(i,:)
end do
write(*,'(1x,a)') "checking..."
aa = matmul(aa,a) !// 原矩阵与其逆矩阵的结果为单位矩阵
do i = 1, n
write(*,'(*(f12.6,3x))') aa(i,:)
end do
end program MKL_getrfANDgetri