// S.Ayrinhac (2013)
// Exporte une matrice sous la forme d'une table Latex

function mat2tablatex(x,y,M,id)
    
    sf='table_latex_out_'+id+'.dat';
    y=y./1e9;
    x=x-273.15;

    /// Début du tableau
    fd= mopen(sf,'at+');
         mfprintf(fd,'\\begin{table} \\footnotesize \\begin{tabular}{|%s|','l');
    mclose(fd);
    for i=1:length(x)
        fd= mopen(sf,'at+');
             mfprintf(fd,'%s','r');
        mclose(fd);
    end
    fd= mopen(sf,'at+');
         mfprintf(fd,'}\n \\hline \n');
    mclose(fd);
    
    
    
    
    /////// Première ligne ////////////////////////////////
    fd= mopen(sf,'at+');
         mfprintf(fd,' & '); // vide !!
    mclose(fd); 
    for i=1:length(x)
    fd= mopen(sf,'at+');
         if i<length(x)
            mfprintf(fd,' %f & ',x(i));
         end
         if i==length(x)
            mfprintf(fd,' %f',x(i));
         end

    mclose(fd); 
    end
    fd= mopen(sf,'at+');
         mfprintf(fd,'\\\\ \n \\hline \n'); 
    mclose(fd); 
   ///////////////////////////////////////////////////////////
   
   
   
   
  for j=1:length(y)
  // début de ligne + en-tête de ligne
  fd= mopen(sf,'at+');
         mfprintf(fd,' %f &',y(j));
  mclose(fd);
  
  for i=1:length(x)
     
    fd= mopen(sf,'at+');
         if i<length(x)
            mfprintf(fd,' %e & ',M(j,i));
         else
            mfprintf(fd,' %e ',M(j,i));
         end
    mclose(fd);
    
  end
  // fin de ligne
  fd= mopen(sf,'at+');
         mfprintf(fd,'\\\\ \n');
    mclose(fd);
  end
  
  
  // Fin du tableau
  fd= mopen(sf,'at+');
         mfprintf(fd,'\\hline \n \\end{tabular} \n \\normalsize \n \\caption{Caption.} \n \\label{table:table1} \n \\end{table} \n');
    mclose(fd);
  
  

endfunction