integral_double_center Function

public function integral_double_center(g, f, i_nuc, j_nuc) result(value)

double center grid integral

Arguments

Type	Intent	Optional	Attributes		Name
type(grid3d),	intent(in)			::	g
real(kind=long),	intent(in)			::	f(g%n_grid)
integer,	intent(in)			::	i_nuc
integer,	intent(in)			::	j_nuc

Return Value real(kind=long)