dm_rts_distance_horizontal Function

public pure elemental function dm_rts_distance_horizontal(slope_dist, v, k) result(hz_dist)

Returns horizontal distance [m] from slope distance slope_dist [m] and vertical angle v [rad]. The default mean refraction coefficient k is 0.13.

Earth curvature (1 / EARTH_RADIUS) and mean refraction coefficient (k) are automatically taken into account by Leica instruments when calculating the horizontal distance if enabed in the settings (Instrument Settings/TPS Corrections). The calculated horizontal distance relates to the instrument height and not to the reflector height.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	slope_dist	Slope distance [m].
real(kind=r8),	intent(in)			::	v	Vertical cycle reading [rad].
real(kind=r8),	intent(in),	optional		::	k	Mean refraction coefficient.

Return Value real(kind=r8)