C+
C NAME:
C	ThomsonLOSS10Step
C PURPOSE:
C	Determines the intensity along a line of sight of electron Thomson 
C	scattering in S10 units
C CALLING SEQUENCE:
	function ThomsonLOSS10Step(SLower,SUpper,nStep,ScSun,Elo,U,APM, P)
C CALLS:
C	ThomsonS10, ThomsonLOSFar
C PROCEDURE:
C	See href=ThomsonLOSS10=
C MODIFICATION HISTORY:
C	1996, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    real	SLower
	    real	SUpper
	    integer	nStep
	    real	ScSun
	    real	Elo
	    real	U
	    real	APM
	    real	P

	ThomsonLOSS10Step = 1E-16*ThomsonS10(ScSun,APM)*
     &			ThomsonLOSStep(SLower,SUpper,nStep,ScSun,Elo,U,P)

	return
	end