C+
C NAME:
C	ThomsonLOSS10
C PURPOSE:
C	Determines the intensity along a line of sight of electron Thomson 
C	scattering in S10 units
C CALLING SEQUENCE:
	function ThomsonLOSS10(SLower,SUpper,ScSun,Elo,U,APM, P)
C INPUTS:	(the input values are retained on return):
C	SLower	real	lower limit of integration (solar radii)
C	SUpper	real	upper limit of integration (solar radii)
C	nStep	integer	# integration steps (i.e. stepsize is SUpper/nStep)
C	ScSun	real	distance of spacecraft from Sun (solar radii
C	ScLng	real	heliocentric longitude of observer (deg)
C	ScLat	real	heliocentric latitude of observer (deg)
C	ScSun	real	heliocentric distance of observer (solar radii)
C	Elo	real	elongation of s/c line of sight (l.o.s.; deg)
C			Elo=0 is the direction to the Sun
C	SLng	real	topocentric longitude line of sight relative to
C			Sun-observer direction
C	SLat	real	topocentric longitude line of sight relative to
C			Sun-observer direction
C	U	real	limb darkening constant
C	M	real	apparent magnitude of the Sun
C OUTPUTS:
C	F	real	integrated Thomson scattering intensity (S10)
C	P	real	polarization
C CALLS:
C	ThomsonLOSStep
C PROCEDURE:
C >	ThomsonLOS returns the integrated intensity incident per sterad
C	on the observer in units of the flux received from the solar disk.
C >	STEP 1: multiply by 1 square degree to get the integrated intensity
C		per square degree.
C >	STEP 2: convert to units of the flux received from the solar disk
C		at 1 AU: multiply by 1/ScSun^2
C >	STEP 3: convert to units of the flux received from a 10th magnitude
C		star: multiply by 10^((10-M)/2.5)
C		(apparent magnitude, M=-2.5*log(Flux)).
C MODIFICATION HISTORY:
C	1996, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    real	SLower
	    real	SUpper
	    real	ScSun
	    real	Elo
	    real	U
	    real	APM
	    real	P

	ThomsonLOSS10 = 1E-16*ThomsonS10(ScSun,APM)*
     &			ThomsonLOS(SLower,SUpper,ScSun,Elo,U,P)

	return
	end