U202K0=/I2N15
$
DOF:I2N9
W100K0=0
W100K3=0
ENDF
;  RCM
U100K0=I157K1+I2N9+U100K0*/I2N15*/I157K3
P0=U100K0
U10K1=P0
C15Z=P0
T63I(30)=P0+T63D
; ESE (1- ப CMDFIL)
P2=T63U
U100K2=P2+U100K2*/P3
P3=U100K2*I5K30
; RCM (2- ப CMDFIL)
T62I(30)=P3+T62D
P4=T62U
U100K3=P4+U100K3*/P5
; ணࠬ  AUTO  ० RCM
P5=U100K3*I5K30
U100K31=P5+U100K31*/I4K30
; ERM (3- ப CMDFIL)
P6=[W9K0=89]*/U100K31
T61I(30)=P6+T61D
;   ࠡ⪨ MST-㭪権
P7=T61U
W15K0=MUX(4DH,0),(U100K0,I0K2)
W15K1=MUX(2,2,32),(P5,P7,P8)
U10K4=P5+P7+U15K16+U15K17*/U15K16
;       ESE RCM 
W17K0=MUX(1,2,3,0),(P2,P4,P6,I0K2)
U10K23=U100K0
U10K18=P2+P4+P6+U10K18*/I5K30
U10K19=P2+P4+P6+U10K19*/I5K30
;;;;;
U100K4=P6+U100K4*/I2N15
;230
T59I(53)=P6+T59D
;230
T58I(53)=P8+P10+T58D
U100K30=P8+(/U100K30*U15K17+U100K30)*/I4K30
P9=[W9K0=7]*/U100K30
C15I(3)=P9
P8=U100K4*T59U
U15K16=I08K29*T58U*[C15W=0]+U15K16*U100K30
T60I(30)=[C15W=1]*/U15K17+T60D
W15K3=MUX(100,100,0),(U15K16,U15K17,I0K2)
U15K17=I08K29*T60U*/U15K16+U15K17*U100K30
P10=[C15W=2]*/U15K17
DOF:T58U*[C15W=2]
W100K0=0
W100K3=0
ENDF
;;;;;
C0I(2)=I2N8+I157K0
C0Z=/I6K21
U10K20=[C0W=1]
U10K0=/U10K20
U10K8=I0K2
U10K9=I0K2
U10K10=I0K2
U10K24=I0K2
U10K25=I0K2
U10K26=/[W3K0=30H]*/U10K21
U10K21=[W3K0=6]+U10K21*/I0K26*/I0K27*/I0K1
