[PD] haversine formula in Pd