set_gravity_funcs Subroutine

private subroutine set_gravity_funcs(this, g0_func)

Type Bound

physics_t

Arguments

Type	Intent	Optional	Attributes		Name
class(physics_t),	intent(inout)			::	this
procedure(real(dp))				::	g0_func