- type:
complex(8),real(8),complex(4),real(4)
| name | Class | Description |
|---|---|---|
inv |
function |
inverse of Matrix,return .true. if not singular |
det |
function |
Determinant of Matrix |
eigh |
subroutine |
eigenvalues and eigenvectors for Symmetry/Hermitian Matrix |
gemm |
subroutine |
gemm |
gemv |
subroutine |
gemv |
eye |
subroutine |
eye |
print |
subroutine |
print matrix |
geut |
subroutine |
|
equal |
function |
equal |
program check
use linalg_fortran
real(8)::a(3,3)
real(4)::b(3,3)
call random_number(a)
b=a
if(linalg%inv(a))then
call linalg%print(a,"a")
end if
if(linalg%inv(b))then
call linalg%print(b,"b")
end if
end program check