pub fn tlog_zero_mass(q: R, p: R) -> R