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