107.100	REM ***********SMATX***********
	T1R=1+S11.REAL : T1I=S11.IMAG
	T2R=1-S11.REAL : T2I=-S11.IMAG
	T3R=1+S22.REAL : T3I=S22.IMAG
	T4R=1-S22.REAL : T4I=-S22.IMAG
	TEMP.REAL=S12.REAL : TEMP.IMAG=S12.IMAG
	TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
	GOSUB 103.100
	T5R=TEMP.REAL : T5I=TEMP.IMAG
	TEMP.REAL=T1R : TEMP.IMAG=T1I
	TEMP1.REAL=T4R : TEMP1.IMAG=T4I
	GOSUB 103.100
	Q1R=TEMP.REAL : Q1I=TEMP.IMAG
	Q2R=Q1R+T5R : Q2I=Q1I+T5I
	TEMP.REAL=Q2R : TEMP.IMAG=Q2I
	TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
	GOSUB 104.100
	Q3R=TEMP.REAL : Q3I=TEMP.IMAG
	A.REAL=Q3R/2 : A.IMAG=Q3I/2
	TEMP.REAL=T2R : TEMP.IMAG=T2I 
	TEMP1.REAL=T4R : TEMP1.IMAG=T4I
	GOSUB 103.100
	Q4R=TEMP.REAL : Q4I=TEMP.IMAG
	Q5R=Q4R-T5R : Q5I=Q4I-T5I
	TEMP.REAL=Q5R : TEMP.IMAG=Q5I
	TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
	GOSUB 104.100
	Q6R=TEMP.REAL : Q6I=TEMP.IMAG
	C.REAL=Q6R/100 : C.IMAG=Q6I/100
	TEMP.REAL=T2R : TEMP.IMAG=T2I
	TEMP1.REAL=T3R : TEMP1.IMAG=T3I
	GOSUB 103.100
	Q7R=TEMP.REAL : Q7I=TEMP.IMAG
	Q8R=Q7R+T5R : Q8I=Q7I+T5I
	TEMP.REAL=Q8R : TEMP.IMAG=Q8I
	TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
	GOSUB 104.100
	Q9R=TEMP.REAL : Q9I=TEMP.IMAG
	D.REAL=Q9R/2 : D.IMAG=Q9I/2
	TEMP.REAL=Q2R : TEMP.IMAG=Q2I
	TEMP1.REAL=Q8R : TEMP1.IMAG=Q8I
	GOSUB 103.100
	Q10R=TEMP.REAL : Q10I=TEMP.IMAG
	Q11R=Q10R-4*T5R : Q11I=Q10I-4*T5I
	TEMP.REAL=Q11R : TEMP.IMAG=Q11I
	TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
	GOSUB 104.100
	TEMP1.REAL=Q5R : TEMP1.IMAG=Q5I
	GOSUB 104.100
	Q14R=TEMP.REAL : Q14I=TEMP.IMAG
	B.REAL=25*Q14R : B.IMAG=25*Q14I
	RETURN