UBC engineers develop program to preempt underground water-main failure