pro a
  files=file_search('*/5668*/apPlateSum*.fits')
for i=0,n_elements(files)-1 do begin
  b=mrdfits(files[i],1,/SILENT)
  print,files[i]
  ;print,b.zeronorm
  print,b.sn
  if i eq 0 then z=b.zeronorm else z=[z,b.zeronorm]
  if i eq 0 then im=b.im else im=[im,b.im]
  if i eq 0 then jd=b.jd else jd=[jd,b.jd]
  if i eq 0 then sn=b.sn[1] else sn=[sn,b.sn[1]]
endfor
stop
end