Update writefort15.m

- fix for no open boundary conditions
CHLNDDEV · Feb 7, 2019 · bec4881 · bec4881
1 parent fe78650
commit bec4881
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/@msh/private/writefort15.m b/@msh/private/writefort15.m
@@ -158,8 +158,10 @@
 ibtype = [2 12 22 32 52] ;
 sm = 0 ;
 
-for k = 1: length(ibtype)
-    sm = sm + sum(~(boudat.ibtype - ibtype(k))) ;
+if ~isempty(boudat)
+    for k = 1: length(ibtype)
+        sm = sm + sum(~(boudat.ibtype - ibtype(k))) ;
+    end
 end
 if ( sm > 0 ) 
     fprintf( fid, '%d  \t \t ! NFFR \n', f15dat.nffr ) ;