function get9maps, serial, code, sub10
;
;
;
;code = 0	- M1 map
;code = 1	- M2 map
;code = 2	- Trans map
;
;
q900 = (n_elements(sub10) ne 0)
if (serial eq 613) or (serial eq 614) then q900 = 1
if (n_elements(sub10) eq 0) then sub10 = 0
pos = indgen(9)
;
list = ['_m1', '_m2', '_tr']
fmt3 = '(i3.3)'
fmt2 = '(i2.2)'
filnam = 's' + string(serial, format=fmt3) + $
        list(code) + $
        '_p' + string(pos, format=fmt2)
if (q900) then filnam = filnam + '_r' + string(sub10, format=fmt2)
filnam = filnam + '.fits'
;
out = fltarr(64,64,9)
;
for i=0,8 do begin
    img = rfits(filnam(i))
    out(0,0,i) = img
end
;
return, out
end