function textout=nodes2text(Nums,iopt)
%
%  Name:   nodes2text
%
%  Usage:  nodetext=nodes2text(Nums)
%
%  This m-file allows the user convert a matrix of text
%  to the Nums matrix
% 
%  Version PJC960422
%
%  Author(s): Phillip Cornwell, cornwell@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%               ESA-EA
%
%  Copyright (c) 1996, The Regents of the University
%       of California. (See top level of code for
%       full copyright statement.)
%
textout=[];

[numrows,numcol]=size(Nums);

if iopt==1,

for i=1:numrows,
  temp=[int2str(Nums(i,1)),',',num2str(Nums(i,2)),',',num2str(Nums(i,3)),',',num2str(Nums(i,4))];
  textout=str2mat(textout,temp);
end

else,

for i=1:numrows,
  temp=[int2str(Nums(i,1)),',',num2str(Nums(i,2)),',',num2str(Nums(i,3))];
  textout=str2mat(textout,temp);
end

end

textout(1,:)=[];
