;+
; NAME:
;	ThomsonTangMRad
; PURPOSE:
;	Controls Romberg integration in ThomsonLOSRomb
;	Internal use only
; CATEGORY:
;	Physics: Thomson scattering
; CALLING SEQUENCE:
	FUNCTION ThomsonTangMRad, S
; INPUTS:
;	S
; OUTPUTS:
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; COMMON BLOCKS:
	common ThomsonIntegrand, RSun, Elo, U
; CALLS:
;	Distance2Sun, ThomsonBase, ThomsonLOSDensity
; PROCEDURE:
;	href=ThomsonSetupRomb= sets up the common block accessed by
;	href=ThomsonTang= and ThomsonTangMRad (these two functions are
;	used as arguments to the IDL QRomb and QRomo functions).
; MODIFICATION HISTORY:
;	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

tmp = RSun*Distance2Sun(Elo, S/RSun, SinChi)
tmp = ThomsonBase(tmp, SinChi, U, P, dIt, dItr)

RETURN, ThomsonLOSDensity(S)*dItr  &  END