;embed9, 678, 0, array, pos, out, out2
;embed9, 678, 1, array, pos, out, out2

;embed9, 680, 0, array, pos, out, out2
;embed9, 680, 1, array, pos, out, out2
;
;embed9, 613, 0, array, pos, out, out2, sub10=0
;embed9, 613, 1, array, pos, out, out2, sub10=0
;
input, 'Enter the series/serial number', serial, serial
yesnox, 'Assemble for M2?', qm2, 'N'
input, 'Sub10 repeat number ', sub10, -1
;
embed9, serial, qm2, array, pos, out, out2, sub10=sub10
bb = hist_equal(out)

wshow
stepper,bb,xsiz=512,/noscale
movie,bb
;movie,bb(*,*,1:*)

end