;
;
;
if (n_elements(mat) eq 0) then begin
    ff = file_list('$MDI_CAL_TXT', '*.m1_summary')
    mat = rd_tfile(ff(0), 18, 6)
    for i=1,n_elements(ff)-1 do begin
	mat0 = rd_tfile(ff(i), 18, 6)
	mat = [[mat], [mat0]]
    end
end
;
end