.subckt phrResistor d g s b W=1 L=1 Rsquare = R d s 'L*Rsquare/W' Rg d g 0 Rb b 0 0 .ends