m_fstr_eig_lanczos_util Module Reference

Functions/Subroutines
subroutine	lanczos_set_initial_value (hecMESH, hecMAT, fstrEIG, eigvec, p, q, beta)
	Initialize Lanczos iterations. More...
subroutine	evsort (EIG, NEW, NEIG)
	Sort eigenvalues. More...
subroutine	urand1 (N, X, SHIFT)

Function/Subroutine Documentation

evsort()

subroutine m_fstr_eig_lanczos_util::evsort	(	real(kind=kreal), dimension(neig)	EIG,
		integer(kind=kint), dimension(neig)	NEW,
		integer(kind=kint)	NEIG
	)

Sort eigenvalues.

Definition at line 82 of file fstr_EIG_lanczos_util.f90.

Here is the caller graph for this function:

lanczos_set_initial_value()

subroutine m_fstr_eig_lanczos_util::lanczos_set_initial_value	(	type(hecmwst_local_mesh)	hecMESH,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_eigen)	fstrEIG,
		real(kind=kreal), dimension(:, :)	eigvec,
		real(kind=kreal), dimension(:)	p,
		real(kind=kreal), dimension(:), pointer	q,
		real(kind=kreal)	beta
	)

Initialize Lanczos iterations.

shifting

M-orthogonalization

Definition at line 11 of file fstr_EIG_lanczos_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

urand1()

subroutine m_fstr_eig_lanczos_util::urand1	(	integer(kind=kint)	N,
		real(kind=kreal), dimension(n)	X,
		integer(kind=kint)	SHIFT
	)

Definition at line 109 of file fstr_EIG_lanczos_util.f90.

Here is the caller graph for this function: