vfunc Function

function vfunc(t, r, pol) result(v)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	t
real(kind=real64),	intent(in)			::	r(3)
real(kind=real64),	intent(in)			::	pol

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