22 #include "../base/base_uses.f90"
28 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'linear_systems'
42 REAL(kind=
dp),
INTENT(INOUT) :: matrix(:, :)
43 INTEGER,
INTENT(IN) :: mysize
44 REAL(kind=
dp),
INTENT(INOUT) :: eigenvectors(:, :)
46 INTEGER :: info, lda, ldb, nrhs, ipiv(mysize)
49 ldb =
SIZE(eigenvectors, 1)
50 nrhs =
SIZE(eigenvectors, 2)
53 eigenvectors, ldb, info)
55 cpabort(
"Error in inversion")
Defines the basic variable types.
integer, parameter, public dp
Interface to the LAPACK F77 library.
Provides interfaces to LAPACK routines for factorisation and linear system solving.
subroutine, public solve_system(matrix, mysize, eigenvectors)
...