created p_escape_from_tau subroutine