delendelem

 elem=delendelem(elem,mask)

 delete elements whose nodes are all edge nodes

 author: Qianqian Fang, <q.fang at neu.edu>
 date: 2007/11/24

 input/output: 
      elem: input/output, surface/volumetric element list
      mask: of length of node number, =0 for internal nodes, =1 for edge nodes

 -- this function is part of iso2mesh toolbox (http://iso2mesh.sf.net)

0001 function elem=delendelem(elem,mask)
0002 %
0003 % elem=delendelem(elem,mask)
0004 %
0005 % delete elements whose nodes are all edge nodes
0006 %
0007 % author: Qianqian Fang, <q.fang at neu.edu>
0008 % date: 2007/11/24
0009 %
0010 % input/output:
0011 %      elem: input/output, surface/volumetric element list
0012 %      mask: of length of node number, =0 for internal nodes, =1 for edge nodes
0013 %
0014 % -- this function is part of iso2mesh toolbox (http://iso2mesh.sf.net)
0015 %
0016 
0017 badidx=sum(mask(elem)');
0018 elem(find(badidx==size(elem,2)),:)=[];