.SUBCKT KT88 A G2 G1 K
BGG   GG   0 V=V(G1,K)+0.99999999
BM1   M1   0 V=(0.097534908*(URAMP(V(G2,K))+1e-10))^-1.4398564
BM2   M2   0 V=(0.51022901*(URAMP(V(GG)+URAMP(V(G2,K))/5.0214944)))^2.9398564
BP    P    0 V=0.0031096914*(URAMP(V(GG)+URAMP(V(G2,K))/9.8416483))^1.5
BIK   IK   0 V=U(V(GG))*V(P)+(1-U(V(GG)))*0.0029317575*V(M1)*V(M2)
BIG   IG   0 V=0.0015548457*URAMP(V(G1,K))^1.5*(URAMP(V(G1,K))/(URAMP(V(A,K))+URAMP(V(G1,K)))*1.2+0.4)
BIK2  IK2  0 V=V(IK,IG)*(1-0.4*(EXP(-URAMP(V(A,K))/URAMP(V(G2,K))*15)-EXP(-15)))
BIG2T IG2T 0 V=V(IK2)*(0.88165022*(1-URAMP(V(A,K))/(URAMP(V(A,K))+10))^1.5+0.11834978)
BIK3  IK3  0 V=V(IK2)*(URAMP(V(A,K))+1850)/(URAMP(V(G2,K))+1850)
BIK4  IK4  0 V=V(IK3)-URAMP(V(IK3)-(0.0020406477*(URAMP(V(A,K))+URAMP(URAMP(V(G2,K))-URAMP(V(A,K))))^1.5))
BIP   IP   0 V=URAMP(V(IK4,IG2T)-URAMP(V(IK4,IG2T)-(0.0020406477*URAMP(V(A,K))^1.5)))
BIAK  A    K I=V(IP)+1e-10*V(A,K)
BIG2  G2   K I=URAMP(V(IK4,IP))
BIGK  G1   K I=V(IG)
* CAPS
CGA   G1  A  1.2p
CGK   G1  K  9p
C12   G1  G2 6p
CAK   A   K  10.9p
.ENDS
