function OUT = swan_keyword2texname(IN)
%SWAN_KEYWORD2TEXNAME     get SWAN LaTeX name (TEXNAM) from associated SWAN code (OVKEYW)
%
% long_name = swan_keyword2texname(code) finds long name equivalents of SWAN 
%
% Example: to get 'H_s [m]'
%
%   swan_keyword2texname('HS')
%
%See also: SWAN_IO_SPECTRUM, SWAN_IO_INPUT, SWAN_IO_TABLE, SWAN_IO_GRD, SWAN_IO_BOT, 
%          SWAN_QUANTITY, SWAN_DEFAULTS,
%          SWAN_KEYWORD2SHORTNAME, SWAN_KEYWORD2LONGNAME, SWAN_SHORTNAME2KEYWORD

%   --------------------------------------------------------------------
%   Copyright (C) 2009 Delft University of Technology
%       Gerben J. de Boer
%
%       g.j.deboer@tudelft.nl	
%
%       Fluid Mechanics Section
%       Faculty of Civil Engineering and Geosciences
%       PO Box 5048
%       2600 GA Delft
%       The Netherlands
%
%   This library is free software: you can redistribute it and/or
%   modify it under the terms of the GNU Lesser General Public
%   License as published by the Free Software Foundation, either
%   version 2.1 of the License, or (at your option) any later version.
%
%   This library is distributed in the hope that it will be useful,
%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%   Lesser General Public License for more details.
%
%   You should have received a copy of the GNU Lesser General Public
%   License along with this library. If not, see <http://www.gnu.org/licenses/>.
%   --------------------------------------------------------------------

% $Id$
% $Date$
% $Author$
% $Revision$
% $HeadURL$

%% input
%------------------------

   OPT.char_out = 0;
   if ischar(IN)
   IN = cellstr(IN);
   OPT.char_out = 1;
   end
   
%% get database
%------------------------

   D = swan_quantitytex;

%% apply database
%------------------------

   for iname = 1:length(IN)
   
      OUT{iname} = D.(IN{iname}).TEXNAM;
   
   end
   
   if OPT.char_out
      OUT = char(OUT);
   end

%% EOF