calculate_entropy Function

public function calculate_entropy(f_occ) result(ret)

function returns the electronic entropy - $$f*ln(f) - (1-f)*ln(1-f)$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=long),	intent(in)			::	f_occ(:)

Return Value real(kind=long)