//Save variable function wlog_sv(u,lst,flag) tt=">> Save simulated data :\n"; for i=1:size(lst(1),1) tt=[tt+"<"+lst(1)(i)+">"+"\n!\n"]; for j=1:size(lst(1+i),1) 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