a = dblarr(50) 
openr, 100, 'EUVmeansdev.txt'
readf, 100, a
close, 100
inds0 = 2*indgen(25) 
inds1 = inds0+1
means = a(inds0)
err = a(inds1)
nums = [[17,16,15,14,13],[18,5,4,3,12],[19,6,1,2,11],[20,7,8,9,10], $ [21,22,23,24,25]]-1
image = dblarr(5,5)
errs = dblarr(5,5)
for j = 0, 24 do begin image(j) = means(nums(j)) & errs(j) = err(nums(j)) & endfor
xtv, image

;Make Plots:

set_plot, 'PS'                                                                 
device, filename='jarno_hartmann.eps', /color, bits=8, xsize=5, ysize=6, /inches         
tvscl, image, 0.35,0.555,xsize=4.47, ysize=4.47, /inches                       
plot, [1,2],[1,2],background=255,xmargin=[4,2],ymargin=[4,2],font=1,$
xrange=[0,5], yrange=[0,5], color=0,  xtitle='DISTANCE [cm]', $          
/isotropic, /nodata, /noerase, ticklen=-0.02                                   
colorbar, ncolors=255, POSITION=[0.15, 0.87, 0.80, 0.92], $
FORMAT = '(F0.3)', /top, title = 'Photodiode Current [nA]', $
range = [min(image),max(image)]*1e9            
device, /close
set_plot, 'X'