Fortran求逆矩阵子程序

! 求逆矩阵 subroutine inverse(A,IA) implicit none real :: A(:,:), IA(:,:) real, allocatable :: B(:,:) in