C+ C NAME: C ThomsonElectronFar C PURPOSE: C Determines the intensity scattered from single coronal electron C in the limit of small angular size of the Sun C CALLING SEQUENCE: function ThomsonElectronFar(SinChi, P) C INPUTS: C SinChi real sine of angle Sun-Electron-Observer C OUTPUTS: C ThomsonElectronFar C real scattered intensity; units: 10^-26 times the C flux from the solar disk incident on the electron C P real polarization (-1<=P<=1) C INCLUDE: include 'phys.h' C PROCEDURE: C See href=ThomsonElectron= C Limit: Solar diameter -> 0; Electron-Sun distance -> Infinity C MODIFICATION HISTORY: C JUL-1996, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C- real SinChi real P S = SinChi*SinChi S2 = 2-S P = S/S2 ThomsonElectronFar = 0.5*PHYS__THOMSON*S2 return end