pro ofr2fre, prefix, index, data
;
;+
;NAME:
;	ofr2fre
;PURPOSE:
;	To convert the OFR (Old Full Resolution) pixel results to the
;	new FRE (Full Resolution Equivalent) pixel coordinates
;SAMPLE CALLING SEQUENCE:
;	ofr2fre, index, sot
;	ofr2fre, index, sxc
;INPUT:
;	prefix	- The prefix being processed ('SOT' or 'SXC')
;	index	- The index structure
;INPUT/OUTPUT:
;	data	- The SOT or SXC data structure
;HISTORY:
;	Written 14-Jul-93 by M.Morrison
;-
;
if (n_elements(index) eq 0) then begin
    message, 'INDEX is undefined.  Returning', /info
    return
end
;
print, 'OFR2FRE: Adjusting data to Full Resolution Equivalent (FRE) values'
;
corr = [0, 0.5, 1.5]
for ires=0,2 do begin
    ss = where(gt_res(index) eq ires)
    if (ss(0) ne -1) then case strupcase(prefix) of
	'SOT': data(ss).find_limb(0:1)  = data(ss).find_limb(0:1) + corr(ires)
	'SXC': data(ss).sxt_center(0:1) = data(ss).sxt_center(0:1) + corr(ires)
	else: message, 'Prefix: ' + prefix+ ' not recognized', /info
    end
end
;
end