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