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