function coeffr,n,Receiver=Receiver,Band=Band

;	Returns broadening factor(s) of the SSRT beam due to dispersion
;	in the frequency band corresponding to order(s) given.

if n_elements(Receiver) le 0 then Receiver=1
	if n_elements(Band) le 0 then begin
if Receiver then Band=2 else Band=5
	endif

if not(Receiver) and Band eq 4 then Band=5

bexp2ccd0=[1.000000, 1.000048, 1.000095, 1.000143, $
	1.000191, 1.000239, 1.000374, 1.000510, $
	1.000645, 1.000781, 1.000916, 1.001154, $
	1.001391, 1.001628, 1.001865, 1.002102, $
	1.002428, 1.002755, 1.003081, 1.003407, $
	1.003734, 1.004177, 1.004619, 1.005062, $
	1.005505, 1.005948, 1.006455, 1.006962, $
	1.007469, 1.007976, 1.008483, 1.009110, $
	1.009737, 1.010363, 1.010990, 1.011617, $
	1.012321, 1.013025, 1.013730, 1.014434, $
	1.015138, 1.016040, 1.016942, 1.017843, $
	1.018745, 1.019647, 1.020588, 1.021529]

bexp2ccd1=[1.022470, 1.023411, 1.024352, 1.025369, $
	1.026386, 1.027403, 1.028419, 1.029436, $
	1.030555, 1.031675, 1.032794, 1.033913, $
	1.035032, 1.036438, 1.037845, 1.039251, $
	1.040658, 1.042064, 1.043406, 1.044748, $
	1.046090, 1.047433, 1.048775, 1.050218, $
	1.051661, 1.053104, 1.054547, 1.055990, $
	1.057639, 1.059288, 1.060937, 1.062585, $
	1.064234, 1.066099, 1.067964, 1.069829, $
	1.071694, 1.073559, 1.075331, 1.077103, $
	1.078875, 1.080647, 1.082419, 1.084386, $
	1.087951, 1.088401]

bexp4ccd0=[1.000000, 1.000188, 1.000377, 1.000565, $
	1.000754, 1.000942, 1.001502, 1.002062, $
	1.002622, 1.003181, 1.003741, 1.004692, $
	1.005642, 1.006593, 1.007543, 1.008494, $
	1.009836, 1.011179, 1.012521, 1.013864, $
	1.015206, 1.016982, 1.018758, 1.020533, $
	1.022309, 1.024084, 1.026255, 1.028425, $
	1.030595, 1.032765, 1.034935, 1.037591, $
	1.040248, 1.042904, 1.045560, 1.048217, $
	1.051366, 1.054515, 1.057664, 1.060813, $
	1.063962, 1.067798, 1.071634, 1.075470, $
	1.079306, 1.083142, 1.087393, 1.091644]

bexp4ccd1=[1.095896, 1.100147, 1.104398, 1.109363, $
	1.114328, 1.119293, 1.124259, 1.129224, $
	1.135140, 1.141056, 1.146972, 1.152888, $
	1.158803, 1.165708, 1.172613, 1.179518, $
	1.186423, 1.193328, 1.200688, 1.208049, $
	1.215409, 1.222769, 1.230129, 1.238291, $
	1.246453, 1.254615, 1.262777, 1.270939, $
	1.279941, 1.288943, 1.297945, 1.306948, $
	1.315950, 1.325952, 1.335954, 1.345956, $
	1.355958, 1.365959, 1.377183, 1.388407, $
	1.399631, 1.410854, 1.422078, 1.434307, $
	1.447604, 1.459156]

bexpmfb0=[1.000000, 1.000139, 1.000278, 1.000416, $
	1.000555, 1.000694, 1.001104, 1.001514, $
	1.001923, 1.002333, 1.002743, 1.003440, $
	1.004137, 1.004833, 1.005530, 1.006227, $
	1.007206, 1.008186, 1.009165, 1.010144, $
	1.011123, 1.012418, 1.013712, 1.015006, $
	1.016300, 1.017595, 1.019164, 1.020733, $
	1.022302, 1.023871, 1.025440, 1.027348, $
	1.029255, 1.031163, 1.033070, 1.034978, $
	1.037217, 1.039457, 1.041696, 1.043936, $
	1.046175, 1.048905, 1.051635, 1.054366, $
	1.057096, 1.059826, 1.062802, 1.065779]

bexpmfb1=[1.068756, 1.071732, 1.074709, 1.078106, $
	1.081503, 1.084899, 1.088296, 1.091693, $
	1.095519, 1.099345, 1.103171, 1.106997, $
	1.110823, 1.115538, 1.120252, 1.124966, $
	1.129681, 1.134395, 1.139427, 1.144460, $
	1.149493, 1.154525, 1.159558, 1.165179, $
	1.170801, 1.176422, 1.182044, 1.187666, $
	1.193855, 1.200044, 1.206234, 1.212423, $
	1.218612, 1.225440, 1.232267, 1.239095, $
	1.245923, 1.252751, 1.260059, 1.267368, $
	1.274677, 1.281986, 1.289295, 1.297114, $
	1.306223, 1.313210]

bexp2ccd=[bexp2ccd0, bexp2ccd1]
bexp4ccd=[bexp4ccd0, bexp4ccd1]
bexpmfb=[bexpmfb0, bexpmfb1]

	CASE Band OF

2:	Coef=[bexp2ccd0, bexp2ccd1]
4:	Coef=[bexp4ccd0, bexp4ccd1]
5:	Coef=[bexpmfb0, bexpmfb1]

ELSE:	begin
	print,'Error: this value not allowed'
	return,0
	end

	ENDCASE

return,coef(abs(n))
	end