function val = gm_lookup_prop(brep, fdim, faceind, propname)pvlist = double(brep{5 + fdim}{1,faceind});[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% ------------------------------------------------------------------