Changeset 16379

Timestamp:

10/11/13 08:00:22 (12 years ago)

Author:

Mathieu Morlighem

Message:

NEW: added bamgflowband.m for flowband meshes

Location:

issm/trunk-jpl/src/m/mesh

Files:

• bamg.m (modified) (1 diff)
• bamgflowband.m (added)

issm/trunk-jpl/src/m/mesh/bamg.m

@@ -64 +64 @@
         %Check that file exists
         domainfile=getfieldvalue(options,'domain');
-        if ~exist(domainfile,'file') error(['bamg error message: file ' domainfile ' not found']); end
-        
-        %read domain according to its extension: 
-        [path,name,ext]=fileparts(domainfile);
-        if strcmp(ext,'.exp'),
-                domain=expread(domainfile);
-        elseif strcmp(ext,'.shp'),
-                domain=shpread(domainfile);
+        if ischar(domainfile),
+                if ~exist(domainfile,'file') error(['bamg error message: file ' domainfile ' not found']); end
+
+                %read domain according to its extension: 
+                [path,name,ext]=fileparts(domainfile);
+                if strcmp(ext,'.exp'),
+                        domain=expread(domainfile);
+                elseif strcmp(ext,'.shp'),
+                        domain=shpread(domainfile);
+                else
+                        error(['bamg error message: file ' domainfile ' format not supported (.shp or .exp)']);
+                end
+        elseif isstruct(domainfile),
+                domain = domainfile;
         else
-                error(['bamg error message: file ' domainfile ' format not supported (.shp or .exp)']);
+                error('''domain'' type not supported yet');
         end