potential_j_mc Function

public function potential_j_mc(p, g, a, rho) result(v)

Yajiang's original implementation for the direct Coulomb potential - potential_J_MC() - potential_J_A_R() - integral_A() - potential_J_A()

---

Arguments

Type	Intent	Optional	Attributes		Name
type(param),	intent(in)			::	p
type(grid3d),	intent(in)			::	g
type(atom_set),	intent(in)			::	a(:)
real(kind=long),	intent(in)			::	rho(:)

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