;+
; NAME:
;	ThomsonSetupRomb
; PURPOSE:
;	Controls Romberg integration in ThomsonLOSRomb
;	Internal use only
; CATEGORY:
;	Physics: Thomson scattering
; CALLING SEQUENCE:
	PRO ThomsonSetupRomb, RSun_, Elo_, U_
; INPUTS:
;	RSun		scalar: type: float
;					Observer-Sun distance (solar radii)
;	Elo			scalar; type: float
;					Elongation (radians)
;	U			scalar; type: float
;					Limb darkening constant
; OUTPUTS:
;	(stored in common block)
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; COMMON BLOCKS:
	common ThomsonIntegrand, RSun, Elo, U
; PROCEDURE:
;	ThomsonSetupIntegrand sets up the common block accessed by
;	href=ThomsonTang= and href=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)
;-

RSun = RSun_
Elo  = Elo_
U    = U_

RETURN  &  END