109.100	REM ***********ZXXZ***********
	TEMP.REAL=TEMPA.REAL : TEMP.IMAG=TEMPA.IMAG
	TEMP1.REAL=TEMPD.REAL : TEMP1.IMAG=TEMPD.IMAG
	GOSUB 103.100
	TEM1R=TEMP.REAL : TEM1I=TEMP.IMAG
	TEMP.REAL=TEMPB.REAL : TEMP.IMAG=TEMPB.IMAG
	TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
	GOSUB 103.100
	TEM2R=TEMP.REAL : TEM2I=TEMP.IMAG
	DELR=TEM1R-TEM2R : DELI=TEM1I-TEM2I
	TEMP.REAL=TEMPA.REAL : TEMP.IMAG=TEMPA.IMAG
	TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
	GOSUB 104.100
	TEMPA.REAL=TEMP.REAL : TEMPA.IMAG=TEMP.IMAG
	TEMP.REAL=DELR : TEMP.IMAG=DELI
	TEMP1.REAL=TEMPC.REAL : TEMP1.IMAG=TEMPC.IMAG
	GOSUB 104.100
	TEMPB.REAL=TEMP.REAL : TEMPB.IMAG=TEMP.IMAG
	TEM3R=TEMPC.REAL : TEM3I=TEMPC.IMAG
	TEMP.REAL=1 : TEMP.IMAG=0
	TEMP1.REAL=TEM3R : TEMP1.IMAG=TEM3I
	GOSUB 104.100
	TEMPC.REAL=TEMP.REAL : TEMPC.IMAG=TEMP.IMAG
	TEMP.REAL=TEMPD.REAL : TEMP.IMAG=TEMPD.IMAG
	TEMP1.REAL=TEM3R : TEMP1.IMAG=TEM3I
	GOSUB 104.100
	TEMPD.REAL=TEMP.REAL : TEMPD.IMAG=TEMP.IMAG
	RETURN