110.100	REM ***********YZZY***********
	TEMP.REAL=TEMPA.REAL : TEMP.IMAG=TEMPA.IMAG
	TEMP1.REAL=TEMPD.REAL : TEMP1.IMAG=TEMPD.IMAG
	GOSUB 103.100
	Q1R=TEMP.REAL : Q1I=TEMP.IMAG
	TEMP.REAL=TEMPB.REAL : TEMP.IMAG=TEMPB.IMAG
	TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
	GOSUB 103.100
	Q2R=TEMP.REAL : Q2I=TEMP.IMAG
	Q3R=Q1R-Q2R : Q3I=Q1I-Q2I
	TEM1R=TEMPA.REAL : TEM1I=TEMPA.IMAG
	TEM2R=-TEMPB.REAL : TEM2I=-TEMPB.IMAG
	TEM3R=-TEMPC.REAL : TEM3I=-TEMPC.IMAG
	TEM4R=TEMPD.REAL : TEM4I=TEMPD.IMAG
	TEMP.REAL=TEM4R : TEMP.IMAG=TEM4I
	TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
	GOSUB 104.100
	TEMPA.REAL=TEMP.REAL : TEMPA.IMAG=TEMP.IMAG
	TEMP.REAL=TEM3R : TEMP.IMAG=TEM3I
	TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
	GOSUB 104.100
	TEMPC.REAL=TEMP.REAL : TEMPC.IMAG=TEMP.IMAG
	TEMP.REAL=TEM2R : TEMP.IMAG=TEM2I
	TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
	GOSUB 104.100
	TEMPB.REAL=TEMP.REAL : TEMPB.IMAG=TEMP.IMAG
	TEMP.REAL=TEM1R : TEMP.IMAG=TEM1I
	TEMP1.REAL=Q3R : TEMP1.IMAG=Q3I
	GOSUB 104.100
	TEMPD.REAL=TEMP.REAL : TEMPD.IMAG=TEMP.IMAG
	RETURN