.subckt Rtherm r1 r2
;.param Rth =25
R1  r1 r2 {Rth}
.end
