100.000 REM ***********POL/REC*********** TEMP.REAL=TEMP.MAG*COS(TEMP.PHA/57.296) TEMP.IMAG=TEMP.MAG*SIN(TEMP.PHA/57.296) RETURN