CHECKDEGENERACY Subroutine

private subroutine CHECKDEGENERACY(ALMSO, eps_degenerate, EIGW, ENT, ENTW)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! TESTOUTPUT

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ALMSO
double precision,	intent(in)			::	eps_degenerate
double complex,	intent(in)			::	EIGW(ALMSO)
integer,	intent(out)			::	ENT(ALMSO)
integer,	intent(out)			::	ENTW(ALMSO,ALMSO)