Table[ss5x[{aa, bb, g}, {s0, d}, {m1, a1, g1}, {m2, a2, g2} (m1*s)/(a1 + s))/g) + s*(bb*
irpx [{aa_, bb_, g_}, {s0_, d_}, {m1_, a1_, g1_}, {m2_, a2_, g2_}]:
Module[{t1, t2, t3, t4, t5, t6, x1, y1, p1},
t1 Table[ss5x[{aa, bb, g}, {s0, d}, {m1, a1, g1}, {m2, a2, g2}, n],
{n, 1, 5}];
t2 Select[t1, Head[#1] Real && #1 > 0 &];
x1 (a2*d*(-bb + (-d + (m1*s)/(a1 + s))/g) +
s*(bb*(-d + m2) + (d*(-d + (m1*s)/(a1 + s)))/g))/
(a2*d + (d + (-1 + aa)*m2)*s);