obtain_nuclear_position Function

public function obtain_nuclear_position(g, i_nuc, j_nuc, k_tr) result(r)

Arguments

Type	Intent	Optional	Attributes		Name
type(grid3d),	intent(in)			::	g
integer,	intent(in)			::	i_nuc
integer,	intent(in)			::	j_nuc
integer,	intent(in),	optional		::	k_tr

Return Value real(kind=long), (3)