ff=file_list('/mdisw/load/bck/new','M*2_*.BCK')
n=n_elements(ff)
for i=0,n-1 do begin
    infil = ff(i)
    outfil = str_replace(infil, 'M00', 'MDI')
    print, infil + '  to  ' + outfil
    mat = rd_tfile(infil)
    mat = str_replace(mat, 'M00', 'MDI')
    prstr, mat, file=outfil
end
;
end