;Program to make plotting arrays (500,500)

temp = lonarr(1)
tlong = lonarr(1)
avgc = lonarr(50)
varc = lonarr(50)
read, 'Insert the x coord of the pixel (use an integer).',x
read, 'Insert the y coord of the pixel (use an integer).',y
x = long(x)
y = long(y)
z = 4*(256L*y + x)
;
;Get the pixel element from the arrays

FOR  j = 0,49 DO BEGIN
exp = 400*(j+1)
favg =  'im' + string(exp) + '.avgc'
favg = STRCOMPRESS(favg,/REMOVE_ALL)
fvar = 'im' + string(exp) + '.varc'
fvar = STRCOMPRESS(fvar,/REMOVE_ALL)
openr,1,favg
POINT_LUN,1, z
readu,1,temp
avgc(j) = temp
close,1
openr,1,fvar
POINT_LUN,1, z
readu,1,tlong
varc(j) = tlong
close,1
;print,tfloat,temp,j
ENDFOR
openw,1,'calib.pic'
writeu,1,avgc
writeu,1,varc
close,1
plot,avgc,varc
end