restore,'rbar_dens_full.idlsave'
drbar=allrbar
restore,'rbar_rwid_full.idlsave'
wrbar=allrbar
restore,'rbar_instr_full.idlsave'
irbar=allrbar
print,'          Region    Density  Width  Instr'
for i = 0 , nreg-1 do print,regname(i),drbar(i),wrbar(i),irbar(i),$
  format='(A20,3F7.2)'
end