function rad2location, rad, qhr
;
;NAME:
;	rad2location
;PURPOSE:
;	To return a location mnemonic for a given radius location
;INPUT:
;	rad	- the integer radius position
;	qhr	- 0=Full Disk (default), 1=High Res
;OUTPUT:
;	Returns a string array of the same number of elements as
;	the input with the mnemonic for each radius
;METHOD:
;	The radii are the same in the mdidust series (using calmode
;	images) downstream of the calmode lenses.
;HISTORY:
;	Written 4-Apr-94 by M.Morrison
;-
;
;mdidust	CAL MODE / FD  ==> rad = [-97,-60,-49,-39,-36,-25,-10,0,15,97]
;mdidust	CAL MODE / HR  ==> rad = [-126,-91,-35,0,7,9,46]
;
fd_table = strarr(600) + '??'
hr_table = fd_table
off = 180
;
;---- all these numbers are 3.2 times as big in HR.
fd_table(off -30) = 'Cal lens #1 (when in)'
fd_table(off -32) = 'Cal lens #1 (when out)'
fd_table(off +66) = 'Cal lens #2 (when in)'
fd_table(off +62) = 'Cal lens #2 (when out)'
fd_table(off+108) = 'Waveplate after ISS'
fd_table(off -25) = 'Secondary lens (when in)
fd_table(off -26) = 'Secondary lens (when out)

hr_table(off -30*3.2) = 'Cal lens #1 (when in)'
hr_table(off -32*3.2) = 'Cal lens #1 (when out)'
hr_table(off +66*3.2) = 'Cal lens #2 (when in)'
hr_table(off +62*3.2) = 'Cal lens #2 (when out)'
hr_table(off+108*3.2) = 'Waveplate after ISS'
hr_table(off -25*3.2) = 'Secondary lens (when in)
hr_table(off -26*3.2) = 'Secondary lens (when out)

fd_table(off  -97) = ' Michelson 1'
fd_table(off  -60) = ' Between Lyot and M1 (probably Lyot)
fd_table(off  -49) = ' Lyot
fd_table(off  -39) = ' Lyot
fd_table(off  -36) = ' Lyot
fd_table(off  -25) = ' Secondary lens'
fd_table(off  -10) = ' Blocker
fd_table(off   +0) = ' CCD
fd_table(off  +15) = ' Telecentric lens
fd_table(off  +97) = ' PAW

hr_table(off -126) = ' Lyot 
hr_table(off  -91) = ' Nothing (showns fringe pattern)
hr_table(off  -35) = ' Blocker
hr_table(off   +0) = ' CCD
hr_table(off   +7) = ' Close to BS2
hr_table(off   +9) = ' BS2'
hr_table(off  +46) = ' Telecentric lens'
;
if (keyword_set(qhr)) then out = hr_table(off+rad) $
		else out = fd_table(off+rad)
return, out
end