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")