108.100 REM ***********XMATS***********
	TEMP.REAL=A.REAL : TEMP.IMAG=A.IMAG
	TEMP1.REAL=D.REAL : TEMP1.IMAG=D.IMAG
	GOSUB 103.100
	Q1R=TEMP.REAL : Q1I=TEMP.IMAG
	TEMP.REAL=B.REAL : TEMP.IMAG=B.IMAG
	TEMP1.REAL=C.REAL : TEMP1.IMAG=C.IMAG
	GOSUB 103.100
	Q2R=TEMP.REAL : Q2I=TEMP.IMAG
	T1R=Q1R-Q2R : T1I=Q1I-Q2I
	T2R=A.REAL+50*C.REAL : T2I=A.IMAG+50*C.IMAG
	T3R=A.REAL-50*C.REAL : T3I=A.IMAG-50*C.IMAG
	T4R=D.REAL+50*C.REAL : T4I=D.IMAG+50*C.IMAG
	T5R=D.REAL-50*C.REAL : T5I=D.IMAG-50*C.IMAG
	TEMP.REAL=T2R : TEMP.IMAG=T2I
	TEMP1.REAL=T4R : TEMP1.IMAG=T4I
	GOSUB 103.100
	Q3R=TEMP.REAL : Q3I=TEMP.IMAG
	T6R=Q3R-T1R : T6I=Q3I-T1I
	TEMP.REAL=T3R : TEMP.IMAG=T3I
	TEMP1.REAL=T4R : TEMP1.IMAG=T4I
	GOSUB 103.100
	Q4R=TEMP.REAL : Q4I=TEMP.IMAG
	T7R=Q4R-T1R : T7I=Q4I-T1I
	TEMP.REAL=T2R : TEMP.IMAG=T2I
	TEMP1.REAL=T5R : TEMP1.IMAG=T5I
	GOSUB 103.100
	Q5R=TEMP.REAL : Q5I=TEMP.IMAG
	T8R=Q5R-T1R : T8I=Q5I-T1I
	TEMP.REAL=T7R : TEMP.IMAG=T7I
	TEMP1.REAL=T6R : TEMP1.IMAG=T6I
	GOSUB 104.100
	S11.REAL=TEMP.REAL : S11.IMAG=TEMP.IMAG
	Q6R=100*C.REAL : Q6I=100*C.IMAG
	TEMP.REAL=T1R : TEMP.IMAG=T1I
	TEMP1.REAL=T6R : TEMP1.IMAG=T6I
	GOSUB 104.100
	Q7R=TEMP.REAL : Q7I=TEMP.IMAG
	TEMP.REAL=Q6R : TEMP.IMAG=Q6I
	TEMP1.REAL=Q7R : TEMP1.IMAG=Q7I
	GOSUB 103.100
	S12.REAL=TEMP.REAL : S12.IMAG=TEMP.IMAG
	TEMP.REAL=Q6R : TEMP.IMAG=Q6I
	TEMP1.REAL=T6R : TEMP1.IMAG=T6I
	GOSUB 104.100
	S21.REAL=TEMP.REAL : S21.IMAG=TEMP.IMAG
	TEMP.REAL=T8R : TEMP.IMAG=T8I
	TEMP1.REAL=T6R : TEMP1.IMAG=T6I
	GOSUB 104.100
	S22.REAL=TEMP.REAL : S22.IMAG=TEMP.IMAG
	RETURN