Closest pair problem/Fortran