nuclear_repulsion_gradient Function

public function nuclear_repulsion_gradient(a, p) result(grad_e)

nuclear repulsion gradient

Arguments

Type	Intent	Optional	Attributes		Name
type(atom_set),	intent(in)			::	a(:)
type(param),	intent(in)			::	p

Return Value real(kind=long), (size(a,1)*3)