--
-- // This code comes from http://code.calum.org/
-- Name: getdistance(double precision, double precision, double precision, double precision); Type: FUNCTION
--

CREATE FUNCTION getdistance(double precision, double precision, double precision, double precision) RETURNS double precision
    AS $_$select (
  acos(
    cos(radians($1)) * cos(radians($2))    *cos(radians($3)) * cos(radians($4)) + cos(radians($1))*sin(radians($2))    *cos(radians($3))*sin(radians($4)) +         sin(radians($1))*sin(radians($3))
  ) * 3963.1

)$_$
    LANGUAGE sql IMMUTABLE STRICT;