prodoverlap Function

public function prodoverlap(p, f, strans, lcref) result(prodolap)

Calculate the product of all occupied orbital projections

Arguments

Type	Intent	Optional	Attributes		Name
type(param),	intent(in)			::	p
type(wf_data),	intent(in)			::	f
real(kind=long),	intent(in),		dimension(f%n_basis, f%n_basis)	::	strans	The overlap matrix SI(i,j) between the
real(kind=long),	intent(in),		dimension(f%n_basis, f%nr_basis)	::	lcref	The reference MO coefficients

Return Value real(kind=long)