The following shows the same problem (Mathematica quits the kernel after a few seconds):
-(1/((c^2 + (-2 + r) r) (1 + r^2 (I iv + rv)^2) (r^2 +
c^2 Cos[k]^2)^2)) I E^(I m p + t wi -
I t wr) ((1/(
1 + c^2 (iv - I rv)^2 Cos[k]^2))(r^2 + c^2 Cos[k]^2) (-1 + (2 r)/(
r^2 + c^2 Cos[
k]^2)) (-c m (r (-2 + r (c^2 + (-2 + r) r) (I iv + rv)^2) +
c^2 (c^2 + r^2) (I iv + rv)^2 Cos[k]^2) (I RaI[r] +
RaR[r]) (I SaI[k] + SaR[k]) + (I wi +
wr) (-r (r^3 + c^4 r (iv - I rv)^2 +
c^2 (2 + r + r^3 (iv - I rv)^2 + 2 r^2 (I iv + rv)^2)) +
c^2 (c^4 (I iv + rv)^2 + c^2 (-1 + r^2 (I iv + rv)^2) +
r (2 - r + 2 r^2 (I iv + rv)^2)) Cos[k]^2) (I RaI[r] +
RaR[r]) (I SaI[k] + SaR[k]) +
r (c^2 + (-2 + r) r) (c^2 + r^2) (I iv + rv) (-1 +
c^2 (I iv + rv)^2 Cos[k]^2) (I SaI[k] +
SaR[k]) (I Derivative[1][RaI][r] + Derivative[1][RaR][r]) -
c^2 (c^2 + (-2 + r) r) (I iv + rv) (1 + r^2 (I iv + rv)^2) Cos[
k] (I RaI[r] + RaR[r]) Sin[
k] (I Derivative[1][SaI][k] + Derivative[1][SaR][k])) + (
1/(-1 + c^2 (I iv + rv)^2 Cos[k]^2))
2 c r Sin[
k]^2 (1/2 c r (c^2 + (-2 + r) r) (I iv + rv) (-2 +
c^2 (I iv + rv)^2 + c^2 (I iv + rv)^2 Cos[2 k]) (I SaI[k] +
SaR[k]) (I Derivative[1][RaI][r] +
Derivative[1][RaR][r]) - (I RaI[r] +
RaR[r]) ((-c r (-2 +
r (c^2 + (-2 + r) r) (I iv + rv)^2) (I wi + wr) +
c^2 m (1 + c^2 (I iv + rv)^2) Cot[k]^2 -
c^3 (I iv + rv)^2 Cos[
k]^2 ((c^2 + r^2) (I wi + wr) + c m Cot[k]^2) +
m r (-2 + r + 2 r^2 (iv - I rv)^2 + c^2 r (I iv + rv)^2 +
r^3 (I iv + rv)^2) Csc[k]^2) (I SaI[k] + SaR[k]) +
c (c^2 + (-2 + r) r) (I iv + rv) (1 +
r^2 (I iv + rv)^2) Cot[k] (I Derivative[1][SaI][k] + Derivative[1][SaR][k]))));
ComplexExpand[% // Re] // Simplify
