Changeset 6382

Timestamp:

10/21/10 16:02:43 (15 years ago)

Author:

jschierm

Message:

Updates to edgeperimeter.m.

File:

• issm/trunk/src/m/kml/edgeperimeter.m (modified) (3 diffs)

issm/trunk/src/m/kml/edgeperimeter.m

@@ -2 +2 @@
 %  create an edge perimeter list for the elements in the model.
 %
-%  [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon)
+%  [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon,edgeadj)
 %
 %  where the required input is:
@@ -13 +13 @@
 %    iloop         (numeric, index for each loop (nloop))
 %
-function [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon)
+%  the optional input is:
+%    edgeadj       (numeric, edge adjacency array (elems x edges))
+%
+function [edgeper,elemper,iloop]=edgeperimeter(elem,nodecon,edgeadj)
 
 if ~nargin
@@ -22 +25 @@
 %%  create the edge adjacency array
 
-edgeadj=edgeadjacency(elem,nodecon);
+if ~exist('edgeadj','var') || isempty(edgeadj)
+    edgeadj=edgeadjacency(elem,nodecon);
+end
 
 %%  create the unshared edge list