C+
C NAME:
C	ThomsonMid
C CALLING SEQUENCE:
	function ThomsonMid(S)			! Internal use only
C INCLUDE:
	include		'math.h'
C-
	    real	S

	!-------
	! Entry point ThomsonSetupMid

	real		ScSunIn
	real		EloIn
	real		UIn

	!-------

	save		ScSun, Elo, U, FMid

	ThomsonMid = ThomsonLOS(0.,S,ScSun,Elo,U, P)-FMid

	return
C+
C NAME:
C	ThomsonSetupMid
C CALLING SEQUENCE:
	entry ThomsonSetupMid(ScSunIn,EloIn,UIn)
C CALLS:
C	ThomsonLOS
C PROCEDURE:
C	Entry point in href=ThomsonMid=
C-
						! Internal use only
	ThomsonSetupMid = 1.

	ScSun = ScSunIn
	Elo   = EloIn
	U     = UIn
	FMid  = 0.5*ThomsonLOS(0.,MATH__PINF,ScSun,Elo,U, P)

	return
	end