function res=vertcat(varargin)
% Find non-empty arrays

%   BITS -  Banca d'Italia Time Series 
%   Copyright 2005-2007 Banca d'Italia - Area Ricerca Economica e Relazioni Internazionali
%
%   Author: Emmanuele Somma   (emmanuele.somma@bancaditalia.it)
%           Area Ricerca Economica e Relazioni Internazionali 
%           Banca d'Italia
%

  res = nan;
  for i=1:length(varargin)
    if isa(res,'tsmat')
      if isa(varargin{i},'tsmat')
        res = extend(res,varargin{i},nan,true);
      end
    else
      res = varargin{i};
    end
  end
