QP_states_simmetrize Subroutine

subroutine QP_states_simmetrize(en, what, V_real, V_complex, state_is_2do, warn_me)

Arguments

Type	Intent	Optional	Attributes		Name
type(levels)				::	en
character(len=*),		optional		::	what
real(kind=SP),		optional		::	V_real(:)
complex(kind=SP),		optional		::	V_complex(:)
logical,		optional		::	state_is_2do(:)
logical,		optional		::	warn_me