function codret = setintertable(n, xt, yt)
%
% Interpolación lineal. Asignación de tabla.
%
%
global Ndatos Lastj;
global XIntTable YIntTable;
global XTableMin XTableMax;
global InterpolFueInicializado;
%
if (n > 1)
  Ndatos    = n;
  XIntTable = xt;
  YIntTable = yt;
  XTableMin = xt(1);
  XTableMax = xt(n);
  Lastj     = 1;
  
  InterpolFueInicializado = 998;
  codret = 0;
else
  InterpolFueInicializado = -5;
  codret = -5;
end

end