stat_factor_occupied Function

public function stat_factor_occupied(p, f, n_occ, oi) result(factor)

return the statistical factor that orbital oi is occupied basically f_occ/2

Arguments

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

Return Value real(kind=long)