;
;
;
infil = 'do90pos_613.idl'
restore, infil
;
embed9, reform(m1(*,*,0,*)), pos, out, out2, /m1
for i=0,8 do contour_do1pos, out(*,*,i), infil + '  M1  Position (sub10=0): ' + strtrim(i,2)
;
embed9, reform(m2(*,*,0,*)), pos, out, out2, /m2
for i=0,8 do contour_do1pos, out(*,*,i), infil + '  M2  Position (sub10=0) : ' + strtrim(i,2)
;
;----
;
infil = 'do9pos_678.idl'
restore, infil
embed9, m1, pos, out, out2, /m1
for i=0,8 do contour_do1pos, out(*,*,i), infil + '  M1  Position: ' + strtrim(i,2)
;
embed9, m2, pos, out, out2, /m2
for i=0,8 do contour_do1pos, out(*,*,i), infil + '  M2  Position: ' + strtrim(i,2)
;
end