gm_lookup_prop.m

来自「算断裂的」· M 代码 · 共 23 行

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
  end
end

% ------------------------------------------------------------------
% 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
% ------------------------------------------------------------------