reorder_rstrct Subroutine

public subroutine reorder_rstrct(c, ce)

it just reorders the eigenvectors such that C is most similar to a diagonal matrix

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=long),	intent(inout),		dimension(:, :)	::	c	eigenvectors
real(kind=long),	intent(inout),		dimension(:)	::	ce	eigenvalues