.subckt 2P4M K A G [b]<-- правильно ли тут (может A K G)?[/b]
X1 K A G SCR_ST params:
+ Vdrm=400v     
+ Igt=200ua
+ Ih=3ma       
+ Rt=... [b]<-- неясно, что есть это?[/b]
* 2010 / REN / Rev 0
.ends

*************************************
*EPCOS Arrester PSpice Model Netlist*
*************************************
*
*Series/Type:    EC90X
*Ordering Code:   B88069X0720S102
*Version Date:   Issue 05 / 2006-08-31
*
*EPCOS AG
*June 27, 2013
*by R. Hoffmann
*
*All rights reserved.
*No part of this document may be
*reproduced, copied, altered in any
*way, or transmitted in any form by
*any means without prior permission
*of EPCOS.
*Patent pending.
*
*
*************************************
*
* source EPCOS ARRESTERS
.SUBCKT EC90X A B 
R_Rmeas4         ABSSLOPE B  1MEG TC=0,0
R_Rmeas10         N2166730 POL  1k TC=0,0
R_Rmeas9         IGAP B  1MEG TC=0,0
R_Riso         B A  10G TC=0,0
E_E_Curr         IGAP B VALUE { V(A, N216571)*1MEG }
C_C2         B UAS  1n  TC=0,0
C_C1         B N216919  1n  TC=0,0
E_E_Break         N2166450 B VALUE { IF(((ABS(V(A, B))>V(UAS)))|(ABS(V(IGAP))>
+ {Imin}),2,0) }
R_Rmeas3         N216919 B  1MEG TC=0,0
E_E1         N216591 B VALUE { V(N216919, B) }
C_Cgap         B A  1p  TC=0,0
R_Rc1         B B  10175u TC=0,0
R_Rmeas6         N2166450 N216579  0.1 TC=0,0
R_Rshunt         A N216571  1u TC=0,0
X_S1    N216579 B N216601 N216591 EC90X_S1
R_Rmeas8         POL B  1MEG TC=0,0
E_E_Uas         N2169750 B TABLE { V(ABSSLOPE) }
+ ( (0,90) (50,170) (100,450) (1k,550) (5k,800) (1MEG,1100) )
L_L5         N216601 N216571  200n 
R_Rmeas11         N2169750 UAS  10 TC=0,0
E_E_Slope         ABSSLOPE B VALUE { ABS((DDT(V(A, B)))*0.000001) }
R_Rmeas2         UAS B  1MEG TC=0,0
C_C4         B N216579  50n  TC=0,0
R_Rmeas7         N216579 B  1MEG TC=0,0
C_C3         B POL  10n  TC=0,0
E_E_Slope3         N2166730 B VALUE { IF(V(A, B)>=0,1,-1) }
E_E_Arc         N2169471 B VALUE { IF(V(POL)>=0,IF(ABS(V(IGAP))>{Iarc},{Uarc},
+ {Uglow}),IF(ABS(V(IGAP))>{Iarc},-{Uarc},-{Uglow})) }
R_Rmeas5         N2169471 N216919  100 TC=0,0 
R_Rflux         N216571 N216601  2k TC=0,0
.ENDS
.PARAM  imin=100m iarc=0.8 uglow=80 uarc=12

.subckt EC90X_S1 1 2 3 4 
S_S1         3 4 1 2 _S1
RS_S1         1 2 1G
.MODEL         _S1 VSWITCH Roff=1e10 Ron=0.001 Voff=0.0V Von=1.0V
.ends EC90X_S1