.subckt Rtherm2 T1 T2 heat
.param Rheat= 100
R1 T1 T2 {Rheat}
B1 Heat 0 I=-abs (V(T1,T2)*I(R1))
.end
