vr_vind Function

public pure function vr_vind(this, P) result(vind)

Compute induced velocity by unit strength 4-element vortex ring

Type Bound

vr_class

Arguments

Type	Intent	Optional	Attributes		Name
class(vr_class),	intent(in)			::	this
real(kind=dp),	intent(in),		dimension(3)	::	P

Return Value real(kind=dp), dimension(3)