l_gd.m

function description=l_gd(wlog,mnem)
% Get the description of the curve with mnemonic "mnem" from log data set "wlog".
% If S4M.case_sensitive is set to false, the case of the curve mnemonic is disregarded.
%
% Written by: E. R.: December 30, 2000
% Last updated: December 12, 2005: use S4M.case_sensitive
%
%             description=l_gd(wlog,mnem);
% INPUT
% wlog        log data set
% mnem        curve mnemonic
% OUTPUT
% description  string with description of curve with mnemonic "mnem"

global S4M

mnems=wlog.curve_info(:,1);
if S4M.case_sensitive
   idx=find(ismember(mnems,mnem));
else
   idx=find(ismember(lower(mnems),lower(mnem)));
end
if length(idx) == 1
   description=wlog.curve_info{idx,3};
   return
end

%       Handle error condition
if isempty(idx)
   disp([' Curve "',mnem,'" not found. Available curves are:'])
   disp(mnems')
else
   disp([' More than one curve found: ',cell2str(mnems(idx),', ')])
end

error(' Abnormal termination.')