function val = gm_lookup_prop(obj, propname)pvlist = double(obj{3});[scrap,numpv] = size(pvlist);val = '';for j = 1 : numpv  if strcmpi(pvlist{1,j}, propname)    val = pvlist{2,j};    return  endend% ------------------------------------------------------------------% Copyright (c) 1999 by Cornell University.  All rights reserved.% See the accompanying file 'Copyright' for authorship information,% the terms of the license governing this software, and disclaimers% concerning this software.% ------------------------------------------------------------------% This file is part of the QMG software.  % Version 2.0 of QMG, release date September 3, 1999% ------------------------------------------------------------------