get_some_eigenvalues_davpack Subroutine

public subroutine get_some_eigenvalues_davpack(n, nev, nb, m, e, c, diag, mm, epsilon, output)

get some eigenvalues and eigenvectors using davpack

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n

full dimension
integer, intent(in) :: nev

number of ev to be found
integer, intent(in) :: nb

initial block size
integer, intent(in) :: m

maximum dimension <n
real(kind=long), intent(out) :: e(nev)

returned eigenvalues
real(kind=long), intent(inout) :: c(n,nev)

returned eigenvectors
real(kind=long), intent(in) :: diag(n)

diagonal elements of the matrix
private function mm(n, k, cin, cout) result(error)
Arguments
Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(in) :: k
real(kind=8), intent(in) :: cin(n,k)
real(kind=8), intent(out) :: cout(n,k)
Return Value integer
real(kind=long), intent(in) :: epsilon

convergence criterion
integer, intent(in), optional :: output

output