assign_projections Module Subroutine

public module subroutine assign_projections(N, eigvecs, absKvals, sort_eigvecs)

Using the eigenvectors and energies from a diagonalized rotational Hamiltonian, determine which projection is maximal. The eigenvectors can be in the Ka or Kc basis. This routine will return the array Kvals which indicats the absolute value of the projection that contributes the most to a particular eigenvector

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N	The rotational quantum number $N$
complex(kind=dp),	intent(in)			::	eigvecs(:,:)	Eigenvectors
integer,	intent(out),		allocatable	::	absKvals(:)	Array of the absolte value of |K| that contributes the most to a particular eigenvector
logical,	intent(in),	optional		::	sort_eigvecs	Sort the eigenvectors ?