102.100	REM ***********PAR/SER***********
	A=TEMP.REAL : B=TEMP.IMAG
	Q=B/A
	IF Q<1E-12 THEN Q=1E-12
	TEMP.REAL=A/(1+1/(Q*Q))
	TEMP.IMAG=B/(1+Q*Q)
	RETURN