is_equivalent Function

public function is_equivalent(p, f, part, hole) result(res)

function is_equivalent: N_occ: occ array part: orbital index hole: orbital index returns TRUE if orbital part and orbital hole are equivalent otherwise FALSE

Arguments

Type	Intent	Optional	Attributes		Name
type(param),	intent(in)			::	p
type(wf_data),	intent(in)			::	f
integer				::	part
integer				::	hole

Return Value logical