//Save Post-processed results //lst est une tlist //ex : tlist(['teb';'sigma'],teb,sig) function wlog_psv(u,lst,flag) tt=">> Save Post processed results :\n"; for i=1:size(lst(1),1) tt=[tt+"<"+lst(1)(i)+">"+"\n!\n"]; for j=1:size(lst(1+i),1) //doit faire test si matrice for l=1:size(lst(1+i),2) tt=[tt+string(lst(1+i)(j,l))+" "]; end tt=[tt+"\n"]; end tt=[tt+"!\n"]; end mfprintf(u,tt); if (flag==1) then printf(tt); elseif(flag==2) then ts=sprintf(tt); put_list(ts); end endfunction