function mat=colonne(ligne,nb_lignes)

% COLONNE : renvoie une matrice à n lignes dupliquant la 1ère ligne
% mat=colonne(ligne,nb_lignes)
%
% Monique, avril 2007, MBARI

nb_col=size(ligne,2);
if nb_col==1,
	nb_col=size(ligne,1);, 
	if nb_col~=1, disp('Utiliser la fonction ligne'), end
end

if ~ischar(ligne)	% cas numérique
	mat=ones(nb_lignes,nb_col);
	for i=1:nb_lignes, mat(i,:)=ligne;, end
else			% cas string
	mat=num2str(ones(nb_lignes,nb_col));
	for i=1:nb_lignes, mat(i,:)=ligne;, end
end

return
