potential_ext Function

public function potential_ext(g, a) result(v)

Nuc-elec potential

Arguments

Type	Intent	Optional	Attributes		Name
type(grid3d),	intent(in)			::	g
type(atom_set),	intent(in)			::	a(:)

Return Value real(kind=long), (g%n_grid)