calc_gravity Function

public function calc_gravity(m1, m2, r) result(F)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	m1	mass of body 1 in kg
real(kind=real64),	intent(in)			::	m2	mass of body 2 in kg
real(kind=real64),	intent(in)			::	r	distance between bodies in meters

Return Value real(kind=real64)

Gravitational force

Contents

None