Function vdistsq

Return the Euclidean distance squared between the vectors v and w.